Application: gvSIG desktop

-- encoding: utf-8; lang: cosa

CREATE FUNCTION test1 AS

BEGIN

    SET x  ''; 

    FOR n IN LIST('hola','adios','fin'):

        SET x = x || ' ' || n; 

    END 

    RETURN x;

END

CREATE FUNCTION test2 AS

$$

    SET s  ''; 

    SET x TO LIST('hola','adios','fin'); 

    FOR n IN RANGE(3):

        SET s = s || ' ' || x[n]; 

    END FOR;

    RETURN s;

$$

CREATE FUNCTION saluda AS

BEGIN

    IF LEN($ARGS) > 0 THEN

        SET s TO 'Hola ' || $ARGS[0];

    ELSE

        SET s = 'Hola.';

    END;

    PRINT(s);

    RETURN s;

END

CREATE FUNCTION test3 AS

BEGIN 

    RETURN saluda('amigos');

END