GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-24 03:52:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

16
lib/resource/abstract/Time.gf
View File

@@ -36,4 +36,20 @@ friday : Weekday ;
saturday : Weekday ; saturday : Weekday ;
sunday : 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
-}
} ; } ;

5
lib/resource/swedish/TimeSwe.gf
View File

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