summaryrefslogtreecommitdiff
path: root/next-lib/src/latin/SentenceLat.gf
diff options
context:
space:
mode:
authoraarne <aarne@chalmers.se>2009-06-22 15:39:08 +0000
committeraarne <aarne@chalmers.se>2009-06-22 15:39:08 +0000
commite89fdae2fa1626348d8025824a7469252fa85e42 (patch)
treec7d46bbd0494043b4bd6f917a25a7687517d0547 /next-lib/src/latin/SentenceLat.gf
parent3049b59b35b25381a7c6787444165c200d66e08b (diff)
next-lib renamed to lib, lib to old-lib
Diffstat (limited to 'next-lib/src/latin/SentenceLat.gf')
-rw-r--r--next-lib/src/latin/SentenceLat.gf67
1 files changed, 0 insertions, 67 deletions
diff --git a/next-lib/src/latin/SentenceLat.gf b/next-lib/src/latin/SentenceLat.gf
deleted file mode 100644
index 78676ee0c..000000000
--- a/next-lib/src/latin/SentenceLat.gf
+++ /dev/null
@@ -1,67 +0,0 @@
-concrete SentenceLat of Sentence = CatLat ** open Prelude, ResLat in {
-
- flags optimize=all_subs ;
-
- lin
-
- PredVP = mkClause ;
---
--- PredSCVP sc vp = mkClause sc.s (agrP3 Sg) vp ;
---
--- ImpVP vp = {
--- s = \\pol,n =>
--- let
--- agr = AgP2 (numImp n) ;
--- verb = infVP True vp agr ;
--- dont = case pol of {
--- CNeg True => "don't" ;
--- CNeg False => "do" ++ "not" ;
--- _ => []
--- }
--- in
--- dont ++ verb
--- } ;
---
--- SlashVP np vp =
--- mkClause (np.s ! Nom) np.a vp ** {c2 = vp.c2} ;
---
--- AdvSlash slash adv = {
--- s = \\t,a,b,o => slash.s ! t ! a ! b ! o ++ adv.s ;
--- c2 = slash.c2
--- } ;
---
--- SlashPrep cl prep = cl ** {c2 = prep.s} ;
---
--- SlashVS np vs slash =
--- mkClause (np.s ! Nom) np.a
--- (insertObj (\\_ => conjThat ++ slash.s) (predV vs)) **
--- {c2 = slash.c2} ;
---
--- EmbedS s = {s = conjThat ++ s.s} ;
--- EmbedQS qs = {s = qs.s ! QIndir} ;
--- EmbedVP vp = {s = infVP False vp (agrP3 Sg)} ; --- agr
---
--- UseCl t p cl = {
--- s = t.s ++ p.s ++ cl.s ! t.t ! t.a ! ctr p.p ! ODir
--- } ;
--- UseQCl t p cl = {
--- s = \\q => t.s ++ p.s ++ cl.s ! t.t ! t.a ! ctr p.p ! q
--- } ;
--- UseRCl t p cl = {
--- s = \\r => t.s ++ p.s ++ cl.s ! t.t ! t.a ! ctr p.p ! r ;
--- c = cl.c
--- } ;
--- UseSlash t p cl = {
--- s = t.s ++ p.s ++ cl.s ! t.t ! t.a ! ctr p.p ! ODir ;
--- c2 = cl.c2
--- } ;
---
--- AdvS a s = {s = a.s ++ "," ++ s.s} ;
---
--- RelS s r = {s = s.s ++ "," ++ r.s ! agrP3 Sg} ;
---
--- oper
--- ctr = contrNeg True ; -- contracted negations
---
-}
-