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:
Normunds Gruzitis
2012-10-06 21:16:46 +00:00
parent 28f87140c7
commit a838a855d1
2 changed files with 65 additions and 26 deletions

View File

@@ -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
} ;
}