summaryrefslogtreecommitdiff
path: root/contrib/summerschool/2013/bestPractices/LexFacebookEng.gf
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/summerschool/2013/bestPractices/LexFacebookEng.gf')
-rw-r--r--contrib/summerschool/2013/bestPractices/LexFacebookEng.gf16
1 files changed, 16 insertions, 0 deletions
diff --git a/contrib/summerschool/2013/bestPractices/LexFacebookEng.gf b/contrib/summerschool/2013/bestPractices/LexFacebookEng.gf
new file mode 100644
index 000000000..1d065fdb4
--- /dev/null
+++ b/contrib/summerschool/2013/bestPractices/LexFacebookEng.gf
@@ -0,0 +1,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)) ;
+
+} \ No newline at end of file