blob: 5c798e1e334b3822356b36fefa069788d7eb4f84 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
incomplete concrete FacebookI of Facebook =
open
Syntax,
Prelude,
LexFacebook
in
{
lincat
SPerson = NP ;
Person = NP ;
Place = NP ;
Page = NP ;
Action = S ;
Item = NP ;
lin
SPersonToPerson sperson = sperson ;
MorePersons sperson person = mkNP and_Conj sperson person ;
PlaceToItem place = place ;
PageToItem page = page ;
ActionToItem action = nounFromS action ;
CheckIn sperson place = mkS pastTense (mkCl sperson (checkIn place)) ;
BeFriends sperson person = mkS pastTense (mkCl sperson (beFriends person)) ;
Like sperson item = like sperson item ;
}
|
