А есть ли какая либо литература по написанию своего языка программирования? Можете подсказать)

теперь она заменяет (вроде) все пути вроде ./?.lua ./?.luac на относительные к скрипту do local unpack = unpack or table.unpack; local p = {} local it = 1 while it < #package.path do local pos = package.path:find(";", it) if not pos then table.insert(p, package.path:sub(it)) break end table.insert(p, package.path:sub(it, pos - 1)) it = pos + 1 end local win = package.config:sub(1, 1) == "\\"; local sl, ls = unpack(win and {"\\", "/"} or {"/", "\\"}); local norm = function(path, parent, isdir) local sp = path:gsub(ls, sl) local is_abs = sp:sub(1, 1) == sl or (win and sp:find(":")); local last = ({sp:find(".*" .. sl)})[2]; if parent then sp = (last or is_abs) and sp:sub(1, last) or ""; end if not is_abs and sp:sub(1, 2) ~= ("." .. sl) then sp = "." .. sl .. sp; end if (parent or isdir) and sp:sub(-1, -1) ~= sl then sp = sp .. sl; end return sp end local path = norm(arg[0], true); local lookup = { [("./??.[a-zA-Z0-9]+" ):gsub(ls, sl)] = 3, [("./??/init.[a-zA-Z0-9]+"):gsub(ls, sl)] = 3 }; for k, v in pairs(p) do local n = norm(v) for lk, lv in pairs(lookup) do local b, e = n:find(lk) if b == 1 and e == #n then p[k] = path .. n:sub(lv) break end end end end

теперь она заменяет (вроде) все пути вроде ./?.lua ./?.luac на относительные к скрипту do local unpack = unpack or table.unpack; local p = {} local it = 1 while it < #package.path do local pos = package.path:find(";", it) if not pos then table.insert(p, package.path:sub(it)) break end table.insert(p, package.path:sub(it, pos - 1)) it = pos + 1 end local win = package.config:sub(1, 1) == "\\"; local sl, ls = unpack(win and {"\\", "/"} or {"/", "\\"}); local norm = function(path, parent, isdir) local sp = path:gsub(ls, sl) local is_abs = sp:sub(1, 1) == sl or (win and sp:find(":")); local last = ({sp:find(".*" .. sl)})[2]; if parent then sp = (last or is_abs) and sp:sub(1, last) or ""; end if not is_abs and sp:sub(1, 2) ~= ("." .. sl) then sp = "." .. sl .. sp; end if (parent or isdir) and sp:sub(-1, -1) ~= sl then sp = sp .. sl; end return sp end local path = norm(arg[0], true); local lookup = { [("./??.[a-zA-Z0-9]+" ):gsub(ls, sl)] = 3, [("./??/init.[a-zA-Z0-9]+"):gsub(ls, sl)] = 3 }; for k, v in pairs(p) do local n = norm(v) for lk, lv in pairs(lookup) do local b, e = n:find(lk) if b == 1 and e == #n then p[k] = path .. n:sub(lv) break end end end end

Мне кажется что это можно было сделать через кастомный лоадер. Могу ошибаться

??

http://lua-users.org/wiki/LuaModulesLoader для примера, и сделать по другому обработку path

do local unpack = unpack or table.unpack; local p = {} local it = 1 while it < #package.path do local pos = package.path:find(";", it) if not pos then table.insert(p, package.path:sub(it)) break end table.insert(p, package.path:sub(it, pos - 1)) it = pos + 1 end local win = package.config:sub(1, 1) == "\\"; local sl, ls = unpack(win and {"\\", "/"} or {"/", "\\"}); local norm = function(path, parent) local sp = path:gsub(ls, sl) local is_abs = sp:sub(1, 1) == sl or (win and sp:find(":")); local last = ({sp:find(".*" .. sl)})[2]; if parent then sp = (last or is_abs) and sp:sub(1, last) or ""; end if not is_abs and sp:sub(1, 2) ~= ("." .. sl) then sp = "." .. sl .. sp; end if sp:sub(-1, -1) == sl then sp = sp:sub(1, -2); end return sp end local path = norm(arg[0], true); local lookup = { [("./??.[a-zA-Z0-9]+" ):gsub(ls, sl)] = 5, [("./??/init.[a-zA-Z0-9]+"):gsub(ls, sl)] = 10 }; local exts = {"lua", "luac"} -- forcibly add these extensions local exts_rev = {lua = 1, luac = 2} for k, v in pairs(p) do local n = norm(v) for lk, lv in pairs(lookup) do local b, e = n:find(lk) if b == 1 and e == #n then local ext = n:sub(lv) if not exts_rev[ext] then table.insert(exts, ext) exts_rev[ext] = #exts end p[k] = "" break end end end local ds = 1 for k, v in pairs(exts) do table.insert(p, ds, norm(path .. "/?." .. v)); table.insert(p, ds + 1, norm(path .. "/?/init." .. v)); ds = ds + 2 end for k, v in pairs(p) do if #v ~= 0 then p[k] = v .. ';' end end package.path = table.concat(p) end

но тут цель была удалить пути относительно CWD и добавить относительно скрипта

К сожалению, CWD это очень относительная штука. Например, notepad++ запускает скрипты с CWD там, где собственно расположен notepad++, и если попытаться что-то записать "в текущую директорию" — откроет именно там. И подобная история с многими редакторами. Поэтому вместо CWF можно использовать путь до корневого скрипта запущенного в интерпретаторе.

есть два факта 1) откуда то запущен луажит 2) ему дан аргумент: path/to/file.lua

судя по всему у макоси тоже .so

у макоси dylib

типа у макоси формат dylib но для луа называется so

Я короче прям сделаль запеченное освещение, и патчи для текстур чтобы можно было спрайты 8х8 частями наносить, и это чем то декали напоминает

Ты же шейдерами рендеришь стены? Можно считать удалённость до источников освещения и затенять пиксели.

Ты же шейдерами рендеришь стены? Можно считать удалённость до источников освещения и затенять пиксели.

Ну в думе так-то есть программный режим, там вполне себе текстурки нарезаются на полосочки и каждая полосочка дополнительно красится в зависимости от удалённости.

Ты с тайлами полностью рисуешь всю текстурку, без нарезания на полосочки? Чисто преобразуешь вершины квадратика?

Нет это то присутствует само собой, просто цветов то у меня 16, всего 4 цвета. Надо же как то от источников света показать контраст

Да так-то можно и два: "освещено" и "не освещено".

Чуть попоже организую

Вообще тик вроде может 31 цвет выдавать https://tic80.com/play?cart=3361

зашел посмотреть цвета, в итоге залип в ремейк портала

у макоси dylib

у макоси вперемешку dylib, so и без расширения вообще :)