mtime.c

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

		
#line 2757 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/atoms/mtime.mx"
	ticks =  4 * 60;
	tzone_create(&(ltz.tzval), &ticks);
	vr.val.lval = ltz.lval;
	tzbat = BUNins(tzbat,"United Arab Emirates",&vr.val.lval,FALSE);


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

		
#line 2757 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/atoms/mtime.mx"
	ticks =  0 * 0;
	tzone_create(&(ltz.tzval), &ticks);
	vr.val.lval = ltz.lval;
	tzbat = BUNins(tzbat,"GMT",&vr.val.lval,FALSE);


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

		
#line 2757 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/atoms/mtime.mx"
	ticks =  -1 * 60;
	tzone_create(&(ltz.tzval), &ticks);
	vr.val.lval = ltz.lval;
	tzbat = BUNins(tzbat,"Azore Islands",&vr.val.lval,FALSE);


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

		
#line 2757 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/atoms/mtime.mx"
	ticks =  -10 * 60;
	tzone_create(&(ltz.tzval), &ticks);
	vr.val.lval = ltz.lval;
	tzbat = BUNins(tzbat,"Hawaii/USA",&vr.val.lval,FALSE);


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

		
#line 2757 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/atoms/mtime.mx"
	ticks =  -11 * 60;
	tzone_create(&(ltz.tzval), &ticks);
	vr.val.lval = ltz.lval;
	tzbat = BUNins(tzbat,"American Samoa",&vr.val.lval,FALSE);


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

		MTIMErule_fromstr(&RULE_MAR, &s1);
		MTIMErule_fromstr(&RULE_OCT, &s2);
		
#line 2762 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/atoms/mtime.mx"
	ticks =  6 * 60;
	tzone_create_dst(&(ltz.tzval), &ticks,& RULE_MAR,& RULE_OCT);
	vr.val.lval = ltz.lval;
	tzbat = BUNins(tzbat,"Kazakhstan",&vr.val.lval,FALSE);


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

		
#line 2762 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/atoms/mtime.mx"
	ticks =  3 * 60;
	tzone_create_dst(&(ltz.tzval), &ticks,& RULE_MAR,& RULE_OCT);
	vr.val.lval = ltz.lval;
	tzbat = BUNins(tzbat,"Moscow/Russia",&vr.val.lval,FALSE);


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

		
#line 2762 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/atoms/mtime.mx"
	ticks =  2 * 60;
	tzone_create_dst(&(ltz.tzval), &ticks,& RULE_MAR,& RULE_OCT);
	vr.val.lval = ltz.lval;
	tzbat = BUNins(tzbat,"East/Europe",&vr.val.lval,FALSE);


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

		
#line 2762 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/atoms/mtime.mx"
	ticks =  1 * 60;
	tzone_create_dst(&(ltz.tzval), &ticks,& RULE_MAR,& RULE_OCT);
	vr.val.lval = ltz.lval;
	tzbat = BUNins(tzbat,"West/Europe",&vr.val.lval,FALSE);


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

		
#line 2762 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/atoms/mtime.mx"
	ticks =  0 * 0;
	tzone_create_dst(&(ltz.tzval), &ticks,& RULE_MAR,& RULE_OCT);
	vr.val.lval = ltz.lval;
	tzbat = BUNins(tzbat,"UK",&vr.val.lval,FALSE);


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

		
#line 2762 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/atoms/mtime.mx"
	ticks =  -2 * 60;
	tzone_create_dst(&(ltz.tzval), &ticks,& RULE_OCT,& RULE_MAR);
	vr.val.lval = ltz.lval;
	tzbat = BUNins(tzbat,"Eastern/Brazil",&vr.val.lval,FALSE);


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

		
#line 2762 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/atoms/mtime.mx"
	ticks =  -3 * 60;
	tzone_create_dst(&(ltz.tzval), &ticks,& RULE_OCT,& RULE_MAR);
	vr.val.lval = ltz.lval;
	tzbat = BUNins(tzbat,"Western/Brazil",&vr.val.lval,FALSE);


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

		
#line 2762 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/atoms/mtime.mx"
	ticks =  -4 * 60;
	tzone_create_dst(&(ltz.tzval), &ticks,& RULE_OCT,& RULE_MAR);
	vr.val.lval = ltz.lval;
	tzbat = BUNins(tzbat,"Andes/Brazil",&vr.val.lval,FALSE);


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

		
#line 2762 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/atoms/mtime.mx"
	ticks =  -5 * 60;
	tzone_create_dst(&(ltz.tzval), &ticks,& RULE_MAR,& RULE_OCT);
	vr.val.lval = ltz.lval;
	tzbat = BUNins(tzbat,"East/USA",&vr.val.lval,FALSE);


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

		
#line 2762 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/atoms/mtime.mx"
	ticks =  -6 * 60;
	tzone_create_dst(&(ltz.tzval), &ticks,& RULE_MAR,& RULE_OCT);
	vr.val.lval = ltz.lval;
	tzbat = BUNins(tzbat,"Central/USA",&vr.val.lval,FALSE);


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

		
#line 2762 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/atoms/mtime.mx"
	ticks =  -7 * 60;
	tzone_create_dst(&(ltz.tzval), &ticks,& RULE_MAR,& RULE_OCT);
	vr.val.lval = ltz.lval;
	tzbat = BUNins(tzbat,"Mountain/USA",&vr.val.lval,FALSE);


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

		
#line 2762 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/atoms/mtime.mx"
	ticks =  -9 * 60;
	tzone_create_dst(&(ltz.tzval), &ticks,& RULE_MAR,& RULE_OCT);
	vr.val.lval = ltz.lval;
	tzbat = BUNins(tzbat,"Alaska/USA",&vr.val.lval,FALSE);


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

	}
	msg = "West/Europe";
	if ((msg = MTIMEtimezone(&tz, &msg)) != MAL_SUCCEED)
		return msg;
	tzone_set_local(&tz);
	return MAL_SUCCEED;
}


str
MTIMEepilogue()
{
	closeBox("time", 0);
	return MAL_SUCCEED;
}

str
MTIMEsynonyms(bit *allow)
{
	monettime_synonyms(allow);
	return MAL_SUCCEED;
}

str
MTIMEoldduration(int *ndays, str *s)
{
	oldduration(ndays, *s);
	return MAL_SUCCEED;
}

str
MTIMEolddate(date *d, str *buf)
{
	olddate(d, *buf);
	return MAL_SUCCEED;
}

str
MTIMEtimezone(tzone *z, str *name)
{
	BUN p;
	str s = *name;

	if (BUNfnd(timezones, s) == 0)
		s = "GMT";
	if ((p = BUNfnd(timezones, s)) != NULL){
		z = (tzone*)BUNtail(timezones,p);
		tzone_set_local(z);
	}
	return MAL_SUCCEED;
}

str
MTIMEtzone_set_local(int res, tzone *z)
{
	(void) res;		/* fool compilers */
	tzone_set_local(z);
	return MAL_SUCCEED;
}

str
MTIMEtzone_get_local(tzone *z)
{
	tzone_get_local(z);
	return MAL_SUCCEED;
}

str 
MTIMElocal_timezone(lng *res)
{
	tzone z;

	tzone_get_local(&z);
	*res = get_offset((&z));
	return MAL_SUCCEED;
}

str
MTIMEmonth_from_str(int *ret, str *month)
{
	month_from_str(ret, *month);
	return MAL_SUCCEED;
}

str
MTIMEmonth_to_str(str *ret, int *month)
{
	month_to_str(ret, month);
	return MAL_SUCCEED;
}

str
MTIMEday_from_str(int *ret, str *day)
{
	day_from_str(ret, *day);
	return MAL_SUCCEED;
}

str
MTIMEday_to_str(str *ret, int *day)
{
	day_to_str(ret, day);
	return MAL_SUCCEED;
}

str
MTIMEdate_date(date *d, date *s)
{
	*d = *s;
	return MAL_SUCCEED;
}

str
MTIMEdate_tostr(str *ret, date *d)
{
	int big = 128;
	char buf[128], *s1 = buf;

	*s1 = 0;
	date_tostr(&s1, &big, d);
	*ret = GDKstrdup(buf);
	return MAL_SUCCEED;
}

str
MTIMEdate_fromstr(date *ret, str *s)
{
	int len = 0;
	date *d = 0;

	date_fromstr(*s, &len, &d);
	*ret = *d;
	return MAL_SUCCEED;
}

str
MTIMEdate_create(date *ret, int *year, int *month, int *day)
{
	date_create(ret, year, month, day);
	return MAL_SUCCEED;
}

str
MTIMEdaytime_tostr(str *ret, daytime *d)
{
	char buf[128], *s = buf;
	int len = 128;

	*s = 0;
	daytime_tostr(&s, &len, d);
	*ret = GDKstrdup(buf);
	return MAL_SUCCEED;
}

str
MTIMEdaytime_create(daytime *ret, int *hour, int *min, int *sec, int *msec)
{
	daytime_create(ret, hour, min, sec, msec);
	return MAL_SUCCEED;
}

str
MTIMEtimestamp_tostr(str *s, timestamp *d)
{
	char buf[128], *s1 = buf;
	int len = 128;

	*s1 = 0;
	timestamp_tostr(&s1, &len, d);
	*s = GDKstrdup(buf);
	return MAL_SUCCEED;
}

str
MTIMEtimestamp_fromstr(timestamp *ret, str *d)
{
	int len = strlen(*d);

	timestamp_fromstr(*d, &len, &ret);
	return MAL_SUCCEED;
}

str
MTIMEtimestamp_timestamp(timestamp *d, timestamp *s)
{
	*d = *s;
	return MAL_SUCCEED;
}

str
MTIMEtimestamp_create(timestamp *ret, date *d, daytime *t, tzone *z)
{
	timestamp_create(ret, d, t, z);
	return MAL_SUCCEED;
}

str
MTIMEtimestamp_create_default(timestamp *ret, date *d, daytime *t)
{
	return MTIMEtimestamp_create(ret, d, t, &tzone_local);
}

str
MTIMEtimestamp_create_from_date(timestamp *ret, date *d)
{
	daytime t = totime(0,0,0,0);
	return MTIMEtimestamp_create(ret, d, &t, &tzone_local);
}

str
MTIMEdate_extract_year(int *ret, date *v)
{
	date_extract_year(ret, v);
	return MAL_SUCCEED;
}

str
MTIMEdate_extract_month(int *ret, date *v)
{
	date_extract_month(ret, v);
	return MAL_SUCCEED;
}

str
MTIMEdate_extract_day(int *ret, date *v)
{
	date_extract_day(ret, v);
	return MAL_SUCCEED;
}

str
MTIMEdate_extract_dayofyear(int *ret, date *v)
{
	date_extract_dayofyear(ret, v);
	return MAL_SUCCEED;
}

str
MTIMEdate_extract_weekofyear(int *ret, date *v)
{
	date_extract_weekofyear(ret, v);
	return MAL_SUCCEED;
}

str
MTIMEdate_extract_dayofweek(int *ret, date *v)
{
	date_extract_dayofweek(ret, v);
	return MAL_SUCCEED;
}

str
MTIMEdaytime_extract_hours(int *ret, daytime *v)
{
	daytime_extract_hours(ret, v);
	return MAL_SUCCEED;
}

str
MTIMEdaytime_extract_minutes(int *ret, daytime *v)
{
	daytime_extract_minutes(ret, v);
	return MAL_SUCCEED;
}

str
MTIMEdaytime_extract_seconds(int *ret, daytime *v)
{
	daytime_extract_seconds(ret, v);
	return MAL_SUCCEED;
}

str
MTIMEdaytime_extract_milliseconds(int *ret, daytime *v)
{
	daytime_extract_milliseconds(ret, v);
	return MAL_SUCCEED;
}

str
MTIMEtimestamp_extract_daytime(daytime *ret, timestamp *t, tzone *z)
{
	timestamp_extract_daytime(ret, t, z);
	return MAL_SUCCEED;
}

str
MTIMEtimestamp_extract_daytime_default(daytime *ret, timestamp *t)
{
	return MTIMEtimestamp_extract_daytime(ret, t, &tzone_local);
}

str
MTIMEtimestamp_extract_date(date *ret, timestamp *t, tzone *z)
{
	timestamp_extract_date(ret, t, z);
	return MAL_SUCCEED;
}

str
MTIMEtimestamp_extract_date_default(date *ret, timestamp *t)
{
	return MTIMEtimestamp_extract_date(ret, t, &tzone_local);
}

str
MTIMEdate_addyears(date *ret, date *v, int *delta)
{
	date_addyears(ret, v, delta);
	return MAL_SUCCEED;
}

str
MTIMEdate_adddays(date *ret, date *v, int *delta)
{
	date_adddays(ret, v, delta);
	return MAL_SUCCEED;
}

str
MTIMEdate_addmonths(date *ret, date *v, int *delta)
{
	date_addmonths(ret, v, delta);
	return MAL_SUCCEED;
}

str
MTIMEdate_diff(int *ret, date *v1, date *v2)
{
	date_diff(ret, v1, v2);
	return MAL_SUCCEED;
}

str
MTIMEtimestamp_add(timestamp *ret, timestamp *v, lng *msecs)
{
	timestamp_add(ret, v, msecs);
	return MAL_SUCCEED;
}

str
MTIMEtimestamp_diff(lng *ret, timestamp *v1, timestamp *v2)
{
	timestamp_diff(ret, v1, v2);
	return MAL_SUCCEED;
}

str
MTIMEtimestamp_inside_dst(bit *ret, timestamp *p, tzone *z)
{
	timestamp_inside_dst(ret, p, z);
	return MAL_SUCCEED;
}

str
MTIMEtimestamp_isnil(bit *retval, timestamp *val)
{
	*retval = ts_isnil(*val);
	return MAL_SUCCEED;
}

str
MTIMEtimestamp_EQ(bit *retval, timestamp *val1, timestamp *val2)
{
	if (ts_isnil(*val1) || ts_isnil(*val2))
		*retval = bit_nil;
	else
		*retval = val1->days == val2->days && val1->msecs == val2->msecs;
	return MAL_SUCCEED;
}

str
MTIMEtimestamp_NEQ(bit *retval, timestamp *val1, timestamp *val2)
{
	if (ts_isnil(*val1) || ts_isnil(*val2))
		*retval = bit_nil;
	else
		*retval = val1->days != val2->days || val1->msecs != val2-