blob: ddcdc006e4e9464737d1defdffd33802dd325fdd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
concrete SentencesSwe of Sentences = NumeralSwe ** SentencesI - [
PYesToNo,NameNN
---- , KindDrink -- 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") ;
---- KindDrink d = mkCN (P.mkN [] [] [] [] P.utrum) (lin Adv (mkUtt d)) ; --- an awful hack...
}
|