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

added Lav in compilation; commented out extensions of Words that are only available for a fraction of languages; fixed a couple of type errors in WordsLav, to be checked

Browse Source
This commit is contained in:
aarne
2012-08-28 11:29:54 +00:00
parent 7862bfb15b
commit 27196778ac
3 changed files with 9 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
examples/phrasebook/Makefile
View File

@@ -15,10 +15,10 @@ thaiscript:
demo: compdemo fin linkdemo demo: compdemo fin linkdemo
compdemo: compdemo:
$(compile) -opt Bul Cat Dan Dut Eng Fre Ger Hin Ita Nor Pes Pol Ron Rus Spa Swe Tha Urd DisambPhrasebookEng $(compile) -opt Bul Cat Dan Dut Eng Fre Ger Hin Ita Lav Nor Pes Pol Ron Rus Spa Swe Tha Urd DisambPhrasebookEng
linkdemo: linkdemo:
$(compile) -link Eng Bul Cat Dan Dut Fin Fre Ger Hin Ita Nor Pes Pol Ron Rus Spa Swe Tha Urd DisambPhrasebookEng $(compile) -link Eng Bul Cat Dan Dut Fin Fre Ger Hin Ita Lav Nor Pes Pol Ron Rus Spa Swe Tha Urd DisambPhrasebookEng
linkdemothb: linkdemothb:
$(compile) -link Eng Bul Cat Dan Dut Fin Fre Ger Ita Nor Pol Ron Rus Spa Swe Tha Thb Urd DisambPhrasebookEng $(compile) -link Eng Bul Cat Dan Dut Fin Fre Ger Ita Nor Pol Ron Rus Spa Swe Tha Thb Urd DisambPhrasebookEng

2
examples/phrasebook/Words.gf
View File

@@ -199,6 +199,7 @@ abstract Words = Sentences ** {
-------------------------------------------------- --------------------------------------------------
-- New 30/11/2011 AR -- New 30/11/2011 AR
-------------------------------------------------- --------------------------------------------------
{- 28/8/2012 still only available in Bul Eng Fin Swe Tha
fun fun
Thai : Nationality ; Thai : Nationality ;
@@ -242,5 +243,6 @@ abstract Words = Sentences ** {
ACook : Person -> Action ; ACook : Person -> Action ;
AStudent : Person -> Action ; AStudent : Person -> Action ;
ABusinessman : Person -> Action ; ABusinessman : Person -> Action ;
-}
} }

7
examples/phrasebook/WordsLav.gf
View File

@@ -157,7 +157,8 @@ in {
ATired p = mkCl p.name (mkA (mkV "nogurt" "nogurstu" "noguru")) ; ATired p = mkCl p.name (mkA (mkV "nogurt" "nogurstu" "noguru")) ;
AUnderstand p = mkCl p.name (mkV "saprast" "saprotu" "sapratu") ; AUnderstand p = mkCl p.name (mkV "saprast" "saprotu" "sapratu") ;
AWant p obj = mkCl p.name (mkV2 (mkV "vēlēties" third_conjugation) acc_Prep) obj ; AWant p obj = mkCl p.name (mkV2 (mkV "vēlēties" third_conjugation) acc_Prep) obj ;
AWantGo p place = mkCl p.name (mkV "vēlēties" third_conjugation) (mkVP (mkVP (mkV "doties" "dodos" "devos")) place.to) ; AWantGo p place = mkCl p.name (mkVV (mkV "vēlēties" third_conjugation)) (mkVP (mkVP (mkV "doties" "dodos" "devos")) place.to) ;
---- mkVV by AR 28/8/2012
-- Miscellaneous -- Miscellaneous
@@ -236,8 +237,8 @@ in {
-- isPl : Bool -- isPl : Bool
--} = \comp,p,i -> mkCNPlace (mkCN (P.mkN comp (mkN p))) i to_Prep ; --} = \comp,p,i -> mkCNPlace (mkCN (P.mkN comp (mkN p))) i to_Prep ;
mkPlace : Str -> Prep -> {name : CN ; at : Prep ; to : Prep ; isPl : Bool} = \p,i -> mkPlace : Str -> Prep -> {name : CN ; at : SyntaxLav.Prep ; to : SyntaxLav.Prep ; isPl : Bool} = \p,i ->
mkCNPlace (mkCN (mkN p)) i to8uz_Prep ; mkCNPlace (mkCN (mkN p)) i to8uz_Prep ; ---- SyntaxLav.Prep by AR 28/8/2012
open_A = P.mkA "atvērts" ; open_A = P.mkA "atvērts" ;