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 ffedf0a165
commit c9e497179b
3 changed files with 9 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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" ;