Icelandic added to RGL by Bjarki Traustason

src/icelandic/RelativeIce.gf

@@ -0,0 +1,25 @@
+concrete RelativeIce of Relative = CatIce ** open ResIce in {
+
+	lin
+		RelCl cl = {
+			s = \\ten,ant,pol,_ => "þannig að" ++ cl.s ! ten ! ant ! pol ! ODir
+		} ;
+
+		RelVP rp vp = {
+			s = \\ten,ant,pol,agr => 
+				let 
+					cl = mkClause rp.s vp agr
+				in
+					cl.s ! ten ! ant ! pol ! ODir
+		} ;
+
+		RelSlash rp cls = {
+			s = \\ten,ant,pol,agr => rp.s ++ cls.s ! ten ! ant ! pol ! ODir ++ cls.c2.s
+		} ;
+
+		IdRP = {s = "sem" } ;
+
+		FunRP prep np rp = {
+			s = prep.s ++ np.s ! NCase prep.c ++ rp.s
+		} ;
+}