most primitives in Predef.gf are now implemented

testsuite/compiler/compute/predef.gfs

@@ -0,0 +1,33 @@
+i -retain prelude/Predef.gfo
+cc length "abcd"
+cc length ("ab"++"cd")
+cc <\x -> length x : Str -> Int>
+cc take 2 "abcd"
+cc drop 2 "abcd"
+cc tk 1 "abcd"
+cc dp 1 "abcd"
+cc toUpper "abcd"
+cc toLower "ABCD"
+cc isUpper "abcd"
+cc isUpper "ABCD"
+cc isUpper "AbCd"
+cc case isUpper "abcd" of {PTrue => "yes"; PFalse => "no"}
+cc case isUpper "ABCD" of {PTrue => "yes"; PFalse => "no"}
+cc case isUpper "AbCd" of {PTrue => "yes"; PFalse => "no"}
+cc eqStr "ab cd" ("ab"++"cd")
+cc occur "bc" "abcd"
+cc occur "bc" "acbd"
+cc occurs "bc" "xxxxbxxx"
+cc occurs "bc" "xxxxcxxx"
+cc occurs "bc" "xxxxxxxx"
+cc eqInt (length "abcd") 4
+cc lessInt (length "abcd") 3
+cc lessInt (length "abcd") 5
+cc plus (length "abcd") 1
+cc error "user error"++"!"
+cc "x"++nonExist++"y"
+cc "x"++BIND++"y"
+cc "x"++SOFT_BIND++"y"
+cc "x"++SOFT_SPACE++"y"
+cc "x"++CAPIT++"y"
+cc "x"++ALL_CAPIT++"y"

testsuite/compiler/compute/predef.gfs.gold

@@ -0,0 +1,28 @@
+4
+5
+\v0 -> Predef.length v0
+"ab"
+"cd"
+"d"
+"abc"
+"ABCD"
+"abcd"
+Predef.PFalse
+Predef.PTrue
+Predef.PFalse
+"no"
+"yes"
+"no"
+Predef.PTrue
+Predef.PTrue
+Predef.PFalse
+Predef.PTrue
+Predef.PTrue
+Predef.PFalse
+Predef.PTrue
+Predef.PFalse
+Predef.PTrue
+5
+: In _: user error
+CallStack (from HasCallStack):
+  error, called at src/compiler/GF/Compile/Compute/Concrete.hs:36:18 in main:GF.Compile.Compute.Concrete