tuning resource API

lib/resource/swedish/TimeSwe.gf

@@ -0,0 +1,34 @@
+concrete TimeSwe of Time = NumeralsSwe ** 
+  open Prelude, MorphoSwe, ResourceSwe, 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 ++ "över" ++ h.s) ;
+ToTime h m = ss (m.s ++ "i" ++ h.s) ;
+ExactTime h = ss (h.s ++ "prick") ;
+
+NumHour n = n ;
+NumMinute n = n ;
+
+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 ;
+
+
+
+
+} ;