Karin C's example

9 files changed, 250 insertions, 0 deletions

diff --git a/grammars/video/Channel/channel.Eng.gf b/grammars/video/Channel/channel.Eng.gf
new file mode 100644
index 000000000..d0e0dd103
--- /dev/null
+++ b/grammars/video/Channel/channel.Eng.gf
@@ -0,0 +1,27 @@
+---File name channel.Eng.gf
+
+include channel.Abs.gf ;
+
+
+lin 
+channel0 = {s = (variants {["0"]})} ;
+channel1 = {s = (variants {["1"];["channel one"];["ettan"]})} ;
+channel2 = {s = (variants {["2"];["channel two"];["tvåan"]})} ;
+channel3 = {s = (variants {["3"];["channel three"];["trean"]})} ;
+channel4 = {s = (variants {["3"];["channel four"];["trean"]})} ;
+channel5 = {s = (variants {["3"];["channel tre"];["trean"]})} ;
+channel6 = {s = (variants {["3"];["channel tre"];["trean"]})} ;
+channel7 = {s = (variants {["3"];["channel tre"];["trean"]})} ;
+channel8 = {s = (variants {["3"];["channel tre"];["trean"]})} ;
+channel9 = {s = (variants {["3"];["channel tre"];["trean"]})} ;
+channel10 = {s = (variants {["3"];["channel tre"];["trean"]})} ;
+channel11 = {s = (variants {["3"];["channel tre"];["trean"]})} ;
+channel12 = {s = (variants {["3"];["channel tre"];["trean"]})} ;
+channel13 = {s = (variants {["3"];["channel tre"];["trean"]})} ;
+channel14 = {s = (variants {["3"];["channel tre"];["trean"]})} ;
+channel15 = {s = (variants {["3"];["channel tre"];["trean"]})} ;
+channel16 = {s = (variants {["3"];["channel tre"];["trean"]})} ;
+channel17 = {s = (variants {["3"];["channel tre"];["trean"]})} ;
+channel18 = {s = (variants {["3"];["channel tre"];["trean"]})} ;
+channel19 = {s = (variants {["3"];["channel tre"];["trean"]})} ;
+
diff --git a/grammars/video/Channel/channel.Prolog.gf b/grammars/video/Channel/channel.Prolog.gf
new file mode 100644
index 000000000..532538559
--- /dev/null
+++ b/grammars/video/Channel/channel.Prolog.gf
@@ -0,0 +1,20 @@
+-- File namne channel.Prolog.gf
+
+include channel.Abs.gf ;
+pattern
+--channel0 = "0" ;
+channel1 = "svt1" ;
+channel2 = "svt2" ;
+channel3 = "tv3" ;
+channel4 = "tv4" ;
+channel5 = "tv5" ;
+channel6 = "tve" ;
+channel7 = "raiuno" ;
+channel8 = "sat1" ;
+channel9 = "cnn" ;
+channel10 = "bbcworld" ;
+channel11 = "tvpolonia" ;
+channel12 = "dr1" ;
+channel13 = "dr2" ;
+channel14 = "nrk1" ;
+channel15 = "nrk2" ;
\ No newline at end of file
diff --git a/grammars/video/Channel/channel.gf b/grammars/video/Channel/channel.gf
new file mode 100644
index 000000000..204860114
--- /dev/null
+++ b/grammars/video/Channel/channel.gf
@@ -0,0 +1,23 @@
+abstract channel = {
+
+cat
+Channel ;
+
+fun 
+--channel0 : Channel ;
+channel1 : Channel ;
+channel2 : Channel ;
+channel3 : Channel ;
+channel4 : Channel ;
+channel5 : Channel ;
+channel6 : Channel ;
+channel7 : Channel ;
+channel8 : Channel ;
+channel9 : Channel ;
+channel10 : Channel ;
+channel11 : Channel ;
+channel12 : Channel ;
+channel13 : Channel ;
+channel14 : Channel ;
+channel15 : Channel ;
+}
diff --git a/grammars/video/Channel/channelProlog.gf b/grammars/video/Channel/channelProlog.gf
new file mode 100644
index 000000000..4f5e73f6e
--- /dev/null
+++ b/grammars/video/Channel/channelProlog.gf
@@ -0,0 +1,22 @@
+-- File namne channel.Prolog.gf
+
+concrete channelProlog of channel = {
+
+pattern
+--channel0 = "0" ;
+channel1 = "svt1" ;
+channel2 = "svt2" ;
+channel3 = "tv3" ;
+channel4 = "tv4" ;
+channel5 = "tv5" ;
+channel6 = "tve" ;
+channel7 = "raiuno" ;
+channel8 = "sat1" ;
+channel9 = "cnn" ;
+channel10 = "bbcworld" ;
+channel11 = "tvpolonia" ;
+channel12 = "dr1" ;
+channel13 = "dr2" ;
+channel14 = "nrk1" ;
+channel15 = "nrk2" ;
+}
diff --git a/grammars/video/Channel/channelRes.Abs.gf b/grammars/video/Channel/channelRes.Abs.gf
new file mode 100644
index 000000000..b07fb82f8
--- /dev/null
+++ b/grammars/video/Channel/channelRes.Abs.gf
@@ -0,0 +1,29 @@
+---File name channelRes.Abs.gf
+
+	include /users/ling/karinc/GF/Grammars/resource/res.Types.gf ;
+ 
+cat
+Channel ;
+
+fun 
+
+channel0 : Channel ;
+channel1 : Channel ;
+channel2 : Channel ;
+channel3 : Channel ;
+channel4 : Channel ;
+channel5 : Channel ;
+channel6 : Channel ;
+channel7 : Channel ;
+channel8 : Channel ;
+channel9 : Channel ;
+channel10 : Channel ;
+channel11 : Channel ;
+channel12 : Channel ;
+channel13 : Channel ;
+channel14 : Channel ;
+channel15 : Channel ;
+channel16 : Channel ;
+channel17 : Channel ;
+channel18 : Channel ;
+channel19 : Channel ;
\ No newline at end of file
diff --git a/grammars/video/Channel/channelRes.Prolog.gf b/grammars/video/Channel/channelRes.Prolog.gf
new file mode 100644
index 000000000..3900cbf36
--- /dev/null
+++ b/grammars/video/Channel/channelRes.Prolog.gf
@@ -0,0 +1,27 @@
+-- File name channelRes.Prolog.gf
+
+include 
+ 	/users/ling/karinc/GF/GFSommar/Video/VideoK/Channel/channelRes.Abs.gf ;
+
+pattern
+channel0 = "0" ;
+channel1 = "1" ;
+channel2 = "2" ;
+channel3 = "3" ;
+channel4 = "4" ;
+channel5 = "5" ;
+channel6 = "6" ;
+channel7 = "7" ;
+channel8 = "8" ;
+channel9 = "9" ;
+channel10 = "10" ;
+channel11 = "11" ;
+channel12 = "12" ;
+channel13 = "13" ;
+channel14 = "14" ;
+channel15 = "15" ;
+channel16 = "16" ;
+channel17 = "17" ;
+channel18 = "18" ;
+channel19 = "19" ;
+
diff --git a/grammars/video/Channel/channelResSwe.gf b/grammars/video/Channel/channelResSwe.gf
new file mode 100644
index 000000000..71693325c
--- /dev/null
+++ b/grammars/video/Channel/channelResSwe.gf
@@ -0,0 +1,26 @@
+concrete channelResSwe of channel = open ResourceSwe, ParadigmsSwe in {
+
+lincat Channel = PN ;
+
+lin
+channel0 = pnReg (variants {["Nollan"];["Bollan"]}) utrum nonmasculine ;
+channel1 = pnReg (variants {["s,v,t,ett"];["t,v,ett"];["kanal ett"];["ettan"]}) utrum nonmasculine ;
+channel2 = pnReg (variants {["s v t två"];["t v två"];["kanal två"];["tvåan"]}) utrum nonmasculine ;
+channel3 = pnReg (variants {["t v tre"];["kanal tre"];["trean"]}) utrum nonmasculine ;
+channel4 = pnReg (variants {["t v fyra"];["fyran"]}) utrum nonmasculine ;
+channel5 = pnReg (variants {["t v fem"];["femman"]}) utrum nonmasculine ;
+channel6 = pnReg (variants {["t v e"]}) utrum nonmasculine ;
+channel7 = pnReg (variants {["rai uno"]}) utrum nonmasculine ;
+channel8 = pnReg (variants {["sat ains"]}) utrum nonmasculine ;
+channel9 = pnReg (variants {["c n n"];["si n n"]}) utrum nonmasculine ;
+channel10 = pnReg (variants {["b b c world"]}) utrum nonmasculine ;
+channel11 = pnReg (variants {["t v polonia"];["polonia"]}) utrum nonmasculine ;
+channel12 = pnReg (variants {["d r ett"]}) utrum nonmasculine ;
+channel13 = pnReg (variants {["d r två"]}) utrum nonmasculine ;
+channel14 = pnReg (variants {["n r k ett"]}) utrum nonmasculine ;
+channel15 = pnReg (variants {["n r k två"]}) utrum nonmasculine ;
+channel16 = pnReg (variants {["kanal X"];["Xan"]}) utrum nonmasculine ;
+channel17 = pnReg (variants {["kanal X"];["Xan"]}) utrum nonmasculine ;
+channel18 = pnReg (variants {["kanal X"];["Xan"]}) utrum nonmasculine ;
+channel19 = pnReg (variants {["kanal X"];["Xan"]}) utrum nonmasculine ;
+}
diff --git a/grammars/video/Channel/channelSwe.gf b/grammars/video/Channel/channelSwe.gf
new file mode 100644
index 000000000..3e4ee44ac
--- /dev/null
+++ b/grammars/video/Channel/channelSwe.gf
@@ -0,0 +1,20 @@
+concrete channelSwe of channel = {
+lin 
+
+--channel0 = {s = (variants {["noll"]})} ;
+channel1 = {s = (variants {["s v t ett"];["t v ett"];["kanal ett"];["ettan"]})} ;
+channel2 = {s = (variants {["s v t två"];["t v två"];["kanal två"];["tvåan"]})} ;
+channel3 = {s = (variants {["t v tre"];["kanal tre"];["trean"]})} ;
+channel4 = {s = (variants {["t v fyra"];["fyran"]})} ;
+channel5 = {s = (variants {["t v fem"];["kanal fem"];["femman"]})} ;
+channel6 = {s = (variants {["t v espanja"];["t v e"]})} ;
+channel7 = {s = (variants {["rai uno"]})} ;
+channel8 = {s = (variants {["sat ains"]})} ;
+channel9 = {s = (variants {["c n n"];["si n n"]})} ;
+channel10 = {s = (variants {["b b c world"];["bi bi si world"];["bi bi si"];["b b c"]})} ;
+channel11 = {s = (variants {["t v polonia"];["polonia"]})} ;
+channel12 = {s = (variants {["d r ett"]})} ;
+channel13 = {s = (variants {["d r två"]})} ;
+channel14 = {s = (variants {["n r k ett"]})} ;
+channel15 = {s = (variants {["n r k två"]})} ;
+}
diff --git a/grammars/video/Channel/date.Swe.gf b/grammars/video/Channel/date.Swe.gf
new file mode 100644
index 000000000..87d887a9a
--- /dev/null
+++ b/grammars/video/Channel/date.Swe.gf
@@ -0,0 +1,56 @@
+pattern
+today = "today" ;
+january = "01" ;
+february = "02" ;
+march = "03" ;
+april = "04" ;
+may = "05" ;
+june = "06" ;
+july = "07" ;
+august = "08" ;
+september = "09" ;
+october = "10" ;
+november = "11" ;
+december = "12" ;
+
+day1 = "01" ;
+day2 = "02" ;
+day3 = "03" ;
+day4 = "04" ;
+day5 = "05" ;
+day6 = "06" ;
+day7 = "07" ;
+day8 = "08" ;
+day9 = "09" ;
+day10 = "10" ;
+day11 = "11" ;
+day12 = "12" ;
+day13 = "13" ;
+day14 = "14" ;
+day15 = "15" ;
+day16 = "16" ;
+day17 = "17" ;
+day18 = "18" ;
+day19 = "19" ;
+day20 = "20" ;
+day21 = "21" ;
+day22 = "22" ;
+day23 = "23" ;
+day24 = "24" ;
+day25 = "25" ;
+day26 = "26" ;
+day27 = "27" ;
+day28 = "28" ;
+day29 = "29" ;
+day30 = "30" ;
+day31 = "31" ;
+
+lin
+month29 m = {s = m.s} ;
+month30 m = {s = m.s} ;
+month31 m = {s = m.s} ;
+date29 d m = {s = d.s ++ m.s} ;
+date30 d m = {s = d.s ++ m.s} ;
+date3031 d m = {s = d.s ++ m.s} ;
+date31 d m = {s = d.s ++ m.s} ;
+date d = {s = d.s} ;