home *** CD-ROM | disk | FTP | other *** search
/ Freelog 42 / Freelog042.iso / Alu / Ancestrologie / Sources / InterBase_WI-V6.0.1-server.ZIP / examples / udf / udf.sql < prev    next >
Text File  |  2001-01-05  |  3KB  |  112 lines
  1. /*
  2.  * The contents of this file are subject to the Interbase Public
  3.  * License Version 1.0 (the "License"); you may not use this file
  4.  * except in compliance with the License. You may obtain a copy
  5.  * of the License at http://www.Inprise.com/IPL.html
  6.  *
  7.  * Software distributed under the License is distributed on an
  8.  * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
  9.  * or implied. See the License for the specific language governing
  10.  * rights and limitations under the License.
  11.  *
  12.  * The Original Code was created by Inprise Corporation
  13.  * and its predecessors. Portions created by Inprise Corporation are
  14.  *
  15.  * Copyright (C) 2000 Inprise Corporation
  16.  * All Rights Reserved.
  17.  * Contributor(s): ______________________________________.
  18.  */
  19.  
  20. /*--------------------------------------------------------------
  21. **    User Defined Function definitions for example databases
  22. **--------------------------------------------------------------
  23. */
  24.  
  25.  
  26. DECLARE EXTERNAL FUNCTION lower 
  27.     VARCHAR (256)    
  28.     RETURNS CSTRING(80) FREE_IT
  29.     ENTRY_POINT 'fn_lower_c' MODULE_NAME 'udflib';
  30.  
  31. DECLARE EXTERNAL FUNCTION substr 
  32.     CSTRING(256), SMALLINT, SMALLINT
  33.     RETURNS CSTRING(80) FREE_IT
  34.     ENTRY_POINT 'fn_substr' MODULE_NAME 'udflib';
  35.  
  36. DECLARE EXTERNAL FUNCTION trim 
  37.     CSTRING(256)
  38.     RETURNS CHAR (80) FREE_IT
  39.     ENTRY_POINT 'fn_trim' MODULE_NAME 'udflib';
  40.  
  41. DECLARE EXTERNAL FUNCTION trunc 
  42.     CSTRING(256), SMALLINT
  43.     RETURNS VARCHAR (80) FREE_IT
  44.     ENTRY_POINT 'fn_trunc' MODULE_NAME 'udflib';
  45.  
  46. DECLARE EXTERNAL FUNCTION strcat 
  47.     VARCHAR(255), VARCHAR (255)
  48.     RETURNS CSTRING(80) FREE_IT
  49.     ENTRY_POINT 'fn_strcat' MODULE_NAME 'udflib';
  50.  
  51. DECLARE EXTERNAL FUNCTION doy 
  52.     RETURNS INTEGER BY VALUE
  53.     ENTRY_POINT 'fn_doy' MODULE_NAME 'udflib';
  54.  
  55. DECLARE EXTERNAL FUNCTION moy 
  56.     RETURNS SMALLINT 
  57.     ENTRY_POINT 'fn_moy' MODULE_NAME 'udflib';
  58.  
  59. DECLARE EXTERNAL FUNCTION dow 
  60.     RETURNS CSTRING(12) 
  61.     ENTRY_POINT 'fn_dow' MODULE_NAME 'udflib';
  62.  
  63. DECLARE EXTERNAL FUNCTION sysdate 
  64.     RETURNS CSTRING(12) FREE_IT
  65.     ENTRY_POINT 'fn_sysdate' MODULE_NAME 'udflib';
  66.  
  67. DECLARE EXTERNAL FUNCTION fact 
  68.     DOUBLE PRECISION    
  69.     RETURNS DOUBLE PRECISION BY VALUE
  70.     ENTRY_POINT 'fn_fact' MODULE_NAME 'udflib';
  71.  
  72. DECLARE EXTERNAL FUNCTION add2 
  73.     INTEGER,INTEGER    
  74.     RETURNS INTEGER BY VALUE 
  75.     ENTRY_POINT 'fn_add2' MODULE_NAME 'udflib';
  76.  
  77. DECLARE EXTERNAL FUNCTION mul 
  78.     DOUBLE PRECISION, DOUBLE PRECISION    
  79.     RETURNS DOUBLE PRECISION BY VALUE 
  80.     ENTRY_POINT 'fn_mul' MODULE_NAME 'udflib';
  81.  
  82. DECLARE EXTERNAL FUNCTION abs
  83.     DOUBLE PRECISION
  84.     RETURNS DOUBLE PRECISION BY VALUE
  85.     ENTRY_POINT 'fn_abs' MODULE_NAME 'udflib';
  86.  
  87. DECLARE EXTERNAL FUNCTION maxnum 
  88.     DOUBLE PRECISION, DOUBLE PRECISION
  89.     RETURNS DOUBLE PRECISION BY VALUE
  90.     ENTRY_POINT 'fn_max' MODULE_NAME 'udflib';
  91.  
  92. DECLARE EXTERNAL FUNCTION sqrt 
  93.     DOUBLE PRECISION
  94.     RETURNS DOUBLE PRECISION
  95.     ENTRY_POINT 'fn_sqrt' MODULE_NAME 'udflib';
  96.  
  97. DECLARE EXTERNAL FUNCTION BLOB_BYTECOUNT
  98.     BLOB
  99.     RETURNS INTEGER BY VALUE
  100.     ENTRY_POINT 'fn_blob_bytecount' MODULE_NAME 'udflib';
  101.  
  102. DECLARE EXTERNAL FUNCTION BLOB_LINECOUNT
  103.     BLOB
  104.     RETURNS INTEGER BY VALUE
  105.     ENTRY_POINT 'fn_blob_linecount' MODULE_NAME 'udflib';
  106.  
  107. DECLARE EXTERNAL FUNCTION BLOB_SUBSTR 
  108.     BLOB, INTEGER, INTEGER 
  109.     RETURNS CSTRING(256) FREE_IT
  110.     ENTRY_POINT 'fn_blob_substr' MODULE_NAME 'udflib';
  111.  
  112.