mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-18 09:19:32 -06:00
5835c8ad58
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).
54 lines
1.2 KiB
Plaintext
54 lines
1.2 KiB
Plaintext
concrete SentencesLav of Sentences = NumeralLav ** SentencesI - [
|
|
Language,
|
|
PLanguage,
|
|
NPNationality,
|
|
mkNPNationality,
|
|
NameNN,
|
|
IFemale,
|
|
YouFamFemale,
|
|
YouPolFemale,
|
|
WeFemale,
|
|
YouPlurFamFemale,
|
|
YouPlurPolFemale,
|
|
TheyFemale
|
|
]
|
|
with
|
|
(Syntax = SyntaxLav),
|
|
(Symbolic = SymbolicLav),
|
|
(Lexicon = LexiconLav) **
|
|
open
|
|
Prelude,
|
|
SyntaxLav,
|
|
(P = ParadigmsLav),
|
|
ExtraLav
|
|
in {
|
|
|
|
lincat
|
|
Language = NPLanguage ;
|
|
|
|
lin
|
|
PLanguage x = mkPhrase (mkUtt x.lang) ;
|
|
|
|
NameNN = mkNP (P.mkN "NN") ;
|
|
|
|
IFemale = mkPerson i8fem_Pron ;
|
|
YouFamFemale = mkPerson youSg8fem_Pron ;
|
|
YouPolFemale = mkPerson youPol8fem_Pron ;
|
|
WeFemale = mkPerson we8fem_Pron ;
|
|
YouPlurFamFemale, YouPlurPolFemale = mkPerson youPl8fem_Pron ;
|
|
TheyFemale = mkPerson they8fem_Pron ;
|
|
|
|
--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
|
|
} ;
|
|
}
|