pike.git / lib / modules / Calendar.pmod / Event.pmod

version» Context lines:

pike.git/lib/modules/Calendar.pmod/Event.pmod:80:    if (sizeof(with)==1) return with[0];    return SuperEvent(with);    }    SuperEvent ``|(Event with) { return `|(with); }       protected string _sprintf(int t)    {    return (t!='O')?0:sprintf("Event(%s:%O)",id,name);    }    -  array(Event) cast(string to) +  protected array(Event) cast(string to)    { -  if (to[..4]=="array") +  if (to=="array")    return ({this}); -  else -  error("Can't cast to %O\n",to); +  return UNDEFINED;    }       //! Returns a description of the event.    string describe()    {    return "Unknown event";    }   }      //! A non-event.
pike.git/lib/modules/Calendar.pmod/Event.pmod:561:       int md,mn;    int yd;       //! @decl void create(string id, string name, int(1..31) month_day,@    //! int(1..12) month, int extra)    protected void create(string id, string name,    int(1..31) month_day, int(1..12) month,    int ... extra)    { -  this_program::id=id; -  this_program::name=name; +  this::id=id; +  this::name=name;    md=month_day;    mn=month;       yd=M_YD[mn]+md;    if (sizeof(extra)) nd=extra[0];    }       int scan_jd(Calendar.Calendar realm,int jd,int(-1..1) direction)    {    [int y,int yjd,int leap]=gregorian_yjd(jd);
pike.git/lib/modules/Calendar.pmod/Event.pmod:1073:    {    if (_shift) shift=_shift;    }       protected int new_style(int y)    {    int century=y/100;    int solar=century-century/4;    int lunar=(century-15-(century-17)/25)/3;    int epact=(13+11*(y%19)-solar+lunar)%30; - // if (epact<0) epact+=30; // not neccesary for pike + // if (epact<0) epact+=30; // not necessary for pike    int new_moon=31-epact;   // werror("epact: %O\n",epact);   // werror("new_moon: %O\n",new_moon);    if (new_moon<8)    if (epact==24 || epact==25 && (y%19)>10)    new_moon+=29;    else    new_moon+=30;    int full_moon=new_moon+13;    int week_day=(2+y+y/4-solar+full_moon)%7;
pike.git/lib/modules/Calendar.pmod/Event.pmod:1397:    }    Event ``|(Event|SuperEvent with) { return `|(with); }       Event `-(Event|SuperEvent ...subtract)    {    array(Event) res=events-subtract;    if (res==events) return this;    return SuperEvent(res,flags&res,"?");    }    -  array(Event) cast(string to) +  protected array(Event) cast(string to)    { -  if (to[..4]=="array") +  if (to=="array")    return events; -  else -  error("Can't cast to %O\n",to); +  return UNDEFINED;    }       protected string _sprintf(int t)    {    return (t!='O')?0:    (sizeof(events)>5    ? sprintf("SuperEvent(%s:%O,%O..%O [%d])",    id,events[0],events[1],events[-1],    sizeof(events))    : sprintf("SuperEvent(%s:%s)",