[fpc-pascal] Firebird UDF

[Codebue Fabio - P-Soft]

Codebue Fabio
.-----------------------------.
  _ \       __|       _||
  __/____|\__ \  _ \  _| _|
 _|       ____/\___/_| \__|

P-Soft di Codebue Fabio & C. sas
via B.Storti, 19
24060 - Chiuduno - BG
Italy
Phone: +39.030.839435
Fax: +39.030.5100306
Mobile: +39.348.3515786
.-----------------------------.
Web  : www.p-soft.biz
EMail: f.codebue at p-soft.biz  

-----Original Message-----
From: fpc-pascal-bounces at lists.freepascal.org
[mailto:fpc-pascal-bounces at lists.freepascal.org] On Behalf Of Stephano
Sent: Thursday, March 13, 2008 8:09 PM
To: FPC-Pascal users discussions
Subject: Re: [fpc-pascal] Firebird UDF

Codebue Fabio - P-Soft wrote:
> nothing todo...
> ok restart:
> library pudf;
> 
> {$mode objfpc}{$H+}
> 
> uses
>   Classes,
>   p_func in 'p_func.pas';
> 
> exports
>   pround name 'p_round';
> 
> {$R pudf.res}
> 
> begin
> 
> //  DECLARE EXTERNAL FUNCTION pround
> //   DOUBLE PRECISION, INTEGER
> //   RETURNS DOUBLE PRECISION BY VALUE
> //  ENTRY_POINT 'pudf_pround'  MODULE_NAME 'pudf';
> 
> end.                        
> 
> and
> 
> unit p_func;
> 
> {$mode objfpc}{$H+}
> 
> interface
>   function p_round(var valore: double; ndec: integer): double; cdecl;
> 
> implementation
> 
> uses
>   Classes, SysUtils;
> 
> function p_round(var valore: double; ndec: integer): double; cdecl;
> var
>   i: integer;
>   risultato: double;
>   ndivisore: integer;
> begin
> 
>   risultato:= valore;
>   ndivisore:= 1;
>   for i:= 1 to ndec do
>   begin
>     risultato:= risultato*10;
>     ndivisore:= ndivisore*10;
>   end;
> 
>   result:= round(risultato)/ndivisore;
> end;
> end.       
> 
> someone can compile and install?
> 
> I can... but when I try to execute
> 
> select round(123.1233, 2) as nrounded from rdb$database
> 
> always some error!!!

You are exporting now the function as p_round. So I guess your entry 
point should be pudf_p_round.

Furthermore, your sql includes round and not pround!

What is the error message you got?
_______________________________________________
fpc-pascal maillist  -  fpc-pascal at lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal