Icelandic added to RGL by Bjarki Traustason

src/icelandic/IdiomIce.gf

@@ -0,0 +1,52 @@
+concrete IdiomIce of Idiom = CatIce ** open Prelude, ResIce in {
+
+	lin
+		ImpersCl vp = mkClause "það" vp {g = Neutr ; n = Sg ; p = P3} ;
+
+		GenericCl vp = mkClause "maður" vp {g = Masc ; n = Sg ; p = P3} ;
+
+		CleftNP np rs = let vp = (predV verbBe) in
+			mkClause "það" (vp ** {dirObj = \\_ => np.s ! rs.c ++ rs.s ! np.a}) np.a ;
+
+		CleftAdv ad s = let vp = (predV verbBe) in
+			mkClause "það" (vp ** {dirObj = \\_ => ad.s ++ "sem" ++ s.s}) {g = Neutr ; n = Sg ; p = P3} ;
+
+		ExistNP np = let vp = (predV verbBe) in
+			mkClause "til" (vp ** {dirObj = \\_ => np.s ! NCase Nom}) np.a ;
+
+		ExistIP ip = let 
+				vp = (predV verbBe) ;
+				cl = mkClause (ip.s ! Masc ! Nom) vp {g = Masc ; n = ip.n ; p = P3}
+			in {s = \\ten,ant,pol,_ => cl.s ! ten ! ant ! pol ! ODir ++ "þarna"} ;
+
+		ExistNPAdv np adv = let vp = (predV verbBe) in
+			mkClause "til" (vp ** {dirObj = \\_ => np.s ! NCase Nom ++ adv.s}) np.a ;
+
+		ExistIPAdv ip adv = let
+				vp = (predV verbBe) ;
+				cl = mkClause (ip.s ! Masc ! Nom) vp {g = Masc ; n = ip.n ; p = P3}
+			in {s = \\ten,ant,pol,_ => cl.s ! ten ! ant ! pol ! ODir ++ adv.s} ;
+
+		ProgrVP vp = let vvp = predV verbBe in
+			vvp ** {dirObj = \\a => vp.p ! PPres ++ vp.dirObj ! a} ;
+
+		ImpPl1 vp = { s = let
+				agr = gennumperToAgr Masc Pl P1 ;
+				verb = vp.s ! VPMood Pres Simul ! Pos ! agr
+			in verb.fin ++ verb.inf ++ vp.dirObj ! agr } ;
+
+		ImpP3 np vp = {s = let
+				verb = vp.s ! VPMood Pres Simul ! Pos ! np.a
+			in verbLet.s ! VPres Active Indicative np.a.n np.a.p ++ np.s ! NCase Acc ++ verb.inf} ;
+
+		SelfAdvVP vp = vp ** {dirObj = \\a => vp.dirObj ! a ++ reflPron a.p a.n a.g Nom} ;
+
+		SelfAdVVP vp = vp ** {dirObj = \\a => reflPron a.p a.n a.g Nom ++ vp.dirObj ! a} ;
+
+		SelfNP np = {
+			s = \\c => reflPron np.a.p np.a.n np.a.g Nom ++ np.s ! c ;
+			a = np.a ;
+			isPron = False
+		} ;
+}
+