home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 January / Chip_2001-01_cd1.bin / tema / interb / InterBase_WI-V6.0-server.exe / server / examples / udf / udf.sql < prev    next >
Text File  |  2000-06-23  |  4KB  |  115 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.Interbase.com/IPL/
  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 Interbase Software Corporation
  13.  * and its successors. Portions created by Borland/Inprise are
  14.  * Copyright (C) 1992-1998 and 1999-2000 Borland/Inprise. Portions
  15.  * created by InterBase Software Corporation are Copyright (C)
  16.  * 1998-1999 InterBase Software Corporation.
  17.  *
  18.  * Copyright (C) 2000 InterBase Software Corporation
  19.  * All Rights Reserved.
  20.  * Contributor(s): ______________________________________.
  21.  */
  22.  
  23. /*--------------------------------------------------------------
  24. **    User Defined Function definitions for example databases
  25. **--------------------------------------------------------------
  26. */
  27.  
  28.  
  29. DECLARE EXTERNAL FUNCTION lower 
  30.     VARCHAR (256)    
  31.     RETURNS CSTRING(80) FREE_IT
  32.     ENTRY_POINT 'fn_lower_c' MODULE_NAME 'udflib';
  33.  
  34. DECLARE EXTERNAL FUNCTION substr 
  35.     CSTRING(256), SMALLINT, SMALLINT
  36.     RETURNS CSTRING(80) FREE_IT
  37.     ENTRY_POINT 'fn_substr' MODULE_NAME 'udflib';
  38.  
  39. DECLARE EXTERNAL FUNCTION trim 
  40.     CSTRING(256)
  41.     RETURNS CHAR (80) FREE_IT
  42.     ENTRY_POINT 'fn_trim' MODULE_NAME 'udflib';
  43.  
  44. DECLARE EXTERNAL FUNCTION trunc 
  45.     CSTRING(256), SMALLINT
  46.     RETURNS VARCHAR (80) FREE_IT
  47.     ENTRY_POINT 'fn_trunc' MODULE_NAME 'udflib';
  48.  
  49. DECLARE EXTERNAL FUNCTION strcat 
  50.     VARCHAR(255), VARCHAR (255)
  51.     RETURNS CSTRING(80) FREE_IT
  52.     ENTRY_POINT 'fn_strcat' MODULE_NAME 'udflib';
  53.  
  54. DECLARE EXTERNAL FUNCTION doy 
  55.     RETURNS INTEGER BY VALUE
  56.     ENTRY_POINT 'fn_doy' MODULE_NAME 'udflib';
  57.  
  58. DECLARE EXTERNAL FUNCTION moy 
  59.     RETURNS SMALLINT 
  60.     ENTRY_POINT 'fn_moy' MODULE_NAME 'udflib';
  61.  
  62. DECLARE EXTERNAL FUNCTION dow 
  63.     RETURNS CSTRING(12) 
  64.     ENTRY_POINT 'fn_dow' MODULE_NAME 'udflib';
  65.  
  66. DECLARE EXTERNAL FUNCTION sysdate 
  67.     RETURNS CSTRING(12) FREE_IT
  68.     ENTRY_POINT 'fn_sysdate' MODULE_NAME 'udflib';
  69.  
  70. DECLARE EXTERNAL FUNCTION fact 
  71.     DOUBLE PRECISION    
  72.     RETURNS DOUBLE PRECISION BY VALUE
  73.     ENTRY_POINT 'fn_fact' MODULE_NAME 'udflib';
  74.  
  75. DECLARE EXTERNAL FUNCTION add2 
  76.     INTEGER,INTEGER    
  77.     RETURNS INTEGER BY VALUE 
  78.     ENTRY_POINT 'fn_add2' MODULE_NAME 'udflib';
  79.  
  80. DECLARE EXTERNAL FUNCTION mul 
  81.     DOUBLE PRECISION, DOUBLE PRECISION    
  82.     RETURNS DOUBLE PRECISION BY VALUE 
  83.     ENTRY_POINT 'fn_mul' MODULE_NAME 'udflib';
  84.  
  85. DECLARE EXTERNAL FUNCTION abs
  86.     DOUBLE PRECISION
  87.     RETURNS DOUBLE PRECISION BY VALUE
  88.     ENTRY_POINT 'fn_abs' MODULE_NAME 'udflib';
  89.  
  90. DECLARE EXTERNAL FUNCTION maxnum 
  91.     DOUBLE PRECISION, DOUBLE PRECISION
  92.     RETURNS DOUBLE PRECISION BY VALUE
  93.     ENTRY_POINT 'fn_max' MODULE_NAME 'udflib';
  94.  
  95. DECLARE EXTERNAL FUNCTION sqrt 
  96.     DOUBLE PRECISION
  97.     RETURNS DOUBLE PRECISION
  98.     ENTRY_POINT 'fn_sqrt' MODULE_NAME 'udflib';
  99.  
  100. DECLARE EXTERNAL FUNCTION BLOB_BYTECOUNT
  101.     BLOB
  102.     RETURNS INTEGER BY VALUE
  103.     ENTRY_POINT 'fn_blob_bytecount' MODULE_NAME 'udflib';
  104.  
  105. DECLARE EXTERNAL FUNCTION BLOB_LINECOUNT
  106.     BLOB
  107.     RETURNS INTEGER BY VALUE
  108.     ENTRY_POINT 'fn_blob_linecount' MODULE_NAME 'udflib';
  109.  
  110. DECLARE EXTERNAL FUNCTION BLOB_SUBSTR 
  111.     BLOB, INTEGER, INTEGER 
  112.     RETURNS CSTRING(256) FREE_IT
  113.     ENTRY_POINT 'fn_blob_substr' MODULE_NAME 'udflib';
  114.  
  115.