This commit is contained in:
aarne
2005-11-16 10:28:47 +00:00
parent 16f1631906
commit a62523e09f
14 changed files with 255 additions and 113 deletions

View File

@@ -1,5 +1,5 @@
concrete TimeEng of Time = NumeralsEng **
open Prelude, CategoriesEng, ParadigmsEng in {
open Prelude, CategoriesEng, ParadigmsEng, MorphoEng in {
lincat
Date = SS ;
@@ -17,8 +17,8 @@ PastTime h m = ss (m.s ++ "past" ++ h.s) ;
ToTime h m = ss (m.s ++ "to" ++ h.s) ;
ExactTime h = ss (h.s ++ "sharp") ;
NumHour n = n ;
NumMinute n = n ;
NumHour n = {s = n.s ! NCard} ;
NumMinute n = {s = n.s ! NCard} ;
monday = regN "Monday" ;
tuesday = regN "Tuesday" ;