summaryrefslogtreecommitdiff
path: root/grammars/dep/DepEng.gf
diff options
context:
space:
mode:
authorbjorn <bjorn@bringert.net>2008-08-14 07:58:04 +0000
committerbjorn <bjorn@bringert.net>2008-08-14 07:58:04 +0000
commit77270a010a0b453e9a84c3e62db7cfd22e49d55d (patch)
treed17682a545d6ac1e68ff49b8c20964182794baf7 /grammars/dep/DepEng.gf
parent0bbb906141711767678f82b15a7b43e65e0b5bd6 (diff)
Remove the grammars directory. It was full of old grammars that don't compile these days. See the old source distributions if you want them.
Diffstat (limited to 'grammars/dep/DepEng.gf')
-rw-r--r--grammars/dep/DepEng.gf54
1 files changed, 0 insertions, 54 deletions
diff --git a/grammars/dep/DepEng.gf b/grammars/dep/DepEng.gf
deleted file mode 100644
index c77d58a5c..000000000
--- a/grammars/dep/DepEng.gf
+++ /dev/null
@@ -1,54 +0,0 @@
--- to test:
--- p -cat=SG -tr "who walks" | pt -transform=typecheck -tr | l
-
-concrete DepEng of Dep = open ResDep in {
- lincat
- NType, VType, CType = {s : Str} ;
- SG = {s : Str} ;
- NG = {s : Str} ;
- VG = {s : Str ; c : VComp} ;
- CG = {s1,s2 : Str} ;
- Slash = {s,s2 : Str} ;
-
- lin
- NtS, NtQ = {s = []} ;
- CtN, CtV, CtS, CtQ, CtA = {s = []} ;
- Vt, VtN = \x -> x ;
- Vt_ = {s = []} ;
-
- MkSG n v ng vg cg = {
- s = n.s ++ v.s ++ ng.s ++ vg.s ++
- case1 vg.c ++ cg.s1 ++ case2 vg.c ++ cg.s2
- } ;
-
- CG_ = {s1,s2 = []} ;
- CGN, CGQ = \ng -> {s1 = ng.s ; s2 = []} ;
- CGS sg = {s1 = "that" ++ sg.s ; s2 = []} ;
- CGN_ c np co = {s1 = c.s ++ np.s ; s2 = co.s1} ;
-
- MkSlash3 np v co = {
- s = np.s ++ v.s ++ case1 v.c ++ co.s1 ;
- s2 = case2 v.c
- } ;
- MkSlash2 c np v co = {
- s = c.s ++ np.s ++ v.s ++ case2 v.c ++ co.s2 ;
- s2 = case1 v.c
- } ;
- MkSlash1 np v = {
- s = np.s ++ v.s ;
- s2 = case1 v.c
- } ;
-
- SlashQ qp sl = {s = sl.s2 ++ qp.s ++ sl.s} ;
-
- John = {s = "John"} ;
- Who = {s = "who"} ;
-
- Walk = {s = "walks" ; c = VC_} ;
- Love = {s = "loves" ; c = VC1 C_} ;
- Know = {s = "knows" ; c = VC_} ;
- Give = {s = "gives" ; c = VC2 C_ C_to} ;
- Tell = {s = "tells" ; c = VC_} ;
- Ask = {s = "asks" ; c = VC_} ;
-
-}