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

version» Context lines:

pike.git/lib/modules/Calendar.pmod/Stardate.pmod:1:   #pike __REAL_VERSION__      //! This implements TNG stardates.    - inherit .TimeRanges; -  +    static constant TNGSTARPERJULIAN=1000.0/365.2425;   static constant TNGSTARPERSECOND=TNGSTARPERJULIAN/86400;   static constant TNG0JULIAN=2569518.5;   static constant TNG0UNIX=11139552000;      string calendar_name() { return "Stardate"; }      function(mixed...:cTick) Tick=cTick;      //!   class cTick   { -  inherit TimeRange; +  inherit Calendar.TimeRange;       constant is_stardate=1;       float t;    float len;       //! @decl void create(mixed ... args)    //! @decl void create(int|float date)    //! @decl void create()    //! Apart from the standard creation methods
pike.git/lib/modules/Calendar.pmod/Stardate.pmod:53:    {    rules=args[1];    t=args[2];    len=args[3];    return;    }    break;    case 1:    if (intp(args[0]) || floatp(args[0]))    { -  rules=default_rules; +  rules=Calendar.default_rules;    t=(float)args[0];    len=0.0;    return;    }    break;    case 0: -  rules=default_rules; +  rules=Calendar.default_rules;    create_unixtime_default(time());    return;    } -  rules=default_rules; +  rules=Calendar.default_rules;    ::create(@args);    }       static void create_unixtime(int unixtime,int seconds)    {    t=(unixtime-TNG0UNIX)*TNGSTARPERSECOND;    len=seconds*TNGSTARPERSECOND;    }       static void create_unixtime_default(int unixtime)
pike.git/lib/modules/Calendar.pmod/Stardate.pmod:124:    int unix_time()    {    return ((int)(t/TNGSTARPERSECOND))+TNG0UNIX;    }       float julian_day()    {    return ((int)(t/TNGSTARPERJULIAN))+TNG0JULIAN;    }    -  static TimeRange _add(int n,void|this_program step) +  static Calendar.TimeRange _add(int n,void|this_program step)    {    float x;    if (!step)    x=len;    else    {    if (!step->is_stardate)    error("add: Incompatible type %O\n",step);    x=step->len;    }          if (n&&x)    return Tick("stardate",rules,t+x,len);    return this_object();    }    -  static void convert_from(TimeRange other) +  static void convert_from(Calendar.TimeRange other)    {    if (other->unix_time)    create_unixtime_default(other->unix_time());    else    ::convert_from(other);    if (other->is_stardate)    {    t=other->t;    len=other->len;    }    else if (other->number_of_seconds)    len=TNGSTARPERSECOND*other->number_of_seconds();    else if (other->number_of_days)    len=TNGSTARPERJULIAN*other->number_of_days();    else    len=0.0;    }    -  static TimeRange _set_size(int n,TimeRange x) +  static Calendar.TimeRange _set_size(int n, Calendar.TimeRange x)    {    if (!x->is_stardate)    error("distance: Incompatible type %O\n",x);    return Tick("stardate",rules,t,x->len);    }    -  TimeRange place(TimeRange what,void|int force) +  Calendar.TimeRange place(Calendar.TimeRange what,void|int force)    {   // can't do this    return this_object();    }    -  array(TimeRange) split(int n) +  array(Calendar.TimeRange) split(int n)    {    if (!n) return ({this_object()}); // foo       float z=t;    float l=len/n; -  array(TimeRange) res=({}); +  array(Calendar.TimeRange) res=({});       while (n--)    res+=({Tick("stardate",rules,z,l)}),z+=l;       return res;    }    -  TimeRange beginning() +  Calendar.TimeRange beginning()    {    if (!len) return this_object();    return Tick("stardate",rules,t,0.0);    }    -  TimeRange end() +  Calendar.TimeRange end()    {    if (!len) return this_object();    return Tick("stardate",rules,t+len,0.0);    }    -  TimeRange distance(TimeRange to) +  Calendar.TimeRange distance(Calendar.TimeRange to)    {    if (!to->is_stardate)    error("distance: Incompatible type %O\n",to);    if (to->t<t)    error("negative distance\n");    return Tick("stardate",rules,t,to->t-t);    }    -  array(int(-1..1)) _compare(TimeRange with) +  array(int(-1..1)) _compare(Calendar.TimeRange with)    {    float b1=t;    float e1=t+len;    float b2,e2;    if (with->is_stardate)    b2=with->t,e2=b2+with->len;    else    ::_compare(with);   #define CMP(A,B) ( ((A)<(B))?-1:((A)>(B))?1:0 )    return ({ CMP(b1,b2),CMP(b1,e2),CMP(e1,b2),CMP(e1,e2) });    }       int __hash() { return (int)t; }    -  TimeRange set_ruleset(.Ruleset r) +  Calendar.TimeRange set_ruleset(.Ruleset r)    {    return Tick("stardate",r,t,len);    }       string _sprintf(int t, mapping m)    {    switch (t)    {    case 'O':    if (len!=0.0)