Added some comments about missing stuff in Time grammar, and some variants to TimeSwe.

This commit is contained in:
bringert
2005-05-11 08:38:04 +00:00
parent bdbb6e8ab6
commit 2c9e0c6148
2 changed files with 19 additions and 2 deletions

View File

@@ -36,4 +36,20 @@ friday : Weekday ;
saturday : Weekday ;
sunday : Weekday ;
{-
Add:
years
dates: the x:th of y
relative weeks: next week, last week, in x weeks, x weeks ago
relative days: today, tomorrow, yesterday, the day before yesterday,
the day after tomorrow, in x days, x days ago
relative time: in x minutes, in x hours
-}
} ;

View File

@@ -1,3 +1,4 @@
--# -path=.:../scandinavian:../abstract:../../prelude
concrete TimeSwe of Time = NumeralsSwe **
open Prelude, MorphoSwe, CategoriesSwe, ParadigmsSwe in {
@@ -13,8 +14,8 @@ DayDate day = ss (day.s ! singular ! Indef ! nominative) ;
DayTimeDate day time = ss (day.s ! singular ! Indef ! nominative ++ "klockan" ++ time.s) ;
FormalTime = infixSS "och" ;
PastTime h m = ss (m.s ++ "över" ++ h.s) ;
ToTime h m = ss (m.s ++ "i" ++ h.s) ;
PastTime h m = ss (m.s ++ variants { "" ; "minuter" } ++ "över" ++ h.s) ;
ToTime h m = ss (m.s ++ variants { "" ; "minuter" } ++ "i" ++ h.s) ;
ExactTime h = ss (h.s ++ "prick") ;
NumHour n = {s = n.s ! Neutr} ;