GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 11:42:49 -06:00
Code Issues Packages Projects Releases Wiki Activity

include ExtraRon in AllRon

Browse Source
This commit is contained in:
aarne
2010-04-19 06:50:54 +00:00
parent f58e96382c
commit 15e4c25ebe
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
examples/phrasebook/WordsRon.gf
View File

@@ -70,10 +70,10 @@ concrete WordsRon of Words = SentencesRon ** open
-- nationalities -- nationalities
Belgian = P.mkA "belgian" ; Belgian = P.mkA "belgian" ;
Belgium = UsePN (P.mkPN "Belgia") ; Belgium = mkNP (P.mkPN "Belgia") ;
English = mkNat "englez" "Anglia" ; English = mkNat "englez" "Anglia" ;
Finnish = mkNat "finlandez" "Finlanda" ; Finnish = mkNat "finlandez" "Finlanda" ;
Flemish = UsePN (P.mkPN "flamandă") ; Flemish = mkNP (P.mkPN "flamandă") ;
French = mkNat "francez" "Franţa" ; French = mkNat "francez" "Franţa" ;
Italian = mkNat "italian" "Italia" ; Italian = mkNat "italian" "Italia" ;
Romanian = mkNat "român" "România" ; Romanian = mkNat "român" "România" ;
@@ -89,7 +89,7 @@ concrete WordsRon of Words = SentencesRon ** open
AHasTable p num = mkCl p.name have_V2 AHasTable p num = mkCl p.name have_V2
(mkNP (mkNP a_Det (P.mkN "masa" "mese")) (SyntaxRon.mkAdv for_Prep (mkNP num (P.mkN "persoană")))) ; (mkNP (mkNP a_Det (P.mkN "masa" "mese")) (SyntaxRon.mkAdv for_Prep (mkNP num (P.mkN "persoană")))) ;
AHasName p name = mkCl p.name (P.dirV2 (mkRVAcc (v_besch119 "numi"))) name ; AHasName p name = mkCl p.name (P.dirV2 (mkRVAcc (v_besch119 "numi"))) name ;
AHungry p = DatSubjCl p.name (mkVP (UseN (P.mkN "foame"))) ; AHungry p = DatSubjCl p.name (mkVP (mkCN (P.mkN "foame"))) ;
AIll p = mkCl p.name (P.mkA "bolnav") ; AIll p = mkCl p.name (P.mkA "bolnav") ;
AKnow p = mkCl p.name (v_besch122 "şti") ; AKnow p = mkCl p.name (v_besch122 "şti") ;
ALike p item = mkCl p.name (P.dirV2 (v_besch71 "plăcea")) item ; ALike p item = mkCl p.name (P.dirV2 (v_besch71 "plăcea")) item ;
@@ -100,7 +100,7 @@ concrete WordsRon of Words = SentencesRon ** open
AReady p = mkCl p.name (P.mkA "gata" "gata" "gata" "gata") ; AReady p = mkCl p.name (P.mkA "gata" "gata" "gata" "gata") ;
AScared p = mkCl p.name (P.mkA "speriat") ; AScared p = mkCl p.name (P.mkA "speriat") ;
ASpeak p lang = mkCl p.name (P.dirV2 (P.mkV "vorbi")) lang ; ASpeak p lang = mkCl p.name (P.dirV2 (P.mkV "vorbi")) lang ;
AThirsty p = DatSubjCl p.name (mkVP (UseN (P.mkN "sete"))) ; AThirsty p = DatSubjCl p.name (mkVP (mkCN (P.mkN "sete"))) ;
ATired p = mkCl p.name (P.mkA "obosit") ; ATired p = mkCl p.name (P.mkA "obosit") ;
AUnderstand p = mkCl p.name (v_besch83 "înţelege") ; AUnderstand p = mkCl p.name (v_besch83 "înţelege") ;
AWant p obj = mkCl p.name (P.dirV2 (v_besch74 "vrea")) obj ; AWant p obj = mkCl p.name (P.dirV2 (v_besch74 "vrea")) obj ;
@@ -159,10 +159,10 @@ open_A : A = P.mkA "deschis" ;
-- auxiliaries -- auxiliaries
mkNat : Str -> Str -> NPNationality = \nat,co -> mkNat : Str -> Str -> NPNationality = \nat,co ->
mkNPNationality (UsePN (P.mkPN nat)) (UsePN (P.mkPN co)) (P.mkA nat) ; mkNPNationality (mkNP (P.mkPN nat)) (mkNP (P.mkPN co)) (P.mkA nat) ;
mkDay : Str -> {name : NP ; point : Adv ; habitual : Adv} = \d -> mkDay : Str -> {name : NP ; point : Adv ; habitual : Adv} = \d ->
let day = UsePN (P.mkPN d P.Feminine) ; let day = mkNP (P.mkPN d P.Feminine) ;
ad = {s = d} in ad = {s = d} in
mkNPDay day ad ad; ---- difference is enforced by additional constructions mkNPDay day ad ad; ---- difference is enforced by additional constructions