';; A pretty-printer that outputs tables in Fennel syntax.' Comment.Single
'\n'          Text.Whitespace

';; Loosely based on inspect.lua: http://github.com/kikito/inspect.lua' Comment.Single
'\n\n'        Text.Whitespace

'('           Punctuation
'fn '         Keyword.Declaration
'view-quote'  Name.Variable
' '           Text.Whitespace
'['           Punctuation
'str'         Name.Variable
']'           Punctuation
' '           Text.Whitespace
'('           Punctuation
'.. '         Keyword
'"\\""'       Literal.String
' '           Text.Whitespace
'('           Punctuation
': '          Keyword
'str'         Name.Variable
' '           Text.Whitespace
':gsub'       Literal.String.Symbol
' '           Text.Whitespace
'"\\""'       Literal.String
' '           Text.Whitespace
'"\\\\\\""'   Literal.String
')'           Punctuation
' '           Text.Whitespace
'"\\""'       Literal.String
')'           Punctuation
')'           Punctuation
'\n\n'        Text.Whitespace

'('           Punctuation
'local '      Keyword.Declaration
'short-control-char-escapes' Name.Variable
'\n       '   Text.Whitespace
'{'           Punctuation
'"\\a"'       Literal.String
' '           Text.Whitespace
'"\\\\a"'     Literal.String
' '           Text.Whitespace
'"\\b"'       Literal.String
' '           Text.Whitespace
'"\\\\b"'     Literal.String
' '           Text.Whitespace
'"\\f"'       Literal.String
' '           Text.Whitespace
'"\\\\f"'     Literal.String
' '           Text.Whitespace
'"\\n"'       Literal.String
' '           Text.Whitespace
'"\\\\n"'     Literal.String
'\n        '  Text.Whitespace
'"\\r"'       Literal.String
' '           Text.Whitespace
'"\\\\r"'     Literal.String
' '           Text.Whitespace
'"\\t"'       Literal.String
' '           Text.Whitespace
'"\\\\t"'     Literal.String
' '           Text.Whitespace
'"\\v"'       Literal.String
' '           Text.Whitespace
'"\\\\v"'     Literal.String
'}'           Punctuation
')'           Punctuation
'\n\n'        Text.Whitespace

'('           Punctuation
'local '      Keyword.Declaration
'long-control-char-escapes' Name.Variable
'\n       '   Text.Whitespace
'('           Punctuation
'let '        Keyword
'['           Punctuation
'long'        Name.Variable
' '           Text.Whitespace
'{'           Punctuation
'}'           Punctuation
']'           Punctuation
'\n         ' Text.Whitespace
'('           Punctuation
'for '        Keyword
'['           Punctuation
'i'           Name.Variable
' '           Text.Whitespace
'0'           Literal.Number.Integer
' '           Text.Whitespace
'31'          Literal.Number.Integer
']'           Punctuation
'\n           ' Text.Whitespace
'('           Punctuation
'let '        Keyword
'['           Punctuation
'ch'          Name.Variable
' '           Text.Whitespace
'('           Punctuation
'string.char' Name.Variable
' '           Text.Whitespace
'i'           Name.Variable
')'           Punctuation
']'           Punctuation
'\n             ' Text.Whitespace
'('           Punctuation
'when '       Keyword
'('           Punctuation
'not '        Keyword
'('           Punctuation
'. '          Keyword
'short-control-char-escapes' Name.Variable
' '           Text.Whitespace
'ch'          Name.Variable
')'           Punctuation
')'           Punctuation
'\n               ' Text.Whitespace
'('           Punctuation
'tset '       Keyword
'short-control-char-escapes' Name.Variable
' '           Text.Whitespace
'ch'          Name.Variable
' '           Text.Whitespace
'('           Punctuation
'.. '         Keyword
'"\\\\"'      Literal.String
' '           Text.Whitespace
'i'           Name.Variable
')'           Punctuation
')'           Punctuation
'\n               ' Text.Whitespace
'('           Punctuation
'tset '       Keyword
'long'        Name.Variable
' '           Text.Whitespace
'ch'          Name.Variable
' '           Text.Whitespace
'('           Punctuation
': '          Keyword
'"\\\\%03d"'  Literal.String
' '           Text.Whitespace
':format'     Literal.String.Symbol
' '           Text.Whitespace
'i'           Name.Variable
')'           Punctuation
')'           Punctuation
')'           Punctuation
')'           Punctuation
')'           Punctuation
'\n         ' Text.Whitespace
'long'        Name.Variable
')'           Punctuation
')'           Punctuation
'\n\n'        Text.Whitespace

'('           Punctuation
'fn '         Keyword.Declaration
'escape'      Name.Variable
' '           Text.Whitespace
'['           Punctuation
'str'         Name.Variable
']'           Punctuation
'\n  '        Text.Whitespace
'('           Punctuation
'-> '         Keyword
'str'         Name.Variable
'\n      '    Text.Whitespace
'('           Punctuation
': '          Keyword
':gsub'       Literal.String.Symbol
' '           Text.Whitespace
'"\\\\"'      Literal.String
' '           Text.Whitespace
'"\\\\\\\\"'  Literal.String
')'           Punctuation
'\n      '    Text.Whitespace
'('           Punctuation
': '          Keyword
':gsub'       Literal.String.Symbol
' '           Text.Whitespace
'"(%c)%f[0-9]"' Literal.String
' '           Text.Whitespace
'long-control-char-escapes' Name.Variable
')'           Punctuation
'\n      '    Text.Whitespace
'('           Punctuation
': '          Keyword
':gsub'       Literal.String.Symbol
' '           Text.Whitespace
'"%c"'        Literal.String
' '           Text.Whitespace
'short-control-char-escapes' Name.Variable
')'           Punctuation
')'           Punctuation
')'           Punctuation
'\n\n'        Text.Whitespace

'('           Punctuation
'fn '         Keyword.Declaration
'sequence-key?' Name.Variable
' '           Text.Whitespace
'['           Punctuation
'k'           Name.Variable
' '           Text.Whitespace
'len'         Name.Variable
']'           Punctuation
'\n  '        Text.Whitespace
'('           Punctuation
'and '        Keyword
'('           Punctuation
'= '          Keyword
'('           Punctuation
'type '       Name.Builtin
'k'           Name.Variable
')'           Punctuation
' '           Text.Whitespace
'"number"'    Literal.String
')'           Punctuation
'\n       '   Text.Whitespace
'('           Punctuation
'<= '         Keyword
'1'           Literal.Number.Integer
' '           Text.Whitespace
'k'           Name.Variable
')'           Punctuation
'\n       '   Text.Whitespace
'('           Punctuation
'<= '         Keyword
'k'           Name.Variable
' '           Text.Whitespace
'len'         Name.Variable
')'           Punctuation
'\n       '   Text.Whitespace
'('           Punctuation
'= '          Keyword
'('           Punctuation
'math.floor'  Name.Variable
' '           Text.Whitespace
'k'           Name.Variable
')'           Punctuation
' '           Text.Whitespace
'k'           Name.Variable
')'           Punctuation
')'           Punctuation
')'           Punctuation
'\n\n'        Text.Whitespace

'('           Punctuation
'local '      Keyword.Declaration
'type-order'  Name.Variable
' '           Text.Whitespace
'{'           Punctuation
':number'     Literal.String.Symbol
' '           Text.Whitespace
'1'           Literal.Number.Integer
' '           Text.Whitespace
':boolean'    Literal.String.Symbol
' '           Text.Whitespace
'2'           Literal.Number.Integer
' '           Text.Whitespace
':string'     Literal.String.Symbol
' '           Text.Whitespace
'3'           Literal.Number.Integer
' '           Text.Whitespace
':table'      Literal.String.Symbol
' '           Text.Whitespace
'4'           Literal.Number.Integer
'\n                   ' Text.Whitespace
':function'   Literal.String.Symbol
' '           Text.Whitespace
'5'           Literal.Number.Integer
' '           Text.Whitespace
':userdata'   Literal.String.Symbol
' '           Text.Whitespace
'6'           Literal.Number.Integer
' '           Text.Whitespace
':thread'     Literal.String.Symbol
' '           Text.Whitespace
'7'           Literal.Number.Integer
'}'           Punctuation
')'           Punctuation
'\n\n'        Text.Whitespace

'('           Punctuation
'fn '         Keyword.Declaration
'sort-keys'   Name.Variable
' '           Text.Whitespace
'['           Punctuation
'a'           Name.Variable
' '           Text.Whitespace
'b'           Name.Variable
']'           Punctuation
'\n  '        Text.Whitespace
'('           Punctuation
'let '        Keyword
'['           Punctuation
'ta'          Name.Variable
' '           Text.Whitespace
'('           Punctuation
'type '       Name.Builtin
'a'           Name.Variable
')'           Punctuation
' '           Text.Whitespace
'tb'          Name.Variable
' '           Text.Whitespace
'('           Punctuation
'type '       Name.Builtin
'b'           Name.Variable
')'           Punctuation
']'           Punctuation
'\n    '      Text.Whitespace
'('           Punctuation
'if '         Keyword
'('           Punctuation
'and '        Keyword
'('           Punctuation
'= '          Keyword
'ta'          Name.Variable
' '           Text.Whitespace
'tb'          Name.Variable
')'           Punctuation
'\n             ' Text.Whitespace
'('           Punctuation
'or '         Keyword
'('           Punctuation
'= '          Keyword
'ta'          Name.Variable
' '           Text.Whitespace
'"string"'    Literal.String
')'           Punctuation
' '           Text.Whitespace
'('           Punctuation
'= '          Keyword
'ta'          Name.Variable
' '           Text.Whitespace
'"number"'    Literal.String
')'           Punctuation
')'           Punctuation
')'           Punctuation
'\n        '  Text.Whitespace
'('           Punctuation
'< '          Keyword
'a'           Name.Variable
' '           Text.Whitespace
'b'           Name.Variable
')'           Punctuation
'\n        '  Text.Whitespace
'('           Punctuation
'let '        Keyword
'['           Punctuation
'dta'         Name.Variable
' '           Text.Whitespace
'('           Punctuation
'. '          Keyword
'type-order'  Name.Variable
' '           Text.Whitespace
'a'           Name.Variable
')'           Punctuation
'\n              ' Text.Whitespace
'dtb'         Name.Variable
' '           Text.Whitespace
'('           Punctuation
'. '          Keyword
'type-order'  Name.Variable
' '           Text.Whitespace
'b'           Name.Variable
')'           Punctuation
']'           Punctuation
'\n          ' Text.Whitespace
'('           Punctuation
'if '         Keyword
'('           Punctuation
'and '        Keyword
'dta'         Name.Variable
' '           Text.Whitespace
'dtb'         Name.Variable
')'           Punctuation
'\n              ' Text.Whitespace
'('           Punctuation
'< '          Keyword
'dta'         Name.Variable
' '           Text.Whitespace
'dtb'         Name.Variable
')'           Punctuation
'\n              ' Text.Whitespace
'dta'         Name.Variable
' '           Text.Whitespace
'true'        Name.Constant
'\n              ' Text.Whitespace
'dtb'         Name.Variable
' '           Text.Whitespace
'false'       Name.Constant
'\n              ' Text.Whitespace
':else'       Literal.String.Symbol
' '           Text.Whitespace
'('           Punctuation
'< '          Keyword
'ta'          Name.Variable
' '           Text.Whitespace
'tb'          Name.Variable
')'           Punctuation
')'           Punctuation
')'           Punctuation
')'           Punctuation
')'           Punctuation
')'           Punctuation
'\n\n'        Text.Whitespace

'('           Punctuation
'fn '         Keyword.Declaration
'get-sequence-length' Name.Variable
' '           Text.Whitespace
'['           Punctuation
't'           Name.Variable
']'           Punctuation
'\n  '        Text.Whitespace
'('           Punctuation
'var '        Keyword.Declaration
'len'         Name.Variable
' '           Text.Whitespace
'1'           Literal.Number.Integer
')'           Punctuation
'\n  '        Text.Whitespace
'('           Punctuation
'each '       Keyword
'['           Punctuation
'i'           Name.Variable
' '           Text.Whitespace
'('           Punctuation
'ipairs '     Name.Builtin
't'           Name.Variable
')'           Punctuation
']'           Punctuation
' '           Text.Whitespace
'('           Punctuation
'set '        Keyword
'len'         Name.Variable
' '           Text.Whitespace
'i'           Name.Variable
')'           Punctuation
')'           Punctuation
'\n  '        Text.Whitespace
'len'         Name.Variable
')'           Punctuation
'\n\n'        Text.Whitespace

'('           Punctuation
'fn '         Keyword.Declaration
'get-nonsequential-keys' Name.Variable
' '           Text.Whitespace
'['           Punctuation
't'           Name.Variable
']'           Punctuation
'\n  '        Text.Whitespace
'('           Punctuation
'let '        Keyword
'['           Punctuation
'keys'        Name.Variable
' '           Text.Whitespace
'{'           Punctuation
'}'           Punctuation
'\n        '  Text.Whitespace
'sequence-length' Name.Variable
' '           Text.Whitespace
'('           Punctuation
'get-sequence-length' Name.Variable
' '           Text.Whitespace
't'           Name.Variable
')'           Punctuation
']'           Punctuation
'\n    '      Text.Whitespace
'('           Punctuation
'each '       Keyword
'['           Punctuation
'k'           Name.Variable
' '           Text.Whitespace
'('           Punctuation
'pairs '      Name.Builtin
't'           Name.Variable
')'           Punctuation
']'           Punctuation
'\n      '    Text.Whitespace
'('           Punctuation
'when '       Keyword
'('           Punctuation
'not '        Keyword
'('           Punctuation
'sequence-key?' Name.Variable
' '           Text.Whitespace
'k'           Name.Variable
' '           Text.Whitespace
'sequence-length' Name.Variable
')'           Punctuation
')'           Punctuation
'\n        '  Text.Whitespace
'('           Punctuation
'table.insert' Name.Variable
' '           Text.Whitespace
'keys'        Name.Variable
' '           Text.Whitespace
'k'           Name.Variable
')'           Punctuation
')'           Punctuation
')'           Punctuation
'\n    '      Text.Whitespace
'('           Punctuation
'table.sort'  Name.Variable
' '           Text.Whitespace
'keys'        Name.Variable
' '           Text.Whitespace
'sort-keys'   Name.Variable
')'           Punctuation
'\n    '      Text.Whitespace
'('           Punctuation
'values '     Keyword
'keys'        Name.Variable
' '           Text.Whitespace
'sequence-length' Name.Variable
')'           Punctuation
')'           Punctuation
')'           Punctuation
'\n\n'        Text.Whitespace

'('           Punctuation
'fn '         Keyword.Declaration
'count-table-appearances' Name.Variable
' '           Text.Whitespace
'['           Punctuation
't'           Name.Variable
' '           Text.Whitespace
'appearances' Name.Variable
']'           Punctuation
'\n  '        Text.Whitespace
'('           Punctuation
'when '       Keyword
'('           Punctuation
'= '          Keyword
'('           Punctuation
'type '       Name.Builtin
't'           Name.Variable
')'           Punctuation
' '           Text.Whitespace
'"table"'     Literal.String
')'           Punctuation
'\n    '      Text.Whitespace
'('           Punctuation
'if '         Keyword
'('           Punctuation
'not '        Keyword
'('           Punctuation
'. '          Keyword
'appearances' Name.Variable
' '           Text.Whitespace
't'           Name.Variable
')'           Punctuation
')'           Punctuation
'\n        '  Text.Whitespace
'('           Punctuation
'do '         Keyword
'('           Punctuation
'tset '       Keyword
'appearances' Name.Variable
' '           Text.Whitespace
't'           Name.Variable
' '           Text.Whitespace
'1'           Literal.Number.Integer
')'           Punctuation
'\n            ' Text.Whitespace
'('           Punctuation
'each '       Keyword
'['           Punctuation
'k'           Name.Variable
' '           Text.Whitespace
'v'           Name.Variable
' '           Text.Whitespace
'('           Punctuation
'pairs '      Name.Builtin
't'           Name.Variable
')'           Punctuation
']'           Punctuation
'\n              ' Text.Whitespace
'('           Punctuation
'count-table-appearances' Name.Variable
' '           Text.Whitespace
'k'           Name.Variable
' '           Text.Whitespace
'appearances' Name.Variable
')'           Punctuation
'\n              ' Text.Whitespace
'('           Punctuation
'count-table-appearances' Name.Variable
' '           Text.Whitespace
'v'           Name.Variable
' '           Text.Whitespace
'appearances' Name.Variable
')'           Punctuation
')'           Punctuation
')'           Punctuation
'\n        '  Text.Whitespace
'('           Punctuation
'tset '       Keyword
'appearances' Name.Variable
' '           Text.Whitespace
't'           Name.Variable
' '           Text.Whitespace
'('           Punctuation
'+ '          Keyword
'('           Punctuation
'or '         Keyword
'('           Punctuation
'. '          Keyword
'appearances' Name.Variable
' '           Text.Whitespace
't'           Name.Variable
')'           Punctuation
' '           Text.Whitespace
'0'           Literal.Number.Integer
')'           Punctuation
' '           Text.Whitespace
'1'           Literal.Number.Integer
')'           Punctuation
')'           Punctuation
')'           Punctuation
')'           Punctuation
'\n  '        Text.Whitespace
'appearances' Name.Variable
')'           Punctuation
'\n\n\x0c\n\n' Text.Whitespace

'('           Punctuation
'var '        Keyword.Declaration
'put-value'   Name.Variable
' '           Text.Whitespace
'nil'         Name.Constant
')'           Punctuation
' '           Text.Whitespace
'; mutual recursion going on; defined below' Comment.Single
'\n\n'        Text.Whitespace

'('           Punctuation
'fn '         Keyword.Declaration
'puts'        Name.Variable
' '           Text.Whitespace
'['           Punctuation
'self'        Name.Variable
' '           Text.Whitespace
'...'         Name.Variable
']'           Punctuation
'\n  '        Text.Whitespace
'('           Punctuation
'each '       Keyword
'['           Punctuation
'_'           Name.Variable
' '           Text.Whitespace
'v'           Name.Variable
' '           Text.Whitespace
'('           Punctuation
'ipairs '     Name.Builtin
'['           Punctuation
'...'         Name.Variable
']'           Punctuation
')'           Punctuation
']'           Punctuation
'\n    '      Text.Whitespace
'('           Punctuation
'table.insert' Name.Variable
' '           Text.Whitespace
'self.buffer' Name.Variable
' '           Text.Whitespace
'v'           Name.Variable
')'           Punctuation
')'           Punctuation
')'           Punctuation
'\n\n'        Text.Whitespace

'('           Punctuation
'fn '         Keyword.Declaration
'tabify'      Name.Variable
' '           Text.Whitespace
'['           Punctuation
'self'        Name.Variable
']'           Punctuation
' '           Text.Whitespace
'('           Punctuation
'puts'        Name.Variable
' '           Text.Whitespace
'self'        Name.Variable
' '           Text.Whitespace
'"\\n"'       Literal.String
' '           Text.Whitespace
'('           Punctuation
': '          Keyword
'self.indent' Name.Variable
' '           Text.Whitespace
':rep'        Literal.String.Symbol
' '           Text.Whitespace
'self.level'  Name.Variable
')'           Punctuation
')'           Punctuation
')'           Punctuation
'\n\n'        Text.Whitespace

'('           Punctuation
'fn '         Keyword.Declaration
'already-visited?' Name.Variable
' '           Text.Whitespace
'['           Punctuation
'self'        Name.Variable
' '           Text.Whitespace
'v'           Name.Variable
']'           Punctuation
' '           Text.Whitespace
'('           Punctuation
'not= '       Keyword
'('           Punctuation
'. '          Keyword
'self.ids'    Name.Variable
' '           Text.Whitespace
'v'           Name.Variable
')'           Punctuation
' '           Text.Whitespace
'nil'         Name.Constant
')'           Punctuation
')'           Punctuation
'\n\n'        Text.Whitespace

'('           Punctuation
'fn '         Keyword.Declaration
'get-id'      Name.Variable
' '           Text.Whitespace
'['           Punctuation
'self'        Name.Variable
' '           Text.Whitespace
'v'           Name.Variable
']'           Punctuation
'\n  '        Text.Whitespace
'('           Punctuation
'var '        Keyword.Declaration
'id'          Name.Variable
' '           Text.Whitespace
'('           Punctuation
'. '          Keyword
'self.ids'    Name.Variable
' '           Text.Whitespace
'v'           Name.Variable
')'           Punctuation
')'           Punctuation
'\n  '        Text.Whitespace
'('           Punctuation
'when '       Keyword
'('           Punctuation
'not '        Keyword
'id'          Name.Variable
')'           Punctuation
'\n    '      Text.Whitespace
'('           Punctuation
'let '        Keyword
'['           Punctuation
'tv'          Name.Variable
' '           Text.Whitespace
'('           Punctuation
'type '       Name.Builtin
'v'           Name.Variable
')'           Punctuation
']'           Punctuation
'\n      '    Text.Whitespace
'('           Punctuation
'set '        Keyword
'id'          Name.Variable
' '           Text.Whitespace
'('           Punctuation
'+ '          Keyword
'('           Punctuation
'or '         Keyword
'('           Punctuation
'. '          Keyword
'self.max-ids' Name.Variable
' '           Text.Whitespace
'tv'          Name.Variable
')'           Punctuation
' '           Text.Whitespace
'0'           Literal.Number.Integer
')'           Punctuation
' '           Text.Whitespace
'1'           Literal.Number.Integer
')'           Punctuation
')'           Punctuation
'\n      '    Text.Whitespace
'('           Punctuation
'tset '       Keyword
'self.max-ids' Name.Variable
' '           Text.Whitespace
'tv'          Name.Variable
' '           Text.Whitespace
'id'          Name.Variable
')'           Punctuation
'\n      '    Text.Whitespace
'('           Punctuation
'tset '       Keyword
'self.ids'    Name.Variable
' '           Text.Whitespace
'v'           Name.Variable
' '           Text.Whitespace
'id'          Name.Variable
')'           Punctuation
')'           Punctuation
')'           Punctuation
'\n  '        Text.Whitespace
'('           Punctuation
'tostring '   Name.Builtin
'id'          Name.Variable
')'           Punctuation
')'           Punctuation
'\n\n'        Text.Whitespace

'('           Punctuation
'fn '         Keyword.Declaration
'put-sequential-table' Name.Variable
' '           Text.Whitespace
'['           Punctuation
'self'        Name.Variable
' '           Text.Whitespace
't'           Name.Variable
' '           Text.Whitespace
'len'         Name.Variable
']'           Punctuation
'\n  '        Text.Whitespace
'('           Punctuation
'puts'        Name.Variable
' '           Text.Whitespace
'self'        Name.Variable
' '           Text.Whitespace
'"["'         Literal.String
')'           Punctuation
'\n  '        Text.Whitespace
'('           Punctuation
'set '        Keyword
'self.level'  Name.Variable
' '           Text.Whitespace
'('           Punctuation
'+ '          Keyword
'self.level'  Name.Variable
' '           Text.Whitespace
'1'           Literal.Number.Integer
')'           Punctuation
')'           Punctuation
'\n  '        Text.Whitespace
'('           Punctuation
'for '        Keyword
'['           Punctuation
'i'           Name.Variable
' '           Text.Whitespace
'1'           Literal.Number.Integer
' '           Text.Whitespace
'len'         Name.Variable
']'           Punctuation
'\n    '      Text.Whitespace
'('           Punctuation
'when '       Keyword
'('           Punctuation
'< '          Keyword
'1'           Literal.Number.Integer
' '           Text.Whitespace
'i'           Name.Variable
' '           Text.Whitespace
'('           Punctuation
'+ '          Keyword
'1'           Literal.Number.Integer
' '           Text.Whitespace
'len'         Name.Variable
')'           Punctuation
')'           Punctuation
'\n      '    Text.Whitespace
'('           Punctuation
'puts'        Name.Variable
' '           Text.Whitespace
'self'        Name.Variable
' '           Text.Whitespace
'" "'         Literal.String
')'           Punctuation
')'           Punctuation
'\n    '      Text.Whitespace
'('           Punctuation
'put-value'   Name.Variable
' '           Text.Whitespace
'self'        Name.Variable
' '           Text.Whitespace
'('           Punctuation
'. '          Keyword
't'           Name.Variable
' '           Text.Whitespace
'i'           Name.Variable
')'           Punctuation
')'           Punctuation
')'           Punctuation
'\n  '        Text.Whitespace
'('           Punctuation
'set '        Keyword
'self.level'  Name.Variable
' '           Text.Whitespace
'('           Punctuation
'- '          Keyword
'self.level'  Name.Variable
' '           Text.Whitespace
'1'           Literal.Number.Integer
')'           Punctuation
')'           Punctuation
'\n  '        Text.Whitespace
'('           Punctuation
'puts'        Name.Variable
' '           Text.Whitespace
'self'        Name.Variable
' '           Text.Whitespace
'"]"'         Literal.String
')'           Punctuation
')'           Punctuation
'\n\n'        Text.Whitespace

'('           Punctuation
'fn '         Keyword.Declaration
'put-key'     Name.Variable
' '           Text.Whitespace
'['           Punctuation
'self'        Name.Variable
' '           Text.Whitespace
'k'           Name.Variable
']'           Punctuation
'\n  '        Text.Whitespace
'('           Punctuation
'if '         Keyword
'('           Punctuation
'and '        Keyword
'('           Punctuation
'= '          Keyword
'('           Punctuation
'type '       Name.Builtin
'k'           Name.Variable
')'           Punctuation
' '           Text.Whitespace
'"string"'    Literal.String
')'           Punctuation
'\n           ' Text.Whitespace
'('           Punctuation
': '          Keyword
'k'           Name.Variable
' '           Text.Whitespace
':find'       Literal.String.Symbol
' '           Text.Whitespace
'"^[-%w?\\\\^_!$%&*+./@:|<=>]+$"' Literal.String
')'           Punctuation
')'           Punctuation
'\n      '    Text.Whitespace
'('           Punctuation
'puts'        Name.Variable
' '           Text.Whitespace
'self'        Name.Variable
' '           Text.Whitespace
'":"'         Literal.String
' '           Text.Whitespace
'k'           Name.Variable
')'           Punctuation
'\n      '    Text.Whitespace
'('           Punctuation
'put-value'   Name.Variable
' '           Text.Whitespace
'self'        Name.Variable
' '           Text.Whitespace
'k'           Name.Variable
')'           Punctuation
')'           Punctuation
')'           Punctuation
'\n\n'        Text.Whitespace

'('           Punctuation
'fn '         Keyword.Declaration
'put-kv-table' Name.Variable
' '           Text.Whitespace
'['           Punctuation
'self'        Name.Variable
' '           Text.Whitespace
't'           Name.Variable
' '           Text.Whitespace
'ordered-keys' Name.Variable
']'           Punctuation
'\n  '        Text.Whitespace
'('           Punctuation
'puts'        Name.Variable
' '           Text.Whitespace
'self'        Name.Variable
' '           Text.Whitespace
'"{"'         Literal.String
')'           Punctuation
'\n  '        Text.Whitespace
'('           Punctuation
'set '        Keyword
'self.level'  Name.Variable
' '           Text.Whitespace
'('           Punctuation
'+ '          Keyword
'self.level'  Name.Variable
' '           Text.Whitespace
'1'           Literal.Number.Integer
')'           Punctuation
')'           Punctuation
'\n  '        Text.Whitespace
';; first, output sorted nonsequential keys' Comment.Single
'\n  '        Text.Whitespace
'('           Punctuation
'each '       Keyword
'['           Punctuation
'i'           Name.Variable
' '           Text.Whitespace
'k'           Name.Variable
' '           Text.Whitespace
'('           Punctuation
'ipairs '     Name.Builtin
'ordered-keys' Name.Variable
')'           Punctuation
']'           Punctuation
'\n    '      Text.Whitespace
'('           Punctuation
'when '       Keyword
'('           Punctuation
'or '         Keyword
'self.table-edges' Name.Variable
' '           Text.Whitespace
'('           Punctuation
'not= '       Keyword
'i'           Name.Variable
' '           Text.Whitespace
'1'           Literal.Number.Integer
')'           Punctuation
')'           Punctuation
'\n      '    Text.Whitespace
'('           Punctuation
'tabify'      Name.Variable
' '           Text.Whitespace
'self'        Name.Variable
')'           Punctuation
')'           Punctuation
'\n    '      Text.Whitespace
'('           Punctuation
'put-key'     Name.Variable
' '           Text.Whitespace
'self'        Name.Variable
' '           Text.Whitespace
'k'           Name.Variable
')'           Punctuation
'\n    '      Text.Whitespace
'('           Punctuation
'puts'        Name.Variable
' '           Text.Whitespace
'self'        Name.Variable
' '           Text.Whitespace
'" "'         Literal.String
')'           Punctuation
'\n    '      Text.Whitespace
'('           Punctuation
'put-value'   Name.Variable
' '           Text.Whitespace
'self'        Name.Variable
' '           Text.Whitespace
'('           Punctuation
'. '          Keyword
't'           Name.Variable
' '           Text.Whitespace
'k'           Name.Variable
')'           Punctuation
')'           Punctuation
')'           Punctuation
'\n  '        Text.Whitespace
';; next, output any sequential keys' Comment.Single
'\n  '        Text.Whitespace
'('           Punctuation
'each '       Keyword
'['           Punctuation
'i'           Name.Variable
' '           Text.Whitespace
'v'           Name.Variable
' '           Text.Whitespace
'('           Punctuation
'ipairs '     Name.Builtin
't'           Name.Variable
')'           Punctuation
']'           Punctuation
'\n    '      Text.Whitespace
'('           Punctuation
'tabify'      Name.Variable
' '           Text.Whitespace
'self'        Name.Variable
')'           Punctuation
'\n    '      Text.Whitespace
'('           Punctuation
'put-key'     Name.Variable
' '           Text.Whitespace
'self'        Name.Variable
' '           Text.Whitespace
'i'           Name.Variable
')'           Punctuation
'\n    '      Text.Whitespace
'('           Punctuation
'puts'        Name.Variable
' '           Text.Whitespace
'self'        Name.Variable
' '           Text.Whitespace
'" "'         Literal.String
')'           Punctuation
'\n    '      Text.Whitespace
'('           Punctuation
'put-value'   Name.Variable
' '           Text.Whitespace
'self'        Name.Variable
' '           Text.Whitespace
'v'           Name.Variable
')'           Punctuation
')'           Punctuation
'\n  '        Text.Whitespace
'('           Punctuation
'set '        Keyword
'self.level'  Name.Variable
' '           Text.Whitespace
'('           Punctuation
'- '          Keyword
'self.level'  Name.Variable
' '           Text.Whitespace
'1'           Literal.Number.Integer
')'           Punctuation
')'           Punctuation
'\n  '        Text.Whitespace
'('           Punctuation
'when '       Keyword
'self.table-edges' Name.Variable
'\n    '      Text.Whitespace
'('           Punctuation
'tabify'      Name.Variable
' '           Text.Whitespace
'self'        Name.Variable
')'           Punctuation
')'           Punctuation
'\n  '        Text.Whitespace
'('           Punctuation
'puts'        Name.Variable
' '           Text.Whitespace
'self'        Name.Variable
' '           Text.Whitespace
'"}"'         Literal.String
')'           Punctuation
')'           Punctuation
'\n\n'        Text.Whitespace

'('           Punctuation
'fn '         Keyword.Declaration
'put-table'   Name.Variable
' '           Text.Whitespace
'['           Punctuation
'self'        Name.Variable
' '           Text.Whitespace
't'           Name.Variable
']'           Punctuation
'\n  '        Text.Whitespace
'('           Punctuation
'let '        Keyword
'['           Punctuation
'metamethod'  Name.Variable
' '           Text.Whitespace
'('           Punctuation
'and '        Keyword
'self.metamethod?' Name.Variable
' '           Text.Whitespace
'('           Punctuation
'-?> '        Keyword
't'           Name.Variable
' '           Text.Whitespace
'getmetatable ' Name.Builtin
'('           Punctuation
'. '          Keyword
':__fennelview' Literal.String.Symbol
')'           Punctuation
')'           Punctuation
')'           Punctuation
']'           Punctuation
'\n    '      Text.Whitespace
'('           Punctuation
'if '         Keyword
'('           Punctuation
'and '        Keyword
'('           Punctuation
'already-visited?' Name.Variable
' '           Text.Whitespace
'self'        Name.Variable
' '           Text.Whitespace
't'           Name.Variable
')'           Punctuation
' '           Text.Whitespace
'self.detect-cycles?' Name.Variable
')'           Punctuation
'\n        '  Text.Whitespace
'('           Punctuation
'puts'        Name.Variable
' '           Text.Whitespace
'self'        Name.Variable
' '           Text.Whitespace
'"#<table @"' Literal.String
' '           Text.Whitespace
'('           Punctuation
'get-id'      Name.Variable
' '           Text.Whitespace
'self'        Name.Variable
' '           Text.Whitespace
't'           Name.Variable
')'           Punctuation
' '           Text.Whitespace
'">"'         Literal.String
')'           Punctuation
'\n        '  Text.Whitespace
'('           Punctuation
'>= '         Keyword
'self.level'  Name.Variable
' '           Text.Whitespace
'self.depth'  Name.Variable
')'           Punctuation
'\n        '  Text.Whitespace
'('           Punctuation
'puts'        Name.Variable
' '           Text.Whitespace
'self'        Name.Variable
' '           Text.Whitespace
'"{...}"'     Literal.String
')'           Punctuation
'\n        '  Text.Whitespace
'metamethod'  Name.Variable
'\n        '  Text.Whitespace
'('           Punctuation
'puts'        Name.Variable
' '           Text.Whitespace
'self'        Name.Variable
' '           Text.Whitespace
'('           Punctuation
'metamethod'  Name.Variable
' '           Text.Whitespace
't'           Name.Variable
' '           Text.Whitespace
'self.fennelview' Name.Variable
')'           Punctuation
')'           Punctuation
'\n        '  Text.Whitespace
':else'       Literal.String.Symbol
'\n        '  Text.Whitespace
'('           Punctuation
'let '        Keyword
'['           Punctuation
'('           Punctuation
'non-seq-keys' Name.Variable
' '           Text.Whitespace
'len'         Name.Variable
')'           Punctuation
' '           Text.Whitespace
'('           Punctuation
'get-nonsequential-keys' Name.Variable
' '           Text.Whitespace
't'           Name.Variable
')'           Punctuation
'\n              ' Text.Whitespace
'id'          Name.Variable
' '           Text.Whitespace
'('           Punctuation
'get-id'      Name.Variable
' '           Text.Whitespace
'self'        Name.Variable
' '           Text.Whitespace
't'           Name.Variable
')'           Punctuation
']'           Punctuation
'\n          ' Text.Whitespace
';; fancy metatable stuff can result in self.appearances not including' Comment.Single
'\n          ' Text.Whitespace
";; a table, so if it's not found, assume we haven't seen it; we can't" Comment.Single
'\n          ' Text.Whitespace
';; do cycle detection in that case.' Comment.Single
'\n          ' Text.Whitespace
'('           Punctuation
'when '       Keyword
'('           Punctuation
'and '        Keyword
'('           Punctuation
'< '          Keyword
'1'           Literal.Number.Integer
' '           Text.Whitespace
'('           Punctuation
'or '         Keyword
'('           Punctuation
'. '          Keyword
'self.appearances' Name.Variable
' '           Text.Whitespace
't'           Name.Variable
')'           Punctuation
' '           Text.Whitespace
'0'           Literal.Number.Integer
')'           Punctuation
')'           Punctuation
' '           Text.Whitespace
'self.detect-cycles?' Name.Variable
')'           Punctuation
'\n            ' Text.Whitespace
'('           Punctuation
'puts'        Name.Variable
' '           Text.Whitespace
'self'        Name.Variable
' '           Text.Whitespace
'"@"'         Literal.String
' '           Text.Whitespace
'id'          Name.Variable
')'           Punctuation
')'           Punctuation
'\n          ' Text.Whitespace
'('           Punctuation
'if '         Keyword
'('           Punctuation
'and '        Keyword
'('           Punctuation
'= '          Keyword
'('           Punctuation
'length '     Keyword
'non-seq-keys' Name.Variable
')'           Punctuation
' '           Text.Whitespace
'0'           Literal.Number.Integer
')'           Punctuation
' '           Text.Whitespace
'('           Punctuation
'= '          Keyword
'('           Punctuation
'length '     Keyword
't'           Name.Variable
')'           Punctuation
' '           Text.Whitespace
'0'           Literal.Number.Integer
')'           Punctuation
')'           Punctuation
'\n              ' Text.Whitespace
'('           Punctuation
'puts'        Name.Variable
' '           Text.Whitespace
'self'        Name.Variable
' '           Text.Whitespace
'('           Punctuation
'if '         Keyword
'self.empty-as-square' Name.Variable
' '           Text.Whitespace
'"[]"'        Literal.String
' '           Text.Whitespace
'"{}"'        Literal.String
')'           Punctuation
')'           Punctuation
'\n              ' Text.Whitespace
'('           Punctuation
'= '          Keyword
'('           Punctuation
'length '     Keyword
'non-seq-keys' Name.Variable
')'           Punctuation
' '           Text.Whitespace
'0'           Literal.Number.Integer
')'           Punctuation
'\n              ' Text.Whitespace
'('           Punctuation
'put-sequential-table' Name.Variable
' '           Text.Whitespace
'self'        Name.Variable
' '           Text.Whitespace
't'           Name.Variable
' '           Text.Whitespace
'len'         Name.Variable
')'           Punctuation
'\n              ' Text.Whitespace
':else'       Literal.String.Symbol
'\n              ' Text.Whitespace
'('           Punctuation
'put-kv-table' Name.Variable
' '           Text.Whitespace
'self'        Name.Variable
' '           Text.Whitespace
't'           Name.Variable
' '           Text.Whitespace
'non-seq-keys' Name.Variable
')'           Punctuation
')'           Punctuation
')'           Punctuation
')'           Punctuation
')'           Punctuation
')'           Punctuation
'\n\n'        Text.Whitespace

'('           Punctuation
'set '        Keyword
'put-value'   Name.Variable
' '           Text.Whitespace
'('           Punctuation
'fn '         Keyword.Declaration
'['           Punctuation
'self'        Name.Variable
' '           Text.Whitespace
'v'           Name.Variable
']'           Punctuation
'\n                 ' Text.Whitespace
'('           Punctuation
'let '        Keyword
'['           Punctuation
'tv'          Name.Variable
' '           Text.Whitespace
'('           Punctuation
'type '       Name.Builtin
'v'           Name.Variable
')'           Punctuation
']'           Punctuation
'\n                   ' Text.Whitespace
'('           Punctuation
'if '         Keyword
'('           Punctuation
'= '          Keyword
'tv'          Name.Variable
' '           Text.Whitespace
'"string"'    Literal.String
')'           Punctuation
'\n                       ' Text.Whitespace
'('           Punctuation
'puts'        Name.Variable
' '           Text.Whitespace
'self'        Name.Variable
' '           Text.Whitespace
'('           Punctuation
'view-quote'  Name.Variable
' '           Text.Whitespace
'('           Punctuation
'escape'      Name.Variable
' '           Text.Whitespace
'v'           Name.Variable
')'           Punctuation
')'           Punctuation
')'           Punctuation
'\n                       ' Text.Whitespace
'('           Punctuation
'or '         Keyword
'('           Punctuation
'= '          Keyword
'tv'          Name.Variable
' '           Text.Whitespace
'"number"'    Literal.String
')'           Punctuation
' '           Text.Whitespace
'('           Punctuation
'= '          Keyword
'tv'          Name.Variable
' '           Text.Whitespace
'"boolean"'   Literal.String
')'           Punctuation
' '           Text.Whitespace
'('           Punctuation
'= '          Keyword
'tv'          Name.Variable
' '           Text.Whitespace
'"nil"'       Literal.String
')'           Punctuation
')'           Punctuation
'\n                       ' Text.Whitespace
'('           Punctuation
'puts'        Name.Variable
' '           Text.Whitespace
'self'        Name.Variable
' '           Text.Whitespace
'('           Punctuation
'tostring '   Name.Builtin
'v'           Name.Variable
')'           Punctuation
')'           Punctuation
'\n                       ' Text.Whitespace
'('           Punctuation
'= '          Keyword
'tv'          Name.Variable
' '           Text.Whitespace
'"table"'     Literal.String
')'           Punctuation
'\n                       ' Text.Whitespace
'('           Punctuation
'put-table'   Name.Variable
' '           Text.Whitespace
'self'        Name.Variable
' '           Text.Whitespace
'v'           Name.Variable
')'           Punctuation
'\n                       ' Text.Whitespace
':else'       Literal.String.Symbol
'\n                       ' Text.Whitespace
'('           Punctuation
'puts'        Name.Variable
' '           Text.Whitespace
'self'        Name.Variable
' '           Text.Whitespace
'"#<"'        Literal.String
' '           Text.Whitespace
'('           Punctuation
'tostring '   Name.Builtin
'v'           Name.Variable
')'           Punctuation
' '           Text.Whitespace
'">"'         Literal.String
')'           Punctuation
')'           Punctuation
')'           Punctuation
')'           Punctuation
')'           Punctuation
'\n\n\x0c\n\n' Text.Whitespace

'('           Punctuation
'fn '         Keyword.Declaration
'one-line'    Name.Variable
' '           Text.Whitespace
'['           Punctuation
'str'         Name.Variable
']'           Punctuation
'\n  '        Text.Whitespace
";; save return value as local to ignore gsub's extra return value" Comment.Single
'\n  '        Text.Whitespace
'('           Punctuation
'let '        Keyword
'['           Punctuation
'ret'         Name.Variable
' '           Text.Whitespace
'('           Punctuation
'-> '         Keyword
'str'         Name.Variable
'\n                ' Text.Whitespace
'('           Punctuation
': '          Keyword
':gsub'       Literal.String.Symbol
' '           Text.Whitespace
'"\\n"'       Literal.String
' '           Text.Whitespace
'" "'         Literal.String
')'           Punctuation
'\n                ' Text.Whitespace
'('           Punctuation
': '          Keyword
':gsub'       Literal.String.Symbol
' '           Text.Whitespace
'"%[ "'       Literal.String
' '           Text.Whitespace
'"["'         Literal.String
')'           Punctuation
' '           Text.Whitespace
'('           Punctuation
': '          Keyword
':gsub'       Literal.String.Symbol
' '           Text.Whitespace
'" %]"'       Literal.String
' '           Text.Whitespace
'"]"'         Literal.String
')'           Punctuation
'\n                ' Text.Whitespace
'('           Punctuation
': '          Keyword
':gsub'       Literal.String.Symbol
' '           Text.Whitespace
'"%{ "'       Literal.String
' '           Text.Whitespace
'"{"'         Literal.String
')'           Punctuation
' '           Text.Whitespace
'('           Punctuation
': '          Keyword
':gsub'       Literal.String.Symbol
' '           Text.Whitespace
'" %}"'       Literal.String
' '           Text.Whitespace
'"}"'         Literal.String
')'           Punctuation
'\n                ' Text.Whitespace
'('           Punctuation
': '          Keyword
':gsub'       Literal.String.Symbol
' '           Text.Whitespace
'"%( "'       Literal.String
' '           Text.Whitespace
'"("'         Literal.String
')'           Punctuation
' '           Text.Whitespace
'('           Punctuation
': '          Keyword
':gsub'       Literal.String.Symbol
' '           Text.Whitespace
'" %)"'       Literal.String
' '           Text.Whitespace
'")"'         Literal.String
')'           Punctuation
')'           Punctuation
']'           Punctuation
'\n    '      Text.Whitespace
'ret'         Name.Variable
')'           Punctuation
')'           Punctuation
'\n\n'        Text.Whitespace

'('           Punctuation
'fn '         Keyword.Declaration
'fennelview'  Name.Variable
' '           Text.Whitespace
'['           Punctuation
'x'           Name.Variable
' '           Text.Whitespace
'options'     Name.Variable
']'           Punctuation
'\n  '        Text.Whitespace
'"Return a string representation of x.\n\nCan take an options table with these keys:\n* :one-line (boolean: default: false) keep the output string as a one-liner\n* :depth (number, default: 128) limit how many levels to go (default: 128)\n* :indent (string, default: \\"  \\") use this string to indent each level\n* :detect-cycles? (boolean, default: true) don\'t try to traverse a looping table\n* :metamethod? (boolean: default: true) use the __fennelview metamethod if found\n* :table-edges (boolean: default: true) put {} table brackets on their own line\n* :empty-as-square (boolean: default: false) render empty tables as [], not {}\n\nThe __fennelview metamethod should take the table being serialized as its first\nargument and a function as its second arg which can be used on table elements to\ncontinue the fennelview process on them.\n"' Literal.String
'\n  '        Text.Whitespace
'('           Punctuation
'let '        Keyword
'['           Punctuation
'options'     Name.Variable
' '           Text.Whitespace
'('           Punctuation
'or '         Keyword
'options'     Name.Variable
' '           Text.Whitespace
'{'           Punctuation
'}'           Punctuation
')'           Punctuation
'\n        '  Text.Whitespace
'inspector'   Name.Variable
' '           Text.Whitespace
'{'           Punctuation
':appearances' Literal.String.Symbol
' '           Text.Whitespace
'('           Punctuation
'count-table-appearances' Name.Variable
' '           Text.Whitespace
'x'           Name.Variable
' '           Text.Whitespace
'{'           Punctuation
'}'           Punctuation
')'           Punctuation
'\n                   ' Text.Whitespace
':depth'      Literal.String.Symbol
' '           Text.Whitespace
'('           Punctuation
'or '         Keyword
'options.depth' Name.Variable
' '           Text.Whitespace
'128'         Literal.Number.Integer
')'           Punctuation
'\n                   ' Text.Whitespace
':level'      Literal.String.Symbol
' '           Text.Whitespace
'0'           Literal.Number.Integer
' '           Text.Whitespace
':buffer'     Literal.String.Symbol
' '           Text.Whitespace
'{'           Punctuation
'}'           Punctuation
' '           Text.Whitespace
':ids'        Literal.String.Symbol
' '           Text.Whitespace
'{'           Punctuation
'}'           Punctuation
' '           Text.Whitespace
':max-ids'    Literal.String.Symbol
' '           Text.Whitespace
'{'           Punctuation
'}'           Punctuation
'\n                   ' Text.Whitespace
':indent'     Literal.String.Symbol
' '           Text.Whitespace
'('           Punctuation
'or '         Keyword
'options.indent' Name.Variable
' '           Text.Whitespace
'('           Punctuation
'if '         Keyword
'options.one-line' Name.Variable
' '           Text.Whitespace
'""'          Literal.String
' '           Text.Whitespace
'"  "'        Literal.String
')'           Punctuation
')'           Punctuation
'\n                   ' Text.Whitespace
':detect-cycles?' Literal.String.Symbol
' '           Text.Whitespace
'('           Punctuation
'not '        Keyword
'('           Punctuation
'= '          Keyword
'false'       Name.Constant
' '           Text.Whitespace
'options.detect-cycles?' Name.Variable
')'           Punctuation
')'           Punctuation
'\n                   ' Text.Whitespace
':metamethod?' Literal.String.Symbol
' '           Text.Whitespace
'('           Punctuation
'not '        Keyword
'('           Punctuation
'= '          Keyword
'false'       Name.Constant
' '           Text.Whitespace
'options.metamethod?' Name.Variable
')'           Punctuation
')'           Punctuation
'\n                   ' Text.Whitespace
':fennelview' Literal.String.Symbol
' '           Text.Whitespace
'#'           Punctuation
'('           Punctuation
'fennelview'  Name.Variable
' '           Text.Whitespace
'$1'          Name.Variable
' '           Text.Whitespace
'options'     Name.Variable
')'           Punctuation
'\n                   ' Text.Whitespace
':table-edges' Literal.String.Symbol
' '           Text.Whitespace
'('           Punctuation
'not= '       Keyword
'options.table-edges' Name.Variable
' '           Text.Whitespace
'false'       Name.Constant
')'           Punctuation
'\n                   ' Text.Whitespace
':empty-as-square' Literal.String.Symbol
' '           Text.Whitespace
'options.empty-as-square' Name.Variable
'}'           Punctuation
']'           Punctuation
'\n    '      Text.Whitespace
'('           Punctuation
'put-value'   Name.Variable
' '           Text.Whitespace
'inspector'   Name.Variable
' '           Text.Whitespace
'x'           Name.Variable
')'           Punctuation
'\n    '      Text.Whitespace
'('           Punctuation
'let '        Keyword
'['           Punctuation
'str'         Name.Variable
' '           Text.Whitespace
'('           Punctuation
'table.concat' Name.Variable
' '           Text.Whitespace
'inspector.buffer' Name.Variable
')'           Punctuation
']'           Punctuation
'\n      '    Text.Whitespace
'('           Punctuation
'if '         Keyword
'options.one-line' Name.Variable
' '           Text.Whitespace
'('           Punctuation
'one-line'    Name.Variable
' '           Text.Whitespace
'str'         Name.Variable
')'           Punctuation
' '           Text.Whitespace
'str'         Name.Variable
')'           Punctuation
')'           Punctuation
')'           Punctuation
')'           Punctuation
'\n'          Text.Whitespace