diff options
| author | john.j.camilleri <john.j.camilleri@chalmers.se> | 2013-09-16 07:17:27 +0000 |
|---|---|---|
| committer | john.j.camilleri <john.j.camilleri@chalmers.se> | 2013-09-16 07:17:27 +0000 |
| commit | f5461eb3d4eb2605b546a4ed202c12bcdaa1f4e4 (patch) | |
| tree | 946c9e8542b8e8271b6b529a95c0400fa6613cb4 /examples/dates/DatesEng.gf | |
| parent | 8e1c6cca407c82fc09569d80c231b8d256735989 (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.gf | 66 |
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) ; - - -} - |
