cf5bf41998-01-17Mirar (Pontus Hagland) inherit Calendar.Gregorian : christ; void create() { month_names=
754e571998-01-17Mirar (Pontus Hagland)  ({"januari","februari","mars","april","maj","juni","juli","augusti", "september","oktober","november","december"});
cf5bf41998-01-17Mirar (Pontus Hagland)  week_day_names=
754e571998-01-17Mirar (Pontus Hagland)  ({"måndag","tisdag","onsdag","torsdag", "fredag","lördag","söndag"});
cf5bf41998-01-17Mirar (Pontus Hagland) } class Week { inherit Calendar.Gregorian.Week; string name() { return "v"+(string)this->number(); } }
1a88eb1998-01-17Mirar (Pontus Hagland)  class Year { inherit Calendar.Gregorian.Year; string name() { if (this->number()<=0) return (string)(1-this->number())+" fk"; return (string)this->number(); }
ad13881998-01-27Mirar (Pontus Hagland)  int leap_day() { if (y>1999) return 31+29-1; // 29 Feb return 31+24-1; // 24 Feb }
1a88eb1998-01-17Mirar (Pontus Hagland) }