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
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:
$(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:
$(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
--------------------------------------------------
{- 28/8/2012 still only available in Bul Eng Fin Swe Tha
fun
Thai : Nationality ;
@@ -242,5 +243,6 @@ abstract Words = Sentences ** {
ACook : Person -> Action ;
AStudent : Person -> Action ;
ABusinessman : Person -> Action ;
-}
}

9
examples/phrasebook/WordsLav.gf
View File

@@ -157,8 +157,9 @@ in {
ATired p = mkCl p.name (mkA (mkV "nogurt" "nogurstu" "noguru")) ;
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 ;
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
QWhatName p = mkQS (mkQCl whatSg_IP (mkVP (nameOf p))) ;
@@ -236,8 +237,8 @@ in {
-- isPl : Bool
--} = \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 ->
mkCNPlace (mkCN (mkN p)) i to8uz_Prep ;
mkPlace : Str -> Prep -> {name : CN ; at : SyntaxLav.Prep ; to : SyntaxLav.Prep ; isPl : Bool} = \p,i ->
mkCNPlace (mkCN (mkN p)) i to8uz_Prep ; ---- SyntaxLav.Prep by AR 28/8/2012
open_A = P.mkA "atvērts" ;