summaryrefslogtreecommitdiff
path: root/examples/bronzeage/BronzeageI.gf
diff options
context:
space:
mode:
authoraarne <aarne@cs.chalmers.se>2008-06-25 16:54:35 +0000
committeraarne <aarne@cs.chalmers.se>2008-06-25 16:54:35 +0000
commite9e80fc389365e24d4300d7d5390c7d833a96c50 (patch)
treef0b58473adaa670bd8fc52ada419d8cad470ee03 /examples/bronzeage/BronzeageI.gf
parentb96b36f43de3e2f8b58d5f539daa6f6d47f25870 (diff)
changed names of resource-1.3; added a note on homepage on release
Diffstat (limited to 'examples/bronzeage/BronzeageI.gf')
-rw-r--r--examples/bronzeage/BronzeageI.gf59
1 files changed, 0 insertions, 59 deletions
diff --git a/examples/bronzeage/BronzeageI.gf b/examples/bronzeage/BronzeageI.gf
deleted file mode 100644
index 23693dc6f..000000000
--- a/examples/bronzeage/BronzeageI.gf
+++ /dev/null
@@ -1,59 +0,0 @@
-incomplete concrete BronzeageI of Bronzeage = open Lang in {
-
- flags
- startcat = Phr ; optimize = all_subs ; --optimize = share_subs ;
- unlexer = text ; lexer = text ;
-
- lincat
- Sent = {s : SForm => Str} ; MassCN = CN ;
-
- lin
- PhrPos sent = {s = sent.s ! SPos ++ "."} ;
- PhrNeg sent = {s = sent.s ! SNeg ++ "."} ;
- PhrQuest sent = {s = sent.s ! SQuest ++ "?"} ;
- PhrImp imp = {s = (PhrUtt NoPConj (UttImpSg PPos imp) NoVoc).s ++ "!"} ;
- PhrImpNeg imp = {s = (PhrUtt NoPConj (UttImpSg PNeg imp) NoVoc).s ++ "!"} ;
-
- SentV v np = mkSent np (UseV v) ;
-
- SentV2 v x y = mkSent x (ComplV2 v y) ;
- SentV2Mass v x y = mkSent x (ComplV2 v (massNP y)) ;
- SentV3 v x y z = mkSent x (ComplV3 v y z) ;
- SentA a x = mkSent x (UseComp (CompAP (PositA a))) ;
- SentNP a x = mkSent x (UseComp (CompNP a)) ;
-
- SentAdvV v np adv = mkSent np (AdvVP (UseV v) adv) ;
- SentAdvV2 v x y adv = mkSent x (AdvVP (ComplV2 v y) adv) ;
-
- ImpV v = ImpVP (UseV v) ;
- ImpV2 v x = ImpVP (ComplV2 v x) ;
-
- UsePron p = Lang.UsePron p ;
- DetCN d n = Lang.DetCN d n ;
- NumCN k cn = Lang.DetCN (DetPl (IndefArt) k NoOrd) cn ;
-
- UseN n = Lang.UseN n ;
- ModCN a cn = AdjCN (PositA a) cn ;
-
- UseMassN mn = Lang.UseN mn ;
- ModMass a cn = AdjCN (PositA a) cn ;
-
- param
- SForm = SPos | SNeg | SQuest ;
-
- oper
- mkSent : NP -> VP -> Sent ;
- mkSent np vp =
- let cl = PredVP np vp
- in {
- s = table {
- SPos => Predef.toStr S (UseCl Lang.TPres ASimul PPos cl) ;
- SNeg => Predef.toStr S (UseCl Lang.TPres ASimul PNeg cl) ;
- SQuest => Predef.toStr QS (UseQCl Lang.TPres ASimul PPos (QuestCl cl))
- } ;
- lock_Sent = <>
- } ;
-
- massNP : CN -> NP = \mcn -> Lang.DetCN (DetSg MassDet NoOrd) mcn ;
-
-}