diff options
| author | john.j.camilleri <john.j.camilleri@chalmers.se> | 2013-09-16 07:17:27 +0000 |
|---|---|---|
| committer | john.j.camilleri <john.j.camilleri@chalmers.se> | 2013-09-16 07:17:27 +0000 |
| commit | f5461eb3d4eb2605b546a4ed202c12bcdaa1f4e4 (patch) | |
| tree | 946c9e8542b8e8271b6b529a95c0400fa6613cb4 /examples/fracas/src/AdditionsSwe.gf | |
| parent | 8e1c6cca407c82fc09569d80c231b8d256735989 (diff) | |
Remove contribs and examples
Everything has now been moved to a separate repository at
https://github.com/GrammaticalFramework/gf-contrib
The contents of the examples folder are build during SetupWeb
Diffstat (limited to 'examples/fracas/src/AdditionsSwe.gf')
| -rw-r--r-- | examples/fracas/src/AdditionsSwe.gf | 83 |
1 files changed, 0 insertions, 83 deletions
diff --git a/examples/fracas/src/AdditionsSwe.gf b/examples/fracas/src/AdditionsSwe.gf deleted file mode 100644 index 653a78afe..000000000 --- a/examples/fracas/src/AdditionsSwe.gf +++ /dev/null @@ -1,83 +0,0 @@ ---# -path=.:alltenses - -concrete AdditionsSwe of Additions = CatSwe ** - open CommonScand, Coordination, ResSwe, ParamX, - Prelude, - (E=ExtraSwe), - (M=MorphoSwe), - (P=ParadigmsSwe), - (I=IrregSwe), - (G=GrammarSwe), - (X=ParamX), - (C=Coordination) - in { - --- First we start with the contents of the RGL's ExtraSwe.gf, as it looked like in October 2011. - -lin - GenNP = E.GenNP ; - ComplBareVS = E.ComplBareVS ; - StrandRelSlash = E.StrandRelSlash ; - EmptyRelSlash = E.EmptyRelSlash ; - -lincat - VPI = E.VPI ; - [VPI] = E.ListVPI ; - -lin - BaseVPI = E.BaseVPI ; - ConsVPI = E.ConsVPI ; - MkVPI = E.MkVPI ; - ConjVPI = E.ConjVPI ; - ComplVPIVV = E.ComplVPIVV ; - -lincat - VPS = E.VPS ; - [VPS] = E.ListVPS ; - -lin - BaseVPS = E.BaseVPS ; - ConsVPS = E.ConsVPS ; - PredVPS = E.PredVPS ; - MkVPS = E.MkVPS ; - ConjVPS = E.ConjVPS ; - -lin - PassVPSlash vps = variants{} ; -- M.insertObj (\\a => "[??]") (UseV M.verbBecome) ; - PartVP vp = variants{} ; -- {s = \\ap => "[??]"; isPre = False} ; - EmbedPresPart vp = variants{} ; - --- And then we give some FraCaS-specific additions to the original ExtraSwe.gf. - -lincat - [QS] = {s1,s2 : X.QForm => Str} ; - [Det] = {s1,s2,sp1,sp2 : Bool => M.NGender => Str ; n : M.Number ; det : M.DetSpecies} ; - -lin - RelNPa np rs = { - s = \\c => np.s ! c ++ rs.s ! np.a ! M.RNom ; - a = np.a ; - isMod = np.isMod - } ; - - UseComparA_prefix a = {s = (G.UseComparA a).s; isPre = True}; - - PassV2s v2 = predV (P.depV (lin V v2)) ; - - SoDoI subj = M.mkClause "det" (M.agrP3 M.neutrum M.Sg) - (M.insertObj (\\_ => subj.s ! M.nominative ++ "också") (G.UseV I.göra_V)) ; - -- error in Anter: "det har gjort han också" - -- error in PNeg: "det gör inte han också" (better: "inte heller") - -- probably error in Inv/Sub word order too - - ExtAdvQS a s = {s = \\q => a.s ++ "," ++ s.s ! q} ; - - ConjQS conj ss = C.conjunctDistrTable X.QForm conj ss ; - BaseQS x y = C.twoTable X.QForm x y ; - ConsQS x xs = C.consrTable X.QForm C.comma x xs ; - - ConjDet conj ss = variants{} ; - BaseDet x y = variants{} ; - ConsDet x xs = variants{} ; - -} |
