diff options
| author | bjorn <bjorn@bringert.net> | 2008-08-14 07:58:04 +0000 |
|---|---|---|
| committer | bjorn <bjorn@bringert.net> | 2008-08-14 07:58:04 +0000 |
| commit | 77270a010a0b453e9a84c3e62db7cfd22e49d55d (patch) | |
| tree | d17682a545d6ac1e68ff49b8c20964182794baf7 /grammars/dep/DepEng.gf | |
| parent | 0bbb906141711767678f82b15a7b43e65e0b5bd6 (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.gf | 54 |
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_} ; - -} |
