blob: 10fe480a6edf450f68ff0265568fbbc02a579562 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
concrete ZeroLat of Zero = {
lincat
S, VP, V2 = Str ;
NP = Case => Str ;
lin
Pred np vp = np ! Nom ++ vp ;
Compl v2 np = np ! Acc ++ v2 ;
John = table {Nom => "Ioannes" ; Acc => "Ioannem"} ;
Mary = table {Nom => "Maria" ; Acc => "Mariam"} ;
Love = "amat" ;
param
Case = Nom | Acc ;
}
--.
-- illustrates: parameters, word order
-- > p -lang=ZeroEng "John loves Mary" | aw -view=open -format=png
|
