msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

hopefully complete and correct typechecker in PGF

Browse Source
This commit is contained in:
krasimir
2009-09-06 20:31:52 +00:00
parent c99b64404d
commit b97d6abb81
18 changed files with 914 additions and 492 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
testsuite/runtime/eval/Test.gf
View File

@@ -14,7 +14,7 @@ def g0 = g2 ;
fun g3 : Int -> (Int -> Int) ;
def g3 3 = g ;
fun const : Int -> Int -> Int ;
fun const : Float -> String -> Float ;
def const x _ = x ;
cat Nat ;

32
testsuite/runtime/eval/eval.gfs
View File

@@ -1,34 +1,30 @@
i testsuite/runtime/eval/Test.gf
pt -compute \x -> x 1
pt -compute ? 1
pt -compute (\x -> x 1) ?
pt -compute unknown_var
pt -compute unknown_var 1
pt -compute 1 2
pt -compute \x -> x 1 : (Int->Int)->Int
pt -compute (? : Int -> Int) 1
pt -compute (\x -> x 1 : (Int->Int)->Int) ?
pt -compute f 1 2
pt -compute \x -> x
pt -compute ?666
pt -compute \x -> x : Nat -> Nat
pt -compute ? : String
pt -compute f
pt -compute (\x -> x 2) (f 1)
pt -compute (\x -> x 2) 1
pt -compute (\x -> x 2 : (Int->Int)->Int) (f 1)
pt -compute g 1
pt -compute g 0
pt -compute \x -> g x
pt -compute \x -> g x : Int -> Int
pt -compute g ?
pt -compute (\x -> x 5) (g2 1)
pt -compute (\x -> x 3) (\x -> x)
pt -compute (\x -> x 5 : (Int->Int)->Int) (g2 1)
pt -compute (\x -> x 3 : (Int->Int)->Int) (\x -> x)
pt -compute g0
pt -compute (\x -> x 3.2) (\x -> f x)
pt -compute g0 2.3
pt -compute g0 ((\x -> f x) 0) 1
pt -compute (\x -> x 32 : (Int -> Int -> Int) -> Int -> Int) (\x -> f x : Int -> Int -> Int)
pt -compute g0 23
pt -compute const 3.14 "pi"
pt -compute dec (succ (succ zero))
pt -compute dec (succ ?)
pt -compute \x -> dec x
pt -compute \x -> dec x : Nat -> Nat
pt -compute dec ?
pt -compute (\f -> f 0) (g3 ?)
pt -compute (\f -> f 0 : (Int -> Int) -> Int) (g3 ?)
pt -compute g (g2 ? 0)
pt -compute plus (succ zero) (succ zero)
pt -compute dec2 0 (succ zero)
pt -compute dec2 0 err
pt -compute plus err (succ zero)

36
testsuite/runtime/eval/eval.gfs.gold
View File

@@ -1,30 +1,26 @@
\v0 -> v0 1
\x -> x 1
? 1
?1 1
? 1
?3 1
f 1 2
\x -> x
?1
?666
f
@@ -32,29 +28,29 @@ g ?
f 1 2
f 1 2
literal of function type
2
g 0
g 0
\x -> g x
\v0 -> g v0
g ?1
g ?
5
3