summaryrefslogtreecommitdiff
path: root/examples/dates/DatesSwe.gf
diff options
context:
space:
mode:
authorjohn.j.camilleri <john.j.camilleri@chalmers.se>2013-09-16 07:17:27 +0000
committerjohn.j.camilleri <john.j.camilleri@chalmers.se>2013-09-16 07:17:27 +0000
commitf5461eb3d4eb2605b546a4ed202c12bcdaa1f4e4 (patch)
tree946c9e8542b8e8271b6b529a95c0400fa6613cb4 /examples/dates/DatesSwe.gf
parent8e1c6cca407c82fc09569d80c231b8d256735989 (diff)
Remove contribs and examples
Everything has now been moved to a separate repository at https://github.com/GrammaticalFramework/gf-contrib The contents of the examples folder are build during SetupWeb
Diffstat (limited to 'examples/dates/DatesSwe.gf')
-rw-r--r--examples/dates/DatesSwe.gf73
1 files changed, 0 insertions, 73 deletions
diff --git a/examples/dates/DatesSwe.gf b/examples/dates/DatesSwe.gf
deleted file mode 100644
index d40ca201d..000000000
--- a/examples/dates/DatesSwe.gf
+++ /dev/null
@@ -1,73 +0,0 @@
-concrete DatesSwe of Dates = open Prelude in {
-
-flags coding = utf8 ;
-
-lincat
- Date, Year, Month, Day, Time, Minute, Weekday = Str ; Hour = PAMPM => Str ; Ampm = {s : Str ; p : PAMPM} ;
-
-lin
- DFull y m d w t = opts (opts "på" ++ w) ++ opts ("den" ++ d ++ m) ++ opts (opts "år" ++ y) ++ opts (klo ++ t) ;
-
- MkYear i = i.s ;
-
- MJan = "januari" ;
- MFeb = "februari" ;
- MMar = "mars" ;
- MApr = "april" ;
- MMay = "maj" ;
- MJun = "juni" ;
- MJul = "juli" ;
- MAug = "augusti" ;
- MSep = "september" ;
- MOct = "oktober" ;
- MNov = "november" ;
- MDec = "december" ;
-
- MkDay i = i.s ;
-
- MkTime ap h m = h ! ap.p ++ opts (dot ++ m) ++ ap.s ;
-
- H01 = ampm "1" "13" ;
- H02 = ampm "2" "14" ;
- H03 = ampm "3" "15" ;
- H04 = ampm "4" "16" ;
- H05 = ampm "5" "17" ;
- H06 = ampm "6" "18" ;
- H07 = ampm "7" "19" ;
- H08 = ampm "8" "20" ;
- H09 = ampm "9" "21" ;
- H10 = ampm "10" "22" ;
- H11 = ampm "11" "23" ;
- H12 = ampm "0" "12" ; -- 12.01 a.m. = 0.01 ; 12.01 p.m. = 13.01
-
- MkMinute i = i.s ;
-
- WSun = "söndag" ;
- WMon = "måndag" ;
- WTue = "tisdag" ;
- WWed = "onsdag" ;
- WThu = "torsdag" ;
- WFri = "fredag" ;
- WSat = "lördag" ;
-
- AM = {s = [] ; p = PAM} ;
- PM = {s = [] ; p = PPM} ;
-
-oper
- opts = optStr ;
- dot = "." ;
- comma = "," ;
- klo = "kl." | "klockan" ;
-
- ampm : Str -> Str -> PAMPM => Str = \a,p -> table {PAM => a ; PPM => p} ;
-
-param
- PAMPM = PAM | PPM ;
-
-lin
- DToday t = "idag" ++ opts (klo ++ t) ;
- DTomorrow t = "imorgon" ++ opts (klo ++ t) ;
- DYesterday t = "igår" ++ opts (klo ++ t) ;
-
-}
-