msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Use [Dig] instead of Digits in Time, to avoid commas in English.

Browse Source
This commit is contained in:
bjorn
2008-02-25 21:24:12 +00:00
parent de23fe7483
commit 9aa025007a
2 changed files with 14 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
lib/resource/time/Time.gf
View File

@@ -19,6 +19,8 @@ Hour ;
Minute ;
Weekday ;
[Dig]{1};
fun
DateTimeDateTime : Date -> Time -> DateTime ;
@@ -31,14 +33,14 @@ YearMonthDate : Year -> MonthName -> Date ; -- March 1995
YearMonthDayDate : Year -> MonthName -> Day -> Date ; -- January 1st, 2006
NumYear : Numeral -> Year ;
DigYear : Digits -> Year ;
DigYear : [Dig] -> Year ;
NumMonth : Sub100 -> Month ;
DigMonth : Digits -> Month ;
DigMonth : [Dig] -> Month ;
NameMonth : MonthName -> Month ;
NumDay : Sub100 -> Day ;
DigDay : Digits -> Day ;
DigDay : [Dig] -> Day ;
FormalTime : Hour -> Minute -> Time ; -- "two twenty"
PastTime : Hour -> Minute -> Time ; -- "twenty past two"
@@ -47,9 +49,9 @@ HourTime : Hour -> Time ; -- "two o'clock"
ExactTime : Hour -> Time ; -- "sharp"
NumHour : Numeral -> Hour ;
DigHour : Digits -> Hour ;
DigHour : [Dig] -> Hour ;
NumMinute : Numeral -> Minute ;
DigMinute : Digits -> Minute ;
DigMinute : [Dig] -> Minute ;
fun
january : MonthName ;
@@ -80,6 +82,7 @@ fun
OnDate : Date -> Adv ;
AtTime : Time -> Adv ;
{-
Add:

6
lib/resource/time/TimeEng.gf
View File

@@ -17,6 +17,8 @@ Hour = SS ;
Minute = SS ;
Time = SS ;
[Dig] = { s : CardOrd => Str } ;
lin
DateTimeDateTime date time = { s = date.s ++ "at" ++ time.s };
@@ -84,4 +86,8 @@ OnDate date = let prep = case date.t of {
AtTime time = { s = "at" ++ time.s } ;
BaseDig d = { s = \\o => d.s!o } ;
ConsDig d ds = { s = \\o => d.s!NCard ++ ds.s!o } ;
} ;