mirror of
https://github.com/danieleteti/delphimvcframework.git
synced 2024-11-17 08:45:55 +01:00
112 lines
3.1 KiB
SQL
112 lines
3.1 KiB
SQL
/*
|
|
* The contents of this file are subject to the Interbase Public
|
|
* License Version 1.0 (the "License"); you may not use this file
|
|
* except in compliance with the License. You may obtain a copy
|
|
* of the License at http://www.Inprise.com/IPL.html
|
|
*
|
|
* Software distributed under the License is distributed on an
|
|
* "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
|
|
* or implied. See the License for the specific language governing
|
|
* rights and limitations under the License.
|
|
*
|
|
* The Original Code was created by Inprise Corporation
|
|
* and its predecessors. Portions created by Inprise Corporation are
|
|
* Copyright (C) Inprise Corporation.
|
|
*
|
|
* All Rights Reserved.
|
|
* Contributor(s): ______________________________________.
|
|
*/
|
|
|
|
/*--------------------------------------------------------------
|
|
** User Defined Function definitions for example databases
|
|
**--------------------------------------------------------------
|
|
*/
|
|
|
|
|
|
DECLARE EXTERNAL FUNCTION lower
|
|
VARCHAR (256)
|
|
RETURNS CSTRING(80) FREE_IT
|
|
ENTRY_POINT 'fn_lower_c' MODULE_NAME 'udflib';
|
|
|
|
DECLARE EXTERNAL FUNCTION substr
|
|
CSTRING(256), SMALLINT, SMALLINT
|
|
RETURNS CSTRING(80) FREE_IT
|
|
ENTRY_POINT 'fn_substr' MODULE_NAME 'udflib';
|
|
|
|
DECLARE EXTERNAL FUNCTION trim
|
|
CSTRING(256)
|
|
RETURNS CHAR (80) FREE_IT
|
|
ENTRY_POINT 'fn_trim' MODULE_NAME 'udflib';
|
|
|
|
DECLARE EXTERNAL FUNCTION trunc
|
|
CSTRING(256), SMALLINT
|
|
RETURNS VARCHAR (80) FREE_IT
|
|
ENTRY_POINT 'fn_trunc' MODULE_NAME 'udflib';
|
|
|
|
DECLARE EXTERNAL FUNCTION strcat
|
|
VARCHAR(255), VARCHAR (255)
|
|
RETURNS CSTRING(80) FREE_IT
|
|
ENTRY_POINT 'fn_strcat' MODULE_NAME 'udflib';
|
|
|
|
DECLARE EXTERNAL FUNCTION doy
|
|
RETURNS INTEGER BY VALUE
|
|
ENTRY_POINT 'fn_doy' MODULE_NAME 'udflib';
|
|
|
|
DECLARE EXTERNAL FUNCTION moy
|
|
RETURNS SMALLINT
|
|
ENTRY_POINT 'fn_moy' MODULE_NAME 'udflib';
|
|
|
|
DECLARE EXTERNAL FUNCTION dow
|
|
RETURNS CSTRING(12)
|
|
ENTRY_POINT 'fn_dow' MODULE_NAME 'udflib';
|
|
|
|
DECLARE EXTERNAL FUNCTION sysdate
|
|
RETURNS CSTRING(12) FREE_IT
|
|
ENTRY_POINT 'fn_sysdate' MODULE_NAME 'udflib';
|
|
|
|
DECLARE EXTERNAL FUNCTION fact
|
|
DOUBLE PRECISION
|
|
RETURNS DOUBLE PRECISION BY VALUE
|
|
ENTRY_POINT 'fn_fact' MODULE_NAME 'udflib';
|
|
|
|
DECLARE EXTERNAL FUNCTION add2
|
|
INTEGER,INTEGER
|
|
RETURNS INTEGER BY VALUE
|
|
ENTRY_POINT 'fn_add2' MODULE_NAME 'udflib';
|
|
|
|
DECLARE EXTERNAL FUNCTION mul
|
|
DOUBLE PRECISION, DOUBLE PRECISION
|
|
RETURNS DOUBLE PRECISION BY VALUE
|
|
ENTRY_POINT 'fn_mul' MODULE_NAME 'udflib';
|
|
|
|
DECLARE EXTERNAL FUNCTION abs
|
|
DOUBLE PRECISION
|
|
RETURNS DOUBLE PRECISION BY VALUE
|
|
ENTRY_POINT 'fn_abs' MODULE_NAME 'udflib';
|
|
|
|
DECLARE EXTERNAL FUNCTION maxnum
|
|
DOUBLE PRECISION, DOUBLE PRECISION
|
|
RETURNS DOUBLE PRECISION BY VALUE
|
|
ENTRY_POINT 'fn_max' MODULE_NAME 'udflib';
|
|
|
|
DECLARE EXTERNAL FUNCTION sqrt
|
|
DOUBLE PRECISION
|
|
RETURNS DOUBLE PRECISION
|
|
ENTRY_POINT 'fn_sqrt' MODULE_NAME 'udflib';
|
|
|
|
DECLARE EXTERNAL FUNCTION BLOB_BYTECOUNT
|
|
BLOB
|
|
RETURNS INTEGER BY VALUE
|
|
ENTRY_POINT 'fn_blob_bytecount' MODULE_NAME 'udflib';
|
|
|
|
DECLARE EXTERNAL FUNCTION BLOB_LINECOUNT
|
|
BLOB
|
|
RETURNS INTEGER BY VALUE
|
|
ENTRY_POINT 'fn_blob_linecount' MODULE_NAME 'udflib';
|
|
|
|
DECLARE EXTERNAL FUNCTION BLOB_SUBSTR
|
|
BLOB, INTEGER, INTEGER
|
|
RETURNS CSTRING(256) FREE_IT
|
|
ENTRY_POINT 'fn_blob_substr' MODULE_NAME 'udflib';
|
|
|