vb.c

Gambas is a graphical development environment based on a Basic interpreter, like Visual Basic. It us

/***************************************************************************

  vb.c

  Visual Basic compatibility Component

  (c) 2000-2003 Benoît Minisini <[e-mail]>

  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 <stdio.h>
#include <strings.h>
#include <math.h>

BEGIN_METHOD(CVB_val, GB_STRING str)

  GB_VALUE result;

  GB.NumberFromString(GB_NB_READ_BOTH | GB_NB_READ_HEX_BIN, STRING(str), LENGTH(str), &result);

  if (result.type == GB_T_INTEGER)
    GB.ReturnInteger(((GB_INTEGER *)&result)->value);
  else if (result.type == GB_T_FLOAT)
    GB.ReturnFloat(((GB_FLOAT *)&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 *)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;
  long 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; }

	/*decimals=exp10(decimals);
	number*=decimals;
	number=round(number);
	number/=decimals;*/

  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
};