blob: be3538ba3178ea51bb556c28e34a29a0af73f19b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
concrete SentencesUrd of Sentences = NumeralUrd ** SentencesI - [sing,YouFamFemale] with
(Syntax = SyntaxUrd),
(Symbolic = SymbolicUrd),
(Lexicon = LexiconUrd) **
open
(S=SyntaxUrd),
(P=ParadigmsUrd) in {
lin YouFamFemale = mkPersonUrd youSg_Pron "تیری" ;
oper
mkPersonUrd : Pron -> Str -> {name : NP ; isPron : Bool ; poss : Quant} = \p,s ->
{name = mkNP (P.mkN s) ; isPron = True ; poss = mkQuant p} ;
} ;
|