Write Udf For Interbase/Firebird

DECLARE EXTERNAL FUNCTION IBPASSWD
CSTRING(8) CHARACTER SET WIN1252
RETURNS CSTRING(16) CHARACTER SET WIN1252 FREE_IT
ENTRY_POINT 'IBPasswd' MODULE_NAME 'pibudf.dll';



DECLARE EXTERNAL FUNCTION IBENCODEBASE64
CSTRING(256) CHARACTER SET WIN1252
RETURNS CSTRING(384) CHARACTER SET WIN1252 FREE_IT
ENTRY_POINT 'IBEncodeBase64' MODULE_NAME 'pibudf.dll';


DECLARE EXTERNAL FUNCTION IBDECODEBASE64
CSTRING(384) CHARACTER SET WIN1252
RETURNS CSTRING(256) CHARACTER SET WIN1252 FREE_IT
ENTRY_POINT 'IBDecodeBase64' MODULE_NAME 'pibudf.dll';


DECLARE EXTERNAL FUNCTION IBDES56
CSTRING(16) CHARACTER SET WIN1252,
CSTRING(8) CHARACTER SET WIN1252,SMALLINT
RETURNS CSTRING(16) CHARACTER SET WIN1252 FREE_IT
ENTRY_POINT 'IBdes56' MODULE_NAME 'pibudf.dll';

DECLARE EXTERNAL FUNCTION IBMD5
CSTRING(32176) CHARACTER SET WIN1252
RETURNS CSTRING(32) CHARACTER SET WIN1252 FREE_IT
ENTRY_POINT 'IBmd5' MODULE_NAME 'pibudf.dll';


DECLARE EXTERNAL FUNCTION IBMD5FILE
CSTRING(255) CHARACTER SET WIN1252
RETURNS CSTRING(32) CHARACTER SET WIN1252 FREE_IT
ENTRY_POINT 'IBmd5File' MODULE_NAME 'pibudf.dll';

DECLARE EXTERNAL FUNCTION IBINTTOBIT
INTEGER,SMALLINT
RETURNS SMALLINT BY VALUE
ENTRY_POINT 'IBIntToBit' MODULE_NAME 'pibudf.dll';

DECLARE EXTERNAL FUNCTION IBBITTOINT
SMALLINT
RETURNS INTEGER BY VALUE
ENTRY_POINT 'IBBitToInt' MODULE_NAME 'pibudf.dll';

DECLARE EXTERNAL FUNCTION IBINTTOBITQTY
INTEGER
RETURNS  SMALLINT BY VALUE
ENTRY_POINT 'IBIntToBitQty' MODULE_NAME 'pibudf.dll';


DECLARE EXTERNAL FUNCTION IBSTRDATEIDE
TIMESTAMP,
INTEGER,SMALLINT /*'yyyymmdd-'+3*/
RETURNS CSTRING(12) CHARACTER SET WIN1252 FREE_IT
ENTRY_POINT 'IBStrDateIDE' MODULE_NAME 'pibudf.dll';

DECLARE EXTERNAL FUNCTION IBSDATEIDTOIDE
CSTRING(12) CHARACTER SET WIN1252,SMALLINT
RETURNS INTEGER BY VALUE
ENTRY_POINT 'IBStrDateIDToIDE' MODULE_NAME 'pibudf.dll';

DECLARE EXTERNAL FUNCTION IBSTRYEARIDE
TIMESTAMP,
INTEGER,SMALLINT /*'yyyy-'+3*/
RETURNS CSTRING(8) CHARACTER SET WIN1252 FREE_IT
ENTRY_POINT 'IBStrYearIDE' MODULE_NAME 'pibudf.dll';

DECLARE EXTERNAL FUNCTION IBSYEARIDTOIDE
CSTRING(8) CHARACTER SET WIN1252,SMALLINT
RETURNS INTEGER BY VALUE
ENTRY_POINT 'IBStrYearIDToIDE' MODULE_NAME 'pibudf.dll';

DECLARE EXTERNAL FUNCTION IBSTRINTSTR
CSTRING(3) CHARACTER SET WIN1252,INTEGER,SMALLINT
RETURNS CSTRING(6) CHARACTER SET WIN1252 FREE_IT
ENTRY_POINT 'IBStrIntStr' MODULE_NAME 'pibudf.dll';

DECLARE EXTERNAL FUNCTION IBSTRINT
CSTRING(6) CHARACTER SET WIN1252,SMALLINT,SMALLINT
RETURNS INTEGER BY VALUE
ENTRY_POINT 'IBStrInt' MODULE_NAME 'pibudf.dll';
                         
DECLARE EXTERNAL FUNCTION IBSQUADNAME
TIMESTAMP,
SMALLINT,SMALLINT
RETURNS CSTRING(1) CHARACTER SET WIN1252 FREE_IT
ENTRY_POINT 'IBsquadName' MODULE_NAME 'pibudf.dll';



/*Date*******************************************/

DECLARE EXTERNAL FUNCTION IBYEARTOINT
TIMESTAMP
RETURNS SMALLINT BY VALUE
ENTRY_POINT 'IBYearToInt' MODULE_NAME 'pibudf.dll';

DECLARE EXTERNAL FUNCTION IBYEARDAYTOINT
TIMESTAMP
RETURNS SMALLINT BY VALUE
ENTRY_POINT 'IBYearDayToInt' MODULE_NAME 'pibudf.dll';

DECLARE EXTERNAL FUNCTION IBMONTHDAYTOINT
TIMESTAMP
RETURNS SMALLINT BY VALUE
ENTRY_POINT 'IBMonthDayToInt' MODULE_NAME 'pibudf.dll';

DECLARE EXTERNAL FUNCTION IBMONTHTOINT
TIMESTAMP
RETURNS SMALLINT BY VALUE
ENTRY_POINT 'IBMonthToInt' MODULE_NAME 'pibudf.dll';

DECLARE EXTERNAL FUNCTION IBMONTHBETWEENTOINT
TIMESTAMP, TIMESTAMP
RETURNS SMALLINT BY VALUE
ENTRY_POINT 'IBMonthBetweenToInt' MODULE_NAME 'pibudf.dll';

DECLARE EXTERNAL FUNCTION IBDAYBETWEENTOINT
TIMESTAMP, TIMESTAMP
RETURNS INTEGER BY VALUE
ENTRY_POINT 'IBDayBetweenToInt' MODULE_NAME 'pibudf.dll';

DECLARE EXTERNAL FUNCTION IBMONTHLASTDDAYTOINT
TIMESTAMP
RETURNS SMALLINT BY VALUE
ENTRY_POINT 'IBMonthLastDayToInt' MODULE_NAME 'pibudf.dll';

DECLARE EXTERNAL FUNCTION IBDAYINC
TIMESTAMP,SMALLINT
RETURNS DATE
ENTRY_POINT 'IBDayInc' MODULE_NAME 'pibudf.dll';

DECLARE EXTERNAL FUNCTION IBDAYDEC
TIMESTAMP,SMALLINT
RETURNS DATE
ENTRY_POINT 'IBDayDec' MODULE_NAME 'pibudf.dll';

DECLARE EXTERNAL FUNCTION IBMONTHINC
TIMESTAMP,SMALLINT
RETURNS DATE
ENTRY_POINT 'IBMonthInc' MODULE_NAME 'pibudf.dll';

DECLARE EXTERNAL FUNCTION IBMONTHDEC
TIMESTAMP,SMALLINT
RETURNS DATE
ENTRY_POINT 'IBMonthDec' MODULE_NAME 'pibudf.dll';

DECLARE EXTERNAL FUNCTION IBMONTHFIRSTTDAY
TIMESTAMP
RETURNS DATE
ENTRY_POINT 'IBMonthFirstDay' MODULE_NAME 'pibudf.dll';

DECLARE EXTERNAL FUNCTION IBMONTHLASTDAY
TIMESTAMP
RETURNS DATE
ENTRY_POINT 'IBMonthLastDay' MODULE_NAME 'pibudf.dll';

DECLARE EXTERNAL FUNCTION IBDAYTIMEBETWEENTOSTR
TIMESTAMP, TIMESTAMP
RETURNS CSTRING(16) CHARACTER SET WIN1252 FREE_IT
ENTRY_POINT 'IBDayTimeBetweenToStr' MODULE_NAME 'pibudf.dll';



/*String*******************************************/

DECLARE EXTERNAL FUNCTION IBSTRUPPER
CSTRING(32176) CHARACTER SET WIN1252
RETURNS CSTRING(32176) CHARACTER SET WIN1252 FREE_IT
ENTRY_POINT 'IBStrUpper' MODULE_NAME 'pibudf.dll';

DECLARE EXTERNAL FUNCTION IBSTRLOWER
CSTRING(32176) CHARACTER SET WIN1252
RETURNS CSTRING(32176) CHARACTER SET WIN1252 FREE_IT
ENTRY_POINT 'IBStrLower' MODULE_NAME 'pibudf.dll';

DECLARE EXTERNAL FUNCTION IBSTRLEN
CSTRING(32176) CHARACTER SET WIN1252
RETURNS INTEGER BY VALUE
ENTRY_POINT 'IBStrLen' MODULE_NAME 'pibudf.dll';

DECLARE EXTERNAL FUNCTION IBSTRPOS
CSTRING(32176) CHARACTER SET WIN1252,
CSTRING(254) CHARACTER SET WIN1252
RETURNS INTEGER BY VALUE
ENTRY_POINT 'IBStrPos' MODULE_NAME 'pibudf.dll';

DECLARE EXTERNAL FUNCTION IBSTRCOPY
CSTRING(32176) CHARACTER SET WIN1252,SMALLINT,SMALLINT
RETURNS CSTRING(254) CHARACTER SET WIN1252 FREE_IT
ENTRY_POINT 'IBStrCopy' MODULE_NAME 'pibudf.dll';

DECLARE EXTERNAL FUNCTION IBSTRDELETE
CSTRING(32176) CHARACTER SET WIN1252,SMALLINT,SMALLINT
RETURNS CSTRING(254) CHARACTER SET WIN1252 FREE_IT
ENTRY_POINT 'IBStrDelete' MODULE_NAME 'pibudf.dll';

DECLARE EXTERNAL FUNCTION IBSTRINSERT
CSTRING(32176) CHARACTER SET WIN1252,
SMALLINT,
CSTRING(254) CHARACTER SET WIN1252
RETURNS CSTRING(510) CHARACTER SET WIN1252 FREE_IT
ENTRY_POINT 'IBStrInsert' MODULE_NAME 'pibudf.dll';


DECLARE EXTERNAL FUNCTION IBSTRREPLACE
CSTRING(32176) CHARACTER SET WIN1252,
CSTRING(1) CHARACTER SET WIN1252,
CSTRING(1) CHARACTER SET WIN1252
RETURNS CSTRING(32176) CHARACTER SET WIN1252 FREE_IT
ENTRY_POINT 'IBStrReplace' MODULE_NAME 'pibudf.dll';

/*BLOB*******************************************/

DECLARE EXTERNAL FUNCTION IBGETBLOBSEGMENTCOUNT
  BLOB
  RETURNS INTEGER BY VALUE
  ENTRY_POINT 'IBGetBlobSegmentCount' MODULE_NAME 'pibudf.dll';

DECLARE EXTERNAL FUNCTION IBGETBLOBMAXSEGMENTLENGTH
  BLOB
  RETURNS INTEGER BY VALUE
  ENTRY_POINT 'IBGetBlobMaxSegmentLength' MODULE_NAME 'pibudf.dll';

DECLARE EXTERNAL FUNCTION IBGETBLOBSIZE
  BLOB
  RETURNS INTEGER BY VALUE
  ENTRY_POINT 'IBGetBlobSize' MODULE_NAME 'pibudf.dll';

DECLARE EXTERNAL FUNCTION IBGETBLOBSTRCOPY
  BLOB,INTEGER,INTEGER
  RETURNS CSTRING(32760) CHARACTER SET WIN1252 FREE_IT
  ENTRY_POINT 'IBGetBlobStrCopy' MODULE_NAME 'pibudf.dll';

DECLARE EXTERNAL FUNCTION IBGETBLOBSTRLINE
  BLOB,INTEGER
  RETURNS CSTRING(32760) CHARACTER SET WIN1252 FREE_IT
  ENTRY_POINT 'IBGetBlobStrLine' MODULE_NAME 'pibudf.dll';

DECLARE EXTERNAL FUNCTION IBGETBLOBSEARCH
  BLOB,CSTRING(254) CHARACTER SET WIN1252
  RETURNS INTEGER BY VALUE
  ENTRY_POINT 'IBGetBlobSearch' MODULE_NAME 'pibudf.dll';

DECLARE EXTERNAL FUNCTION IBSETBLOBSTRCOPY
  CSTRING(32760) CHARACTER SET WIN1252,
  BLOB
  RETURNS PARAMETER 2
  ENTRY_POINT 'IBSetBlobStrCopy' MODULE_NAME 'pibudf.dll';

DECLARE EXTERNAL FUNCTION IBGETBLOBLOADFILE
  CSTRING(254) CHARACTER SET WIN1252,
  BLOB
  RETURNS PARAMETER 2
  ENTRY_POINT 'IBGetBlobLoadFile' MODULE_NAME 'pibudf.dll';

DECLARE EXTERNAL FUNCTION IBSETBLOBSAVEFILE
  BLOB,
  CSTRING(254) CHARACTER SET WIN1252 
  RETURNS INTEGER BY VALUE
  ENTRY_POINT 'IBSetBlobSaveFile' MODULE_NAME 'pibudf.dll'; 



/*MATHS*******************************************/

DECLARE EXTERNAL FUNCTION IBTRUNC
  DOUBLE PRECISION 
  RETURNS INTEGER BY VALUE
  ENTRY_POINT 'IbTrunc' MODULE_NAME 'pibudf.dll'; 

DECLARE EXTERNAL FUNCTION IBFRAC
  DOUBLE PRECISION
  RETURNS DOUBLE PRECISION BY VALUE
  ENTRY_POINT 'IbFrac' MODULE_NAME 'pibudf.dll';