Idris2/tests/idris2/reflection004/refdecl.idr

import Language.Reflection

%language ElabReflection

logDecls : TTImp -> Elab (Int -> Int)
logDecls v
    = do declare [IClaim EmptyFC MW Public []
                 (MkTy EmptyFC `{{ Main.foo }}
                               `(Int -> Int -> Int) )]

         declare `[ foo x y = x + y ]

         declare `[ multBy : Int -> Int
                    multBy x = x * ~(v) ]
         declare `[ myplus : Nat -> Nat -> Nat
                    myplus Z y = y
                    myplus (S k) y = S (myplus k y) ]
         check `( multBy )

mkMult : Int -> Int
mkMult = %runElab logDecls `(4)
Add reflection operation for adding declarations Declarations can be quoted with `[ decl ]. See reflection004 for an example. 2020-06-01 17:01:52 +03:00			`import Language.Reflection`

			`%language ElabReflection`

In reflection, check now takes a concrete type So the type of Elab now gives the expected type that's being elaborated to, meaning that we can run 'check' in the middle of scripts and use the result. 2020-06-03 00:41:37 +03:00			`logDecls : TTImp -> Elab (Int -> Int)`
Add reflection operation for adding declarations Declarations can be quoted with `[ decl ]. See reflection004 for an example. 2020-06-01 17:01:52 +03:00			`logDecls v`
			`= do declare [IClaim EmptyFC MW Public []`
			(MkTy EmptyFC `{{ Main.foo }}
			`(Int -> Int -> Int) )]

			declare `[ foo x y = x + y ]

			declare `[ multBy : Int -> Int
			`multBy x = x * ~(v) ]`
			declare `[ myplus : Nat -> Nat -> Nat
			`myplus Z y = y`
			`myplus (S k) y = S (myplus k y) ]`
			check `( multBy )

			`mkMult : Int -> Int`
			mkMult = %runElab logDecls `(4)