changed names of resource-1.3; added a note on homepage on release

2008-06-25 16:54:35 +00:00
parent 7d721eb16e
commit c5c6d13546
1729 changed files with 113 additions and 32 deletions
--- a/lib/resource-1.3/time/TimeEng.gf
+++ b/lib/resource-1.3/time/TimeEng.gf
@@ -0,0 +1,93 @@
+--# -path=.:present
+concrete TimeEng of Time = CatEng, NumeralEng ** 
+  open Prelude, CatEng, ParadigmsEng, ResEng in {
+
+param DateType = YearMonthType | DayType ;
+
+lincat
+DateTime = SS ;
+
+Date = { s : Str; t : DateType } ;
+Year = SS;
+Month = SS ;
+MonthName = SS ;
+Day = SS ;
+Weekday = N ;
+Hour = SS ;
+Minute = SS ;
+Time = SS ;
+
+[Dig] = { s : CardOrd => Str } ;
+
+lin
+
+DateTimeDateTime date time = { s = date.s ++ "at" ++ time.s };
+
+WeekdayDate day = { s = day.s ! singular ! nominative; t = DayType } ;
+MonthDayDate month day = { s = variants { "the" ++ day.s ++ "of" ++ month.s;
+					  month.s ++ day.s } ;
+			   t = DayType } ;
+MonthDate month = { s = month.s ; t = YearMonthType } ;
+YearDate year = { s = year.s ; t = YearMonthType } ;
+YearMonthDate year month = { s = month.s ++ year.s; t = YearMonthType } ;
+YearMonthDayDate year month day = { s = variants { "the" ++ day.s ++ "of" ++ month.s ++ "," ++ year.s; 
+						   month.s ++ day.s ++ "," ++ year.s }; 
+				    t = DayType } ;
+
+
+NumYear n = {s = n.s ! NCard} ;
+DigYear n = {s = n.s ! NCard} ;
+
+NumMonth n = {s = n.s ! NCard} ;
+DigMonth n = {s = n.s ! NCard} ;
+NameMonth n = { s = n.s } ;
+
+NumDay n = {s = n.s ! NOrd} ;
+DigDay n = {s = n.s ! NOrd} ;
+
+FormalTime = infixSS ["hundred and"] ;
+PastTime h m = ss (m.s ++ "past" ++ h.s) ;
+ToTime h m = ss (m.s ++ "to" ++ h.s) ;
+HourTime h = ss (h.s ++ "o'clock") ;
+ExactTime h = ss (h.s ++ "sharp") ;
+
+NumHour n = {s = n.s ! NCard} ;
+DigHour n = {s = n.s ! NCard} ;
+NumMinute n = {s = n.s ! NCard} ;
+DigMinute n = {s = n.s ! NCard} ;
+
+january = ss "January" ;
+february = ss "February" ;
+march = ss "March" ;
+april = ss "April" ;
+may = ss "May" ;
+june = ss "June" ;
+july = ss "July" ;
+august = ss "August" ;
+september = ss "September" ;
+october = ss "October" ;
+november = ss "November" ;
+december = ss "December" ;
+
+monday = mkN "Monday" ;
+tuesday = mkN "Tuesday" ;
+wednesday = mkN "Wednesday" ;
+thursday = mkN "Thursday" ;
+friday = mkN "Friday" ;
+saturday = mkN "Saturday" ;
+sunday = mkN "Sunday" ;
+
+
+OnDate date = let prep = case date.t of {
+                           YearMonthType => "in";
+			   DayType       => "on"
+		    }
+	       in { s = prep ++ date.s } ;
+
+AtTime time = { s = "at" ++ time.s } ;
+
+
+BaseDig d = { s = \\o => d.s!o } ;
+ConsDig d ds = { s = \\o => d.s!NCard ++ ds.s!o } ;
+
+} ;