summaryrefslogtreecommitdiff
path: root/examples/dates/DatesEng.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/DatesEng.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/DatesEng.gf')
-rw-r--r--examples/dates/DatesEng.gf66
1 files changed, 0 insertions, 66 deletions
diff --git a/examples/dates/DatesEng.gf b/examples/dates/DatesEng.gf
deleted file mode 100644
index 2113c11dd..000000000
--- a/examples/dates/DatesEng.gf
+++ /dev/null
@@ -1,66 +0,0 @@
-concrete DatesEng of Dates = open Prelude in {
-
-lincat
- Date, Year, Month, Day, Time, Hour, Minute, Weekday, Ampm = Str ;
-
-lin
- DFull y m d w t = opts (opts "on" ++ w ++ comma) ++ opts (bothWays m d ++ opts comma) ++ opts (y ++ opts comma) ++ opts ("at" ++ t) ;
-
- MkYear i = i.s ;
-
- MJan = "January" ;
- MFeb = "February" ;
- MMar = "March" ;
- MApr = "April" ;
- MMay = "May" ;
- MJun = "June" ;
- MJul = "July" ;
- MAug = "August" ;
- MSep = "September" ;
- MOct = "October" ;
- MNov = "November" ;
- MDec = "December" ;
-
- MkDay i = i.s ;
-
- MkTime ap h m = h ++ opts (dot ++ m) ++ opts ap ;
-
- H01 = "1" ;
- H02 = "2" ;
- H03 = "3" ;
- H04 = "4" ;
- H05 = "5" ;
- H06 = "6" ;
- H07 = "7" ;
- H08 = "8" ;
- H09 = "9" ;
- H10 = "10" ;
- H11 = "11" ;
- H12 = "12" ;
-
- MkMinute i = i.s ;
-
- WSun = "Sunday" ;
- WMon = "Monday" ;
- WTue = "Tuesday" ;
- WWed = "Wednesday" ;
- WThu = "Thursday" ;
- WFri = "Friday" ;
- WSat = "Saturday" ;
-
- AM = "a.m." ;
- PM = "p.m." ;
-
-oper
- opts = optStr ;
- dot = "." ;
- comma = "," ;
-
-lin
- DToday t = "today" ++ opts ("at" ++ t) ;
- DTomorrow t = "tomorrow" ++ opts ("at" ++ t) ;
- DYesterday t = "yesterday" ++ opts ("at" ++ t) ;
-
-
-}
-