libexec/nuageinit/yaml.lua

5 local table_print_value
12     local list = {}
17     local last = list[#list]
19     local rep = "{\n"
20     local comma
27       local keyRep
54 local table_print = function(tt)
58 local table_clone = function(t)
59   local clone = {}
66 local string_trim = function(s, what)
71 local push = function(stack, item)
75 local pop = function(stack)
76   local item = stack[#stack]
81 local context = function (str)
90 local Parser = {}
99 local exports = {version = "1.2"}
101 local word = function(w) return "^("..w..")([%s$%c])" end
103 local tokens = {
146   local token
147   local row = 0
148   local ignore
149   local indents = 0
150   local lastIndents
151   local stack = {}
152   local indentAmount = 0
153   local inline = false
158       local captures = {}
167         local str2 = str:gsub(tokens[i][2], "", 1)
185           local snip = token[2][1]
216             local input = token[2].input
280   local advanced
302   local ref = nil
304     local char = self:peek()[2][1]:sub(1,1)
315   local result
316   local c = {
350     local term = "term "..c.token[1]..": '"..c.token[2][1].."'"
366   local current = self:peek(0)
371   local inline = {}
372   local i = 0
382   local _, i = self:inline()
397     local result = self:advanceValue()
404     local types = self:inline()
420       local addtl = self:accept("indent")
444   local pipe = self:expect("pipe")
446   local result = self:parseTextBlock(pipe.sep)
452   local token = self:advance()
453   local result = string_trim(token.raw, "\n")
454   local indents = 0
456     local newtoken = self:advance()
474   local indents = 0
477     local id = self:advanceValue()
493     local id = self:advanceValue()
509   local id
510   local hash = {}
511   local i = 0
537   local list = {}
548   local list = {}
549   local i = 0
567   local capture = self:advance()[2]