home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 May / PCWorld_1999-05_cd.bin / software / Vyzkuste / inprise / INTRBASE_55 / EXAMPLES / API / UDF.SQL < prev    next >
Text File  |  1998-10-18  |  3KB  |  94 lines
  1.  
  2. /*--------------------------------------------------------------
  3. **    User Defined Function definitions for example databases
  4. **--------------------------------------------------------------
  5. */
  6.  
  7.  
  8. DECLARE EXTERNAL FUNCTION lower 
  9.     VARCHAR (256)    
  10.     RETURNS CSTRING(80) FREE_IT
  11.     ENTRY_POINT "fn_lower_c" MODULE_NAME "udflib";
  12.  
  13. DECLARE EXTERNAL FUNCTION substr 
  14.     CSTRING(256), SMALLINT, SMALLINT
  15.     RETURNS CSTRING(80) FREE_IT
  16.     ENTRY_POINT "fn_substr" MODULE_NAME "udflib";
  17.  
  18. DECLARE EXTERNAL FUNCTION trim 
  19.     CSTRING(256)
  20.     RETURNS CHAR (80) FREE_IT
  21.     ENTRY_POINT "fn_trim" MODULE_NAME "udflib";
  22.  
  23. DECLARE EXTERNAL FUNCTION trunc 
  24.     CSTRING(256), SMALLINT
  25.     RETURNS VARCHAR (80) FREE_IT
  26.     ENTRY_POINT "fn_trunc" MODULE_NAME "udflib";
  27.  
  28. DECLARE EXTERNAL FUNCTION strcat 
  29.     VARCHAR(255), VARCHAR (255)
  30.     RETURNS CSTRING(80) FREE_IT
  31.     ENTRY_POINT "fn_strcat" MODULE_NAME "udflib";
  32.  
  33. DECLARE EXTERNAL FUNCTION doy 
  34.     RETURNS INTEGER BY VALUE
  35.     ENTRY_POINT "fn_doy" MODULE_NAME "udflib";
  36.  
  37. DECLARE EXTERNAL FUNCTION moy 
  38.     RETURNS SMALLINT 
  39.     ENTRY_POINT "fn_moy" MODULE_NAME "udflib";
  40.  
  41. DECLARE EXTERNAL FUNCTION dow 
  42.     RETURNS CSTRING(12) 
  43.     ENTRY_POINT "fn_dow" MODULE_NAME "udflib";
  44.  
  45. DECLARE EXTERNAL FUNCTION sysdate 
  46.     RETURNS CSTRING(12) FREE_IT
  47.     ENTRY_POINT "fn_sysdate" MODULE_NAME "udflib";
  48.  
  49. DECLARE EXTERNAL FUNCTION fact 
  50.     DOUBLE PRECISION    
  51.     RETURNS DOUBLE PRECISION BY VALUE
  52.     ENTRY_POINT "fn_fact" MODULE_NAME "udflib";
  53.  
  54. DECLARE EXTERNAL FUNCTION add2 
  55.     INTEGER,INTEGER    
  56.     RETURNS INTEGER BY VALUE 
  57.     ENTRY_POINT "fn_add2" MODULE_NAME "udflib";
  58.  
  59. DECLARE EXTERNAL FUNCTION mul 
  60.     DOUBLE PRECISION, DOUBLE PRECISION    
  61.     RETURNS DOUBLE PRECISION BY VALUE 
  62.     ENTRY_POINT "fn_mul" MODULE_NAME "udflib";
  63.  
  64. DECLARE EXTERNAL FUNCTION abs
  65.     DOUBLE PRECISION
  66.     RETURNS DOUBLE PRECISION BY VALUE
  67.     ENTRY_POINT "fn_abs" MODULE_NAME "udflib";
  68.  
  69. DECLARE EXTERNAL FUNCTION maxnum 
  70.     DOUBLE PRECISION, DOUBLE PRECISION
  71.     RETURNS DOUBLE PRECISION BY VALUE
  72.     ENTRY_POINT "fn_max" MODULE_NAME "udflib";
  73.  
  74. DECLARE EXTERNAL FUNCTION sqrt 
  75.     DOUBLE PRECISION
  76.     RETURNS DOUBLE PRECISION
  77.     ENTRY_POINT "fn_sqrt" MODULE_NAME "udflib";
  78.  
  79. DECLARE EXTERNAL FUNCTION BLOB_BYTECOUNT
  80.     BLOB
  81.     RETURNS INTEGER BY VALUE
  82.     ENTRY_POINT "fn_blob_bytecount" MODULE_NAME "udflib";
  83.  
  84. DECLARE EXTERNAL FUNCTION BLOB_LINECOUNT
  85.     BLOB
  86.     RETURNS INTEGER BY VALUE
  87.     ENTRY_POINT "fn_blob_linecount" MODULE_NAME "udflib";
  88.  
  89. DECLARE EXTERNAL FUNCTION BLOB_SUBSTR 
  90.     BLOB, INTEGER, INTEGER 
  91.     RETURNS CSTRING(256) FREE_IT
  92.     ENTRY_POINT "fn_blob_substr" MODULE_NAME "udflib";
  93.  
  94.