summaryrefslogtreecommitdiff
path: root/grammars/TALK/GF_GoDiS/Resource/Time
diff options
context:
space:
mode:
authorbjorn <bjorn@bringert.net>2008-08-14 07:58:04 +0000
committerbjorn <bjorn@bringert.net>2008-08-14 07:58:04 +0000
commit77270a010a0b453e9a84c3e62db7cfd22e49d55d (patch)
treed17682a545d6ac1e68ff49b8c20964182794baf7 /grammars/TALK/GF_GoDiS/Resource/Time
parent0bbb906141711767678f82b15a7b43e65e0b5bd6 (diff)
Remove the grammars directory. It was full of old grammars that don't compile these days. See the old source distributions if you want them.
Diffstat (limited to 'grammars/TALK/GF_GoDiS/Resource/Time')
-rw-r--r--grammars/TALK/GF_GoDiS/Resource/Time/ResEng.gf12
-rw-r--r--grammars/TALK/GF_GoDiS/Resource/Time/ResProlog.gf24
-rw-r--r--grammars/TALK/GF_GoDiS/Resource/Time/ResourceSwe.gf10
-rw-r--r--grammars/TALK/GF_GoDiS/Resource/Time/Time.gf103
-rw-r--r--grammars/TALK/GF_GoDiS/Resource/Time/TimeEng.gf122
-rw-r--r--grammars/TALK/GF_GoDiS/Resource/Time/TimeProlog.gf105
-rw-r--r--grammars/TALK/GF_GoDiS/Resource/Time/TimeSwe.gf163
-rw-r--r--grammars/TALK/GF_GoDiS/Resource/Time/Weekday.gf22
-rw-r--r--grammars/TALK/GF_GoDiS/Resource/Time/WeekdayEng.gf15
-rw-r--r--grammars/TALK/GF_GoDiS/Resource/Time/WeekdayProlog.gf19
-rw-r--r--grammars/TALK/GF_GoDiS/Resource/Time/WeekdaySwe.gf16
11 files changed, 0 insertions, 611 deletions
diff --git a/grammars/TALK/GF_GoDiS/Resource/Time/ResEng.gf b/grammars/TALK/GF_GoDiS/Resource/Time/ResEng.gf
deleted file mode 100644
index 5a6cc4b9c..000000000
--- a/grammars/TALK/GF_GoDiS/Resource/Time/ResEng.gf
+++ /dev/null
@@ -1,12 +0,0 @@
-resource ResEng = {
-
-param RefHour = ThisFormal | ThisLex | NextLex ;
-oper refs : Str -> Str -> Str -> RefHour => Str =
- \x,y,z -> table {ThisFormal => x ; ThisLex => y ; NextLex => z } ;
-param MinMin = Form | Past | To ;
-oper mins : Str -> Str -> Str -> MinMin => Str = \x,y,z -> table {Form => x ; Past => y ; To => z } ;
---oper mins : Str -> Str -> Str -> MinMin => Str = \x,y,z -> table {Form => x ; Past => y ; To => z } ;
--- jag vill ha en variantsexpanderare, tänk tänk
---oper mins : Str -> Str -> Str -> MinMin => Str = \x,y,z -> table {Form => (variants{x}) ; Past => (variants{y}) ; To => (variants{z}) } ;
--- Time expressions
-}
diff --git a/grammars/TALK/GF_GoDiS/Resource/Time/ResProlog.gf b/grammars/TALK/GF_GoDiS/Resource/Time/ResProlog.gf
deleted file mode 100644
index e12b3a17c..000000000
--- a/grammars/TALK/GF_GoDiS/Resource/Time/ResProlog.gf
+++ /dev/null
@@ -1,24 +0,0 @@
-resource ResProlog = {
-oper
---with single quotes
---app2 : Str -> Str -> Str -> Str = \pred -> \argH -> \argM -> pred ++ "(" ++ "'" ++ argH ++ ":" ++ argM ++ "'" ++ ")" ;
---without single quotes
---app2 : Str -> Str -> Str -> Str = \pred -> \argH -> \argM -> pred ++ "(" ++ argH ++ ":" ++ argM ++ ")" ;
-
-app3 : Str -> Str -> Str = \argH -> \argM -> argH ++ ":" ++ argM ;
-
-oper
-app : Str -> Str -> Str =
- \pred -> \arg ->
- pred ++ "(" ++ arg ++ ")" ;
-
-appHakeOne : Str -> Str =
- \arg ->
- "["++ arg ++ "]" ;
-
-appCurlyOne : Str -> Str =
- \arg ->
- "{"++ arg ++"}" ;
-
-}
-
diff --git a/grammars/TALK/GF_GoDiS/Resource/Time/ResourceSwe.gf b/grammars/TALK/GF_GoDiS/Resource/Time/ResourceSwe.gf
deleted file mode 100644
index e889ae5c6..000000000
--- a/grammars/TALK/GF_GoDiS/Resource/Time/ResourceSwe.gf
+++ /dev/null
@@ -1,10 +0,0 @@
-resource ResourceSwe = {
-
-param RefHour = ThisFormal | ThisLex | NextLex ;
-oper refs : Str -> Str -> Str -> RefHour => Str = \x,y,z -> table {ThisFormal => x ; ThisLex => y ; NextLex => z } ;
-
-
-param MinMin = Form | Past | To ;
-oper mins : Str -> Str -> Str -> MinMin => Str = \u,x,y -> table {Form => u ; Past => x ; To => y } ;
-}
-
diff --git a/grammars/TALK/GF_GoDiS/Resource/Time/Time.gf b/grammars/TALK/GF_GoDiS/Resource/Time/Time.gf
deleted file mode 100644
index fc608d683..000000000
--- a/grammars/TALK/GF_GoDiS/Resource/Time/Time.gf
+++ /dev/null
@@ -1,103 +0,0 @@
-abstract Time = {
-cat
-
--- Times
-Time ;
-Hour ;
-Minute ;
-
-fun
--- Time
-hour0 : Hour ;
-hour1 : Hour ;
-hour2 : Hour ;
-hour3 : Hour ;
-hour4 : Hour ;
-hour5 : Hour ;
-hour6 : Hour ;
-hour7 : Hour ;
-hour8 : Hour ;
-hour9 : Hour ;
-hour10 : Hour ;
-hour11 : Hour ;
-hour12 : Hour ;
-hour13 : Hour ;
-hour14 : Hour ;
-hour15 : Hour ;
-hour16 : Hour ;
-hour17 : Hour ;
-hour18 : Hour ;
-hour19 : Hour ;
-hour20 : Hour ;
-hour21 : Hour ;
-hour22 : Hour ;
-hour23 : Hour ;
-
--- Minutes
-minute0 : Minute ;
-minute1 : Minute ;
-minute2 : Minute ;
-minute3 : Minute ;
-minute4 : Minute ;
-minute5 : Minute ;
-minute6 : Minute ;
-minute7 : Minute ;
-minute8 : Minute ;
-minute9 : Minute ;
-minute10 : Minute ;
-minute11 : Minute ;
-minute12 : Minute ;
-minute13 : Minute ;
-minute14 : Minute ;
-minute15 : Minute ;
-minute16 : Minute ;
-minute17 : Minute ;
-minute18 : Minute ;
-minute19 : Minute ;
-minute20 : Minute ;
-minute21 : Minute ;
-minute22 : Minute ;
-minute23 : Minute ;
-minute24 : Minute ;
-minute25 : Minute ;
-minute26 : Minute ;
-minute27 : Minute ;
-minute28 : Minute ;
-minute29 : Minute ;
-minute30 : Minute ;
-minute31 : Minute ;
-minute32 : Minute ;
-minute33 : Minute ;
-minute34 : Minute ;
-minute35 : Minute ;
-minute36 : Minute ;
-minute37 : Minute ;
-minute38 : Minute ;
-minute39 : Minute ;
-minute40 : Minute ;
-minute41 : Minute ;
-minute42 : Minute ;
-minute43 : Minute ;
-minute44 : Minute ;
-minute45 : Minute ;
-minute46 : Minute ;
-minute47 : Minute ;
-minute48 : Minute ;
-minute49 : Minute ;
-minute50 : Minute ;
-minute51 : Minute ;
-minute52 : Minute ;
-minute53 : Minute ;
-minute54 : Minute ;
-minute55 : Minute ;
-minute56 : Minute ;
-minute57 : Minute ;
-minute58 : Minute ;
-minute59 : Minute ;
-
--- Time expressions
---timeFormal : Hour -> Minute -> Time ;
---timeInformal : Hour -> Minute -> Time ;
-time : Hour -> Minute -> Time ;
-
-}
diff --git a/grammars/TALK/GF_GoDiS/Resource/Time/TimeEng.gf b/grammars/TALK/GF_GoDiS/Resource/Time/TimeEng.gf
deleted file mode 100644
index ef7088887..000000000
--- a/grammars/TALK/GF_GoDiS/Resource/Time/TimeEng.gf
+++ /dev/null
@@ -1,122 +0,0 @@
--- Time grammar English
-
-concrete TimeEng of Time = open ResEng in {
-
-lin
-hour0 = {s = refs ["null null"] (variants {["midnight"];["twelve"]}) "one"} ;
-hour1 = {s = refs "one" (variants {["one"];["one a.m"]}) "two"} ;
-hour2 = {s = refs "two" (variants {["two"];["two a.m"]}) "three"} ;
-hour3 = {s = refs "three" (variants {["three"];["three a.m"]}) "four"} ;
-hour4 = {s = refs "four" (variants {["four"];["four a.m"]}) "five"} ;
-hour5 = {s = refs "five" (variants {["five"];["five a.m"]}) "six"} ;
-hour6 = {s = refs "six" (variants {["six"];["six a.m"]}) "seven"} ;
-hour7 = {s = refs "seven" (variants {["seven"];["seven a.m"]}) "eight"} ;
-hour8 = {s = refs "eight" (variants {["eight"];["eight a.m"]}) "nine"} ;
-hour9 = {s = refs "nine" (variants {["nine"];["nine a.m"]}) "ten"} ;
-hour10 = {s = refs "ten" (variants {["ten"];["ten a.m"]}) "eleven"} ;
-hour11 = {s = refs "eleven" (variants {["eleven"];["eleven a.m"]}) "twelve"} ;
-hour12 = {s = refs "twelve" (variants {["twelve"];["twelve a.m"]}) "one" } ;
-hour13 = {s = refs "thirten" (variants {["one"];["one p.m"]}) "two" };
-hour14 = {s = refs "fourteen" (variants {["two"];["two p.m"]}) "three" } ;
-hour15 = {s = refs "fifteen" (variants {["three"];["three p.m"]}) "four" } ;
-hour16 = {s = refs "sixteen" (variants {["four"];["four p.m"]}) "five" } ;
-hour17 = {s = refs "seventeen" (variants {["five"];["five p.m"]}) "six" } ;
-hour18 = {s = refs "eighteen" (variants {["six"];["six p.m"]}) "seven" } ;
-hour19 = {s = refs "nineteen" (variants {["seven"];["seven p.m"]}) "eight" } ;
-hour20 = {s = refs "twenty" (variants {["eight"];["eight p.m"]}) "nine" } ;
-hour21 = {s = refs ["twenty one"] (variants {["nine"];["nine p.m"]}) "eight" } ;
-hour22 = {s = refs ["twenty two"] (variants {["ten"];["ten p.m"]}) "eleven" } ;
-hour23 = {s = refs ["twenty three"] (variants {["eleven"]}) (variants {["midnight"];["twelve"]})} ;
-
-
-lin
-
-minute0 = {s = mins (variants {["o'clock"];["sharp"];["hundred hours"]}) (variants{[""]}) (variants{})};
-minute1 = {s = mins ["oh one"] (variants{["one minute past"];["one past"]}) (variants{})};
-minute2 = {s = mins ["oh two"] (variants{["two minutes past"];["two past"]}) (variants{})};
-minute3 = {s = mins ["oh three"] (variants{["three minutes past"];["three past"]}) (variants{})};
-minute4 = {s = mins ["oh four"] (variants{["four minutes past"];["four past"]}) (variants{})};
-minute5 = {s = mins ["oh five"] (variants{["five minutes past"];["five past"]}) (variants{})};
-minute6 = {s = mins ["oh six"] (variants{["six minutes past"];["six past"]}) (variants{})};
-minute7 = {s = mins ["oh seven"] (variants{["seven minutes past"];["seven past"]}) (variants{})};
-minute8 = {s = mins ["oh eight"] (variants{["eight minutes past"];["eight past"]}) (variants{})};
-minute9 = {s = mins ["oh nine"] (variants{["nine minutes past"];["nine past"]}) (variants{})};
-
-minute10 = {s = mins ["ten"] (variants{["ten minutes past"];["ten past"]}) (variants{})};
-minute11 = {s = mins ["eleven"] (variants{["eleven minutes past"];["eleven past"]}) (variants{})};
-minute12 = {s = mins ["twelve"] (variants{["twelve minutes past"];["twelve past"]}) (variants{})};
-minute13 = {s = mins ["thirteen"] (variants{["thirteen minutes past"];["thirteen past"]}) (variants{})};
-minute14 = {s = mins ["fourteen"] (variants{["fourteen minutes past"];["fourteen past"]}) (variants{})};
-minute15 = {s = mins ["fifteen"] (variants{["fifteen minutes past"];["fifteen past"];["quarter past"];["a quarter past"]}) (variants{})};
-minute16 = {s = mins ["sixteen"] (variants{["sixteen minutes past"];["sixteen past"]}) (variants{})};
-minute17 = {s = mins ["seventeen"] (variants{["seventeen minutes past"];["seventeen past"]}) (variants{})};
-minute18 = {s = mins ["eightteen"] (variants{["eighteen minutes past"];["eighteen past"]}) (variants{})};
-minute19 = {s = mins ["nineteen"] (variants{["nineteen minutes past"];["nineteen past"]}) (variants{})};
-
-minute20 = {s = mins ["twenty"] (variants{["twenty minutes past"];["twenty past"]}) (variants{})};
-minute21 = {s = mins ["twenty one"] (variants{["twenty one minutes past"];["twenty one past"]}) (variants{})};
-minute22 = {s = mins ["twenty two"] (variants{["twenty two minutes past"];["twenty two past"]}) (variants{})};
-minute23 = {s = mins ["twenty three"] (variants{["twenty three minutes past"];["twenty three past"]}) (variants{})};
-minute24 = {s = mins ["twenty four"] (variants{["twenty four minutes past"];["twenty four past"]}) (variants{})};
-minute25 = {s = mins ["twenty five"] (variants{["twenty five minutes past"];["twenty two five past"]}) (variants{})};
-minute26 = {s = mins ["twenty six"] (variants{["twenty six minutes past"];["twenty six past"]}) (variants{})};
-minute27 = {s = mins ["twenty seven"] (variants{["twenty seven minutes past"];["twenty seven past"]}) (variants{})};
-minute28 = {s = mins ["twenty eight"] (variants{["twenty eight minutes past"];["twenty eight past"]}) (variants{})};
-minute29 = {s = mins ["twenty nine"] (variants{["twenty nine minutes past"];["twenty nine past"]}) (variants{})};
-
-minute30 = {s = mins ["thirty"] (variants{["thirty minutes past"];["thirty past"];["half past"]}) (variants{})};
-
-minute31 = {s = mins ["thirty one"] (variants{["one minute past half past????"]}) (variants{["twenty nine minutes to"];["twenty nine to"]})};
-minute32 = {s = mins ["thirty two"] (variants{}) (variants{["twenty eight minutes to"];["twenty eight to"]})};
-minute33 = {s = mins ["thirty three"] (variants{}) (variants{["twenty seven minutes to"];["twenty seven to"]})};
-minute34 = {s = mins ["thirty four"] (variants{}) (variants{["twenty six minutes to"];["twenty six to"]})};
-minute35 = {s = mins ["thirty five"] (variants{}) (variants{["twenty five minutes to"];["twenty five to"]})};
-minute36 = {s = mins ["thirty six"] (variants{}) (variants{["twenty four minutes to"];["twenty four to"]})};
-minute37 = {s = mins ["thirty seven"] (variants{}) (variants{["twenty three minutes to"];["twenty three to"]})};
-minute38 = {s = mins ["thirty eight"] (variants{}) (variants{["twenty two minutes to"];["twenty two to"]})};
-minute39 = {s = mins ["thirty nine"] (variants{}) (variants{["twenty one minutes to"];["twenty one to"]})};
-minute40 = {s = mins ["fourty"] (variants{}) (variants{["twenty minutes to"];["twenty to"]})};
-
-minute41 = {s = mins ["fourty one"] (variants{}) (variants{["nineteen minutes to"];["nineteen to"]})};
-minute42 = {s = mins ["fourty two"] (variants{}) (variants{["eightteen minutes to"];["eightteen to"]})};
-minute43 = {s = mins ["fourty three"] (variants{}) (variants{["seventeen minutes to"];["seventeen to"]})};
-minute44 = {s = mins ["fourty four"] (variants{}) (variants{["sixteen minutes to"];["sixteen to"]})};
-minute45 = {s = mins ["fourty five"] (variants{["three quarters past???"]}) (variants{["fifteen minutes to"];["fifteen to"]})};
-minute46 = {s = mins ["fourty six"] (variants{}) (variants{["fourteen minutes to"];["fourteen to"]})};
-minute47 = {s = mins ["fourty seven"] (variants{}) (variants{["thirteen minutes to"];["thirteen to"]})};
-minute48 = {s = mins ["fourty eight"] (variants{}) (variants{["twelve minutes to"];["twelve to"]})};
-minute49 = {s = mins ["fourty nine"] (variants{}) (variants{["eleven minutes to"];["eleven to"]})};
-minute50 = {s = mins ["fifty"] (variants{}) (variants{["ten minutes to"];["ten to"]})};
-
-minute51 = {s = mins ["fifty one"] (variants{}) (variants{["nine minutes to"];["nine to"]})};
-minute52 = {s = mins ["fifty two"] (variants{}) (variants{["eight minutes to"];["eight to"]})};
-minute53 = {s = mins ["fifty three"] (variants{}) (variants{["seven minutes to"];["seven to"]})};
-minute54 = {s = mins ["fifty four"] (variants{}) (variants{["six minutes to"];["six to"]})};
-minute55 = {s = mins ["fifty five"] (variants{}) (variants{["five minutes to"];["five to"]})};
-minute56 = {s = mins ["fifty six"] (variants{}) (variants{["four minutes to"];["four to"]})};
-minute57 = {s = mins ["fifty seven"] (variants{}) (variants{["three minutes to"];["three to"]})};
-minute58 = {s = mins ["fifty eight"] (variants{}) (variants{["two minutes to"];["two to"]})};
-minute59 = {s = mins ["fifty nine"] (variants{}) (variants{["one minute to"];["one to"]})};
-
-
-
-lincat Hour = {s : RefHour => Str} ;
-lincat Minute = {s : MinMin => Str} ;
-
-
-lin
-
---timeFormal h m = {s = h.s ! ThisFormal ++ m.s ! Form} ;
---timeInformal h m = {s = variants {
- --m.s ! Past ++ h.s ! ThisLex ;
- --m.s ! To ++ h.s ! NextLex
- --}
- --};
-
-time h m = {s = variants {
- h.s ! ThisFormal ++ m.s ! Form ;
- m.s ! Past ++ h.s ! ThisLex ;
- m.s ! To ++ h.s ! NextLex
- }
- };
-}
diff --git a/grammars/TALK/GF_GoDiS/Resource/Time/TimeProlog.gf b/grammars/TALK/GF_GoDiS/Resource/Time/TimeProlog.gf
deleted file mode 100644
index d706af0e9..000000000
--- a/grammars/TALK/GF_GoDiS/Resource/Time/TimeProlog.gf
+++ /dev/null
@@ -1,105 +0,0 @@
---File name TimeProlog
--- Time grammar Prolog output notation
---# -path=.:../Time
-concrete TimeProlog of Time = open ResProlog in {
-
-flags lexer=codelit ; unlexer=codelit ; startcat=Time ;
---flags lexer=code ; unlexer=code ; startcat=Time ;
-
-pattern
-
-hour0 = "00" ;
-hour1 = "01" ;
-hour2 = "02" ;
-hour3 = "03" ;
-hour4 = "04" ;
-hour5 = "05" ;
-hour6 = "06" ;
-hour7 = "07" ;
-hour8 = "08" ;
-hour9 = "09" ;
-hour10 = "10" ;
-hour11 = "11" ;
-hour12 = "12" ;
-hour13 = "13" ;
-hour14 = "14" ;
-hour15 = "15" ;
-hour16 = "16" ;
-hour17 = "17" ;
-hour18 = "18" ;
-hour19 = "19" ;
-hour20 = "20" ;
-hour21 = "21" ;
-hour22 = "22" ;
-hour23 = "23" ;
-
---Minutes
-minute0 = "00" ;
-minute1 = "01" ;
-minute2 = "02" ;
-minute3 = "03" ;
-minute4 = "04" ;
-minute5 = "05" ;
-minute6 = "06" ;
-minute7 = "07" ;
-minute8 = "08" ;
-minute9 = "09" ;
-minute10 = "10" ;
-minute11 = "11" ;
-minute12 = "12" ;
-minute13 = "13" ;
-minute14 = "14" ;
-minute15 = "15" ;
-minute16 = "16" ;
-minute17 = "17" ;
-minute18 = "18" ;
-minute19 = "19" ;
-minute20 = "20" ;
-minute21 = "21" ;
-minute22 = "22" ;
-minute23 = "23" ;
-minute24 = "24" ;
-minute25 = "25" ;
-minute26 = "26" ;
-minute27 = "27" ;
-minute28 = "28" ;
-minute29 = "29" ;
-minute30 = "30" ;
-
-minute31 = "31" ;
-minute32 = "32" ;
-minute33 = "33" ;
-minute34 = "34" ;
-minute35 = "35" ;
-minute36 = "36" ;
-minute37 = "37" ;
-minute38 = "38" ;
-minute39 = "39" ;
-minute40 = "40" ;
-minute41 = "41" ;
-minute42 = "42" ;
-minute43 = "43" ;
-minute44 = "44" ;
-minute45 = "45" ;
-minute46 = "46" ;
-minute47 = "47" ;
-minute48 = "48" ;
-minute49 = "49" ;
-minute50 = "50" ;
-minute51 = "51" ;
-minute52 = "52" ;
-minute53 = "53" ;
-minute54 = "54" ;
-minute55 = "55" ;
-minute56 = "56" ;
-minute57 = "57" ;
-minute58 = "58" ;
-minute59 = "59" ;
-
-
-lin
---timeFormal h m = {s = app2 "time" h.s m.s } ;
---timeInformal h m = {s = app2 "time" h.s m.s } ;
---time h m = {s = app2 "time" h.s m.s } ;
-time h m = {s = app3 h.s m.s } ;
-}
diff --git a/grammars/TALK/GF_GoDiS/Resource/Time/TimeSwe.gf b/grammars/TALK/GF_GoDiS/Resource/Time/TimeSwe.gf
deleted file mode 100644
index f7a145454..000000000
--- a/grammars/TALK/GF_GoDiS/Resource/Time/TimeSwe.gf
+++ /dev/null
@@ -1,163 +0,0 @@
--- File name TimeSwe
-
---# -path=.:..:../Time:../Weekday
-concrete TimeSwe of Time = open ResourceSwe in {
-
---Hours
-lin
-
---hour0 = {s = refs (variants{["noll noll"];["noll"]}) "tolv" "ett"} ;
-hour0 = {s = refs (variants{["noll noll"];["noll"]})(variants{}) (variants{})} ;
-hour1 = {s = refs ["noll ett"] "ett" "två"} ;
-hour2 = {s = refs ["noll två"] "två" "tre"} ;
-hour3 = {s = refs ["noll tre"] "tre" "fyra"} ;
-hour4 = {s = refs ["noll fyra"] "fyra" "fem"} ;
-hour5 = {s = refs ["noll fem"] "fem" "sex"} ;
-hour6 = {s = refs ["noll sex"] "sex" "sju"} ;
-hour7 = {s = refs ["noll sju"] "sju" "åtta"} ;
-hour8 = {s = refs ["noll åtta"] "åtta" "nio"} ;
-hour9 = {s = refs ["noll nio"] "nio" "tio"} ;
-hour10 = {s = refs "tio" "tio" "elva"} ;
-hour11 = {s = refs "elva""elva" "tolv"} ;
-hour12 = {s = refs "tolv" "tolv" "ett" } ;
-
-hour13 = {s = refs "tretton" "ett" "två" };
-hour14 = {s = refs "fjorton" "två" "tre" };
-hour15 = {s = refs "femton" "tre" "fyra" };
-hour16 = {s = refs "sexton" "fyra" "fem" };
-hour17 = {s = refs "sjutton" "fem" "sex" };
-hour18 = {s = refs "arton" "sex" "sju" };
-hour19 = {s = refs "nitton" "sju" "åtta" } ;
-hour20 = {s = refs "tjugo" "åtta" "nio" } ;
-hour21 = {s = refs (variants{["tju ett"];["tjugo ett"]}) "nio" "tio" } ;
-hour22 = {s = refs (variants{["tju två"];["tjugo två"]}) "tio" "elva" } ;
-hour23 = {s = refs (variants{["tju tre"];["tjugo tre"]}) "elva" "tolv" };
-
---Minutes
---0-9
---minute0 = {s = mins (variants{["noll noll"]}) (variants{}) (variants{}) (variants{[""]})} ;
-minute0 = {s = mins ["noll noll"] (variants{[""]}) (variants{})} ;
-minute1 = {s = mins ["noll ett"] (variants {["ett över"] ; ["en minut över"]}) (variants{}) } ;
-minute2 = {s = mins ["noll två"] (variants {["två över"] ; ["två minuter över"]}) (variants{})} ;
-minute3 = {s = mins ["noll tre"] (variants { ["tre över"] ; ["tre minuter över"]}) (variants{})} ;
-minute4 = {s = mins ["noll fyra"] (variants { ["fyra över"] ; ["fyra minuter över"]}) (variants{})} ;
-minute5 = {s = mins ["noll fem"] (variants { ["fem över"] ; ["fem minuter över"]}) (variants{})} ;
-minute6 = {s = mins ["noll sex"] (variants { ["sex över"] ; ["sex minuter över"]}) (variants{})} ;
-minute7 = {s = mins ["noll sju"] (variants { ["sju över"] ; ["sju minuter över"]}) (variants{})} ;
-minute8 = {s = mins ["noll åtta"] (variants { ["åtta över"] ; ["åtta minuter över"]}) (variants{})} ;
-minute9 = {s = mins ["noll nio"] (variants { ["nio över"] ; ["nio minuter över"]}) (variants{})} ;
-
---10-19
-minute10 = {s = mins ["tio"] (variants { ["tio över"] ; ["tio minuter över"]}) (variants{})} ;
-minute11 = {s = mins ["elva"] (variants { ["elva över"] ; ["elva minuter över"]}) (variants{})} ;
-minute12 = {s = mins ["tolv"] (variants { ["tolv över"] ; ["tolv minuter över"]}) (variants{})} ;
-minute13 = {s = mins ["tretton"] (variants { ["tretton över"] ; ["tretton minuter över"]}) (variants{})} ;
-minute14 = {s = mins ["fjorton"] (variants { ["fjorton över"] ; ["fjorton minuter över"]}) (variants{})} ;
-minute15 = {s = mins ["femton"] (variants { ["femton över"] ; ["femton minuter över"] ; ["kvart över"]}) (variants{})} ;
-minute16 = {s = mins ["sexton"] (variants { ["sexton över"] ; ["sexton minuter över"]}) (variants{})} ;
-minute17 = {s = mins ["sjutton"] (variants { ["sjutton över"] ; ["sjutton minuter över"]}) (variants{})} ;
-minute18 = {s = mins ["arton"] (variants { ["arton över"] ; ["arton minuter över"]}) (variants{})} ;
-minute19 = {s = mins ["nitton"] (variants { ["nitton över"] ; ["nitton minuter över"]}) (variants{})} ;
-
---20-29
-minute20 = {s = mins ["tjugo"] (variants { ["tjugo över"] ; ["tjugo minuter över"]}) (variants {})} ;
-minute21 = {s = mins (variants{["tju ett"];["tjugo ett"]}) (variants {["tju en över"];["tjugo en över"];["tju ett över"];["tjugo ett över"];["tju en minuter över"];["tjugo en minuter över"]}) (variants {}) } ;
-minute22 = {s = mins (variants{["tju två"];["tjugo två"]}) (variants {["tju två över"];["tjugo två över"];["tju två minuter över"];["tjugo två minuter över"]}) (variants {}) } ;
-minute23 = {s = mins (variants{["tju tre"];["tjugo tre"]}) (variants {["tju tre över"];["tjugo tre över"];["tju tre minuter över"];["tjugo tre minuter över"];}) (variants {}) } ;
---minute23 = {s = mins ["tjugo tre"] (variants { ["tjugo tre över"] ; ["tjugo tre minuter över"]}) (variants {}) } ;
-minute24 = {s = mins (variants{["tju fyra"];["tjugo fyra"]}) (variants {["tju fyra över"];["tjugo fyra över"];["tju fyra minuter över"];["tjugo fyra minuter över"];}) (variants {["sex minuter i halv"];["sex i halv"]}) } ;
---minute24 = {s = mins ["tjugo fyra"] (variants { ["tjugo fyra över"];["tjugo fyra minuter över"]}) (variants {["sex minuter i halv"];["sex i halv"]})} ;
-minute25 = {s = mins (variants{["tju fem"];["tjugo fem"]}) (variants {["tju fem över"];["tjugo fem över"];["tju fem minuter över"];["tjugo fem minuter över"];}) (variants {["fem minuter i halv"];["fem i halv"]}) } ;
---minute25 = {s = mins ["tjugo fem"] (variants { ["tjugo fem över"] ; ["tjugo fem minuter över"]}) (variants {["fem minuter i halv"];["fem i halv"]}) } ;
-minute26 = {s = mins (variants{["tju sex"];["tjugo sex"]}) (variants {["tju sex över"];["tjugo sex över"];["tju sex minuter över"];["tjugo sex minuter över"];}) (variants {["fyra minuter i halv"];["fyra i halv"]}) } ;
---minute26 = {s = mins ["tjugo sex"] (variants { ["tjugo sex över"] ; ["tjugo sex minuter över"]}) (variants {["fyra minuter i halv"];["fyra i halv"]}) } ;
-minute27 = {s = mins (variants{["tju sju"];["tjugo sju"]}) (variants {["tju sju över"];["tjugo sju över"];["tju sju minuter över"];["tjugo sju minuter över"];}) (variants {["tre minuter i halv"];["tre i halv"]}) } ;
---minute27 = {s = mins ["tjugo sju"] (variants { ["tjugo sju över"] ; ["tjugo sju minuter över"]}) (variants {["tre minuter i halv"];["tre i halv"]}) } ;
-minute28 = {s = mins (variants{["tju åtta"];["tjugo åtta"]}) (variants {["tju åtta över"];["tjugo åtta över"];["tju åtta minuter över"];["tjugo åtta minuter över"];}) (variants {["två minuter i halv"];["två i halv"]}) } ;
---minute28 = {s = mins ["tjugo åtta"] (variants { ["tjugo åtta över"] ; ["tjugo åtta minuter över"]}) (variants {["två minuter i halv"];["två i halv"]}) } ;
-minute29 = {s = mins (variants{["tju nio"];["tjugo nio"]}) (variants {["tju nio över"];["tjugo nio över"];["tju nio minuter över"];["tjugo nio minuter över"];}) (variants {["en minuter i halv"];["en i halv"]}) } ;
---minute29 = {s = mins ["tjugo nio"] (variants { ["tjugo nio över"] ; ["tjugo nio minuter över"]}) (variants {["en minut i halv"];["en i halv"]}) } ;
-
---30-39
-minute30 = {s = mins ["trettio"] (variants { ["trettio minuter över"]}) ["halv"] } ;
-minute31 = {s = mins ["trettio ett"] (variants { ["trettio en över"] ; ["trettio ett över"] ; ["trettio en minuter över"]}) (variants {["tjugo nio minuter i"];["tjugo nio i"];["en minut över halv"];["en över halv"]}) } ;
-minute32 = {s = mins ["trettio två"] (variants { ["trettio två över"] ; ["trettio två minuter över"]}) (variants {["tjugo åtta minuter i"];["tjugo åtta i"];["två minuter över halv"];["två över halv"]}) } ;
-minute33 = {s = mins ["trettio tre"] (variants { ["trettio tre över"] ; ["trettio tre minuter över"]}) (variants {["tjugo sju minuter i"];["tjugo sju i"];["tre minuter över halv"];["tre över halv"]}) } ;
-minute34 = {s = mins ["trettio fyra"] (variants { ["trettio fyra över"] ; ["trettio fyra minuter över"]}) (variants {["tjugo sex minuter i"];["tjugo sex i"];["fyra minuter över halv"];["fyra över halv"]}) } ;
-minute35 = {s = mins ["trettio fem"] (variants { ["trettio fem över"] ; ["trettio fem minuter över"]}) (variants {["tjugo fem minuter i"];["tjugo fem i"];["fem minuter över halv"]; ["fem över halv"]}) } ;
-minute36 = {s = mins ["trettio sex"] (variants { ["trettio sex över"] ; ["trettio sex minuter över"]}) (variants {["tjugo fyra minuter i"];["tjugo fyra i"];["sex minuter över halv"];["sex över halv"]}) } ;
-minute37 = {s = mins ["trettio sju"] (variants { ["trettio sju över"] ; ["trettio sju minuter över"]}) (variants {["tjugo tre minuter i"];["tjugo tre i"];["sju minuter över halv"];["sju över halv"]}) } ;
-minute38 = {s = mins ["trettio åtta"] (variants { ["trettio åtta över"] ; ["trettio åtta minuter över"]}) (variants {["tjugo två minuter i"];["tjugo två i"]}) } ;
-minute39 = {s = mins ["trettio nio"] (variants { ["trettio nio över"] ; ["trettio nio minuter över"]}) (variants {["tjugo en minuter i"];["tjugo en i"];["tjugo ett i"]}) } ;
-
---40-49
-minute40 = {s = mins ["fyrtio"] (variants {}) (variants {["tjugo minuter i"];["tjugo i"]}) } ;
-minute41 = {s = mins ["fyrtio ett"] (variants {}) (variants {["nitton minuter i"];["nitton i"]}) } ;
-minute42 = {s = mins ["fyrtio två"] (variants {}) (variants {["arton minuter i"];["arton i"]}) } ;
-minute43 = {s = mins ["fyrtio tre"] (variants {}) (variants {["sjutton minuter i"];["sjutton i"]}) } ;
-minute44 = {s = mins ["fyrtio fyra"] (variants {}) (variants {["sexton minuter i"];["sexton i"]}) } ;
-minute45 = {s = mins (variants {["fyrtio fem"];["tre kvart"]}) (variants {}) (variants {["femton minuter i"];["femton i"];["kvart i"]}) } ;
-minute46 = {s = mins ["fyrtio sex"] (variants {}) (variants {["fjorton minuter i"];["fjorton i"]}) } ;
-minute47 = {s = mins ["fyrtio sju"] (variants {}) (variants {["tretton minuter i"];["tretton i"]}) } ;
-minute48 = {s = mins ["fyrtio åtta"] (variants {}) (variants {["tolv minuter i"];["tolv i"]}) } ;
-minute49 = {s = mins ["fyrtio nio"] (variants {}) (variants {["elva minuter i"];["elva i"]}) } ;
-
---50-59
-minute50 = {s = mins ["femtio"] (variants {}) (variants {["tio minuter i"];["tio i"]}) } ;
-minute51 = {s = mins ["femtio ett"] (variants {}) (variants {["nio minuter i"];["nio i"]}) } ;
-minute52 = {s = mins ["femtio två"] (variants {}) (variants {["åtta minuter i"];["åtta i"]}) } ;
-minute53 = {s = mins ["femtio tre"] (variants {}) (variants {["sju minuter i"];["sju i"]}) } ;
-minute54 = {s = mins ["femtio fyra"] (variants {}) (variants {["sex minuter i"];["sex i"]}) } ;
-minute55 = {s = mins ["femtio fem"] (variants {}) (variants {["fem minuter i"];["fem i"]}) } ;
-minute56 = {s = mins ["femtio sex"] (variants {}) (variants {["fyra minuter i"];["fyra i"]}) } ;
-minute57 = {s = mins ["femtio sju"] (variants {}) (variants {["tre minuter i"];["tre i"]}) } ;
-minute58 = {s = mins ["femtio åtta"] (variants {}) (variants {["två minuter i"];["två i"]}) } ;
-minute59 = {s = mins ["femtio nio"] (variants {}) (variants {["en minut i"];["en i"];["ett i"]}) } ;
-
-lincat Hour = {s : RefHour => Str} ;
-
-lincat Minute = {s : MinMin => Str} ;
-
--- Time expressions
-lin
---timeDotty h m = {s = h.s ! ThisLex ++ m.s ! Dot };
---timeInformal h m = {s = variants {
- --m.s ! Past ++ h.s ! ThisLex ;
- --m.s ! To ++ h.s ! NextLex
- --}
- --};
---timeFormal h m = {s = h.s ! ThisFormal ++ m.s ! Form} ;
-
---klockan arton och tjugo
---arton och tjugo
---arton och
---sex och
-
-time h m = {s =
- variants {
- h.s ! ThisFormal ++ m.s ! Form ;
- h.s ! ThisFormal ++ "och" ++ m.s ! Form ;
- m.s ! Past ++ h.s ! ThisLex ;
- m.s ! To ++ h.s ! NextLex;
- "klockan" ++ h.s ! ThisFormal ++ m.s ! Form ;
- --"klockan" ++ h.s ! ThisFormal ++ "och" ++ m.s ! Form ;
- "klockan" ++ m.s ! Past ++ h.s ! ThisLex ;
- "klockan" ++ m.s ! To ++ h.s ! NextLex
- }
- };
-
-}
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/grammars/TALK/GF_GoDiS/Resource/Time/Weekday.gf b/grammars/TALK/GF_GoDiS/Resource/Time/Weekday.gf
deleted file mode 100644
index 6ae308273..000000000
--- a/grammars/TALK/GF_GoDiS/Resource/Time/Weekday.gf
+++ /dev/null
@@ -1,22 +0,0 @@
----File name Weekday.gf
-
-abstract Weekday = {
-
-cat
-Weekday ;
-Day ;
-
-fun
-monday : Weekday ;
-tuesday : Weekday ;
-wednesday : Weekday ;
-thursday : Weekday ;
-friday : Weekday ;
-saturday : Weekday ;
-sunday : Weekday ;
-
-fun
-today : Day ;
-tomorrow : Day;
-
-}
diff --git a/grammars/TALK/GF_GoDiS/Resource/Time/WeekdayEng.gf b/grammars/TALK/GF_GoDiS/Resource/Time/WeekdayEng.gf
deleted file mode 100644
index dc2f795e6..000000000
--- a/grammars/TALK/GF_GoDiS/Resource/Time/WeekdayEng.gf
+++ /dev/null
@@ -1,15 +0,0 @@
-concrete WeekdayEng of Weekday = {
-
-pattern
-today = "today" ;
-monday = "monday" ;
-tuesday = "tuesday" ;
-wednesday = "wednesday" ;
-thursday = "thursday" ;
-friday = "friday" ;
-saturday = "saturday" ;
-sunday = "sunday" ;
-today = "today" ;
-tomorrow = "tomorrow" ;
-
-} \ No newline at end of file
diff --git a/grammars/TALK/GF_GoDiS/Resource/Time/WeekdayProlog.gf b/grammars/TALK/GF_GoDiS/Resource/Time/WeekdayProlog.gf
deleted file mode 100644
index 523d0f310..000000000
--- a/grammars/TALK/GF_GoDiS/Resource/Time/WeekdayProlog.gf
+++ /dev/null
@@ -1,19 +0,0 @@
---# -path=.:../Time
-
----File name weekday.Swe.gf
-
-concrete WeekdayProlog of Weekday = {
-
-pattern
-
-monday = "monday" ;
-tuesday = "tuesday" ;
-wednesday = "wednesday" ;
-thursday = "thursday" ;
-friday = "friday" ;
-saturday = "saturday" ;
-sunday = "sunday" ;
-
-today = "today" ;
-tomorrow = "tomorrow";
-}
diff --git a/grammars/TALK/GF_GoDiS/Resource/Time/WeekdaySwe.gf b/grammars/TALK/GF_GoDiS/Resource/Time/WeekdaySwe.gf
deleted file mode 100644
index 7422d032c..000000000
--- a/grammars/TALK/GF_GoDiS/Resource/Time/WeekdaySwe.gf
+++ /dev/null
@@ -1,16 +0,0 @@
-concrete WeekdaySwe of Weekday = {
-
-pattern
-
-monday = "måndag" ;
-tuesday = "tisdag" ;
-wednesday = "onsdag" ;
-thursday = "torsdag" ;
-friday = "fredag" ;
-saturday = "lördag" ;
-sunday = "söndag" ;
-
-today = "idag" ;
-tomorrow = "imorgon" ;
-
-}