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

mapStr ; appPredefined in err monad

Browse Source
This commit is contained in:
aarne
2005-04-01 20:24:24 +00:00
parent 7e328b027e
commit 4d79ef0c41
2 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
prelude/Predef.gf
View File

@@ -22,7 +22,9 @@ resource Predef = {
oper occur : Tok -> Tok -> PBool = variants {} ; -- test if occurs as substring oper occur : Tok -> Tok -> PBool = variants {} ; -- test if occurs as substring
oper show : (P : Type) -> P -> Tok = variants {} ; -- convert param to string oper show : (P : Type) -> P -> Tok = variants {} ; -- convert param to string
oper read : (P : Type) -> Tok -> P = variants {} ; -- convert string to param oper read : (P : Type) -> Tok -> P = variants {} ; -- convert string to param
oper toStr : (P : Type) -> P -> Str = variants {} ; -- find the "first" string oper toStr : (L : Type) -> L -> Str = variants {} ; -- find the "first" string
oper mapStr : (L : Type) -> (Str -> Str) -> L -> L = variants {} ;
-- map all strings in a data structure
} ; } ;

2
resource/english/RulesEng.gf
View File

@@ -29,7 +29,7 @@ flags
optimize=all ; optimize=all ;
lin lin
UseN = noun2CommNounPhrase ; UseN = noun2CommNounPhrase ;
UsePN = nameNounPhrase ; UsePN = nameNounPhrase ;
SymbPN i = {s = table {Nom => i.s ; Gen => i.s ++ "'s"} ; g = Neutr} ; --- SymbPN i = {s = table {Nom => i.s ; Gen => i.s ++ "'s"} ; g = Neutr} ; ---