tricu

An interpreted language for exploring Tree Calculus
Log | Files | Refs | README | LICENSE

lexerScanImport.tri (350B)

      1 !import "prelude" !Local
      2 !import "lexer"   !Local
      3 
      4 scanner = (input : lexerScanWhile input lexerStart t
      5   (character : equal? character 97)
      6   (reversed character : pair character reversed))
      7 
      8 dispatch = (character : lexerDispatch
      9   [ (pair (c : equal? c 97) (c : 1))
     10     (pair (c : equal? c 97) (c : 2))
     11   ]
     12   (c : 3) character)
     13 
     14 main = scanner "aa!"