summaryrefslogtreecommitdiff
path: root/old-lib/resource/scandinavian/PhraseScand.gf
diff options
context:
space:
mode:
Diffstat (limited to 'old-lib/resource/scandinavian/PhraseScand.gf')
-rw-r--r--old-lib/resource/scandinavian/PhraseScand.gf25
1 files changed, 0 insertions, 25 deletions
diff --git a/old-lib/resource/scandinavian/PhraseScand.gf b/old-lib/resource/scandinavian/PhraseScand.gf
deleted file mode 100644
index f417b6041..000000000
--- a/old-lib/resource/scandinavian/PhraseScand.gf
+++ /dev/null
@@ -1,25 +0,0 @@
-incomplete concrete PhraseScand of Phrase =
- CatScand ** open CommonScand, ResScand, Prelude in {
-
- lin
- PhrUtt pconj utt voc = {s = pconj.s ++ utt.s ++ voc.s} ;
-
- UttS s = {s = s.s ! Main} ;
- UttQS qs = {s = qs.s ! QDir} ;
- UttImpSg pol imp = {s = pol.s ++ imp.s ! pol.p ! Sg} ;
- UttImpPl pol imp = {s = pol.s ++ imp.s ! pol.p ! Pl} ;
- UttImpPol pol imp = {s = pol.s ++ imp.s ! pol.p ! Sg} ; --- works for adj but not for refl
-
- UttIP ip = {s = ip.s ! nominative} ; --- Acc also
- UttIAdv iadv = iadv ;
- UttNP np = {s = np.s ! accusative} ;
- UttVP vp = {s = infMark ++ infVP vp (agrP3 utrum Sg)} ;
- UttAdv adv = adv ;
-
- NoPConj = {s = []} ;
- PConjConj conj = {s = conj.s2} ;
-
- NoVoc = {s = []} ;
- VocNP np = {s = "," ++ np.s ! nominative} ;
-
-}