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

started to move have_V2 from Lexicon to Structural ; fixes in Hindi translit table

Browse Source
This commit is contained in:
aarne
2009-04-26 20:10:44 +00:00
parent 14a97dd876
commit 2a235f9709
9 changed files with 17 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
next-lib/src/abstract/Lexicon.gf
View File

@@ -137,7 +137,6 @@ fun
harbour_N : N ;
hate_V2 : V2 ;
hat_N : N ;
have_V2 : V2 ;
head_N : N ;
heart_N : N ;
hear_V2 : V2 ;

1
next-lib/src/abstract/Structural.gf
View File

@@ -119,4 +119,5 @@ abstract Structural = Cat ** {
as_CAdv : CAdv ;
have_V2 : V2 ;
}

1
next-lib/src/english/LexiconEng.gf
View File

@@ -90,7 +90,6 @@ lin
harbour_N = regN "harbour" ;
hate_V2 = dirV2 (regV "hate") ;
hat_N = regN "hat" ;
have_V2 = dirV2 (mk5V "have" "has" "had" "had" "having") ;
hear_V2 = dirV2 (irregV "hear" "heard" "heard") ;
hill_N = regN "hill" ;
hope_VS = mkVS (regV "hope") ;

2
next-lib/src/english/StructuralEng.gf
View File

@@ -135,5 +135,7 @@ concrete StructuralEng of Structural = CatEng **
as_CAdv = C.mkCAdv "as" "as" ;
have_V2 = dirV2 (mk5V "have" "has" "had" "had" "having") ;
}

1
next-lib/src/finnish/LexiconFin.gf
View File

@@ -94,7 +94,6 @@ lin
harbour_N = mkN "satama" "sataman" "satamia" ;
hate_V2 = mkV2 (mkV "vihata") cpartitive ;
hat_N = mkN "hattu" ;
have_V2 = mkV2 (caseV adessive vOlla) ;
hear_V2 = mkV2 (mkV "kuulla") ;
hill_N = mkN "kukkula" ;
hope_VS = mkVS (mkV "toivoa") ;

3
next-lib/src/finnish/StructuralFin.gf
View File

@@ -305,5 +305,8 @@ lin
as_CAdv = X.mkCAdv "yhtä" "kuin" ;
except_Prep = postPrep partitive "lukuunottamatta" ;
have_V2 = mkV2 (caseV adessive vOlla) ;
}

1
next-lib/src/italian/LexiconIta.gf
View File

@@ -91,7 +91,6 @@ lin
harbour_N = regN "porto" ;
hate_V2 = dirV2 (regV "odiare") ;
hat_N = regN "capello" ;
have_V2 = dirV2 (verboV (avere_2 "avere")) ;
hear_V2 = dirV2 (verboV (sentire_99 "sentire")) ;
hill_N = regN "collina" ;
hope_VS = mkVS (regV "sperare") ;

3
next-lib/src/italian/StructuralIta.gf
View File

@@ -176,5 +176,8 @@ lin
as_CAdv = X.mkCAdv "così" conjThan ;
except_Prep = mkPrep "eccetto" ;
have_V2 = dirV2 (verboV (avere_2 "avere")) ;
}

16
src/GF/Text/Transliterations.hs
View File

@@ -93,20 +93,20 @@ transThai = mkTransliteration allTrans allCodes where
transDevanagari :: Transliteration
transDevanagari =
(mkTransliteration allTransUrduHindi allCodes){invisible_chars = ["a"]} where
allCodes = [0x0901 .. 0x094c]
allCodes = [0x0900 .. 0x095f]
allTransUrduHindi = words $
"M N - - " ++
"a- A- i- I- u- U- R- - - - e- E- - - o- O- " ++
"k K g G N: c C j J n: t. T. d. D. n. t " ++
"T d D n - p P b B m y r - l - - v " ++
"S s. s h - - r. - A i I u U R - - " ++
"- e E o O "
"- M N - - a- A- i- I- u- U- R- - - - e- " ++
"E- - - o- O- k K g G N: c C j J n: t. " ++
"T. d. D. n. t T d D n - p P b B m y " ++
"r - l - - v S s. s h - - r: - A i " ++
"I u U R - - - e E o O - - - - - " ++
"- - - - - - - - - - - z r. - - - "
transUrdu :: Transliteration
transUrdu =
(mkTransliteration allTransUrduHindi allCodes){invisible_chars = ["a"]} where
allCodes = [0x0901 .. 0x094c] ---- TODO: this is devanagari
allCodes = [0x0900 .. 0x095f] ---- TODO: this is devanagari
transArabic :: Transliteration
transArabic = mkTransliteration allTrans allCodes where