contrib/summerschool/2013/bestPractices/LexFacebookEng.gf


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

instance LexFacebookEng of LexFacebook = 
       open SyntaxEng,
            ParadigmsEng,
            --ExtraEng,
            IrregEng in
{
oper 
  nounFromS s = mkNP (mkNP the_Det (mkCN (mkN "fact"))) (SyntaxEng.mkAdv that_Subj s) ;
  
  checkIn np = mkVP (mkV2 (partV (mkV "check") "in") (mkPrep "to")) np ;

  beFriends np = mkVP (mkVP (dirV2 become_V) (mkNP a_Art plNum (mkCN (mkN "friend")))) (SyntaxEng.mkAdv (mkPrep "with") np) ;
 
  like np1 np2 = mkS (mkCl np1 (mkVP (dirV2 (mkV "like")) np2)) ;

}