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

fixed Sammie examples to compile (except Spa)

Browse Source
This commit is contained in:
aarne
2010-02-01 15:57:29 +00:00
parent 510d511637
commit 7f4559335a
6 changed files with 16 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
examples/sammie/ParamSammieEng.gf
View File

@@ -61,7 +61,7 @@ oper
WhatName = mkQCl what_IAdv ; WhatName = mkQCl what_IAdv ;
past = <TPast,ASimul> ; past = <pastTense,simultaneousAnt> ;
imperative vp = imperative vp =
mkUtt (mkImp vp) mkUtt (mkImp vp)

3
examples/sammie/ParamSammieFin.gf
View File

@@ -64,7 +64,8 @@ oper
WhatName = mkQCl what_IAdv ; WhatName = mkQCl what_IAdv ;
past = <TPres,AAnter> ;
past = <presentTense,anteriorAnt> ;
imperative vp = imperative vp =
mkUtt (mkImp vp) mkUtt (mkImp vp)

2
examples/sammie/ParamSammieFre.gf
View File

@@ -79,7 +79,7 @@ oper
WhatName x = QuestIAdv how_IAdv (PredVP x (UseV (reflV (regV "appeler")))) ; WhatName x = QuestIAdv how_IAdv (PredVP x (UseV (reflV (regV "appeler")))) ;
past = <TPres,AAnter> ; past = <presentTense,anteriorAnt> ;
imperative vp = variants { imperative vp = variants {
---- UttImpPol PPos (ImpVP vp) ; ---- UttImpPol PPos (ImpVP vp) ;

2
examples/sammie/ParamSammieGer.gf
View File

@@ -78,7 +78,7 @@ oper
WhatName x = mkQCl how_IAdv (mkCl x heißen_V) ; WhatName x = mkQCl how_IAdv (mkCl x heißen_V) ;
past = <TPres,AAnter> ; past = <presentTense,anteriorAnt> ;
imperative vp = imperative vp =
mkUtt (mkImp (bitteVP vp)) mkUtt (mkImp (bitteVP vp))

17
examples/sammie/ParamSammieSpa.gf
View File

@@ -7,6 +7,7 @@ instance ParamSammieSpa of ParamSammie = open
ParadigmsSpa, ParadigmsSpa,
(M = MorphoSpa), --- (M = MorphoSpa), ---
ConstructX, ConstructX,
SyntaxSpa,
Prelude Prelude
in { in {
@@ -53,14 +54,14 @@ oper
please_PConj = mkPConj ["por favor"] ; please_PConj = mkPConj ["por favor"] ;
mainmenu_NP = mainmenu_NP =
DetCN (DetSg (SgQuant DefArt) NoOrd) mkNP the_Det
(AdjCN (PositA (regA "principal")) (UseN (regN "menú"))) ; (AdjCN (PositA (regA "principal")) (UseN (regN "menú"))) ;
goback_VP = UseV (regV "volver") ; goback_VP = UseV (regV "volver") ;
shutup_VP = UseV (reflV (dirV2 (regV "callar"))) ; ---- silencio shutup_VP = UseV (reflV (dirV2 (regV "callar"))) ; ---- silencio
pause_VP = pause_VP =
ComplV2 (dirV2 (hacer_V)) ComplV2 (dirV2 (hacer_V))
(DetCN (DetSg (SgQuant IndefArt) NoOrd) (UseN (regN "pausa"))) ; ---pausar (mkNP a_Det (UseN (regN "pausa"))) ; ---pausar
resume_VP = UseV (regV "continuar") ; --- reproducir resume_VP = UseV (regV "continuar") ; --- reproducir
whatever_Utt = mkUtt ["no importa cual"] ; --- cualquiera whatever_Utt = mkUtt ["no importa cual"] ; --- cualquiera
@@ -68,14 +69,14 @@ oper
typeWithGenre x genre = typeWithGenre x genre =
---- CompoundCN genre x ; ---- CompoundCN genre x ;
AdvCN x (PrepNP genitive AdvCN x (PrepNP genitive
(DetCN (DetSg MassDet NoOrd) genre)) ; (MassNP genre)) ;
name = regPN ; name = regPN ;
WhatName x = WhatName x =
QuestIAdv how_IAdv (PredVP x (UseV (reflV (regV "llamar")))) ; QuestIAdv how_IAdv (PredVP x (UseV (reflV (regV "llamar")))) ;
past = <TPres,AAnter> ; past = <presentTense,anteriorAnt> ;
imperative vp = variants { imperative vp = variants {
-- UttImpPol PPos (ImpVP vp) ; -- UttImpPol PPos (ImpVP vp) ;
@@ -90,10 +91,10 @@ oper
} ; } ;
previous cn = previous cn =
DetCN (DetSg (SgQuant DefArt) NoOrd) mkNP the_Det
(AdjCN (PositA (regA "previo")) cn) ; (AdjCN (PositA (regA "previo")) cn) ;
next = DetCN (DetSg (SgQuant DefArt) next_Ord) ; next = DetCN (mkDet the_Quant next_Ord) ;
what_say = UttIAdv how_IAdv ; what_say = UttIAdv how_IAdv ;
@@ -102,8 +103,8 @@ oper
artist_Prep = variants {by8agent_Prep ; genitive} ; artist_Prep = variants {by8agent_Prep ; genitive} ;
this cn = variants { this cn = variants {
DetCN (DetSg (SgQuant this_Quant) NoOrd) cn ; mkNP this_Quant cn ;
DetCN (DetSg (SgQuant DefArt) NoOrd) mkNP the_Det
(AdjCN (PositA (regA "actual")) cn) (AdjCN (PositA (regA "actual")) cn)
} ; } ;

3
examples/sammie/ParamSammieSwe.gf
View File

@@ -72,7 +72,8 @@ oper
name = regPN ; name = regPN ;
WhatName x = mkQCl whatSg_IP x (dirV2 (mk2V "heta" "hette")) ; WhatName x = mkQCl whatSg_IP x (dirV2 (mk2V "heta" "hette")) ;
past = <TPres,AAnter> ;
past = <pastTense,simultaneousAnt> ;
imperative = SyntaxSwe.mkUtt ; imperative = SyntaxSwe.mkUtt ;