connect 'c:\data.gdb' USER 'SYSDBA' PASSWORD 'masterkey';

/* YEAR */
drop external function YEAR;
declare external function YEAR
 DATE
 returns INTEGER by value
 entry_point 'fn_year'
 module_name 'udfib';
commit;

/* MONTH */
drop external function MONTH;
declare external function MONTH
 DATE
 returns INTEGER by value
 entry_point 'fn_month'
 module_name 'udfib';
commit;

/* DAY */
drop external function DAY;
declare external function DAY
 DATE
 returns INTEGER by value
 entry_point 'fn_day'
 module_name 'udfib';
commit;

/* DOY - day of year */
drop external function DOY;
declare external function DOY
 DATE
 returns INTEGER by value
 entry_point 'fn_doy'
 module_name 'udfib';
commit;

/* DOW - day of week */
drop external function DOW;
declare external function DOW
 DATE
 returns INTEGER by value
 entry_point 'fn_dow'
 module_name 'udfib';
commit;

/* HOUR */
drop external function HOUR;
declare external function HOUR
 DATE
 returns INTEGER by value
 entry_point 'fn_hour'
 module_name 'udfib';
commit;

/* MINUTE */
drop external function MINUTE;
declare external function MINUTE
 DATE
 returns INTEGER by value
 entry_point 'fn_minute'
 module_name 'udfib';
commit;

/* SECOND */
drop external function SECOND;
declare external function SECOND
 DATE
 returns INTEGER by value
 entry_point 'fn_second'
 module_name 'udfib';
commit;





/* STRLEN */
drop external function STRLEN;
declare external function STRLEN
 CSTRING(32766)
 returns INTEGER by value
 entry_point 'fn_strlen'
 module_name 'udfib';
commit;

/* SUBSTR */
drop external function SUBSTR;
declare external function SUBSTR
 CSTRING(32766), INTEGER, INTEGER
 returns CSTRING(256) free_it
 entry_point 'fn_substr'
 module_name 'udfib';
commit;

/* POS */
drop external function POS;
declare external function POS
 CSTRING(8190), CSTRING(24574), INTEGER
 returns INTEGER by value
 entry_point 'fn_pos'
 module_name 'udfib';
commit;

/* RTRIM */
drop external function RTRIM;
declare external function RTRIM
 CSTRING(32766)
 returns CSTRING(256) free_it
 entry_point 'fn_rtrim'
 module_name 'udfib';
commit;

/* LTRIM */
drop external function LTRIM;
declare external function LTRIM
 CSTRING(32766)
 returns CSTRING(256) free_it
 entry_point 'fn_ltrim'
 module_name 'udfib';
commit;

/* TRIM */
drop external function TRIM;
declare external function TRIM
 CSTRING(32766)
 returns CSTRING(256) free_it
 entry_point 'fn_trim'
 module_name 'udfib';
commit;

/* REPLACE */
drop external function REPLACE;
declare external function REPLACE
 CSTRING(8190), CSTRING(16382), CSTRING(8190), INTEGER
 returns CSTRING(256) free_it
 entry_point 'fn_replace'
 module_name 'udfib';
commit;