mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-13 14:59:32 -06:00
36 lines
895 B
Plaintext
36 lines
895 B
Plaintext
--# -path=.:../scandinavian:../abstract:../../prelude
|
|
concrete TimeSwe of Time = NumeralsSwe **
|
|
open Prelude, MorphoSwe, CategoriesSwe, ParadigmsSwe in {
|
|
|
|
lincat
|
|
Date = SS ;
|
|
Weekday = N ;
|
|
Hour = SS ;
|
|
Minute = SS ;
|
|
Time = SS ;
|
|
|
|
lin
|
|
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 ++ 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} ;
|
|
NumMinute n = {s = n.s ! Neutr} ;
|
|
|
|
monday = regN "måndag" utrum ;
|
|
tuesday = regN "tisdag" utrum ;
|
|
wednesday = regN "onsdag" utrum ;
|
|
thursday = regN "torsdag" utrum ;
|
|
friday = regN "fredag" utrum ;
|
|
saturday = regN "lördag" utrum ;
|
|
sunday = regN "söndag" utrum ;
|
|
|
|
|
|
|
|
|
|
} ;
|