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

Hindi and Sindhi in resource Make

Browse Source
This commit is contained in:
aarne
2012-02-24 10:01:02 +00:00
parent 33beca4036
commit 1e06931691
2 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/Make.hs
View File

@@ -51,6 +51,7 @@ langsCoding = [
(("punjabi", "Pnb"),""), (("punjabi", "Pnb"),""),
(("romanian", "Ron"),""), (("romanian", "Ron"),""),
(("russian", "Rus"),""), (("russian", "Rus"),""),
(("sindhi", "Snd"),""),
(("spanish", "Spa"),"Romance"), (("spanish", "Spa"),"Romance"),
(("swedish", "Swe"),"Scand"), (("swedish", "Swe"),"Scand"),
(("thai", "Tha"),""), (("thai", "Tha"),""),
@@ -70,16 +71,16 @@ langsLangAll = langs
langsLang = langs `except` langsIncomplete langsLang = langs `except` langsIncomplete
-- languagues that have notpresent marked -- languagues that have notpresent marked
langsPresent = langsLang `except` ["Nep","Pes","Tha"] langsPresent = langsLang `except` ["Nep","Pes","Snd","Tha"]
-- languages for which Lang can be compiled but which are incomplete -- languages for which Lang can be compiled but which are incomplete
langsIncomplete = ["Amh","Ara","Hin","Lat","Tur"] langsIncomplete = ["Amh","Ara","Lat","Tur"]
-- languages for which to compile Try -- languages for which to compile Try
langsAPI = langsLang `except` langsIncomplete langsAPI = langsLang `except` langsIncomplete
-- languages for which to compile Symbolic -- languages for which to compile Symbolic
langsSymbolic = langsLang `except` (langsIncomplete ++ ["Afr","Ina","Nep","Pes","Pnb","Rus"]) langsSymbolic = langsLang `except` (langsIncomplete ++ ["Afr","Ina","Nep","Pes","Pnb","Rus", "Snd"])
-- languages for which to compile minimal Syntax -- languages for which to compile minimal Syntax
langsMinimal = langs `only` ["Ara","Eng","Bul","Rus"] langsMinimal = langs `only` ["Ara","Eng","Bul","Rus"]

1
src/prelude/Predef.gf
View File

@@ -32,6 +32,7 @@ resource Predef = {
oper toLower : Tok -> Tok = variants {} ; -- map all chars to lower case oper toLower : Tok -> Tok = variants {} ; -- map all chars to lower case
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 eqVal : (P : Type) -> P -> P -> PBool = variants {} ; -- test if equal values
oper toStr : (L : Type) -> L -> 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 {} ; oper mapStr : (L : Type) -> (Str -> Str) -> L -> L = variants {} ;
-- map all strings in a data structure; experimental --- -- map all strings in a data structure; experimental ---