mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-09 04:59:31 -06:00
Added some comments about missing stuff in Time grammar, and some variants to TimeSwe.
This commit is contained in:
@@ -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
|
||||
|
||||
-}
|
||||
|
||||
} ;
|
||||
|
||||
@@ -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} ;
|
||||
|
||||
Reference in New Issue
Block a user