8
0
mirror of https://github.com/FirebirdSQL/firebird.git synced 2025-01-22 23:23:02 +01:00

Builtin functions - same changes in legacy file

This commit is contained in:
alexpeshkoff 2007-06-01 13:16:43 +00:00
parent 2e0a8f6770
commit 6e42c542ea

View File

@ -32,11 +32,11 @@
* Returns the absolute value of a
* number.
*
*****************************************/
*****************************************
DECLARE EXTERNAL FUNCTION abs
DOUBLE PRECISION
RETURNS DOUBLE PRECISION BY VALUE
ENTRY_POINT 'IB_UDF_abs' MODULE_NAME 'ib_udf';
ENTRY_POINT 'IB_UDF_abs' MODULE_NAME 'ib_udf'; */
/*****************************************
*
@ -50,11 +50,11 @@ DECLARE EXTERNAL FUNCTION abs
* out of bounds it returns NaN, as handled
* by the _matherr routine.
*
*****************************************/
*****************************************
DECLARE EXTERNAL FUNCTION acos
DOUBLE PRECISION
RETURNS DOUBLE PRECISION BY VALUE
ENTRY_POINT 'IB_UDF_acos' MODULE_NAME 'ib_udf';
ENTRY_POINT 'IB_UDF_acos' MODULE_NAME 'ib_udf'; */
/*****************************************
*
@ -66,11 +66,11 @@ DECLARE EXTERNAL FUNCTION acos
* Returns the ASCII character corresponding
* with the value passed in.
*
*****************************************/
*****************************************
DECLARE EXTERNAL FUNCTION ascii_char
INTEGER
RETURNS CSTRING(1) FREE_IT
ENTRY_POINT 'IB_UDF_ascii_char' MODULE_NAME 'ib_udf';
ENTRY_POINT 'IB_UDF_ascii_char' MODULE_NAME 'ib_udf'; */
/*****************************************
*
@ -82,11 +82,11 @@ DECLARE EXTERNAL FUNCTION ascii_char
* Returns the ascii value of the character
* passed in.
*
*****************************************/
*****************************************
DECLARE EXTERNAL FUNCTION ascii_val
CHAR(1)
RETURNS INTEGER BY VALUE
ENTRY_POINT 'IB_UDF_ascii_val' MODULE_NAME 'ib_udf';
ENTRY_POINT 'IB_UDF_ascii_val' MODULE_NAME 'ib_udf'; */
/*****************************************
*
@ -99,11 +99,11 @@ DECLARE EXTERNAL FUNCTION ascii_val
* -1 and 1, if the number is out of
* range NaN is returned.
*
*****************************************/
*****************************************
DECLARE EXTERNAL FUNCTION asin
DOUBLE PRECISION
RETURNS DOUBLE PRECISION BY VALUE
ENTRY_POINT 'IB_UDF_asin' MODULE_NAME 'ib_udf';
ENTRY_POINT 'IB_UDF_asin' MODULE_NAME 'ib_udf'; */
/*****************************************
*
@ -115,11 +115,11 @@ DECLARE EXTERNAL FUNCTION asin
* Returns the arctangent of a number.
*
*
*****************************************/
*****************************************
DECLARE EXTERNAL FUNCTION atan
DOUBLE PRECISION
RETURNS DOUBLE PRECISION BY VALUE
ENTRY_POINT 'IB_UDF_atan' MODULE_NAME 'ib_udf';
ENTRY_POINT 'IB_UDF_atan' MODULE_NAME 'ib_udf'; */
/*****************************************
*
@ -131,11 +131,11 @@ DECLARE EXTERNAL FUNCTION atan
* Returns the arctangent of the
* first param / the second param.
*
*****************************************/
*****************************************
DECLARE EXTERNAL FUNCTION atan2
DOUBLE PRECISION, DOUBLE PRECISION
RETURNS DOUBLE PRECISION BY VALUE
ENTRY_POINT 'IB_UDF_atan2' MODULE_NAME 'ib_udf';
ENTRY_POINT 'IB_UDF_atan2' MODULE_NAME 'ib_udf'; */
/*****************************************
*
@ -147,11 +147,11 @@ DECLARE EXTERNAL FUNCTION atan2
* Returns the result of a binary AND
* operation performed on the two numbers.
*
*****************************************/
*****************************************
DECLARE EXTERNAL FUNCTION bin_and
INTEGER, INTEGER
RETURNS INTEGER BY VALUE
ENTRY_POINT 'IB_UDF_bin_and' MODULE_NAME 'ib_udf';
ENTRY_POINT 'IB_UDF_bin_and' MODULE_NAME 'ib_udf'; */
/*****************************************
*
@ -163,11 +163,11 @@ DECLARE EXTERNAL FUNCTION bin_and
* Returns the result of a binary OR
* operation performed on the two numbers.
*
*****************************************/
*****************************************
DECLARE EXTERNAL FUNCTION bin_or
INTEGER, INTEGER
RETURNS INTEGER BY VALUE
ENTRY_POINT 'IB_UDF_bin_or' MODULE_NAME 'ib_udf';
ENTRY_POINT 'IB_UDF_bin_or' MODULE_NAME 'ib_udf'; */
/*****************************************
*
@ -179,11 +179,11 @@ DECLARE EXTERNAL FUNCTION bin_or
* Returns the result of a binary XOR
* operation performed on the two numbers.
*
*****************************************/
*****************************************
DECLARE EXTERNAL FUNCTION bin_xor
INTEGER, INTEGER
RETURNS INTEGER BY VALUE
ENTRY_POINT 'IB_UDF_bin_xor' MODULE_NAME 'ib_udf';
ENTRY_POINT 'IB_UDF_bin_xor' MODULE_NAME 'ib_udf'; */
/*****************************************
*
@ -196,11 +196,11 @@ DECLARE EXTERNAL FUNCTION bin_xor
* the smallest integer that is greater
* than or equal to the input value.
*
*****************************************/
*****************************************
DECLARE EXTERNAL FUNCTION ceiling
DOUBLE PRECISION
RETURNS DOUBLE PRECISION BY VALUE
ENTRY_POINT 'IB_UDF_ceiling' MODULE_NAME 'ib_udf';
ENTRY_POINT 'IB_UDF_ceiling' MODULE_NAME 'ib_udf'; */
/*****************************************
*
@ -218,11 +218,11 @@ DECLARE EXTERNAL FUNCTION ceiling
* and returns an indefinite (same as a
* quiet NaN).
*
*****************************************/
*****************************************
DECLARE EXTERNAL FUNCTION cos
DOUBLE PRECISION
RETURNS DOUBLE PRECISION BY VALUE
ENTRY_POINT 'IB_UDF_cos' MODULE_NAME 'ib_udf';
ENTRY_POINT 'IB_UDF_cos' MODULE_NAME 'ib_udf'; */
/*****************************************
*
@ -240,11 +240,11 @@ DECLARE EXTERNAL FUNCTION cos
* and returns an indefinite (same as a
* quiet NaN).
*
*****************************************/
*****************************************
DECLARE EXTERNAL FUNCTION cosh
DOUBLE PRECISION
RETURNS DOUBLE PRECISION BY VALUE
ENTRY_POINT 'IB_UDF_cosh' MODULE_NAME 'ib_udf';
ENTRY_POINT 'IB_UDF_cosh' MODULE_NAME 'ib_udf'; */
/*****************************************
*
@ -256,11 +256,11 @@ DECLARE EXTERNAL FUNCTION cosh
* Returns 1 over the tangent of the
* input parameter.
*
*****************************************/
*****************************************
DECLARE EXTERNAL FUNCTION cot
DOUBLE PRECISION
RETURNS DOUBLE PRECISION BY VALUE
ENTRY_POINT 'IB_UDF_cot' MODULE_NAME 'ib_udf';
ENTRY_POINT 'IB_UDF_cot' MODULE_NAME 'ib_udf'; */
/*****************************************
*
@ -289,11 +289,11 @@ DECLARE EXTERNAL FUNCTION div
* representing the largest integer that
* is less than or equal to x
*
*****************************************/
*****************************************
DECLARE EXTERNAL FUNCTION floor
DOUBLE PRECISION
RETURNS DOUBLE PRECISION BY VALUE
ENTRY_POINT 'IB_UDF_floor' MODULE_NAME 'ib_udf';
ENTRY_POINT 'IB_UDF_floor' MODULE_NAME 'ib_udf'; */
/*****************************************
*
@ -304,11 +304,11 @@ DECLARE EXTERNAL FUNCTION floor
* Functional description:
* Returns the natural log of a number.
*
*****************************************/
*****************************************
DECLARE EXTERNAL FUNCTION ln
DOUBLE PRECISION
RETURNS DOUBLE PRECISION BY VALUE
ENTRY_POINT 'IB_UDF_ln' MODULE_NAME 'ib_udf';
ENTRY_POINT 'IB_UDF_ln' MODULE_NAME 'ib_udf'; */
/*****************************************
*
@ -320,11 +320,11 @@ DECLARE EXTERNAL FUNCTION ln
* log (x,y) returns the logarithm
* base x of y.
*
*****************************************/
*****************************************
DECLARE EXTERNAL FUNCTION log
DOUBLE PRECISION, DOUBLE PRECISION
RETURNS DOUBLE PRECISION BY VALUE
ENTRY_POINT 'IB_UDF_log' MODULE_NAME 'ib_udf';
ENTRY_POINT 'IB_UDF_log' MODULE_NAME 'ib_udf'; */
/*****************************************
*
@ -336,11 +336,11 @@ DECLARE EXTERNAL FUNCTION log
* Returns the logarithm base 10 of the
* input parameter.
*
*****************************************/
*****************************************
DECLARE EXTERNAL FUNCTION log10
DOUBLE PRECISION
RETURNS DOUBLE PRECISION BY VALUE
ENTRY_POINT 'IB_UDF_log10' MODULE_NAME 'ib_udf';
ENTRY_POINT 'IB_UDF_log10' MODULE_NAME 'ib_udf'; */
/*****************************************
*
@ -359,11 +359,11 @@ DECLARE EXTERNAL FUNCTION log10
* characters which is the limit on an
* INTERBASE character string.
*
*****************************************/
*****************************************
DECLARE EXTERNAL FUNCTION lower
CSTRING(255)
RETURNS CSTRING(255) FREE_IT
ENTRY_POINT 'IB_UDF_lower' MODULE_NAME 'ib_udf';
ENTRY_POINT 'IB_UDF_lower' MODULE_NAME 'ib_udf'; */
/*****************************************
*
@ -381,11 +381,11 @@ DECLARE EXTERNAL FUNCTION lower
* characters which is the limit on an
* INTERBASE character string.
*
*****************************************/
*****************************************
DECLARE EXTERNAL FUNCTION lpad
CSTRING(255), INTEGER, CSTRING(1)
RETURNS CSTRING(255) FREE_IT
ENTRY_POINT 'IB_UDF_lpad' MODULE_NAME 'ib_udf';
ENTRY_POINT 'IB_UDF_lpad' MODULE_NAME 'ib_udf'; */
/*****************************************
*
@ -418,11 +418,11 @@ DECLARE EXTERNAL FUNCTION ltrim
* Returns the remainder part of the
* division of the two input parameters.
*
*****************************************/
*****************************************
DECLARE EXTERNAL FUNCTION mod
INTEGER, INTEGER
RETURNS DOUBLE PRECISION BY VALUE
ENTRY_POINT 'IB_UDF_mod' MODULE_NAME 'ib_udf';
ENTRY_POINT 'IB_UDF_mod' MODULE_NAME 'ib_udf'; */
/*****************************************
*
@ -433,10 +433,10 @@ DECLARE EXTERNAL FUNCTION mod
* Functional description:
* Returns the value of pi = 3.1459...
*
*****************************************/
*****************************************
DECLARE EXTERNAL FUNCTION pi
RETURNS DOUBLE PRECISION BY VALUE
ENTRY_POINT 'IB_UDF_pi' MODULE_NAME 'ib_udf';
ENTRY_POINT 'IB_UDF_pi' MODULE_NAME 'ib_udf'; */
/*****************************************
*
@ -450,10 +450,10 @@ DECLARE EXTERNAL FUNCTION pi
* generator is seeded using the current
* time.
*
*****************************************/
*****************************************
DECLARE EXTERNAL FUNCTION rand
RETURNS DOUBLE PRECISION BY VALUE
ENTRY_POINT 'IB_UDF_rand' MODULE_NAME 'ib_udf';
ENTRY_POINT 'IB_UDF_rand' MODULE_NAME 'ib_udf'; */
/*****************************************
*
@ -471,11 +471,11 @@ DECLARE EXTERNAL FUNCTION rand
* characters which is the limit on an
* INTERBASE character string.
*
*****************************************/
*****************************************
DECLARE EXTERNAL FUNCTION rpad
CSTRING(255), INTEGER, CSTRING(1)
RETURNS CSTRING(255) FREE_IT
ENTRY_POINT 'IB_UDF_rpad' MODULE_NAME 'ib_udf';
ENTRY_POINT 'IB_UDF_rpad' MODULE_NAME 'ib_udf'; */
/*****************************************
*
@ -509,11 +509,11 @@ DECLARE EXTERNAL FUNCTION rtrim
* the input value is positive, zero or
* negative, respectively.
*
*****************************************/
*****************************************
DECLARE EXTERNAL FUNCTION sign
DOUBLE PRECISION
RETURNS INTEGER BY VALUE
ENTRY_POINT 'IB_UDF_sign' MODULE_NAME 'ib_udf';
ENTRY_POINT 'IB_UDF_sign' MODULE_NAME 'ib_udf'; */
/*****************************************
*
@ -529,11 +529,11 @@ DECLARE EXTERNAL FUNCTION sign
* function generates a _TLOSS error and
* returns an indefinite (same as a quiet NaN).
*
*****************************************/
*****************************************
DECLARE EXTERNAL FUNCTION sin
DOUBLE PRECISION
RETURNS DOUBLE PRECISION BY VALUE
ENTRY_POINT 'IB_UDF_sin' MODULE_NAME 'ib_udf';
ENTRY_POINT 'IB_UDF_sin' MODULE_NAME 'ib_udf'; */
/*****************************************
*
@ -549,11 +549,11 @@ DECLARE EXTERNAL FUNCTION sin
* function generates a _TLOSS error and
* returns an indefinite (same as a quiet NaN).
*
*****************************************/
*****************************************
DECLARE EXTERNAL FUNCTION sinh
DOUBLE PRECISION
RETURNS DOUBLE PRECISION BY VALUE
ENTRY_POINT 'IB_UDF_sinh' MODULE_NAME 'ib_udf';
ENTRY_POINT 'IB_UDF_sinh' MODULE_NAME 'ib_udf'; */
/*****************************************
*
@ -564,11 +564,11 @@ DECLARE EXTERNAL FUNCTION sinh
* Functional description:
* Returns the square root of a number.
*
*****************************************/
*****************************************
DECLARE EXTERNAL FUNCTION sqrt
DOUBLE PRECISION
RETURNS DOUBLE PRECISION BY VALUE
ENTRY_POINT 'IB_UDF_sqrt' MODULE_NAME 'ib_udf';
ENTRY_POINT 'IB_UDF_sqrt' MODULE_NAME 'ib_udf'; */
/*****************************************
*
@ -647,11 +647,11 @@ DECLARE EXTERNAL FUNCTION strlen
* _TLOSS error and returns an indefinite
* (same as a quiet NaN).
*
*****************************************/
*****************************************
DECLARE EXTERNAL FUNCTION tan
DOUBLE PRECISION
RETURNS DOUBLE PRECISION BY VALUE
ENTRY_POINT 'IB_UDF_tan' MODULE_NAME 'ib_udf';
ENTRY_POINT 'IB_UDF_tan' MODULE_NAME 'ib_udf'; */
/*****************************************
*
@ -668,9 +668,9 @@ DECLARE EXTERNAL FUNCTION tan
* _TLOSS error and returns an indefinite
* (same as a quiet NaN).
*
*****************************************/
*****************************************
DECLARE EXTERNAL FUNCTION tanh
DOUBLE PRECISION
RETURNS DOUBLE PRECISION BY VALUE
ENTRY_POINT 'IB_UDF_tanh' MODULE_NAME 'ib_udf';
ENTRY_POINT 'IB_UDF_tanh' MODULE_NAME 'ib_udf'; */