forked from GitHub/gf-core
PhrasebookLav: fixed four more functions and introduced few typical alternatives (paraphrases)
Fixed QWhatName, QWhatAge, HowMuchCost and ItCost, however, the solutions have to be reviewed. Introduced a Lav-specific type for Language (affected also NPNationality etc.) to support a different realization of ASpeak. Introduced alternative realizations for AHasName and ASpeak (the most typical/simple variant is the default one).
This commit is contained in:
@@ -1,4 +1,8 @@
|
||||
concrete SentencesLav of Sentences = NumeralLav ** SentencesI - [
|
||||
Language,
|
||||
PLanguage,
|
||||
NPNationality,
|
||||
mkNPNationality,
|
||||
NameNN,
|
||||
IFemale,
|
||||
YouFamFemale,
|
||||
@@ -18,7 +22,13 @@ open
|
||||
(P = ParadigmsLav),
|
||||
ExtraLav
|
||||
in {
|
||||
|
||||
lincat
|
||||
Language = NPLanguage ;
|
||||
|
||||
lin
|
||||
PLanguage x = mkPhrase (mkUtt x.lang) ;
|
||||
|
||||
NameNN = mkNP (P.mkN "NN") ;
|
||||
|
||||
IFemale = mkPerson i8fem_Pron ;
|
||||
@@ -30,4 +40,14 @@ in {
|
||||
|
||||
--AHaveCurr p curr = mkCl p.name have_V2 (mkNP aPl_Det curr) ;
|
||||
--AHaveCurr p curr = mkCl (mkVP have_V3 (mkNP aPl_Det curr) p.name) ;
|
||||
|
||||
oper
|
||||
NPLanguage : Type = {lang : NP ; modif : Adv} ;
|
||||
NPNationality : Type = {lang : NPLanguage ; country : NP ; prop : A} ;
|
||||
|
||||
mkNPNationality : NPLanguage -> NP -> A -> NPNationality = \la,co,pro -> {
|
||||
lang = la ;
|
||||
country = co ;
|
||||
prop = pro
|
||||
} ;
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user