diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-06-25 16:54:35 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-06-25 16:54:35 +0000 |
| commit | e9e80fc389365e24d4300d7d5390c7d833a96c50 (patch) | |
| tree | f0b58473adaa670bd8fc52ada419d8cad470ee03 /examples/bronzeage/BronzeageI.gf | |
| parent | b96b36f43de3e2f8b58d5f539daa6f6d47f25870 (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.gf | 59 |
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 ; - -} |
