skylighting-core-0.9: test/expected/life.lua.native
[ [ ( CommentTok , "-- life.lua" ) ]
, [ ( CommentTok , "-- original by Dave Bollinger " )
, ( KeywordTok , "<DBollinger@compuserve.com>" )
, ( CommentTok , " posted to lua-l" )
]
, [ ( CommentTok
, "-- modified to use ANSI terminal escape sequences"
)
]
, [ ( CommentTok , "-- modified to use for instead of while" ) ]
, []
, [ ( KeywordTok , "local" )
, ( NormalTok , " write" )
, ( OperatorTok , "=" )
, ( FunctionTok , "io.write" )
]
, []
, [ ( ConstantTok , "ALIVE" )
, ( OperatorTok , "=" )
, ( StringTok , "\"\165\"" )
, ( NormalTok , "\t" )
, ( ConstantTok , "DEAD" )
, ( OperatorTok , "=" )
, ( StringTok , "\"\254\"" )
]
, [ ( ConstantTok , "ALIVE" )
, ( OperatorTok , "=" )
, ( StringTok , "\"O\"" )
, ( NormalTok , "\t" )
, ( ConstantTok , "DEAD" )
, ( OperatorTok , "=" )
, ( StringTok , "\"-\"" )
]
, []
, [ ( KeywordTok , "function" )
, ( NormalTok , " delay" )
, ( OperatorTok , "()" )
, ( NormalTok , " " )
, ( CommentTok , "-- " )
, ( AlertTok , "NOTE" )
, ( CommentTok , ": SYSTEM-DEPENDENT, adjust as necessary" )
]
, [ ( NormalTok , " " )
, ( ControlFlowTok , "for" )
, ( NormalTok , " i" )
, ( OperatorTok , "=" )
, ( DecValTok , "1" )
, ( OperatorTok , "," )
, ( DecValTok , "10000" )
, ( NormalTok , " " )
, ( ControlFlowTok , "do" )
, ( NormalTok , " " )
, ( ControlFlowTok , "end" )
]
, [ ( NormalTok , " " )
, ( CommentTok , "-- local i=os.clock()+1 while(os.clock()" )
, ( KeywordTok , "<i" )
, ( OtherTok , ") do end" )
]
, [ ( KeywordTok , "end" ) ]
, []
, [ ( KeywordTok , "function" )
, ( NormalTok , " ARRAY2D" )
, ( OperatorTok , "(" )
, ( NormalTok , "w" )
, ( OperatorTok , "," )
, ( NormalTok , "h" )
, ( OperatorTok , ")" )
]
, [ ( NormalTok , " " )
, ( KeywordTok , "local" )
, ( NormalTok , " t " )
, ( OperatorTok , "=" )
, ( NormalTok , " " )
, ( OperatorTok , "{" )
, ( NormalTok , "w" )
, ( OperatorTok , "=" )
, ( NormalTok , "w" )
, ( OperatorTok , "," )
, ( NormalTok , "h" )
, ( OperatorTok , "=" )
, ( NormalTok , "h" )
, ( OperatorTok , "}" )
]
, [ ( NormalTok , " " )
, ( ControlFlowTok , "for" )
, ( NormalTok , " y" )
, ( OperatorTok , "=" )
, ( DecValTok , "1" )
, ( OperatorTok , "," )
, ( NormalTok , "h " )
, ( ControlFlowTok , "do" )
]
, [ ( NormalTok , " t" )
, ( OperatorTok , "[" )
, ( NormalTok , "y" )
, ( OperatorTok , "]" )
, ( NormalTok , " " )
, ( OperatorTok , "=" )
, ( NormalTok , " " )
, ( OperatorTok , "{}" )
]
, [ ( NormalTok , " " )
, ( ControlFlowTok , "for" )
, ( NormalTok , " x" )
, ( OperatorTok , "=" )
, ( DecValTok , "1" )
, ( OperatorTok , "," )
, ( NormalTok , "w " )
, ( ControlFlowTok , "do" )
]
, [ ( NormalTok , " t" )
, ( OperatorTok , "[" )
, ( NormalTok , "y" )
, ( OperatorTok , "][" )
, ( NormalTok , "x" )
, ( OperatorTok , "]=" )
, ( DecValTok , "0" )
]
, [ ( NormalTok , " " ) , ( ControlFlowTok , "end" ) ]
, [ ( NormalTok , " " ) , ( ControlFlowTok , "end" ) ]
, [ ( NormalTok , " " )
, ( ControlFlowTok , "return" )
, ( NormalTok , " t" )
]
, [ ( KeywordTok , "end" ) ]
, []
, [ ( ConstantTok , "_CELLS" )
, ( NormalTok , " " )
, ( OperatorTok , "=" )
, ( NormalTok , " " )
, ( OperatorTok , "{}" )
]
, []
, [ ( CommentTok
, "-- give birth to a \"shape\" within the cell array"
)
]
, [ ( KeywordTok , "function" )
, ( NormalTok , " " )
, ( ConstantTok , "_CELLS" )
, ( OperatorTok , ":" )
, ( NormalTok , "spawn" )
, ( OperatorTok , "(" )
, ( NormalTok , "shape" )
, ( OperatorTok , "," )
, ( NormalTok , "left" )
, ( OperatorTok , "," )
, ( NormalTok , "top" )
, ( OperatorTok , ")" )
]
, [ ( NormalTok , " " )
, ( ControlFlowTok , "for" )
, ( NormalTok , " y" )
, ( OperatorTok , "=" )
, ( DecValTok , "0" )
, ( OperatorTok , "," )
, ( NormalTok , "shape" )
, ( OperatorTok , "." )
, ( NormalTok , "h" )
, ( OperatorTok , "-" )
, ( DecValTok , "1" )
, ( NormalTok , " " )
, ( ControlFlowTok , "do" )
]
, [ ( NormalTok , " " )
, ( ControlFlowTok , "for" )
, ( NormalTok , " x" )
, ( OperatorTok , "=" )
, ( DecValTok , "0" )
, ( OperatorTok , "," )
, ( NormalTok , "shape" )
, ( OperatorTok , "." )
, ( NormalTok , "w" )
, ( OperatorTok , "-" )
, ( DecValTok , "1" )
, ( NormalTok , " " )
, ( ControlFlowTok , "do" )
]
, [ ( NormalTok , " self" )
, ( OperatorTok , "[" )
, ( NormalTok , "top" )
, ( OperatorTok , "+" )
, ( NormalTok , "y" )
, ( OperatorTok , "][" )
, ( NormalTok , "left" )
, ( OperatorTok , "+" )
, ( NormalTok , "x" )
, ( OperatorTok , "]" )
, ( NormalTok , " " )
, ( OperatorTok , "=" )
, ( NormalTok , " shape" )
, ( OperatorTok , "[" )
, ( NormalTok , "y" )
, ( OperatorTok , "*" )
, ( NormalTok , "shape" )
, ( OperatorTok , "." )
, ( NormalTok , "w" )
, ( OperatorTok , "+" )
, ( NormalTok , "x" )
, ( OperatorTok , "+" )
, ( DecValTok , "1" )
, ( OperatorTok , "]" )
]
, [ ( NormalTok , " " ) , ( ControlFlowTok , "end" ) ]
, [ ( NormalTok , " " ) , ( ControlFlowTok , "end" ) ]
, [ ( KeywordTok , "end" ) ]
, []
, [ ( CommentTok
, "-- run the CA and produce the next generation"
)
]
, [ ( KeywordTok , "function" )
, ( NormalTok , " " )
, ( ConstantTok , "_CELLS" )
, ( OperatorTok , ":" )
, ( NormalTok , "evolve" )
, ( OperatorTok , "(" )
, ( FunctionTok , "next" )
, ( OperatorTok , ")" )
]
, [ ( NormalTok , " " )
, ( KeywordTok , "local" )
, ( NormalTok , " ym1" )
, ( OperatorTok , "," )
, ( NormalTok , "y" )
, ( OperatorTok , "," )
, ( NormalTok , "yp1" )
, ( OperatorTok , "," )
, ( NormalTok , "yi" )
, ( OperatorTok , "=" )
, ( NormalTok , "self" )
, ( OperatorTok , "." )
, ( NormalTok , "h" )
, ( OperatorTok , "-" )
, ( DecValTok , "1" )
, ( OperatorTok , "," )
, ( NormalTok , "self" )
, ( OperatorTok , "." )
, ( NormalTok , "h" )
, ( OperatorTok , "," )
, ( DecValTok , "1" )
, ( OperatorTok , "," )
, ( NormalTok , "self" )
, ( OperatorTok , "." )
, ( NormalTok , "h" )
]
, [ ( NormalTok , " " )
, ( ControlFlowTok , "while" )
, ( NormalTok , " yi " )
, ( OperatorTok , ">" )
, ( NormalTok , " " )
, ( DecValTok , "0" )
, ( NormalTok , " " )
, ( ControlFlowTok , "do" )
]
, [ ( NormalTok , " " )
, ( KeywordTok , "local" )
, ( NormalTok , " xm1" )
, ( OperatorTok , "," )
, ( NormalTok , "x" )
, ( OperatorTok , "," )
, ( NormalTok , "xp1" )
, ( OperatorTok , "," )
, ( NormalTok , "xi" )
, ( OperatorTok , "=" )
, ( NormalTok , "self" )
, ( OperatorTok , "." )
, ( NormalTok , "w" )
, ( OperatorTok , "-" )
, ( DecValTok , "1" )
, ( OperatorTok , "," )
, ( NormalTok , "self" )
, ( OperatorTok , "." )
, ( NormalTok , "w" )
, ( OperatorTok , "," )
, ( DecValTok , "1" )
, ( OperatorTok , "," )
, ( NormalTok , "self" )
, ( OperatorTok , "." )
, ( NormalTok , "w" )
]
, [ ( NormalTok , " " )
, ( ControlFlowTok , "while" )
, ( NormalTok , " xi " )
, ( OperatorTok , ">" )
, ( NormalTok , " " )
, ( DecValTok , "0" )
, ( NormalTok , " " )
, ( ControlFlowTok , "do" )
]
, [ ( NormalTok , " " )
, ( KeywordTok , "local" )
, ( NormalTok , " sum " )
, ( OperatorTok , "=" )
, ( NormalTok , " self" )
, ( OperatorTok , "[" )
, ( NormalTok , "ym1" )
, ( OperatorTok , "][" )
, ( NormalTok , "xm1" )
, ( OperatorTok , "]" )
, ( NormalTok , " " )
, ( OperatorTok , "+" )
, ( NormalTok , " self" )
, ( OperatorTok , "[" )
, ( NormalTok , "ym1" )
, ( OperatorTok , "][" )
, ( NormalTok , "x" )
, ( OperatorTok , "]" )
, ( NormalTok , " " )
, ( OperatorTok , "+" )
, ( NormalTok , " self" )
, ( OperatorTok , "[" )
, ( NormalTok , "ym1" )
, ( OperatorTok , "][" )
, ( NormalTok , "xp1" )
, ( OperatorTok , "]" )
, ( NormalTok , " " )
, ( OperatorTok , "+" )
]
, [ ( NormalTok , " self" )
, ( OperatorTok , "[" )
, ( NormalTok , "y" )
, ( OperatorTok , "][" )
, ( NormalTok , "xm1" )
, ( OperatorTok , "]" )
, ( NormalTok , " " )
, ( OperatorTok , "+" )
, ( NormalTok , " self" )
, ( OperatorTok , "[" )
, ( NormalTok , "y" )
, ( OperatorTok , "][" )
, ( NormalTok , "xp1" )
, ( OperatorTok , "]" )
, ( NormalTok , " " )
, ( OperatorTok , "+" )
]
, [ ( NormalTok , " self" )
, ( OperatorTok , "[" )
, ( NormalTok , "yp1" )
, ( OperatorTok , "][" )
, ( NormalTok , "xm1" )
, ( OperatorTok , "]" )
, ( NormalTok , " " )
, ( OperatorTok , "+" )
, ( NormalTok , " self" )
, ( OperatorTok , "[" )
, ( NormalTok , "yp1" )
, ( OperatorTok , "][" )
, ( NormalTok , "x" )
, ( OperatorTok , "]" )
, ( NormalTok , " " )
, ( OperatorTok , "+" )
, ( NormalTok , " self" )
, ( OperatorTok , "[" )
, ( NormalTok , "yp1" )
, ( OperatorTok , "][" )
, ( NormalTok , "xp1" )
, ( OperatorTok , "]" )
]
, [ ( NormalTok , " " )
, ( FunctionTok , "next" )
, ( OperatorTok , "[" )
, ( NormalTok , "y" )
, ( OperatorTok , "][" )
, ( NormalTok , "x" )
, ( OperatorTok , "]" )
, ( NormalTok , " " )
, ( OperatorTok , "=" )
, ( NormalTok , " " )
, ( OperatorTok , "((" )
, ( NormalTok , "sum" )
, ( OperatorTok , "==" )
, ( DecValTok , "2" )
, ( OperatorTok , ")" )
, ( NormalTok , " " )
, ( KeywordTok , "and" )
, ( NormalTok , " self" )
, ( OperatorTok , "[" )
, ( NormalTok , "y" )
, ( OperatorTok , "][" )
, ( NormalTok , "x" )
, ( OperatorTok , "])" )
, ( NormalTok , " " )
, ( KeywordTok , "or" )
, ( NormalTok , " " )
, ( OperatorTok , "((" )
, ( NormalTok , "sum" )
, ( OperatorTok , "==" )
, ( DecValTok , "3" )
, ( OperatorTok , ")" )
, ( NormalTok , " " )
, ( KeywordTok , "and" )
, ( NormalTok , " " )
, ( DecValTok , "1" )
, ( OperatorTok , ")" )
, ( NormalTok , " " )
, ( KeywordTok , "or" )
, ( NormalTok , " " )
, ( DecValTok , "0" )
]
, [ ( NormalTok , " xm1" )
, ( OperatorTok , "," )
, ( NormalTok , "x" )
, ( OperatorTok , "," )
, ( NormalTok , "xp1" )
, ( OperatorTok , "," )
, ( NormalTok , "xi " )
, ( OperatorTok , "=" )
, ( NormalTok , " x" )
, ( OperatorTok , "," )
, ( NormalTok , "xp1" )
, ( OperatorTok , "," )
, ( NormalTok , "xp1" )
, ( OperatorTok , "+" )
, ( DecValTok , "1" )
, ( OperatorTok , "," )
, ( NormalTok , "xi" )
, ( OperatorTok , "-" )
, ( DecValTok , "1" )
]
, [ ( NormalTok , " " ) , ( ControlFlowTok , "end" ) ]
, [ ( NormalTok , " ym1" )
, ( OperatorTok , "," )
, ( NormalTok , "y" )
, ( OperatorTok , "," )
, ( NormalTok , "yp1" )
, ( OperatorTok , "," )
, ( NormalTok , "yi " )
, ( OperatorTok , "=" )
, ( NormalTok , " y" )
, ( OperatorTok , "," )
, ( NormalTok , "yp1" )
, ( OperatorTok , "," )
, ( NormalTok , "yp1" )
, ( OperatorTok , "+" )
, ( DecValTok , "1" )
, ( OperatorTok , "," )
, ( NormalTok , "yi" )
, ( OperatorTok , "-" )
, ( DecValTok , "1" )
]
, [ ( NormalTok , " " ) , ( ControlFlowTok , "end" ) ]
, [ ( KeywordTok , "end" ) ]
, []
, [ ( CommentTok , "-- output the array to screen" ) ]
, [ ( KeywordTok , "function" )
, ( NormalTok , " " )
, ( ConstantTok , "_CELLS" )
, ( OperatorTok , ":" )
, ( NormalTok , "draw" )
, ( OperatorTok , "()" )
]
, [ ( NormalTok , " " )
, ( KeywordTok , "local" )
, ( NormalTok , " out" )
, ( OperatorTok , "=" )
, ( StringTok , "\"\"" )
, ( NormalTok , " " )
, ( CommentTok , "-- accumulate to reduce flicker" )
]
, [ ( NormalTok , " " )
, ( ControlFlowTok , "for" )
, ( NormalTok , " y" )
, ( OperatorTok , "=" )
, ( DecValTok , "1" )
, ( OperatorTok , "," )
, ( NormalTok , "self" )
, ( OperatorTok , "." )
, ( NormalTok , "h " )
, ( ControlFlowTok , "do" )
]
, [ ( NormalTok , " " )
, ( ControlFlowTok , "for" )
, ( NormalTok , " x" )
, ( OperatorTok , "=" )
, ( DecValTok , "1" )
, ( OperatorTok , "," )
, ( NormalTok , "self" )
, ( OperatorTok , "." )
, ( NormalTok , "w " )
, ( ControlFlowTok , "do" )
]
, [ ( NormalTok , " out" )
, ( OperatorTok , "=" )
, ( NormalTok , "out" )
, ( OperatorTok , "..(((" )
, ( NormalTok , "self" )
, ( OperatorTok , "[" )
, ( NormalTok , "y" )
, ( OperatorTok , "][" )
, ( NormalTok , "x" )
, ( OperatorTok , "]>" )
, ( DecValTok , "0" )
, ( OperatorTok , ")" )
, ( NormalTok , " " )
, ( KeywordTok , "and" )
, ( NormalTok , " " )
, ( ConstantTok , "ALIVE" )
, ( OperatorTok , ")" )
, ( NormalTok , " " )
, ( KeywordTok , "or" )
, ( NormalTok , " " )
, ( ConstantTok , "DEAD" )
, ( OperatorTok , ")" )
]
, [ ( NormalTok , " " ) , ( ControlFlowTok , "end" ) ]
, [ ( NormalTok , " out" )
, ( OperatorTok , "=" )
, ( NormalTok , "out" )
, ( OperatorTok , ".." )
, ( StringTok , "\"" )
, ( SpecialCharTok , "\\n" )
, ( StringTok , "\"" )
]
, [ ( NormalTok , " " ) , ( ControlFlowTok , "end" ) ]
, [ ( NormalTok , " " )
, ( FunctionTok , "write" )
, ( OperatorTok , "(" )
, ( NormalTok , "out" )
, ( OperatorTok , ")" )
]
, [ ( KeywordTok , "end" ) ]
, []
, [ ( CommentTok , "-- constructor" ) ]
, [ ( KeywordTok , "function" )
, ( NormalTok , " CELLS" )
, ( OperatorTok , "(" )
, ( NormalTok , "w" )
, ( OperatorTok , "," )
, ( NormalTok , "h" )
, ( OperatorTok , ")" )
]
, [ ( NormalTok , " " )
, ( KeywordTok , "local" )
, ( NormalTok , " c " )
, ( OperatorTok , "=" )
, ( NormalTok , " ARRAY2D" )
, ( OperatorTok , "(" )
, ( NormalTok , "w" )
, ( OperatorTok , "," )
, ( NormalTok , "h" )
, ( OperatorTok , ")" )
]
, [ ( NormalTok , " c" )
, ( OperatorTok , "." )
, ( NormalTok , "spawn " )
, ( OperatorTok , "=" )
, ( NormalTok , " " )
, ( ConstantTok , "_CELLS" )
, ( OperatorTok , "." )
, ( NormalTok , "spawn" )
]
, [ ( NormalTok , " c" )
, ( OperatorTok , "." )
, ( NormalTok , "evolve " )
, ( OperatorTok , "=" )
, ( NormalTok , " " )
, ( ConstantTok , "_CELLS" )
, ( OperatorTok , "." )
, ( NormalTok , "evolve" )
]
, [ ( NormalTok , " c" )
, ( OperatorTok , "." )
, ( NormalTok , "draw " )
, ( OperatorTok , "=" )
, ( NormalTok , " " )
, ( ConstantTok , "_CELLS" )
, ( OperatorTok , "." )
, ( NormalTok , "draw" )
]
, [ ( NormalTok , " " )
, ( ControlFlowTok , "return" )
, ( NormalTok , " c" )
]
, [ ( KeywordTok , "end" ) ]
, []
, [ ( CommentTok , "--" ) ]
, [ ( CommentTok
, "-- shapes suitable for use with spawn() above"
)
]
, [ ( CommentTok , "--" ) ]
, [ ( ConstantTok , "HEART" )
, ( NormalTok , " " )
, ( OperatorTok , "=" )
, ( NormalTok , " " )
, ( OperatorTok , "{" )
, ( NormalTok , " " )
, ( DecValTok , "1" )
, ( OperatorTok , "," )
, ( DecValTok , "0" )
, ( OperatorTok , "," )
, ( DecValTok , "1" )
, ( OperatorTok , "," )
, ( DecValTok , "1" )
, ( OperatorTok , "," )
, ( DecValTok , "0" )
, ( OperatorTok , "," )
, ( DecValTok , "1" )
, ( OperatorTok , "," )
, ( DecValTok , "1" )
, ( OperatorTok , "," )
, ( DecValTok , "1" )
, ( OperatorTok , "," )
, ( DecValTok , "1" )
, ( OperatorTok , ";" )
, ( NormalTok , " w" )
, ( OperatorTok , "=" )
, ( DecValTok , "3" )
, ( OperatorTok , "," )
, ( NormalTok , "h" )
, ( OperatorTok , "=" )
, ( DecValTok , "3" )
, ( NormalTok , " " )
, ( OperatorTok , "}" )
]
, [ ( ConstantTok , "GLIDER" )
, ( NormalTok , " " )
, ( OperatorTok , "=" )
, ( NormalTok , " " )
, ( OperatorTok , "{" )
, ( NormalTok , " " )
, ( DecValTok , "0" )
, ( OperatorTok , "," )
, ( DecValTok , "0" )
, ( OperatorTok , "," )
, ( DecValTok , "1" )
, ( OperatorTok , "," )
, ( DecValTok , "1" )
, ( OperatorTok , "," )
, ( DecValTok , "0" )
, ( OperatorTok , "," )
, ( DecValTok , "1" )
, ( OperatorTok , "," )
, ( DecValTok , "0" )
, ( OperatorTok , "," )
, ( DecValTok , "1" )
, ( OperatorTok , "," )
, ( DecValTok , "1" )
, ( OperatorTok , ";" )
, ( NormalTok , " w" )
, ( OperatorTok , "=" )
, ( DecValTok , "3" )
, ( OperatorTok , "," )
, ( NormalTok , "h" )
, ( OperatorTok , "=" )
, ( DecValTok , "3" )
, ( NormalTok , " " )
, ( OperatorTok , "}" )
]
, [ ( ConstantTok , "EXPLODE" )
, ( NormalTok , " " )
, ( OperatorTok , "=" )
, ( NormalTok , " " )
, ( OperatorTok , "{" )
, ( NormalTok , " " )
, ( DecValTok , "0" )
, ( OperatorTok , "," )
, ( DecValTok , "1" )
, ( OperatorTok , "," )
, ( DecValTok , "0" )
, ( OperatorTok , "," )
, ( DecValTok , "1" )
, ( OperatorTok , "," )
, ( DecValTok , "1" )
, ( OperatorTok , "," )
, ( DecValTok , "1" )
, ( OperatorTok , "," )
, ( DecValTok , "1" )
, ( OperatorTok , "," )
, ( DecValTok , "0" )
, ( OperatorTok , "," )
, ( DecValTok , "1" )
, ( OperatorTok , "," )
, ( DecValTok , "0" )
, ( OperatorTok , "," )
, ( DecValTok , "1" )
, ( OperatorTok , "," )
, ( DecValTok , "0" )
, ( OperatorTok , ";" )
, ( NormalTok , " w" )
, ( OperatorTok , "=" )
, ( DecValTok , "3" )
, ( OperatorTok , "," )
, ( NormalTok , "h" )
, ( OperatorTok , "=" )
, ( DecValTok , "4" )
, ( NormalTok , " " )
, ( OperatorTok , "}" )
]
, [ ( ConstantTok , "FISH" )
, ( NormalTok , " " )
, ( OperatorTok , "=" )
, ( NormalTok , " " )
, ( OperatorTok , "{" )
, ( NormalTok , " " )
, ( DecValTok , "0" )
, ( OperatorTok , "," )
, ( DecValTok , "1" )
, ( OperatorTok , "," )
, ( DecValTok , "1" )
, ( OperatorTok , "," )
, ( DecValTok , "1" )
, ( OperatorTok , "," )
, ( DecValTok , "1" )
, ( OperatorTok , "," )
, ( DecValTok , "1" )
, ( OperatorTok , "," )
, ( DecValTok , "0" )
, ( OperatorTok , "," )
, ( DecValTok , "0" )
, ( OperatorTok , "," )
, ( DecValTok , "0" )
, ( OperatorTok , "," )
, ( DecValTok , "1" )
, ( OperatorTok , "," )
, ( DecValTok , "0" )
, ( OperatorTok , "," )
, ( DecValTok , "0" )
, ( OperatorTok , "," )
, ( DecValTok , "0" )
, ( OperatorTok , "," )
, ( DecValTok , "0" )
, ( OperatorTok , "," )
, ( DecValTok , "1" )
, ( OperatorTok , "," )
, ( DecValTok , "1" )
, ( OperatorTok , "," )
, ( DecValTok , "0" )
, ( OperatorTok , "," )
, ( DecValTok , "0" )
, ( OperatorTok , "," )
, ( DecValTok , "1" )
, ( OperatorTok , "," )
, ( DecValTok , "0" )
, ( OperatorTok , ";" )
, ( NormalTok , " w" )
, ( OperatorTok , "=" )
, ( DecValTok , "5" )
, ( OperatorTok , "," )
, ( NormalTok , "h" )
, ( OperatorTok , "=" )
, ( DecValTok , "4" )
, ( NormalTok , " " )
, ( OperatorTok , "}" )
]
, [ ( ConstantTok , "BUTTERFLY" )
, ( NormalTok , " " )
, ( OperatorTok , "=" )
, ( NormalTok , " " )
, ( OperatorTok , "{" )
, ( NormalTok , " " )
, ( DecValTok , "1" )
, ( OperatorTok , "," )
, ( DecValTok , "0" )
, ( OperatorTok , "," )
, ( DecValTok , "0" )
, ( OperatorTok , "," )
, ( DecValTok , "0" )
, ( OperatorTok , "," )
, ( DecValTok , "1" )
, ( OperatorTok , "," )
, ( DecValTok , "0" )
, ( OperatorTok , "," )
, ( DecValTok , "1" )
, ( OperatorTok , "," )
, ( DecValTok , "1" )
, ( OperatorTok , "," )
, ( DecValTok , "1" )
, ( OperatorTok , "," )
, ( DecValTok , "0" )
, ( OperatorTok , "," )
, ( DecValTok , "1" )
, ( OperatorTok , "," )
, ( DecValTok , "0" )
, ( OperatorTok , "," )
, ( DecValTok , "0" )
, ( OperatorTok , "," )
, ( DecValTok , "0" )
, ( OperatorTok , "," )
, ( DecValTok , "1" )
, ( OperatorTok , "," )
, ( DecValTok , "1" )
, ( OperatorTok , "," )
, ( DecValTok , "0" )
, ( OperatorTok , "," )
, ( DecValTok , "1" )
, ( OperatorTok , "," )
, ( DecValTok , "0" )
, ( OperatorTok , "," )
, ( DecValTok , "1" )
, ( OperatorTok , "," )
, ( DecValTok , "1" )
, ( OperatorTok , "," )
, ( DecValTok , "0" )
, ( OperatorTok , "," )
, ( DecValTok , "0" )
, ( OperatorTok , "," )
, ( DecValTok , "0" )
, ( OperatorTok , "," )
, ( DecValTok , "1" )
, ( OperatorTok , ";" )
, ( NormalTok , " w" )
, ( OperatorTok , "=" )
, ( DecValTok , "5" )
, ( OperatorTok , "," )
, ( NormalTok , "h" )
, ( OperatorTok , "=" )
, ( DecValTok , "5" )
, ( NormalTok , " " )
, ( OperatorTok , "}" )
]
, []
, [ ( CommentTok , "-- the main routine" ) ]
, [ ( KeywordTok , "function" )
, ( NormalTok , " LIFE" )
, ( OperatorTok , "(" )
, ( NormalTok , "w" )
, ( OperatorTok , "," )
, ( NormalTok , "h" )
, ( OperatorTok , ")" )
]
, [ ( NormalTok , " " )
, ( CommentTok , "-- create two arrays" )
]
, [ ( NormalTok , " " )
, ( KeywordTok , "local" )
, ( NormalTok , " thisgen " )
, ( OperatorTok , "=" )
, ( NormalTok , " CELLS" )
, ( OperatorTok , "(" )
, ( NormalTok , "w" )
, ( OperatorTok , "," )
, ( NormalTok , "h" )
, ( OperatorTok , ")" )
]
, [ ( NormalTok , " " )
, ( KeywordTok , "local" )
, ( NormalTok , " nextgen " )
, ( OperatorTok , "=" )
, ( NormalTok , " CELLS" )
, ( OperatorTok , "(" )
, ( NormalTok , "w" )
, ( OperatorTok , "," )
, ( NormalTok , "h" )
, ( OperatorTok , ")" )
]
, []
, [ ( NormalTok , " " ) , ( CommentTok , "-- create some life" ) ]
, [ ( NormalTok , " " )
, ( CommentTok
, "-- about 1000 generations of fun, then a glider steady-state"
)
]
, [ ( NormalTok , " thisgen" )
, ( OperatorTok , ":" )
, ( NormalTok , "spawn" )
, ( OperatorTok , "(" )
, ( ConstantTok , "GLIDER" )
, ( OperatorTok , "," )
, ( DecValTok , "5" )
, ( OperatorTok , "," )
, ( DecValTok , "4" )
, ( OperatorTok , ")" )
]
, [ ( NormalTok , " thisgen" )
, ( OperatorTok , ":" )
, ( NormalTok , "spawn" )
, ( OperatorTok , "(" )
, ( ConstantTok , "EXPLODE" )
, ( OperatorTok , "," )
, ( DecValTok , "25" )
, ( OperatorTok , "," )
, ( DecValTok , "10" )
, ( OperatorTok , ")" )
]
, [ ( NormalTok , " thisgen" )
, ( OperatorTok , ":" )
, ( NormalTok , "spawn" )
, ( OperatorTok , "(" )
, ( ConstantTok , "FISH" )
, ( OperatorTok , "," )
, ( DecValTok , "4" )
, ( OperatorTok , "," )
, ( DecValTok , "12" )
, ( OperatorTok , ")" )
]
, []
, [ ( NormalTok , " " ) , ( CommentTok , "-- run until break" ) ]
, [ ( NormalTok , " " )
, ( KeywordTok , "local" )
, ( NormalTok , " gen" )
, ( OperatorTok , "=" )
, ( DecValTok , "1" )
]
, [ ( NormalTok , " " )
, ( FunctionTok , "write" )
, ( OperatorTok , "(" )
, ( StringTok , "\"" )
, ( SpecialCharTok , "\\027" )
, ( StringTok , "[2J\"" )
, ( OperatorTok , ")" )
, ( NormalTok , "\t" )
, ( CommentTok , "-- ANSI clear screen" )
]
, [ ( NormalTok , " " )
, ( ControlFlowTok , "while" )
, ( NormalTok , " " )
, ( DecValTok , "1" )
, ( NormalTok , " " )
, ( ControlFlowTok , "do" )
]
, [ ( NormalTok , " thisgen" )
, ( OperatorTok , ":" )
, ( NormalTok , "evolve" )
, ( OperatorTok , "(" )
, ( NormalTok , "nextgen" )
, ( OperatorTok , ")" )
]
, [ ( NormalTok , " thisgen" )
, ( OperatorTok , "," )
, ( NormalTok , "nextgen " )
, ( OperatorTok , "=" )
, ( NormalTok , " nextgen" )
, ( OperatorTok , "," )
, ( NormalTok , "thisgen" )
]
, [ ( NormalTok , " " )
, ( FunctionTok , "write" )
, ( OperatorTok , "(" )
, ( StringTok , "\"" )
, ( SpecialCharTok , "\\027" )
, ( StringTok , "[H\"" )
, ( OperatorTok , ")" )
, ( NormalTok , "\t" )
, ( CommentTok , "-- ANSI home cursor" )
]
, [ ( NormalTok , " thisgen" )
, ( OperatorTok , ":" )
, ( NormalTok , "draw" )
, ( OperatorTok , "()" )
]
, [ ( NormalTok , " " )
, ( FunctionTok , "write" )
, ( OperatorTok , "(" )
, ( StringTok , "\"Life - generation \"" )
, ( OperatorTok , "," )
, ( NormalTok , "gen" )
, ( OperatorTok , "," )
, ( StringTok , "\"" )
, ( SpecialCharTok , "\\n" )
, ( StringTok , "\"" )
, ( OperatorTok , ")" )
]
, [ ( NormalTok , " gen" )
, ( OperatorTok , "=" )
, ( NormalTok , "gen" )
, ( OperatorTok , "+" )
, ( DecValTok , "1" )
]
, [ ( NormalTok , " " )
, ( ControlFlowTok , "if" )
, ( NormalTok , " gen" )
, ( OperatorTok , ">" )
, ( DecValTok , "2000" )
, ( NormalTok , " " )
, ( ControlFlowTok , "then" )
, ( NormalTok , " " )
, ( ControlFlowTok , "break" )
, ( NormalTok , " " )
, ( ControlFlowTok , "end" )
]
, [ ( NormalTok , " " )
, ( CommentTok , "--delay()\t\t-- no delay" )
]
, [ ( NormalTok , " " ) , ( ControlFlowTok , "end" ) ]
, [ ( KeywordTok , "end" ) ]
, []
, [ ( NormalTok , "LIFE" )
, ( OperatorTok , "(" )
, ( DecValTok , "40" )
, ( OperatorTok , "," )
, ( DecValTok , "20" )
, ( OperatorTok , ")" )
]
]