mtime.mal

一个内存数据库的源代码这是服务器端还有客户端

#line 202 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/atoms/mtime.mx"



#line 236 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/atoms/mtime.mx"
atom date :int;
command date(s:date):date
address MTIMEdate_date
comment "Noop routine.";

command fromstr() :date 
address date_fromstr;
command tostr() :str 
address date_tostr;


#line 157 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/atoms/mtime.mx"
command ==(v:date,w:date):bit 
address MTIMEdate_EQ
comment "Equality of two dates";
command !=(v:date,w:date):bit 
address MTIMEdate_NEQ
comment "Equality of two dates";
command <(v:date,w:date):bit 
address MTIMEdate_LT
comment "Equality of two dates";
command <=(v:date,w:date):bit 
address MTIMEdate_LE
comment "Equality of two dates";
command >(v:date,w:date):bit 
address MTIMEdate_GT
comment "Equality of two dates";
command >=(v:date,w:date):bit 
address MTIMEdate_GE
comment "Equality of two dates";
command isnil(v:date):bit 
address MTIMEdate_isnil
comment "Nil test for date value";

module mtime;
command calc.==(v:date,w:date):bit 
address MTIMEdate_EQ
comment "Equality of two dates";
command calc.!=(v:date,w:date):bit 
address MTIMEdate_NEQ
comment "Equality of two dates";
command calc.<(v:date,w:date):bit 
address MTIMEdate_LT
comment "Equality of two dates";
command calc.<=(v:date,w:date):bit 
address MTIMEdate_LE
comment "Equality of two dates";
command calc.>(v:date,w:date):bit 
address MTIMEdate_GT
comment "Equality of two dates";
command calc.>=(v:date,w:date):bit 
address MTIMEdate_GE
comment "Equality of two dates";
command calc.isnil(v:date):bit 
address MTIMEdate_isnil
comment "Nil test for date value";


#line 246 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/atoms/mtime.mx"



#line 265 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/atoms/mtime.mx"
atom daytime :int;
command fromstr():daytime 
address daytime_tz_fromstr;
command tostr():str 
address daytime_tostr;


#line 157 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/atoms/mtime.mx"
command ==(v:daytime,w:daytime):bit 
address MTIMEdaytime_EQ
comment "Equality of two daytimes";
command !=(v:daytime,w:daytime):bit 
address MTIMEdaytime_NEQ
comment "Equality of two daytimes";
command <(v:daytime,w:daytime):bit 
address MTIMEdaytime_LT
comment "Equality of two daytimes";
command <=(v:daytime,w:daytime):bit 
address MTIMEdaytime_LE
comment "Equality of two daytimes";
command >(v:daytime,w:daytime):bit 
address MTIMEdaytime_GT
comment "Equality of two daytimes";
command >=(v:daytime,w:daytime):bit 
address MTIMEdaytime_GE
comment "Equality of two daytimes";
command isnil(v:daytime):bit 
address MTIMEdaytime_isnil
comment "Nil test for daytime value";

module mtime;
command calc.==(v:daytime,w:daytime):bit 
address MTIMEdaytime_EQ
comment "Equality of two daytimes";
command calc.!=(v:daytime,w:daytime):bit 
address MTIMEdaytime_NEQ
comment "Equality of two daytimes";
command calc.<(v:daytime,w:daytime):bit 
address MTIMEdaytime_LT
comment "Equality of two daytimes";
command calc.<=(v:daytime,w:daytime):bit 
address MTIMEdaytime_LE
comment "Equality of two daytimes";
command calc.>(v:daytime,w:daytime):bit 
address MTIMEdaytime_GT
comment "Equality of two daytimes";
command calc.>=(v:daytime,w:daytime):bit 
address MTIMEdaytime_GE
comment "Equality of two daytimes";
command calc.isnil(v:daytime):bit 
address MTIMEdaytime_isnil
comment "Nil test for daytime value";


#line 271 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/atoms/mtime.mx"




#line 298 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/atoms/mtime.mx"
atom timestamp :lng;
command fromstr():timestamp 
address timestamp_fromstr;

command tostr():str 
address timestamp_tostr;
command unix_epoch():timestamp
address MTIMEunix_epoch
comment "The Unix epoch time (00:00:00 UTC on January 1, 1970)";
command epoch():timestamp
address MTIMEepoch
comment "unix-time (epoch) support: seconds since the Unix epoch";
command epoch(t:timestamp):lng 
address MTIMEepoch2lng
comment "unix-time (epoch) support: seconds since epoch";


#line 157 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/atoms/mtime.mx"
command ==(v:timestamp,w:timestamp):bit 
address MTIMEtimestamp_EQ
comment "Equality of two timestamps";
command !=(v:timestamp,w:timestamp):bit 
address MTIMEtimestamp_NEQ
comment "Equality of two timestamps";
command <(v:timestamp,w:timestamp):bit 
address MTIMEtimestamp_LT
comment "Equality of two timestamps";
command <=(v:timestamp,w:timestamp):bit 
address MTIMEtimestamp_LE
comment "Equality of two timestamps";
command >(v:timestamp,w:timestamp):bit 
address MTIMEtimestamp_GT
comment "Equality of two timestamps";
command >=(v:timestamp,w:timestamp):bit 
address MTIMEtimestamp_GE
comment "Equality of two timestamps";
command isnil(v:timestamp):bit 
address MTIMEtimestamp_isnil
comment "Nil test for timestamp value";

module mtime;
command calc.==(v:timestamp,w:timestamp):bit 
address MTIMEtimestamp_EQ
comment "Equality of two timestamps";
command calc.!=(v:timestamp,w:timestamp):bit 
address MTIMEtimestamp_NEQ
comment "Equality of two timestamps";
command calc.<(v:timestamp,w:timestamp):bit 
address MTIMEtimestamp_LT
comment "Equality of two timestamps";
command calc.<=(v:timestamp,w:timestamp):bit 
address MTIMEtimestamp_LE
comment "Equality of two timestamps";
command calc.>(v:timestamp,w:timestamp):bit 
address MTIMEtimestamp_GT
comment "Equality of two timestamps";
command calc.>=(v:timestamp,w:timestamp):bit 
address MTIMEtimestamp_GE
comment "Equality of two timestamps";
command calc.isnil(v:timestamp):bit 
address MTIMEtimestamp_isnil
comment "Nil test for timestamp value";


#line 314 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/atoms/mtime.mx"




#line 364 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/atoms/mtime.mx"
atom timezone :lng;
command fromstr():timezone 
address tzone_fromstr;
command tostr():str   
address tzone_tostr;
command str():str   
address MTIMEtzone_tostr;
command timestamp(s:str):timestamp
address MTIMEtimestamp_fromstr;
command timestamp(secs:int):timestamp
address MTIMEtimestamp
comment "Utility function to create a timestamp from a number of seconds since the Unix epoch";

atom zrule :int;
command fromstr():zrule 
address rule_fromstr;
command tostr():str 
address rule_tostr;
command define(m:int,d:int,w:int,h:int,min:int):zrule 
address MTIMEruleDef0
comment "Introduce a synomym timezone rule.";
command define(m:int,d:str,w:int,h:int,min:int):zrule 
address MTIMEruleDef1
comment "Introduce a synomym timezone rule.";
command define(m:int,d:str,w:int,min:int):zrule 
address MTIMEruleDef2
comment "Introduce a synomym timezone rule.";


module mtime;
command date_sub_sec_interval(t:date,s:int):date 
address MTIMEdate_sub_sec_interval_wrap
comment "Subtract seconds from a date";
command date_sub_sec_interval(t:date,s:lng):date 
address MTIMEdate_sub_sec_interval_lng_wrap;

command date_add_sec_interval(t:date,s:int):date 
address MTIMEdate_add_sec_interval_wrap
comment "Add seconds to a date";
command date_add_sec_interval(t:date,s:lng):date 
address MTIMEdate_add_sec_interval_lng_wrap;

command timestamp_sub_sec_interval(t:timestamp,s:lng):timestamp 
address MTIMEtimestamp_sub_sec_interval_lng_wrap;
command timestamp_add_sec_interval(t:timestamp,s:lng):timestamp 
address MTIMEtimestamp_add_sec_interval_lng_wrap;

command timestamp_sub_month_interval(t:timestamp,s:int):timestamp 
address MTIMEtimestamp_sub_month_interval_wrap
comment "Subtract months from a timestamp";
command timestamp_add_month_interval(t:timestamp,s:int):timestamp 
address MTIMEtimestamp_add_month_interval_wrap
comment "Add months to a timestamp";
command timestamp(t:timestamp):timestamp
address MTIMEtimestamp2timestamp;

command time_sub_sec_interval(t:daytime,s:lng):daytime 
address MTIMEtime_sub_sec_interval_wrap
comment "Subtract seconds from a time";
command time_add_sec_interval(t:daytime,s:lng):daytime 
address MTIMEtime_add_sec_interval_wrap
comment "Add seconds to a time";

command date_add_month_interval(t:date,s:int):date 
address MTIMEdate_add_month_interval_wrap
comment "Add months to a date";



#line 438 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/atoms/mtime.mx"
command date(:date):date
address MTIMEdate2date
comment "generate the nil date";
command date(:void):date
address MTIMEnil2date
comment "generate the nil date";

command local_timezone():lng 
address MTIMElocal_timezone 
comment "get the local timezone in seconds";

command timezone_local(t:timezone):void 
address MTIMEtzone_set_local 
comment "set the local timezone; which is used for printing timestamps";
command timezone_local() :timezone 
address MTIMEtzone_get_local 
comment "get the local timezone; which is used for printing timestamps";



#line 460 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/atoms/mtime.mx"
command date(s:str):date 
address MTIMEdate_fromstr
comment "convert the string to a type date value";

command date(yr:int, mo:int, day:int):date 
address MTIMEdate_create 
comment "creates a date from (year,month,day).";

command daytime(s:str):daytime
address MTIMEdaytime_fromstr
comment "convert the string to a daytime value.";
command daytime(:daytime):daytime
address MTIMEdaytime2daytime;
command daytime(:lng):daytime
address MTIMEsecs2daytime;