Faroese grammar

src/faroese/ConjunctionFao.gf

@@ -0,0 +1,53 @@
+concrete ConjunctionFao of Conjunction = CatFao ** open ResFao, Prelude in {
+
+lincat
+  [S] = {s1,s2 : Str} ;
+  [RS] = {s1,s2 : Gender => PersNum => Str} ;
+  [Adv], [AdV], [IAdv] = {s1,s2 : Str} ;
+  [NP] = {s1,s2 : Case => Str ; g : Gender ; n : Number ; p : Person} ;
+  [AP] = {s1,s2 : Gender => Number => Case => Str} ;
+  [CN] = {s1,s2 : Species => Number => Case => Str ; g : Gender} ;
+  [DAP] = {s1,s2 : Gender => Case => Str ; n : Number ; sp : Species} ;
+
+lin
+  ConjS conj xs = {s = xs.s1 ++ conj.s ++ xs.s2} ;
+  ConjRS conj xs = {s = \\g,p => xs.s1 ! g ! p ++ conj.s ++ xs.s2 ! g ! p} ;
+  ConjAdv conj xs = {s = xs.s1 ++ conj.s ++ xs.s2} ;
+  ConjAdV conj xs = {s = xs.s1 ++ conj.s ++ xs.s2} ;
+  ConjIAdv conj xs = {s = xs.s1 ++ conj.s ++ xs.s2} ;
+  ConjNP conj xs = {
+    s = \\c => xs.s1 ! c ++ conj.s ++ xs.s2 ! c ;
+    g = xs.g ;
+    n = Pl ;
+    p = P3
+  } ;
+  ConjAP conj xs = {s = \\g,n,c => xs.s1 ! g ! n ! c ++ conj.s ++ xs.s2 ! g ! n ! c} ;
+  ConjCN conj xs = {
+    s = \\sp,n,c => xs.s1 ! sp ! n ! c ++ conj.s ++ xs.s2 ! sp ! n ! c ;
+    g = xs.g
+  } ;
+  ConjDet conj xs = {
+    s = \\g,c => xs.s1 ! g ! c ++ conj.s ++ xs.s2 ! g ! c ;
+    n = xs.n ;
+    sp = xs.sp
+  } ;
+
+  BaseS x y = {s1 = x.s ; s2 = y.s} ;
+  ConsS x xs = {s1 = x.s ++ "," ++ xs.s1 ; s2 = xs.s2} ;
+  BaseRS x y = {s1 = x.s ; s2 = y.s} ;
+  ConsRS x xs = {s1 = \\g,p => x.s ! g ! p ++ "," ++ xs.s1 ! g ! p ; s2 = xs.s2} ;
+  BaseAdv x y = {s1 = x.s ; s2 = y.s} ;
+  ConsAdv x xs = {s1 = x.s ++ "," ++ xs.s1 ; s2 = xs.s2} ;
+  BaseAdV x y = {s1 = x.s ; s2 = y.s} ;
+  ConsAdV x xs = {s1 = x.s ++ "," ++ xs.s1 ; s2 = xs.s2} ;
+  BaseIAdv x y = {s1 = x.s ; s2 = y.s} ;
+  ConsIAdv x xs = {s1 = x.s ++ "," ++ xs.s1 ; s2 = xs.s2} ;
+  BaseNP x y = {s1 = x.s ; s2 = y.s ; g = x.g ; n = Pl ; p = P3} ;
+  ConsNP x xs = {s1 = \\c => x.s ! c ++ "," ++ xs.s1 ! c ; s2 = xs.s2 ; g = xs.g ; n = Pl ; p = P3} ;
+  BaseAP x y = {s1 = x.s ; s2 = y.s} ;
+  ConsAP x xs = {s1 = \\g,n,c => x.s ! g ! n ! c ++ "," ++ xs.s1 ! g ! n ! c ; s2 = xs.s2} ;
+  BaseCN x y = {s1 = x.s ; s2 = y.s ; g = x.g} ;
+  ConsCN x xs = {s1 = \\sp,n,c => x.s ! sp ! n ! c ++ "," ++ xs.s1 ! sp ! n ! c ; s2 = xs.s2 ; g = xs.g} ;
+  BaseDAP x y = {s1 = x.s ; s2 = y.s ; n = y.n ; sp = y.sp} ;
+  ConsDAP x xs = {s1 = \\g,c => x.s ! g ! c ++ "," ++ xs.s1 ! g ! c ; s2 = xs.s2 ; n = xs.n ; sp = xs.sp} ;
+}