Funcion de Que Retorna una Cadena

[Abel Garcia]

Que tal de antemano gracias por la atension.

Tambien yo tengo instalado la version 1.5.2 y los archivos de donde saque el ejemplo que cito en mi hilo son:

C:\Archivos de programa\Firebird\Firebird_1_5\examples\udflib.c
C:\Archivos de programa\Firebird\Firebird_1_5\include\ib_util.h
C:\Archivos de programa\Firebird\Firebird_1_5\lib\ib_util_ms.lib
C:\Archivos de programa\Firebird\Firebird_1_5\examples\udf.sql


en el Archivo "C:\Archivos de programa\Firebird\Firebird_1_5\examples\udflib.c"
se encuentra el codigo :

char* EXPORT fn_lower_c (ARG(char*, s))
ARGLIST(char *s) /* VARCHAR input */
{
char *buf;
short length = 0;
char *buffer = (char *)malloc(256);
length = (short)*s;
s += 2;
buf = buffer;
while (*s)
if (*s >= 'A' && *s <= 'Z')
*buf++ = *s++ - 'A' + 'a';
else
*buf++ = *s++;
*buf = '\0';
buffer [length] = '\0';
return buffer;
}

y en el archivo "C:\Archivos de programa\Firebird\Firebird_1_5\examples\udf.sql" se encuentra el codigo :

DECLARE EXTERNAL FUNCTION lower
VARCHAR (256)
RETURNS CSTRING(80) FREE_IT
ENTRY_POINT 'fn_lower_c' MODULE_NAME 'udflib';

que corresponde al codigo de la base de datos

Bueno esto es con respecto al codigo de duda, por otra parte me gustaria aclarar que mi interes no es utilizar o reporgramar la funcion lower.
este lo tome como ejemplo debido a que retorna una cadena, mi interes de echo es hacer una Funcion que devuelva Uno de los elementos de una cadena separado cada elemento por por ejemplo un "." Por ejemplo

F("carro.casa.perro" , 1 ) = carro
F("carro.casa.perro" , 2 ) = casa
F("carro.casa.perro" , 3 ) = Perro

bueno espero ser claro con esta explicacion. talvez esta funcion ya exista en alguna libreria y yo este intentando inventar el hilo negro, de ser asi pues agradeceria el tip.
De antemano muchas gracias.

[Rufus]

Desde ya te digo que no muestres credibilidad o mucho interés por lo que hay en el directorio examples de la instalación de firebird. Los propios desarrolladores de firebird dicen que la base de datos de ejemplo EMPLOYEE, la cual se encuentra justamente en la carpeta en cuestión examples, la han incluido en firebird simplemente porque venía originalmente con interbase, pero que no la han tocado en absoluto y que NO recomiendan su uso o su esquema para aprender porque está mal diseñada dede su origen. Es problable que pase lo mismo con el resto de ese directorio, es decir, que no hayan tocado nada, así que si se llama examples, pues no hay que preocuparse mucho por lo que hay ahí, ¿no crees?

¿Quieres ver en serio (de verdad) cómo se declaran las udf que trae firebird? Ya lo sabes, están en la carpeta UDF.

¿Quieres ver en serio (de verdad) cómo están hechas internamente (codigo fuente) de las UDF? Bájate el código fuente de firebird, está disponible desde firebirdsql.org o sourceforge y se baja en un paquete aparte al del instalador.