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
  
class Timezone 
{ 
   constant is_timezone=1; 
 
// seconds to utc, not counting DST 
   static int offset_to_utc;   
    
// timezone name 
   string name; 
 
   static void create(int offset,string _name)  
   {  
      offset_to_utc=offset;  
      name=_name; 
   } 
 
   // seconds to UTC, counting DST 
 
   array(int) tz_ux(int unixtime) 
   { 
      return ({offset_to_utc,name});  
   } 
 
   array(int) tz_jd(int julian_day) 
   { 
      return ({offset_to_utc,name});  
   } 
 
   string _sprintf(int t) { return (t=='O')?"Timezone("+name+")":0; } 
 
   int raw_utc_offset() { return offset_to_utc; } 
}; 
 
Timezone timezone; 
 
class Language 
{ 
   constant is_language=1; 
    
   string month_name_from_number(int n); 
   string month_shortname_from_number(int n); 
   int month_number_from_name(string name); 
 
   string week_day_name_from_number(int n); 
   string week_day_shortname_from_number(int n); 
   int week_day_number_from_name(string name); 
 
   string gregoiran_week_day_name_from_number(int n); 
   string gregorian_week_day_shortname_from_number(int n); 
   int gregorian_week_day_number_from_name(string name); 
 
   string week_name_from_number(int n); 
   int week_number_from_name(string s); 
   string year_name_from_number(int y); 
} 
 
Language language; 
 
this_program set_timezone(string|Timezone t) 
{ 
   this_program r=clone(); 
   if (stringp(t)) 
   { 
      t=master()->resolv("Calendar")["Timezone"][t]; 
      if (!t) error("no timezone %O\n",t); 
   } 
 
   if (!t->is_timezone) 
      error("Not a timezone: %O\n",t); 
   r->timezone=t; 
   return r; 
} 
 
this_program set_language(string|Language lang) 
{ 
   this_program r=clone(); 
   if (stringp(lang)) 
   { 
      lang=master()->resolv("Calendar")["Language"][lang]; 
      if (!lang) lang=master()->resolv("Calendar")["Language"]["ISO"]; 
   } 
   if (!lang->is_language) 
      error("Not a language: %O\n",lang); 
   r->language=lang; 
   return r; 
} 
 
this_program set_rule(Language|Timezone rule) 
{ 
   this_program r=clone(); 
   if (rule->is_timezone) r->timezone=rule; 
   if (rule->is_language) r->language=rule; 
   return r; 
} 
 
this_program clone() 
{ 
   this_program r=object_program(this_object())();    
   r->timezone=timezone; 
   r->language=language; 
   return r; 
} 
 
int(0..1) `==(this_program other) 
{ 
   return  
      other->timezone==timezone && 
      other->language==language; 
}