mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-09 13:09:33 -06:00
b6c589afac
- Alternative variants in AScared. - The order of adv. modifiers: first time, then place (PSeeYouPlaceDate). - Fixed: the object valence in QWhatAge; Day.point linearization. - PSeeYouPlaceDate is now less formal. - Open/Closed and SeeYou functions are ok now, except that the word order in Open/Closed is a bit clumsy. TODO: "<what> <when> is open/closed" (currently not supported by the RG).
51 lines
1.0 KiB
Plaintext
51 lines
1.0 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 ;
|
|
|
|
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
|
|
} ;
|
|
}
|