summary refs log tree commit diff stats
path: root/cratera
diff options
context:
space:
mode:
Diffstat (limited to 'cratera')
-rw-r--r--cratera/init.lua83
1 files changed, 0 insertions, 83 deletions
diff --git a/cratera/init.lua b/cratera/init.lua
deleted file mode 100644
index a07068e..0000000
--- a/cratera/init.lua
+++ /dev/null
@@ -1,83 +0,0 @@
---[[
-    Cratera Compiler - pure-Lua Cratera-to-Lua transpiler
-    Copyright (C) 2019  Soni L.
-
-    This program is free software: you can redistribute it and/or modify
-    it under the terms of the GNU Affero General Public License as published by
-    the Free Software Foundation, either version 3 of the License, or
-    (at your option) any later version.
-
-    This program is distributed in the hope that it will be useful,
-    but WITHOUT ANY WARRANTY; without even the implied warranty of
-    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-    GNU Affero General Public License for more details.
-
-    You should have received a copy of the GNU Affero General Public License
-    along with this program.  If not, see <https://www.gnu.org/licenses/>.
---]]
-
--- This code is highly experimental and not very good
-
-local parser = require "cratera.parser"
-local luatokens = require "cratera.luatokens"
-local compiler = require "cratera.compiler"
-
-local LUA_SIGNATURE = string.dump(function() end):sub(1,1)
-
-local function cratera_load(reader, ...)
-    if type(reader) == "string" and reader:sub(1,1) == LUA_SIGNATURE then
-        -- bytecode
-        return (loadstring or load)(reader, ...)
-    end
-    local f, s, i = parser.stream(luatokens.defs, reader)
-    if type(s[parser.DATA]) == "string" and s[parser.DATA]:sub(1,1) == LUA_SIGNATURE then
-        -- bytecode
-        local function fn()
-            fn = reader
-            return s[parser.DATA]
-        end
-        return (loadstring or load)(function() return fn() end, ...)
-    end
-    local nl = 1
-    local otherstate = {} -- needed to match linenumbers
-    local f, s, i = parser.stream(compiler.defs, function()
-        local tokens
-        repeat
-            local pos, state, transemsg, etoken, estate = f(s, i)
-            otherstate.linenumber = state.line
-            i = pos
-            if not i then return nil end
-            if not state then error(transemsg) end
-            tokens = {}
-            for i,v in ipairs(state) do
-                state[i] = nil
-                tokens[i] = v
-            end
-        until #tokens > 0 or not transemsg
-        return tokens
-    end, otherstate)
-    local function fn()
-        function fn()
-            local tokens
-            repeat
-                local pos, state, transemsg, etoken, estate, est = f(s, i)
-                i = pos
-                if not i then return nil end
-                if not state then error(transemsg .. " " .. tostring(etoken)) end
-                tokens = {""}
-                for i,v in ipairs(state) do
-                    state[i] = nil
-                    tokens[i+1] = v
-                end
-            until #tokens > 1 or not transemsg
-            return table.concat(tokens, " ")
-        end
-        local ret = fn()
-        return string.sub(ret, 2)
-    end
-    return load(function()
-        return fn()
-    end, ...)
-end
-
-return {load = cratera_load}