Icelandic added to RGL by Bjarki Traustason

2017-01-16 16:30:50 +00:00
parent b52406a9cc
commit 50d5d62c2a
39 changed files with 5265 additions and 0 deletions
@@ -0,0 +1,22 @@
+concrete AdverbIce of Adverb = CatIce ** open ResIce, Prelude in {
+	lin
+		PositAdvAdj a = { s = a.adv } ;
+
+		PrepNP p np = { s = p.s ++ np.s ! NCase p.c} ;
+
+		ComparAdvAdjS cadv a s = {
+			s = cadv.s ++ a.adv ++ cadv.p ++ s.s
+		} ;
+
+		ComparAdvAdj cadv a np = {
+			s = cadv.s ++ a.adv ++ cadv.p ++ np.s ! NCase Nom
+		} ;
+
+		AdAdv ad adv = { s = ad.s ++ adv.s} ;
+
+		PositAdAAdj a = { s = a.adv } ;
+
+		SubjS sub s = { s = sub.s ++ s.s } ;
+
+		AdnCAdv cadv = { s = cadv.s ++ cadv.p} ;
+}