/*************************************************************************** vb.c Visual Basic compatibility Component (c) 2000-2007 Benoit Minisini This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 1, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. ***************************************************************************/ #define __VB_C #include "vb.h" #include "vbdate.h" #include #include #include BEGIN_METHOD(CVB_val, GB_STRING str) GB_VALUE result; GB.NumberFromString(GB_NB_READ_ALL | GB_NB_READ_HEX_BIN, STRING(str), LENGTH(str), &result); if (result.type == GB_T_INTEGER) GB.ReturnInteger(((GB_INTEGER *)(void *)&result)->value); if (result.type == GB_T_LONG) GB.ReturnLong(((GB_LONG *)(void *)&result)->value); else if (result.type == GB_T_FLOAT) GB.ReturnFloat(((GB_FLOAT *)(void *)&result)->value); else GB.ReturnInteger(0); END_METHOD /* val should be GB_VARIANT. This is just a trick, so that I can use STRING() and LENGTH() macros just after having converted val to a string. Yes, I know... Horrible. */ BEGIN_METHOD(CVB_str, GB_STRING val) GB.Conv((GB_VALUE *)(void *)ARG(val), GB_T_STRING); GB.ReturnNewString(STRING(val), LENGTH(val)); END_METHOD BEGIN_METHOD(CVB_Left, GB_STRING val;GB_INTEGER Count;) if (VARG(Count)<=0) { GB.Error("Invalid parameter"); return; } if ( LENGTH(val)<=VARG(Count) ) { GB.ReturnNewString(STRING(val), LENGTH(val)); return; } GB.ReturnNewString(STRING(val), VARG(Count)); END_METHOD BEGIN_METHOD(CVB_Right, GB_STRING val;GB_INTEGER Count;) if (VARG(Count)<=0) { GB.Error("Invalid parameter"); return; } if ( LENGTH(val)<=VARG(Count) ) { GB.ReturnNewString(STRING(val), LENGTH(val)); return; } GB.ReturnNewString(STRING(val)+(LENGTH(val)-VARG(Count)), VARG(Count)); END_METHOD BEGIN_METHOD(CVB_Mid, GB_STRING val;GB_INTEGER Start;GB_INTEGER Count;) int count; if (VARG(Count)<=0) { GB.Error("Invalid parameter"); return; } if (!MISSING (Count) ) { if (VARG(Count)<=0) { GB.Error("Invalid parameter"); return; } count=VARG(Count); } else count=LENGTH(val); if ( VARG(Start)>LENGTH(val) ) GB.ReturnNewString(NULL,0); if ( ( LENGTH(val)-VARG(Start) ) <= count ) count=LENGTH(val)-VARG(Start)+1; GB.ReturnNewString(STRING(val)+VARG(Start)-1, count ); END_METHOD BEGIN_METHOD(CVB_DateAdd, GB_STRING period;GB_INTEGER interval; GB_DATE Date) char *Period=NULL; int Interval = 0; GB_DATE RETURN; Period=GB.ToZeroString(ARG(period)); Interval = VARG(interval); RETURN.type = ARG(Date)->type; RETURN.value.date = ARG(Date)->value.date; RETURN.value.time = ARG(Date)->value.time; if (strncasecmp(Period,"yyyy",4) == 0){ //Add Years DATE_adjust(&RETURN, 4, Interval); } else { if (strncasecmp(Period,"ww",2)== 0){ //Add weeks DATE_adjust(&RETURN, 1, (7 * Interval)); } else { switch(Period[0]) { case 's': /* Seconds */ case 'S': DATE_adjust(&RETURN, 2, (1000 * Interval)); break; case 'n': /* Minutes */ case 'N': DATE_adjust(&RETURN, 2, (60000 * Interval)); break; case 'h': /* Hours */ case 'H': DATE_adjust(&RETURN, 2, (3600000 * Interval)); break; case 'd': /* Days */ case 'D': case 'y': /* Day of Year */ case 'Y': DATE_adjust(&RETURN, 1, Interval); break; case 'w': /* Weekdays : Monday - Friday */ case 'W': DATE_adjust(&RETURN, 3, Interval); break; case 'm': /* Calendar Months */ case 'M': DATE_adjust(&RETURN, 0, Interval); break; case 'q': /* Quarters */ case 'Q': DATE_adjust(&RETURN, 0, (3 * Interval)); break; default: GB.Error("Invalid date parameter"); } } } GB.ReturnDate(&RETURN); END_METHOD BEGIN_METHOD(CVB_DateDiff, GB_STRING period;GB_DATE Date1; GB_DATE Date2) GB_DATE Date1, Date2; char *Period=NULL; int Interval = 0; Period=GB.ToZeroString(ARG(period)); Date1.type = ARG(Date1)->type; Date1.value.date = ARG(Date1)->value.date; Date1.value.time = ARG(Date1)->value.time; Date2.type = ARG(Date2)->type; Date2.value.date = ARG(Date2)->value.date; Date2.value.time = ARG(Date2)->value.time; if (strncasecmp(Period,"yyyy",4) == 0){ //Add Years Interval = DATE_diff(&Date1, &Date2, 4); } else { if (strncasecmp(Period,"ww",2)== 0){ //Weeks Interval = DATE_diff(&Date1, &Date2, 5); } else { switch(Period[0]) { case 's': /* Seconds */ case 'S': Interval = DATE_diff(&Date1, &Date2, 2)/1000; break; case 'n': /* Minutes */ case 'N': Interval = DATE_diff(&Date1, &Date2, 2)/60000; break; case 'h': /* Hours */ case 'H': Interval = DATE_diff(&Date1, &Date2, 2)/3600000; break; case 'd': /* Days */ case 'D': case 'y': /* Day of Year */ case 'Y': Interval = DATE_diff(&Date1, &Date2, 1); break; case 'w': /* Weekdays : Monday - Friday */ case 'W': Interval = DATE_diff(&Date1, &Date2, 3); break; case 'm': /* Calendar Months */ case 'M': Interval = DATE_diff(&Date1, &Date2, 0); break; case 'q': /* Quarters */ case 'Q': Interval = (DATE_diff(&Date1, &Date2, 0)/3); break; default: GB.Error("Invalid date parameter"); } } } GB.ReturnInteger(Interval); END_METHOD BEGIN_METHOD(CVB_Round,GB_FLOAT Number;GB_INTEGER Decimals;) double decimals=VARGOPT(Decimals, 0); double number=VARG(Number); if (decimals < 0) { GB.Error("Invalid argument"); return; } #if 0 /* test */ decimals=exp10(decimals); number*=decimals; number=round(number); number/=decimals; #endif decimals = pow(10, decimals); number *= decimals; number = rint(number); number /= decimals; GB.ReturnFloat(number); END_METHOD GB_DESC CVbDesc[] = { GB_DECLARE("Vb", 0), GB_NOT_CREATABLE(), GB_STATIC_METHOD("Val", "v", CVB_val, "(String)s"), GB_STATIC_METHOD("Str", "s", CVB_str, "(Value)v"), GB_STATIC_METHOD("Str$", "s", CVB_str, "(Value)v"), GB_STATIC_METHOD("Left", "s", CVB_Left, "(String)s(Count)i"), GB_STATIC_METHOD("Left$", "s", CVB_Left, "(String)s(Count)i"), GB_STATIC_METHOD("Right", "s", CVB_Right, "(String)s(Count)i"), GB_STATIC_METHOD("Right$", "s", CVB_Right, "(String)s(Count)i"), GB_STATIC_METHOD("Mid", "s", CVB_Mid, "(String)s(Start)i[(Count)i]"), GB_STATIC_METHOD("Mid$", "s", CVB_Mid, "(String)s(Start)i[(Count)i]"), GB_STATIC_METHOD("DateAdd", "d", CVB_DateAdd, "(period)s(interval)i(Date)d"), GB_STATIC_METHOD("DateDiff", "i", CVB_DateDiff, "(period)s(Date1)d(Date2)d"), GB_STATIC_METHOD("Round","f",CVB_Round,"(Number)f[(Decimals)i"), //GB_METHOD("Dir", "s", CVB_dir, "(Mask)s[(Attributes)i]"), GB_END_DECLARE };