tuning resource API

lib/resource/abstract/Time.gf

@@ -1,3 +1,39 @@
-abstract Time = {
+abstract Time = Numerals ** {
+
+-- Time grammar Abstract syntax. Modified by AR from Karin Cavallin.
+
+cat 
+
+Date ;
+Time ; 
+Hour ; 
+Minute ; 
+Weekday ;
+
+fun
+
+-- The variants: "two twenty", "twenty past two", "twenty to two"
+
+DayDate     : Weekday -> Date ;
+DayTimeDate : Weekday -> Time -> Date ;
+
+FormalTime : Hour -> Minute -> Time ;
+PastTime   : Hour -> Minute -> Time ;
+ToTime     : Hour -> Minute -> Time ;
+ExactTime  : Hour -> Time ;
+
+-- These range from 1 to 99 and are thus overgenerating.
+
+NumHour    : Sub100 -> Hour ;
+NumMinute  : Sub100 -> Minute ;
+
+fun
+monday : Weekday ;
+tuesday : Weekday ;
+wednesday : Weekday ;
+thursday : Weekday ;
+friday : Weekday ;
+saturday : Weekday ;
+sunday : Weekday ;
 
 } ;