mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-22 11:13:36 +03:00
24 lines
1.1 KiB
Plaintext
24 lines
1.1 KiB
Plaintext
|
1/1: Building FromTTImp (FromTTImp.idr)
|
||
|
|
Main> Main.AsMacro.natExprMacroTest : NatExpr
|
||
|
|
natExprMacroTest = Plus (Plus (Val 1) (Val 2)) (Var "x")
|
||
|
|
Main> Main.AsMacro.natExprPrecedenceTest : NatExpr
|
||
|
|
natExprPrecedenceTest = Plus (Plus (Val 1) (Mult (Val 2) (Val 3))) (Val 4)
|
||
|
|
Main> Main.AsScript.natExprScriptTest : NatExpr
|
||
|
|
natExprScriptTest = Plus (Val 3) (Val 4)
|
||
|
|
Main> Plus (Plus (Val 1) (Mult (Val 2) (Val 3))) (Val 4)
|
||
|
|
Main> Bye for now!
|
||
|
|
1/1: Building FromName (FromName.idr)
|
||
|
|
Main> Main.AsMacro.myNameMacroTest : MyName
|
||
|
|
myNameMacroTest = MkMyName "x"
|
||
|
|
Main> Main.AsScript.myNameScriptTest : MyName
|
||
|
|
myNameScriptTest = MkMyName "y"
|
||
|
|
Main> MkMyName "z"
|
||
|
|
Main> Bye for now!
|
||
|
|
2/2: Building FromDecls (FromDecls.idr)
|
||
|
|
Main> Main.AsMacro.natDeclsMacroTest : List NatDecl
|
||
|
|
natDeclsMacroTest = [MkNatDecl "x" (Plus (Plus (Val 1) (Val 2)) (Var "a")), MkNatDecl "y" (Plus (Plus (Val 1) (Mult (Val 2) (Val 3))) (Val 4))]
|
||
|
|
Main> Main.AsScript.natDeclsScriptTest : List NatDecl
|
||
|
|
natDeclsScriptTest = [MkNatDecl "x" (Plus (Plus (Val 1) (Mult (Val 2) (Val 3))) (Val 4))]
|
||
|
|
Main> [MkNatDecl "x" (Plus (Plus (Val 1) (Mult (Val 2) (Val 3))) (Val 4))]
|
||
|
|
Main> Bye for now!
|