blob: 9e3ae577fd888f9175dbe224af32bc6736f885e1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
concrete SentencesSwe of Sentences = NumeralSwe ** SentencesI - [
PYesToNo, NameNN,
DrinkNumber -- should be utrum gender when countable
] with
(Syntax = SyntaxSwe),
(Symbolic = SymbolicSwe),
(Lexicon = LexiconSwe) ** open Prelude, SyntaxSwe, (P = ParadigmsSwe) in {
lin
PYesToNo = mkPhrase (lin Utt (ss "jo")) ;
NameNN = mkNP (P.mkPN "NN") ;
DrinkNumber n d = mkNP n (mkCN (P.mkN [] [] [] [] P.utrum) (lin Adv (mkUtt d))) ; --- empty classifier - quite a hack...
}
|