mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-17 16:59:34 -06:00
48 lines
1.3 KiB
Plaintext
48 lines
1.3 KiB
Plaintext
i -retain prelude/Predef.gfo
|
|
cc length "abcd"
|
|
cc length ("ab"++"cd")
|
|
cc length nonExist
|
|
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"
|
|
cc "a"+"b"
|
|
cc <\x->x+"b" : Str -> Str>
|
|
cc eqInt (length ("a"+"b")) 2
|
|
cc take 10 ("aa"++BIND++"bb")
|
|
cc take 10 ("aa"++CAPIT++BIND++"bb")
|
|
cc take 10 ("aa"++BIND++CAPIT++"bb")
|
|
cc take 10 ("aa"++ALL_CAPIT++BIND++"bb")
|
|
cc take 10 ("aa"++BIND++ALL_CAPIT++"bb")
|
|
cc take 10 ("aa"++nonExist++"bb")
|
|
cc take 10 (pre {"b"=>"B"; _=>"X"})
|
|
cc take 10 ("aa"++pre {"b"=>"B"; _=>"X"})
|
|
cc take 10 ("aa"++pre {"b"=>"B"; _=>"X"}++"cc")
|
|
cc take 10 ("aa"++pre {"b"=>"B"; _=>"X"}++"bb")
|