summaryrefslogtreecommitdiff
path: root/old-lib/resource/swedish/IdiomSwe.gf
diff options
context:
space:
mode:
Diffstat (limited to 'old-lib/resource/swedish/IdiomSwe.gf')
-rw-r--r--old-lib/resource/swedish/IdiomSwe.gf44
1 files changed, 0 insertions, 44 deletions
diff --git a/old-lib/resource/swedish/IdiomSwe.gf b/old-lib/resource/swedish/IdiomSwe.gf
deleted file mode 100644
index 65ebf9b30..000000000
--- a/old-lib/resource/swedish/IdiomSwe.gf
+++ /dev/null
@@ -1,44 +0,0 @@
-concrete IdiomSwe of Idiom = CatSwe **
- open MorphoSwe, ParadigmsSwe, IrregSwe, Prelude in {
-
- flags optimize=all_subs ;
-
- oper
- utr = ParadigmsSwe.utrum ;
- neutr = ParadigmsSwe.neutrum ;
-
- lin
- ImpersCl vp = mkClause "det" (agrP3 neutr Sg) vp ;
- GenericCl vp = mkClause "man" (agrP3 utr Sg) vp ;
-
- CleftNP np rs = mkClause "det" (agrP3 neutr Sg)
- (insertObj (\\_ => np.s ! rs.c ++ rs.s ! np.a) (predV verbBe)) ;
-
- CleftAdv ad s = mkClause "det" (agrP3 neutr Sg)
- (insertObj (\\_ => ad.s ++ s.s ! Sub) (predV verbBe)) ;
-
- ExistNP np =
- mkClause "det" (agrP3 neutr Sg) (insertObj
- (\\_ => np.s ! accusative) (predV (depV finna_V))) ;
-
- ExistIP ip = {
- s = \\t,a,p =>
- let
- cls =
- (mkClause "det" (agrP3 neutr Sg) (predV (depV finna_V))).s ! t ! a ! p ;
- who = ip.s ! accusative
- in table {
- QDir => who ++ cls ! Inv ;
- QIndir => who ++ cls ! Sub
- }
- } ;
-
-
- ProgrVP vp =
- insertObj (\\a => "att" ++ infVP vp a) (predV (partV hålla_V "på")) ;
-
- ImpPl1 vp = {s = ["låt oss"] ++ infVP vp {gn = Plg ; p = P1}} ;
-
-
-}
-