1
  
2
  
3
  
4
  
5
  
6
  
7
  
8
  
9
  
10
  
11
  
12
  
13
  
14
  
15
  
16
  
17
  
18
  
19
  
20
  
21
  
22
  
23
  
24
  
25
  
26
  
27
  
28
  
29
  
30
  
31
  
32
  
33
  
34
  
35
  
36
  
37
  
38
  
39
  
40
  
41
  
42
  
43
  
44
  
45
  
46
  
47
  
48
  
49
  
50
  
51
  
52
  
53
  
54
  
55
  
56
  
57
  
58
  
59
  
60
  
61
  
62
  
63
  
64
  
65
  
66
  
67
  
68
  
69
  
70
  
71
  
72
  
73
  
74
  
75
  
76
  
77
  
78
  
79
  
80
  
81
  
82
  
83
  
84
  
85
  
86
  
87
  
88
  
89
  
90
  
91
  
92
  
93
  
94
  
95
  
96
  
97
  
98
  
99
  
100
  
101
  
102
  
103
  
104
  
105
  
106
  
107
  
108
  
109
  
110
  
111
  
112
  
113
  
#pike __REAL_VERSION__ 
 
//! Finnish language locale created by Janne Edelman, Turku Unix Users 
//! Group ry, Turku, Finland 
 
inherit "abstract"; 
 
constant name = "suomi"; 
constant english_name = "finnish"; 
constant iso_639_1 = "fi"; 
constant iso_639_2 = "fin"; 
constant iso_639_2B = "fin"; 
 
constant aliases = ({ "fi", "fin", "finnish", "suomi" }); 
 
constant months = ({ 
  "tammikuu", "helmikuu", "maaliskuu", "huhtikuu", "toukokuu", 
  "kesäkuu", "heinäkuu", "elokuu", "syyskuu", "lokakuu", 
  "marraskuu", "joulukuu" }); 
 
constant days = ({ 
  "Sunnuntai","Maanantai","Tiistai","Keskiviikko", 
  "Torstai","Perjantai","Lauantai" }); 
 
string ordered(int i) 
{ 
  return i+"."; 
} 
 
string date(int timestamp, string|void m) 
{ 
  mapping t1=localtime(timestamp); 
  mapping t2=localtime(time(0)); 
 
 
  if(m=="full") 
    return ctime(timestamp)[11..15]+", "+ 
           ordered(t1["mday"]) + ordered(t1["mon"]+1) + 
           (t1["year"]+1900); 
 
  if(m=="date") 
    return ordered(t1["mday"]) + " " + month(t1["mon"]+1) + "ta"  + 
      " " + (t1["year"]+1900); 
 
  if(m=="time") 
    return ctime(timestamp)[11..15]; 
 
  // !m 
 
  if(t1["yday"] == t2["yday"] && t1["year"] == t2["year"]) 
    return "tänään, " + ctime(timestamp)[11..15]; 
 
  if(t1["yday"]+1 == t2["yday"] && t1["year"] == t2["year"]) 
    return "eilen, "+ ctime(timestamp)[11..15]; 
 
  if(t1["yday"]-1 == t2["yday"] && t1["year"] == t2["year"]) 
    return "huomenna, "+ ctime(timestamp)[11..15]; 
 
  if(t1["year"] != t2["year"]) 
    return (month(t1["mon"]+1) + " " + (t1["year"]+1900)); 
 
  return (ordered(t1["mday"]) + " " + month(t1["mon"]+1) + "ta"); 
} 
 
 
string number(int num) 
{ 
  if(num<0) 
    return "minus "+number(-num); 
  switch(num) 
  { 
   case 0:  return "nolla"; 
   case 1:  return "yksi"; 
   case 2:  return "kaksi"; 
   case 3:  return "kolme"; 
   case 4:  return "neljä"; 
   case 5:  return "viisi"; 
   case 6:  return "kuusi"; 
   case 7:  return "seitsemän"; 
   case 8:  return "kahdeksan"; 
   case 9:  return "yhdeksän"; 
   case 10: return "kymmenen"; 
   case 11: return "yksitoista"; 
   case 12: return "kaksitoista"; 
   case 13: return "kolmetoista"; 
   case 14: return "neljätoista"; 
   case 15: return "viisitoista"; 
   case 16: return "kuusitoista"; 
   case 17: return "seitsemäntoista"; 
   case 18: return "kahdeksantoista"; 
   case 19: return "yhdeksäntoista"; 
   case 20: case 30: case 40: 
   case 50: case 60: case 70: 
   case 80: case 90: 
     return number(num/10)+"kymmentä"; 
   case 21..29: case 31..39: 
   case 51..59: case 61..69: case 71..79: 
   case 81..89: case 91..99: case 41..49: 
     return number((num/10)*10)+number(num%10); 
   case 100..199: return "sata"+number(num%100); 
   case 200..999: return number(num/100)+"sataa"+number(num%100); 
   case 1000..1999: return number(num/1000)+" tuhat"+number(num%1000); 
   case 2000..999999: return number(num/1000)+" tuhatta"+number(num%1000); 
   case 1000000..1999999: 
     return number(num/1000000)+"miljoona"+number(num%1000000); 
   case 2000000..999999999: 
     return number(num/1000000)+"miljoonaa"+number(num%1000000); 
   default: 
    return "paljon"; 
  } 
}