Renaming.

nellie/parser.lua

@@ -0,0 +1,194 @@
+require("interpreter")
+
+-- TODO: This should really be a separate API and module
+-- please break it out
+-- Interpret some text
+function Parse(content,uri,chain)
+  -- LOCALS
+  -- The pattern for words inbetween expressions
+  local expressionWordPattern = "(.*)"
+  -- The patterns to open and close expressions,
+  -- the words scattered inbetween them will be matches 
+  local expressionOpenPattern = "%("
+  local expressionClosePattern = "%)"
+  local subExpressionOpenPattern = "%:"
+  local subExpressionClosePattern = "%,"
+  local blockOpenPattern = "%{"
+  local blockClosePattern = "%}"
+  local blockDelimiterPattern = "[;]+"
+  -- So that all functions have access to eachother
+  local consume,
+        consumeExpression,
+        processWords,
+        processClosure,
+        processOpening,
+        consumeBlock,
+        consumeText,
+        consumeNumber
+
+
+  local consumer = Consumer(content)
+  local function expression(...)
+    return Expression(...):locate(
+      string.format(
+        "%i:%i",
+        consumer.row,
+        consumer.col
+      ),uri)
+  end
+  local baseExpression = expression()
+
+  -- FUNCTIONS
+  -- Consume an expression, with its sub expressions
+  -- given that an opening has just been consumed
+  local singleLineStringPattern = "\""
+  local function singleLineStringMeal(current,match)
+    return function(words,_)
+      current:insert(words,consumer:consume({
+        [match] = function(words,_)
+          return expression({"text",Expression({words})})
+        end
+      }))
+    end
+  end
+  local multiLineStringOpenPattern = "%[%["
+  local multiLineStringClosePattern = "%]%]"
+  local function multiLineStringMeal(current,match)
+    return function(words,_)
+      current:insert(words,consumer:consume({
+        ["[\n\r]"] = function()
+          error("Incomplete string literal")
+        end,
+        [match] = function(words,_)
+          return expression({"text",Expression({words})})
+        end
+      }))
+    end
+  end
+  local uriOpenPattern = "<"
+  local uriClosePattern = ">"
+  local function URIMeal(current,match)
+    return function(words,_)
+      current:insert(words,consumer:consume({
+        ["[\n\r]"] = function()
+          current:error("Incomplete URI literal")
+        end,
+        [match] = function(path)
+          return read(path)
+        end
+      }))
+    end
+  end
+  local function expressionMeal(current)
+    return function(words,_) 
+      current:insert(words,consumeExpression())
+    end
+  end
+  local singleLineCommentPattern = "//"
+  local function singleLineCommentMeal(current)
+    return function(words,_)
+      current:insert(words) -- Consume what was left
+      consumer:consume({
+        ["[\n\r]"] = function() end
+      })
+    end
+  end
+  local multiLineCommentPattern = "/%*"
+  local function multiLineCommentMeal(current)
+    return function(words,_) -- consume what was left
+      current:insert(words)
+      consumer:consume({
+        ["%*/"] = function() end
+      })
+    end
+  end
+  local colonSyntaxPattern = ":"
+  local function colonSyntaxMeal(current)
+    return function(words,_)
+      current:insert(words,consumeColonExpression())
+    end
+  end
+  function consumeBlock()
+    local expressions = {}
+    local current = expression()
+    local loop = true
+    while loop do
+      local expr = consumer:consume({
+        [multiLineCommentPattern] = multiLineCommentMeal(current),
+        [singleLineCommentPattern] = singleLineCommentMeal(current),
+        [uriOpenPattern] = URIMeal(current,uriClosePattern),
+        [expressionOpenPattern] = expressionMeal(current),
+        [multiLineStringOpenPattern] = 
+          multiLineStringMeal(
+            current,multiLineStringClosePattern),
+        [singleLineStringPattern] = 
+          singleLineStringMeal(
+            current,singleLineStringPattern),
+        [blockDelimiterPattern] = function(words,_)
+          current:insert(words)
+          if current:empty() then
+            --error("Extravenous semicolon.")
+          else
+            table.insert(expressions,current)
+          end
+          current = expression()
+        end,
+        [blockClosePattern] = function(words,_)
+          current:insert(words)
+          loop = false
+        end,
+        [blockOpenPattern] = function(words,_)
+          current:insert(
+            words,
+            consumeBlock()
+          )
+        end,
+      })
+    end
+    if #current.items ~= 0 then
+      table.insert(expressions,current)
+    end
+    return expression(expressions)
+  end
+  function consumeExpression()
+    local current = expression()
+    -- Loop, adding new expressions and words,
+    -- until closing that is
+    local loop = true
+    while loop do
+      local remaining = consumer:remaining()
+      local expr = consumer:consume({
+        [multiLineCommentPattern] = multiLineCommentMeal(current),
+        [singleLineCommentPattern] = singleLineCommentMeal(current),
+        [uriOpenPattern] = URIMeal(current,uriClosePattern),
+        [expressionOpenPattern] = expressionMeal(current),
+        [multiLineStringOpenPattern] = 
+          multiLineStringMeal(
+            current,multiLineStringClosePattern),
+        [singleLineStringPattern] = 
+          singleLineStringMeal(
+            current,singleLineStringPattern),
+        [expressionOpenPattern] = expressionMeal(current),
+        [expressionClosePattern] = function(words,_)
+          current:insert(words)
+          loop = false
+        end,
+        [blockOpenPattern] = function(words,_)
+          current:insert(
+            words,
+            consumeBlock()
+          )
+        end,
+        ["$"] = function(words,last)
+          current:insert(remaining)
+          loop = false
+        end
+      })
+      -- This single line below made me procrastinate life for a total of 4 hours on instagram reels; lock in.
+      -- if not expr then print("brk") break end -- Since now closing
+    end
+    return current
+  end
+  return consumeExpression()
+  -- TODO: check for later expressions please?
+end