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

version» Context lines:

pike.git/lib/modules/Calendar.pmod/TimeRanges.pmod:1: - // $Id: TimeRanges.pmod,v 1.16 2001/04/27 16:56:59 grubba Exp $ + //! module Calendar    -  + // $Id: TimeRanges.pmod,v 1.17 2001/05/05 15:18:49 mirar Exp $ +    #pike __REAL_VERSION__      #define zero int(0..0)      import ".";      program SuperTimeRange=cSuperTimeRange;      string calendar_name() { return "TimeRanges"; }      object calendar_object=this_object();      string _sprintf(int t) { return (t=='O')?calendar_name():0; }      Ruleset default_rules=    master()->resolv("Calendar")["default_rules"];    -  + //------------------------------------------------------------------------ + //! class TimeRange   //! This is the base class for any time measurement   //! and calendrar information. It defines all the   //! things you can do with a time range, any time   //! period.   //!   //! A TimeRange doubles as both a fixed period in   //! time, and an amount of time. For instance,   //! a week plus a day moves the week-period one day   //! ahead (unaligning it with the week period,   //! and thereby reducing it to just 7 days),   //! no matter when in time the actual day were.   //! -  + //------------------------------------------------------------------------ +    class TimeRange   {    constant is_timerange=1;       Ruleset rules;    -  //! @decl void create("unix", int unixtime) -  //! @decl void create("unix", int unixtime, int seconds_len) + //! method void create("unix",int unixtime) + //! method void create("unix",int unixtime,int seconds_len)   //! Create the timerange from unix time (as given by -  //! @tt{time(2)@}), with eventually the size of + //! <tt>time(2)</tt>), with eventually the size of   //! the time range in the same unit, seconds. -  -  //! @decl void create("julian", int|float julian_day) + //! + //! method void create("julian",int|float julian_day)   //! Create the timerange from a julian day, the   //! standardized method of counting days. If   //! the timerange is more then a day, it will   //! at least enclose the day. -  -  //! @decl void create(TimeRange from) + //! + //! method void create(TimeRange from)   //! Create the timerange from another timerange.   //!   //! This is useful when converting objects from   //! one calendar to another. Note that the ruleset will be   //! transferred to the new object, so this method   //! can't be used to convert between timezones -  //! or languges - use @[set_timezone()], -  //! @[set_language()] or @[set_ruleset()] + //! or languges - use <ref>set_timezone</ref>, + //! <ref>set_language</ref> or <ref>set_ruleset</ref>   //! to achieve this.   //! -  //! @note + //! note:    //! The size of the new object may be inexact;    //! a Month object can't comprehend seconds, for instance.       static void create_unixtime(int unixtime,int len);    static void create_unixtime_default(int unixtime);    static void create_julian_day(int jd);       void create(mixed ...args)    {    if (sizeof(args)) switch (args[0])
pike.git/lib/modules/Calendar.pmod/TimeRanges.pmod:133:    create("julian_r",jd,other->ruleset());    }    else if (other->unix_time)    create("unix_r",other->unix_time(),other->ruleset());    else    error("Can't convert %O->%s.%O\n",other,    calendar_name(),    object_program(this_object()));    }    -  //! @decl TimeRange set_size(TimeRange size) -  //! @decl TimeRange set_size(int n, TimeRange size) + //! method TimeRange set_size(TimeRange size) + //! method TimeRange set_size(int n,TimeRange size)   //! Gives back a new (or the same, if the size matches)   //! timerange with the new size. -  //! If @[n] are given, the resulting size -  //! will be @[n] amounts of the given size. -  //! @note + //! If <i>n</i> are given, the resulting size + //! will be <i>n</i> amounts of the given size. + //! note:    //! A negative size is not permitted; a zero one are.      // virtual    static TimeRange _set_size(int n,TimeRange x);       TimeRange set_size(function|TimeRange|int(0..0x7fffffff) a,    void|function|TimeRange b)    {    function|object(TimeRange) x;    int(0..0x7fffffff) n;
pike.git/lib/modules/Calendar.pmod/TimeRanges.pmod:164:    else    x=a,n=1;    else    x=b,n=a;    if (functionp(x)) x=promote_program(x);    if (n<0)    error("Negative size (%d)\n",n);    return _set_size(n,[object(TimeRange)]x);    }    -  //!@decl TimeRange add(int n, void|TimeRange step) -  //! Calculates the (promoted) time period n steps away; -  //! if @[step] is not specified, the step's length is of the + //! method TimeRange add(int n,void|TimeRange step) + //! calculates the (promoted) time period n steps away; + //! if no step is given, the step's length is of the   //! same length as the called time period.   //!   //! It is not recommended to loop by adding the increment   //! time period to a shorter period; this can cause faults,   //! if the shorter time period doesn't exist in the incremented   //! period. (Like week 53, day 31 of a month or the leap day of a year.)   //!   //! Recommended use are like this: -  //! @code{ + //! <pre>   //! // loop over the 5th of the next 10 months   //! TimeRange month=Month()+1;   //! TimeRange orig_day=month()->day(5); -  //! for (int i=0; i<10; i++) + //! for (int i=0; i&lt;10; i++)   //! {   //! month++;   //! TimeRange day=month->place(orig_day); -  //! @i{...use day...@} + //! <i>...use day...</i>   //! } -  //! @} + //! </pre>      // virtual    static this_program _add(int n,this_program step);       this_program add(function|this_program|int a,    void|function|this_program b)    {    function|object(this_program) x;    int n;    if (!b)
pike.git/lib/modules/Calendar.pmod/TimeRanges.pmod:207:    x=[function|object(this_program)]this_object(),    n=[int]a;    else    x=a,n=1;    else    x=b,n=a;    if (functionp(x)) x=promote_program(x);    return _add(n,[object(this_program)]x);    }    -  //! @decl TimeRange place(TimeRange this) -  //! @decl TimeRange place(TimeRange this, int(0..1) force) + //! method TimeRange place(TimeRange this) + //! method TimeRange place(TimeRange this,int(0..1) force)   //! This will place the given timerange in this timerange,   //! for instance, day 37 in the year - -  //! @tt{Year(1934)->place(Day(1948 d37)) => Day(1934 d37)@}. + //! <tt>Year(1934)->place(Day(1948 d37)) => Day(1934 d37)</tt>.   //! -  //! @note + //! note:   //! The rules how to place things in different timeranges   //! can be somewhat 'dwim'.      // virtual    TimeRange place(TimeRange what,void|int force);    -  //! @decl TimeRange `+(int n) -  //! @decl TimeRange `+(TimeRange offset) -  //! @decl TimeRange `-(int m) -  //! @decl TimeRange `-(TimeRange x) -  //! These calculate the (promoted) time period -  //! either @[n] steps away or at a given @[offset]. -  //! -  //! These functions use @[add()] to really -  //! perform the work: -  //! @pre{ + //! method TimeRange `+(int n) + //! method TimeRange `+(TimeRange offset) + //! method TimeRange `-(int m) + //! method TimeRange `-(TimeRange x) + //! This calculates the (promoted) time period + //! either n step away or with a given offset. + //! These functions does use <ref>add</ref> to really + //! do the job: + //! <pre>   //! t+n t->add(n) t is a time period   //! t-n t->add(-n) offset is a time period   //! t+offset t->add(1,offset) n is an integer   //! t-offset t->add(-1,offset)   //! n+t t->add(n)   //! n-t illegal   //! offset+t offset->add(1,t) | note this!   //! offset-t offset->add(-1,t) | -  //! @} + //! </pre>   //!   //! Mathematic rules: -  //! @pre{ + //! <pre>   //! x+(t-x) == t x is an integer or a time period   //! (x+t)-x == t t is a time period   //! (t+x)-x == t   //! o-(o-t) == t o is a time period   //! t++ == t+1   //! t-- == t-1 -  //! @} + //! </pre>   //! -  //! @note + //! note:   //! a-b does not give the distance between the start of a and b. -  //! Use the @[distance()] function to calculate that. + //! Use the <ref>distance</ref>() function to calculate that.   //! -  //! The integer used to @[`+()], @[`-()] and @[add()] are the @i{number@} -  //! of steps the motion will be. It does @i{never@} represent -  //! any @i{fixed@} amount of time, like seconds or days. + //! The integer used to `+, `- and add are the <i>number</i> + //! of steps the motion will be. It does <i>never</i> represent + //! any <i>fixed</i> amount of time, like seconds or days.       TimeRange `+(program|this_program|int n)    {    if (objectp(n)) return add(1,n);    return add(n);    }       TimeRange ``+(int n)    {    return add(n);    }       TimeRange `-(TimeRange|program|int n)    {    if (objectp(n)) return add(-1,n);    return add(-n);    }    -  //! @decl TimeRange next() -  //! @decl TimeRange prev() -  //! These are compatibility and convinience functions; -  //! @code{a->next()@} is exactly the same as @code{a + 1@}; -  //! @code{a=a->next()@} is the same as @code{a++@}. + //! method TimeRange next() + //! method TimeRange prev() + //! Next and prev are compatible and convinience functions; + //! <tt>a->next()</tt> is exactly the same as <tt>a+1</tt>; + //! <tt>a=a->next()</tt> is <tt>a++</tt>.       TimeRange next()    {    return this_object()+1;    }       TimeRange prev()    {    return this_object()-1;    }    -  //! @decl TimeRange `*(int n) + //! method TimeRange `*(int n)   //! This changes the amount of time in -  //! the time period. @code{t * 17@} is -  //! the same as doing @code{t->@[set_size](t, 17)@}. + //! the time period. <tt>t*17</tt> is + //! the same as doing <tt>t-><ref>set_size</ref>(t,17)</tt>.       function ``* = `*;    TimeRange `*(int n)    {    return set_size(n,this_object());    }    -  //! @decl array(TimeRange) `/(int n) -  //! @decl array(TimeRange) split(int n) + //! method array(TimeRange) `/(int n) + //! method array(TimeRange) split(int n)   //! This divides the called timerange into -  //! @[n] pieces. The returned timerange type + //! n pieces. The returned timerange type   //! is not neccesarily of the same type as the called one.   //! -  //! @bugs + //! known bugs:   //! These are currently not defined for -  //! @[SuperTimeRange]. + //! <ref to=SuperTimeRange>supertimeranges</ref>.    -  //! @decl int `/(TimeRange with) -  //! @decl int how_many(TimeRange with) + //! method int `/(TimeRange with) + //! method int how_many(TimeRange with)   //! This calculates how many instances of the given   //! timerange has passed during the called timerange.   //!   //! For instance, to figure out your age,   //! create the timerange of your lifespan, and divide -  //! with the instance of a @[YMD.Year]. + //! with the instance of a <ref to=YMD.Year>Year</ref>.      // virtual    array(TimeRange) split(int n);       int how_many(function|TimeRange with)    {    if (functionp(with)) with=promote_program(with);   // default method; not optimized - guessing       TimeRange start=beginning();
pike.git/lib/modules/Calendar.pmod/TimeRanges.pmod:393:    if (low>high) return high; // can't go further    }    }       array(TimeRange)|int `/(TimeRange|program|int x)    {    if (intp(x)) return split(x);    else return how_many(x);    }    -  //! @decl int offset_to(TimeRange x) + //! method int offset_to(TimeRange x)   //! Calculates offset to x; this compares   //! two timeranges and gives the integer offset   //! between the two starting points.   //!   //! This is true for suitable a and b: -  //! @code{a+a->@[offset_to](b)==b@} + //! <tt>a+a->offset_to(b)==b</tt>   //!   //! By suitable means that a and b are of the same   //! type and size. This is obviously true only   //! if a+n has b as a possible result for any n.       int offset_to(TimeRange x)    {    if (x==this_object()) return 0;    if (x<this_object())    return -(x->distance(this_object())/this_object());    return this_object()->distance(x)/this_object();    }    -  //! @decl TimeRange beginning() -  //! @decl TimeRange end() + //! method TimeRange beginning() + //! method TimeRange end()   //! This gives back the zero-sized beginning   //! or end of the called time period.   //!   //! rule: -  //! @code{range(t->beginning(),t->end()) == t@} + //! <tt>range(t->beginning(),t->end())==t</tt>       TimeRange beginning();    TimeRange end();    -  //! @decl TimeRange range(TimeRange other) -  //! @decl TimeRange space(TimeRange other) -  //! @decl TimeRange distance(TimeRange other) + //! method TimeRange range(TimeRange other) + //! method TimeRange space(TimeRange other) + //! method TimeRange distance(TimeRange other)   //! Derives different time periods in between   //! the called timerange and the parameter timerange.   //! -  //! @pre{ -  //! <- the past the future -> -  //! |--called--| |--other--| -  //! >------------ range -----------< -  //! >--space--< -  //! >----- distance -----< -  //! @} + //! <pre> + //! &gt;- the past the future -&lt; + //! |--called--| |--other--| + //! &gt;------------ range -----------&lt; + //! &gt;--space--&lt; + //! &gt;----- distance -----&lt; + //! </pre>   //! -  //! @seealso -  //! @[add()], @[TimeRanges->range()], @[TimeRanges->space()], -  //! @[TimeRanges->distance()] + //! See also: add, TimeRanges.range, TimeRanges.space, TimeRanges.distance      // virtual    TimeRange distance(TimeRange to);       TimeRange range(TimeRange with)    {    return distance(with->end());    }       TimeRange space(TimeRange to)    {    return end()->distance(to->beginning());    }       -  //! @decl int(0..1) strictly_preceeds(TimeRange what); -  //! @decl int(0..1) preceeds(TimeRange what); -  //! @decl int(0..1) is_previous_to(TimeRange what); -  //! @decl int(0..1) overlaps(TimeRange what); -  //! @decl int(0..1) contains(TimeRange what); -  //! @decl int(0..1) equals(TimeRange what); -  //! @decl int(0..1) is_next_to(TimeRange what); -  //! @decl int(0..1) succeeds(TimeRange what); -  //! @decl int(0..1) strictly_succeeds(TimeRange what); + //! method int(0..1) strictly_preceeds(TimeRange what); + //! method int(0..1) preceeds(TimeRange what); + //! method int(0..1) is_previous_to(TimeRange what); + //! method int(0..1) overlaps(TimeRange what); + //! method int(0..1) contains(TimeRange what); + //! method int(0..1) equals(TimeRange what); + //! method int(0..1) is_next_to(TimeRange what); + //! method int(0..1) succeeds(TimeRange what); + //! method int(0..1) strictly_succeeds(TimeRange what);   //! These methods exists to compare two periods   //! of time on the timeline.   //! -  //! @pre{ + //! <pre>   //! case predicates   //! -  //! <-- past future -> + //! &lt;-- past future -&gt;    //!    //! |----A----| A strictly preceeds B,    //! |----B----| A preceeds B    //!    //! |----A----| A strictly preceeds B, A preceeds B,    //! |----B----| A is previous to B, A touches B    //!    //! |----A----| A preceeds B,    //! |----B----| A overlaps B, A touches B    //!
pike.git/lib/modules/Calendar.pmod/TimeRanges.pmod:503:    //!    //! |----A----| A succeeds B,    //! |----B----| A overlaps B, A touches B    //!    //! |----A----| A strictly succeeds B, A succeeds B    //! |----B----| A is next to B, A touches B    //!    //! |----A----| A strictly succeeds B,    //! |----B----| A succeeds B    //! -  //! @} + //! </pre>   //! -  //! @note + //! note:   //! These methods only check the range of the first to the   //! last time in the period;   //! use of combined time periods (<ref>SuperTimeRange</ref>s)   //! might not give you the result you want.   //! -  //! @seealso -  //! @[`&()] + //! see also: `&    -  +    //- internal method   //- returns [-1,0,1] for comparison between   //- (in order) begin/begin,begin/end,end/begin and end/end      // virtual, default    array(int(-1..1)) _compare(TimeRange what)    {    if (objectp(what) && what->is_supertimerange)    {    array(int(-1..1)) cmp=what->_compare(this_object());
pike.git/lib/modules/Calendar.pmod/TimeRanges.pmod:628:    array(int(-1..1)) a=_compare(what);    return !a[BEGIN_BEGIN];    }       int (0..1) ends_with(TimeRange what)    {    array(int(-1..1)) a=_compare(what);    return !a[END_END];    }    -  //! @decl int(0..1) `<(TimeRange compared_to) -  //! @decl int(0..1) `>(TimeRange compared_to) -  //! These operators roughly sort on the + //! method int(0..1) `<(TimeRange compared_to) + //! method int(0..1) `>(TimeRange compared_to) + //! These operators sorts roughty on the    //! periods place in time. The major use    //! might be to get multiset to work,    //! besides sorting events clearly defined in time.       int(0..1) `<(TimeRange compared_to)    {    array(int(-1..1)) a=_compare(compared_to);    if (a[0]<0) return 1;    if (a[0]>0) return 0;    if (a[3]<0) return 1;
pike.git/lib/modules/Calendar.pmod/TimeRanges.pmod:653:       int(0..1) `>(TimeRange compared_to)    {    array(int(-1..1)) a=_compare(compared_to);    if (a[0]>0) return 1;    if (a[0]<0) return 0;    if (a[3]>0) return 1;    return 0;    }    -  //! @decl int(0..1) `==(TimeRange compared_to) -  //! @decl int(0..1) _equal(TimeRange compared_to) -  //! These two overload the operator @[predef::`==()] and -  //! the result of the @[predef::equal()] function. + //! method int(0..1) `==(TimeRange compared_to) + //! method int(0..1) _equal(TimeRange compared_to) + //! These two overloads the operator <tt>`==</tt> and + //! the result of the <tt>equal</tt> function.   //! -  //! a @tt{==@} b is considered true if the two + //! a<tt>==</tt>b is considered true if the two   //! timeranges are of the same type, have the same rules   //! (language, timezone, etc) and are the same timerange.   //! -  //! @code{@[equal](a, b)@} is considered + //! <tt>equal(</tt>a<tt>,</tt>b<tt>)</tt> are considered   //! true if a and b are the same timerange, exactly the same -  //! as the @[equals()] method. + //! as the <ref>equals</ref> method.   //! -  //! The @[__hash()] method is also present, + //! The <tt>__hash</tt> method is also present,   //! to make timeranges possible to use as keys in mappings.   //! -  //! @bugs -  //! @[_equal()] is currently not possible to overload, -  //! due to wierd bugs, so @[predef::equal()] uses @[`==()] for now. + //! known bugs: + //! _equal is not currently possible to overload, + //! due to wierd bugs, so equal uses `== for now.       int(0..1) `==(TimeRange what)    {    return object_program(what)==object_program(this_object()) &&    what->ruleset()==ruleset() &&    equals(what);    }       int __hash();      // int(0..1) _equal(TimeRange what)   // {   // return equals(what);   // }    -  //! @decl TimeRange `&(TimeRange with) + //! method TimeRange `&(TimeRange with)   //! Gives the cut on the called time period   //! with another time period. The result is   //! zero if the two periods doesn't overlap. -  //! @pre{ -  //! <- the past the future -> -  //! |-------called-------| -  //! |-------other--------| -  //! >----- cut -----< -  //! @} + //! <pre> + //! &gt;- the past the future -&lt; + //! |-------called-------| + //! |-------other--------| + //! &gt;----- cut -----&lt; + //! </pre>       function ``& = `&;    TimeRange|zero `&(TimeRange with, mixed ...extra)    {    if (with->is_nulltimerange)    return with;    array(int(-1..1)) a=_compare(with);    if (a[END_BEGIN]<0 || a[BEGIN_END]>0)    return nulltimerange; // no overlap, no extra   
pike.git/lib/modules/Calendar.pmod/TimeRanges.pmod:724:      // to the first end    if (a[END_END]<0) to=end(); else to=with->end();      // compute    TimeRange res=from->distance(to);    if (sizeof(extra)) return predef::`&(res,@extra);    return res;    }    -  //! @decl TimeRange `|(TimeRange with) + //! method TimeRange `|(TimeRange with)   //! Gives the union on the called time period   //! and another time period. -  //! @pre{ -  //! >- the past the future -< -  //! |-------called-------| -  //! |-------other--------| -  //! <----------union----------> -  //! @} + //! <pre> + //! &gt;- the past the future -&lt; + //! |-------called-------| + //! |-------other--------| + //! &lt;----------union----------&gt; + //! </pre>       function ``| = `|;    TimeRange `|(TimeRange with,mixed ...extra)    {    if (with->is_nulltimerange)    return sizeof(extra)?`|(@extra):this_object();    array(int(-1..1)) a=_compare(with);    TimeRange from,to;       if (a[END_BEGIN]<0 || a[BEGIN_END]>0)
pike.git/lib/modules/Calendar.pmod/TimeRanges.pmod:761:       // to the last end    if (a[END_END]>0) to=this_object(); else to=with;    // compute    from=from->range(to);    }    if (sizeof(extra)) return predef::`|(from,@extra);    return from;    }    -  //! @decl TimeRange `^(TimeRange with) + //! method TimeRange `^(TimeRange with)   //! Gives the exclusive-or on the called time period   //! and another time period, ie the union without   //! the cut. The result is zero if the   //! two periods were the same. -  //! @pre{ -  //! >- the past the future -< -  //! |-------called-------| -  //! |-------other--------| -  //! <----| |----> - exclusive or -  //! @} + //! <pre> + //! &gt;- the past the future -&lt; + //! |-------called-------| + //! |-------other--------| + //! &lt;----| |----> - exclusive or + //! </pre>       function ``^ = `^;    TimeRange `^(TimeRange with,mixed ... extra)    {    if (with->is_supertimerange)    return `^(with,this_object(),@extra); // let it handle that...    if (with->is_nulltimerange)    return sizeof(extra)?`^(@extra):this_object();       TimeRange res;
pike.git/lib/modules/Calendar.pmod/TimeRanges.pmod:817:    second=end()->range(with);    else    second=with->end()->range(this_object());    res=first|second;    }    // done    if (sizeof(extra)) return `^(res,@extra);    return res;    }    -  //! @decl TimeRange subtract(TimeRange what) + //! method TimeRange subtract(TimeRange what)   //! This subtracts a period of time from another; -  //! @pre{ -  //! >- the past the future -< + //! <pre> + //! &gt;- the past the future -&lt;   //! |-------called-------|   //! |-------other--------| -  //! <----> <- called->subtract(other) + //! &lt;----&gt; &lt;- called-&gt;subtract(other)   //!   //! |-------called-------|   //! |---third---| -  //! <----> <---> <- called->subtract(third) -  //! @} + //! &lt;----&gt; &lt;---> &lt;- called->subtract(third) + //! </pre>       TimeRange subtract(TimeRange what,mixed ... extra)    {    array(int(-1..1)) a=_compare(what);       if (a[END_BEGIN]<=0 || a[BEGIN_END]>=0)    return sizeof(extra)?subtract(@extra):this_object(); // no overlap       if (what->is_supertimerange)    {
pike.git/lib/modules/Calendar.pmod/TimeRanges.pmod:872:   // beginning(),what->beginning(),   // what->end(),end());   // it's inside us    res=predef::`|(distance(what),    what->end()->range(this_object()));    }    if (sizeof(extra)) return res->subtract(@extra);    return res;    }    -  //! @decl TimeRange set_ruleset(Ruleset r) -  //! @decl TimeRange ruleset(Ruleset r) + //! method TimeRange set_ruleset(Ruleset r) + //! method TimeRange ruleset(Ruleset r)   //! Set or get the current ruleset. -  //! @note + //! note:   //! this may include timezone shanges,   //! and change the time of day.       TimeRange set_ruleset(Ruleset r);    Ruleset ruleset()    {    return rules;    }    -  //! @decl TimeRange set_timezone(Timezone tz) -  //! @decl TimeRange set_timezone(string tz) -  //! @decl TimeZone timezone() + //! method TimeRange set_timezone(Timezone tz) + //! method TimeRange set_timezone(string tz) + //! method TimeZone timezone()   //! Set or get the current timezone (including dst) rule.   //! -  //! @note + //! note:   //! The time-of-day may very well   //! change when you change timezone.   //!   //! To get the time of day for a specified timezone,   //! select the timezone before getting the time of day:   //! -  //! @tt{Year(2003)->...->set_timezone(TimeZone.CET)->...->hour(14)->...@} + //! <tt>Year(2003)-&gt;...-&gt;set_timezone(TimeZone.CET)-&gt;...-&gt;hour(14)-&gt;...</tt>   //!       TimeRange set_timezone(string|Ruleset.Timezone tz)    {    return set_ruleset(rules->set_timezone(tz));    }       Ruleset.Timezone timezone()    {    return rules->timezone;    }    -  //! @decl TimeRange set_language(Language lang) -  //! @decl TimeRange set_language(string lang) -  //! @decl Language language() + //! method TimeRange set_language(Language lang) + //! method TimeRange set_language(string lang) + //! method Language language()   //! Set or get the current language rule.       TimeRange set_language(string|Ruleset.Language lang)    {    return set_ruleset(rules->set_language(lang));    }       Ruleset.Language language()    {    return rules->language;    }    -  //! @decl Calendar calendar() + //! method Calendar calendar()   //! Simply gives back the calendar in use, for instance   //! Calendar.ISO or Calendar.Discordian.       object calendar()    {    return calendar_object;    }   }      // ----------------------------------------------------------------    -  + //! + //! module Calendar   //! class SuperTimeRange   //! This class handles the cases where you have a time   //! period with holes. These can be created by the   //! <tt>^</tt> or <tt>|</tt> operators on time ranges. -  + //! inherits TimeRange +    class cSuperTimeRange   { -  //! inherits TimeRange +     inherit TimeRange;       constant is_supertimerange=1;       array parts;    -  //! @decl void create(array(TimeRange) parts) + //! method void create(array(TimeRange) parts)    //! A SuperTimeRange must have at least two parts,    //! two time ranges. Otherwise, it's either not    //! a time period at all or a normal time period.       void create(array(TimeRange) _parts)    {    if (sizeof(_parts->is_supertimerange-({0})))    error("one part is super\n%O\n",_parts);    if (sizeof(_parts)<2)    error("SuperTimeRange: Too few time periods to constructor\n");
pike.git/lib/modules/Calendar.pmod/TimeRanges.pmod:1130:    return 0;    }       TimeRange set_timezone(string|Timezone tz)    {   // fixme?    return `|(@map(parts,"set_timezone",tz));    }   }    - //! @decl TimeRange nulltimerange + //! constant TimeRange nulltimerange   //! This represents the null time range,   //! which, to differ from the zero time range   //! (the zero-length time range), isn't placed   //! in time. This is the result of for instance - //! @[`&()] between two strict non-overlapping + //! <ref>`&</ref> between two strict non-overlapping   //! timeranges - no time at all.   //! - //! It has a constant, @[is_nulltimerange], which - //! is non-zero. @[`!()] on this timerange is true. + //! It has a constant, <tt>is_nulltimerange</tt>, which + //! is non-zero. <tt>`!</tt> on this timerange is true.         program NullTimeRange=cNullTimeRange;   static class cNullTimeRange   {    inherit TimeRange;       constant is_nulltimerange=1;      // overload