tricu

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

sourceContractPortableGate.tri (407B)

      1 !import "prelude" !Local
      2 !import "parser" !Local
      3 !import "io" !Local
      4 !import "source.unit" !Local
      5 main = io (onResult_ (readFile "test/sourceContractMiniRun.tri")
      6   (problem : putStrLn "read-failed")
      7   (source : lazyResult
      8     (problem rest : putStrLn (append "diagnostic=" (showNumber (parserDiagnosticCode problem))))
      9     (tree rest : putStrLn (showNumber tree))
     10     (compileGateProgram [] source)))
     11 main