Re: [fpc-pascal]Math/Algebra Unit for FreePascal
- Original Message - From: "Agustin Barto" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Thursday, July 22, 2004 7:59 PM Subject: Re: [fpc-pascal]Math/Algebra Unit for FreePascal > 1) Using proprietary software to build scientific applications (like > in my case) is just wrong. You never know what there might be > happening "under the hood". And you are bound to licenses and EULAS > that are designed to avoid any kind of responsability of the software > maker. I doubt you know what happens "under the hood" of free pascal. Though you do have a little point here... In case you ever find a problem with free pascal people in this mailing list might be able to help you faster than the delphi developers ;) Also I believe the free pascal source code is fully available so you might look at specific parts ;) > > 2) There is a Delphi personal edition. It's being sold for usd 100. > I'm not going to pay usd 100 for a software license that tells me what > can o can't do with it. I rather donate that money to an free software > project or a local charity. I believe there is a free delphi version somewhere ;) Open source usually have licenses as well which tell you what you can and can't do. > > 3) Everytime I have to boot on Windows I feel like a little part of me > dies. Everytime time Windows hags that little part goes to Hell and > says "hi" to Bill Gates. Lol. I think Delphi and Windows are well tested and a excellent choice for any type of application =D ___ fpc-pascal maillist - [EMAIL PROTECTED] http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: [fpc-pascal]Math/Algebra Unit for FreePascal
Harald Houppermans wrote: 3) Everytime I have to boot on Windows I feel like a little part of me dies. Everytime time Windows hags that little part goes to Hell and says "hi" to Bill Gates. Lol. I think Delphi and Windows are well tested and a excellent choice for any type of application =D Ok, try to compile a _working_ fpc with delphi :> ___ fpc-pascal maillist - [EMAIL PROTECTED] http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: [fpc-pascal]Math/Algebra Unit for FreePascal
- Original Message - From: "Florian Klaempfl" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Saturday, July 24, 2004 2:25 PM Subject: Re: [fpc-pascal]Math/Algebra Unit for FreePascal > Harald Houppermans wrote: > >>3) Everytime I have to boot on Windows I feel like a little part of me > >>dies. Everytime time Windows hags that little part goes to Hell and > >>says "hi" to Bill Gates. > > > > > > Lol. > > > > I think Delphi and Windows are well tested and a excellent choice for any > > type of application =D > > Ok, try to compile a _working_ fpc with delphi :> Hmm, you mean I should try to compile the free pascal compiler with delphi ? :) I think the free pascal compiler was written in pascal ? What pascal compiler is used to compile free pascal ? :) ___ fpc-pascal maillist - [EMAIL PROTECTED] http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: [fpc-pascal]Math/Algebra Unit for FreePascal
On Sat, 24 Jul 2004 14:24:35 +0200, Harald Houppermans <[EMAIL PROTECTED]> wrote: > > I doubt you know what happens "under the hood" of free pascal. > That's not the point. > Also I believe the free pascal source code is fully available so you might > look at specific parts ;) That's the point :) No, seriously, I have some years of experience working with Java and C, C++ and I'm almost a CS graduate, so I guess if I had the time I could see "what's under the hood" and understand it. > I believe there is a free delphi version somewhere ;) Borland removed it from the web and ftp site. Anyway I bought an old magazine that had Delphi 6 PE, and apparently it's still legal to use it. If you think about it it's pretty weird given that they have similar versions for C++Builder and JBuilder. > Open source usually have licenses as well which tell you what you can and > can't do. Yes, but you don't have to throw your money to a corporation that could leave you hanging. Think about what happened with Kylix. That project is obviously abandoned. Have you tried to make it work on any the newest linux distributions? Good luck. If it was a free software project someone (like myself) could take the source and make it work. > I think Delphi and Windows are well tested and a excellent choice for any > type of application =D I worked several years as a network administrator for a a school of engineering and I got a lot of feedback from the users about Windows. I seriously wouldn't use Windows for any production project. It it fundamentally flawed and a waste of money and resources. Linux could be flawed too, but my money goes to a local LUG that makes good use of it and not to a group of people that are rich beyond anyone's imagination. I don't know about Delphi, I've been using it for a couple of years and it didn't hang even once. But, then again, maybe I was just lucky. I have nothing against Borland, I own several of their products, but IMHO free software is better than proprietary software. I DO have a LOT agains MIcrosoft. Microsoft represents almost everything that's wrong with capitalism and does everything it can to get "better" at it every year. I live in a country that suffers from this kind of company's behavior. I refuse to be an accomplice. ___ fpc-pascal maillist - [EMAIL PROTECTED] http://lists.freepascal.org/mailman/listinfo/fpc-pascal
[fpc-pascal]UDF + FreePascal + Firebird 1.5
I created a UDF, just to test and try to discovery what's wrong. I ill explain what I did step by step. I created a teste.pas file like this: library teste; function intmax(a,b: Integer): Integer; stdcall; export; begin if a>b then intmax:=a else intmax:=b; end; exports intmax; end. I compile with freepascal: fpc teste I moved to udf directory on firebird: mv libteste.so /usr/local/firebird/UDF/ I changed permissions: cd /usr/local/firebird/UDF chown firebird:firebird libteste.so chmod 550 libteste.so I declared UDF: DECLARE EXTERNAL FUNCTION INTMAX INTEGER, INTEGER RETURNS INTEGER BY VALUE ENTRY_POINT 'intmax' MODULE_NAME 'teste'; I test it: select intmax(1,2) from rdb$database; And I got this error message: Invalid token. invalid request BLR at offset 60. function INTMAX is not defined. module name or entrypoint could not be found. Does anyone have any ideas? Thanks in advance, Guto ___ fpc-pascal maillist - [EMAIL PROTECTED] http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: [fpc-pascal]UDF + FreePascal + Firebird 1.5
> I created a UDF, just to test and try to discovery what's wrong. > I ill explain what I did step by step. > > I created a teste.pas file like this: > > > > library teste; > > function intmax(a,b: Integer): Integer; stdcall; export; > begin > if a>b then intmax:=a else intmax:=b; > end; > > exports > intmax; > > end. > > > > I compile with freepascal: > fpc teste > > I moved to udf directory on firebird: > mv libteste.so /usr/local/firebird/UDF/ > > I changed permissions: > cd /usr/local/firebird/UDF > chown firebird:firebird libteste.so > chmod 550 libteste.so > > I declared UDF: > > DECLARE EXTERNAL FUNCTION INTMAX >INTEGER, >INTEGER > RETURNS INTEGER BY VALUE > ENTRY_POINT 'intmax' MODULE_NAME 'teste'; > > I test it: > select intmax(1,2) from rdb$database; > > And I got this error message: > Invalid token. > invalid request BLR at offset 60. > function INTMAX is not defined. > module name or entrypoint could not be found. > > Does anyone have any ideas? > Are you 100% sure it doesn't have to be cdecl; instead of stdcall on *nix? ___ fpc-pascal maillist - [EMAIL PROTECTED] http://lists.freepascal.org/mailman/listinfo/fpc-pascal
[fpc-pascal]Socket programming with FPC
Hello, Is it possible to do socket programming under win32 with FPC 1.0.10 or 1.9.4? Which unit should I check out? If possible under win32, what about DOS? Thanks! ___ fpc-pascal maillist - [EMAIL PROTECTED] http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: [fpc-pascal]Math/Algebra Unit for FreePascal
On 24 jul 2004, at 14:57, Harald Houppermans wrote: Ok, try to compile a _working_ fpc with delphi :> Hmm, you mean I should try to compile the free pascal compiler with delphi ? :) Yes, he does. I think the free pascal compiler was written in pascal ? It is. What pascal compiler is used to compile free pascal ? :) Free Pascal :) Jonas ___ fpc-pascal maillist - [EMAIL PROTECTED] http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: [fpc-pascal]UDF + FreePascal + Firebird 1.5
I tried with both, but I get the same error... I wrote the same lib in C, and works fine, but I wouldnt like to maintain a C version of all my libraries (actually written in Delphi)... I believe thats a directive of something like that I must to use to works in FreePascal. Any idea? Thanks, Guto On Sat, 24 Jul 2004 16:21:23 +0200 (CEST), Marco van de Voort <[EMAIL PROTECTED]> wrote: > > > > I created a UDF, just to test and try to discovery what's wrong. > > I ill explain what I did step by step. > > > > I created a teste.pas file like this: > > > > > > > > library teste; > > > > function intmax(a,b: Integer): Integer; stdcall; export; > > begin > > if a>b then intmax:=a else intmax:=b; > > end; > > > > exports > > intmax; > > > > end. > > > > > > > > I compile with freepascal: > > fpc teste > > > > I moved to udf directory on firebird: > > mv libteste.so /usr/local/firebird/UDF/ > > > > I changed permissions: > > cd /usr/local/firebird/UDF > > chown firebird:firebird libteste.so > > chmod 550 libteste.so > > > > I declared UDF: > > > > DECLARE EXTERNAL FUNCTION INTMAX > >INTEGER, > >INTEGER > > RETURNS INTEGER BY VALUE > > ENTRY_POINT 'intmax' MODULE_NAME 'teste'; > > > > I test it: > > select intmax(1,2) from rdb$database; > > > > And I got this error message: > > Invalid token. > > invalid request BLR at offset 60. > > function INTMAX is not defined. > > module name or entrypoint could not be found. > > > > Does anyone have any ideas? > > > > Are you 100% sure it doesn't have to be cdecl; instead of stdcall on *nix? > > ___ > fpc-pascal maillist - [EMAIL PROTECTED] > http://lists.freepascal.org/mailman/listinfo/fpc-pascal > -- Guto ___ fpc-pascal maillist - [EMAIL PROTECTED] http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: [fpc-pascal]UDF + FreePascal + Firebird 1.5
> I tried with both, but I get the same error... > > I wrote the same lib in C, and works fine, but I wouldnt like to > maintain a C version of all my libraries (actually written in > Delphi)... How is the C stuff defined? With stdcall or cdecl? > I believe thats a directive of something like that I must to use to > works in FreePascal. Maybe it needs pic or so ___ fpc-pascal maillist - [EMAIL PROTECTED] http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: [fpc-pascal]Socket programming with FPC
> Is it possible to do socket programming under win32 with FPC 1.0.10 or > 1.9.4? Yes both. For 1.9.4 complete suites (ICS, see www.overbyte.be) are available, see in CVS projects/contrib/ics and deeper. > Which unit should I check out? sockets, winsock > If possible under win32, what about DOS? DOS has no networking by default, and no universal API. You will have to find/make a unit that does that. Check out the contributed units page for something from Diego de Marco (or something like that). However this is a _lot_ more difficult. ___ fpc-pascal maillist - [EMAIL PROTECTED] http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: [fpc-pascal]Math/Algebra Unit for FreePascal
Harald Houppermans wrote: - Original Message - From: "Florian Klaempfl" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Saturday, July 24, 2004 2:25 PM Subject: Re: [fpc-pascal]Math/Algebra Unit for FreePascal Harald Houppermans wrote: 3) Everytime I have to boot on Windows I feel like a little part of me dies. Everytime time Windows hags that little part goes to Hell and says "hi" to Bill Gates. Lol. I think Delphi and Windows are well tested and a excellent choice for any type of application =D Ok, try to compile a _working_ fpc with delphi :> Hmm, you mean I should try to compile the free pascal compiler with delphi ? :) The last time we tried to compile FPC with Delphi (and made the sources delphi compatible), Delphi didn't get more out than internal errors, so Delphi isn't always the choice :) I think the free pascal compiler was written in pascal ? Yes? What pascal compiler is used to compile free pascal ? :) FPC. Early versions were compiled with TP. ___ fpc-pascal maillist - [EMAIL PROTECTED] http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: [fpc-pascal]UDF + FreePascal + Firebird 1.5
I believe, thats "cdecl",
this is not explicit, and I get this example from
http://www.firebirdsql.org/index.php?op=useful&id=deatz_udf#linux
the function is:
int modulo(int *, int *);
int modulo(a, b)
int *a;
int *b;
{
if (*b == 0)
return -1;
else
return *a % *b;
}
and I compiled with:
gcc -c -O -fpic -fwritable-strings testec.c
ld -G .o -lm -lc -o testec.so
cp testec.so /usr/local/firebird/UDF
and I declared with:
declare external function f_Modulo
integer, integer
returns
integer by value
entry_point 'modulo' module_name 'name of shared library';
On Sat, 24 Jul 2004 17:48:29 +0200 (CEST), Marco van de Voort
<[EMAIL PROTECTED]> wrote:
> > I tried with both, but I get the same error...
> >
> > I wrote the same lib in C, and works fine, but I wouldnt like to
> > maintain a C version of all my libraries (actually written in
> > Delphi)...
>
> How is the C stuff defined? With stdcall or cdecl?
>
> > I believe thats a directive of something like that I must to use to
> > works in FreePascal.
>
> Maybe it needs pic or so
>
>
>
> ___
> fpc-pascal maillist - [EMAIL PROTECTED]
> http://lists.freepascal.org/mailman/listinfo/fpc-pascal
>
--
Guto
___
fpc-pascal maillist - [EMAIL PROTECTED]
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: [fpc-pascal]UDF + FreePascal + Firebird 1.5
On Sat, 24 Jul 2004, Guto wrote:
> I tried with both, but I get the same error...
Nevertheless, the library can be loaded and used without problems by
an FPC program, I tested this:
program testee;
function intmax (A,B : integer): integer; stdcall; external 'libteste' name
'intmax';
begin
Writeln('Intmax 1,2 : ',intmax(1,2));
end.
And it correctly prints 2.
So the error must be in Firebird somewhere.
- I am confused about the changing of owner and permissions. Have you tried
changing it to root, with permissions 755 ?
- About calling conventions:
Firebird will definitely expect 'cdecl' on Linux, but 'stdcall' on Windows.
A warning: 'integer' in standard FPC mode is 2 bytes, not 4, which is what
Firebird expects. I suggest you add a {$mode objfpc} at the start of your
code, which will make integer 4 bytes.
> > > mv libteste.so /usr/local/firebird/UDF/
> > >
> > > I changed permissions:
> > > cd /usr/local/firebird/UDF
> > > chown firebird:firebird libteste.so
> > > chmod 550 libteste.so
> > >
> > > I declared UDF:
> > >
This is the mistake you made:
DECLARE EXTERNAL FUNCTION INTMAX
INTEGER,
INTEGER
RETURNS INTEGER BY VALUE
ENTRY_POINT 'intmax' MODULE_NAME 'libteste';
You must explicitly add the 'lib'; firebird does not add it itself. Look at
the standard libraries, they also miss the 'lib' prefix.
if you change it to the above, (with calling convention cdecl) it works correctly.
Michael.
> > >
> > > I test it:
> > > select intmax(1,2) from rdb$database;
> > >
> > > And I got this error message:
> > > Invalid token.
> > > invalid request BLR at offset 60.
> > > function INTMAX is not defined.
> > > module name or entrypoint could not be found.
> > >
> > > Does anyone have any ideas?
> > >
> >
> > Are you 100% sure it doesn't have to be cdecl; instead of stdcall on *nix?
> >
> > ___
> > fpc-pascal maillist - [EMAIL PROTECTED]
> > http://lists.freepascal.org/mailman/listinfo/fpc-pascal
> >
>
>
> --
> Guto
>
> ___
> fpc-pascal maillist - [EMAIL PROTECTED]
> http://lists.freepascal.org/mailman/listinfo/fpc-pascal
>
___
fpc-pascal maillist - [EMAIL PROTECTED]
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: [fpc-pascal]Math/Algebra Unit for FreePascal
Agustin Barto wrote: > Yes, but you don't have to throw your money to a corporation that > could leave you hanging. Think about what happened with Kylix. That > project is obviously abandoned. Have you tried to make it work on any > the newest linux distributions? Good luck. If it was a free software > project someone (like myself) could take the source and make it work. > IMHO, Kylix was before its time a bit. I was at BORCON last year and there were quite a few people interested in it being ressurected. No, it has not been abandoned, luckily. Borland is just holding onto it for right now. At first I though this was a mistake, but I thought about it. Borland has to swim in the same economic waters as the rest of the world. They have a certain number of resources to stay afloat and make money. That being the case, it only makes sence to swim the MS way for right now. BUT, with Kylik, they have a small boat floating in a different stream, the Linux stream. If and when that one starts flowing, Borland can rightfully say that they were there first. Of course that assumes FPC won't sink Kylix. Right now, my bet is 50/50. > I seriously wouldn't use Windows for any production project. It it > fundamentally flawed and a waste of money and resources. No offence but that is a bit short-sighted. I made a decent living for the last 10+ years writing Windows code and managing databases on MS software. In the grander scheme of things, the MS platform isn't that bad, as long as you know where the problems are. > I don't know about Delphi, I've been using it for a couple of years > and it didn't hang even once. But, then again, maybe I was just lucky. Perhaps 'luck' is right... Crashing Delphi isn't all that difficult. Regardless of how you feel about capitalism and MS, I strongly suggest reading two books by Ayn Rand: _The Fountainhead_ and _Anthem_. If you are feeling adventurous, try reading _Atlas Shruged_. Just my thoughts... Ken -- KC7RAD ___ fpc-pascal maillist - [EMAIL PROTECTED] http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: [fpc-pascal]UDF + FreePascal + Firebird 1.5
> - I am confused about the changing of owner and permissions. Have you tried
> changing it to root, with permissions 755 ?
I copied the permissions from other firebird standard libraries...
Whell, Im do this now (and the error remains):
contents of teste.pas:
{$mode objfpc}
library teste;
function intmax(a,b: Integer): Integer; cdecl; export;
begin
if a>b then intmax:=a else intmax:=b;
end;
exports
intmax;
end.
-
# fpc teste.pas
# mv libteste.so teste.so
# mv teste.so /usr/local/firebird/UDF/
(I not change the permissions this time)
# ls -l teste.so
-rwxr-xr-x 1 root wheel 223551 24 Jul 13:56 teste.so*
in the IBExpert:
DECLARE EXTERNAL FUNCTION INTMAX
INTEGER,
INTEGER
RETURNS INTEGER BY VALUE
ENTRY_POINT 'intmax' MODULE_NAME 'teste';
select intmax(3, 2) from rdb$database;
and the error:
Invalid token.
invalid request BLR at offset 60.
function INTMAX is not defined.
module name or entrypoint could not be found.
___
fpc-pascal maillist - [EMAIL PROTECTED]
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: [fpc-pascal]Math/Algebra Unit for FreePascal
Agustin Barto wrote on 20/7/04 22:31: >... and the >abandonment of Kylix by >Borland. Untrue Kylix is on hold. It has not been "abandoned"... That notion is complete FUD! I'm offline at the moment (typing this on my trusty palmpilot professional), but one of the Borland engineer's BLOGs mentioned the future of Kylix. Anders or Allen IIRC. There will be no release *this* year, but that does *not* signal the demise of the project! Matt -- brought to you via the power of PalmPilot Professional. ___ fpc-pascal maillist - [EMAIL PROTECTED] http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: [fpc-pascal]UDF + FreePascal + Firebird 1.5
> intmax; > > end. > > - > > # fpc teste.pas > # mv libteste.so teste.so > # mv teste.so /usr/local/firebird/UDF/ try: fpc teste.pp -Xp ld -shared -soname libteste.so.1 -o libteste.so.1.0 -lc teste.o ___ fpc-pascal maillist - [EMAIL PROTECTED] http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: [fpc-pascal]Socket programming with FPC
Hello Marco, Saturday, July 24, 2004, 5:50:40 PM, you wrote: >> Is it possible to do socket programming under win32 with FPC 1.0.10 or >> 1.9.4? MvdV> Yes both. MvdV> For 1.9.4 complete suites (ICS, see www.overbyte.be) are available, see MvdV> in CVS projects/contrib/ics and deeper. >> Which unit should I check out? MvdV> sockets, winsock I can't locate docs about winsock unit, though a simple program containing it in a uses list compiles fine. I have browsed through Reference Guide 1.9 from 1.0.10 package. Best regards, Ivanmailto:[EMAIL PROTECTED] ___ fpc-pascal maillist - [EMAIL PROTECTED] http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: [fpc-pascal]Socket programming with FPC
> >> Which unit should I check out? > > MvdV> sockets, winsock > > I can't locate docs about winsock unit, though a simple program > containing it in a uses list compiles fine. I have browsed through > Reference Guide 1.9 from 1.0.10 package. it's a straight c->pascal conversion of the Windows api. (which itself derives from bsd sockets). Look for windows socket programming examples (preferably delphi), and read them, then look at the FPC winsock interface. ___ fpc-pascal maillist - [EMAIL PROTECTED] http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: [fpc-pascal]Math/Algebra Unit for FreePascal
On Sat, 24 Jul 2004 11:51:41 -0500, Ken Linder <[EMAIL PROTECTED]> wrote: > > IMHO, Kylix was before its time a bit. I was at BORCON last year and there > were quite a few people interested in it being ressurected. No, it has not > been abandoned, luckily. Borland is just holding onto it for right now. At > first I though this was a mistake, but I thought about it. Borland has to > swim in the same economic waters as the rest of the world. That's very good to hear! Sadly, for the developers, there's no difference between an abandoned project and an "on hold" one. I hope they can bring it back to life. > No offence but that is a bit short-sighted. I made a decent living for the > last 10+ years writing Windows code and managing databases on MS software. > In the grander scheme of things, the MS platform isn't that bad, as long as > you know where the problems are. I worked with (and for) Microsoft software for quite some time before realizing that there was a better world out there. Sincerely, I don't mean to offend you in any way, but I don't miss those days one bit. > Regardless of how you feel about capitalism and MS, I strongly suggest > reading two books by Ayn Rand: _The Fountainhead_ and _Anthem_. If you > are feeling adventurous, try reading _Atlas Shruged_. My feelings towards MS don't come from second hand experience. I could fill pages about the (illegal or unethical) things that MS does here. I could also do the same with IBM, but this is not the place. Anyway, I always appreciate a good book, so I'll try to get a hold on those you suggest. Wasn't this an fpc mailing-list? :) ___ fpc-pascal maillist - [EMAIL PROTECTED] http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: [fpc-pascal]Math/Algebra Unit for FreePascal
> > What pascal compiler is used to compile free pascal ? :) > > FPC. Early versions were compiled with TP. That's the most funniest thing in software... Using previous software/version to create new versions... then using those again to make newer versions and each new version has ofcourse new 'power' :) and with the new power... new power can be made :D ___ fpc-pascal maillist - [EMAIL PROTECTED] http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: [fpc-pascal]Math/Algebra Unit for FreePascal
[ Charset ISO-8859-1 unsupported, converting... ] > > > What pascal compiler is used to compile free pascal ? :) > > > > FPC. Early versions were compiled with TP. > > That's the most funniest thing in software... > > Using previous software/version to create new versions... then using those > again to make newer versions Isn't that normal? Life comes from another life also. The few cases that that doesn't happen, become, depinding on beliefs, religion, really thick scientific books about "Origin of life", or alien intervention. > and each new version has ofcourse new 'power' :) and with the new power... > new power can be made :D A better explanation for the compiler case is that one team has control over both chicken and egg. This is in theory more work, but in practice saves work. ___ fpc-pascal maillist - [EMAIL PROTECTED] http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: [fpc-pascal]UDF + FreePascal + Firebird 1.5
On Sat, 24 Jul 2004, Guto wrote:
> > - I am confused about the changing of owner and permissions. Have you tried
> > changing it to root, with permissions 755 ?
>
> I copied the permissions from other firebird standard libraries...
>
> Whell, Im do this now (and the error remains):
>
> contents of teste.pas:
>
> {$mode objfpc}
>
> library teste;
>
> function intmax(a,b: Integer): Integer; cdecl; export;
> begin
> if a>b then intmax:=a else intmax:=b;
> end;
>
> exports
> intmax;
>
> end.
>
> -
>
> # fpc teste.pas
> # mv libteste.so teste.so
> # mv teste.so /usr/local/firebird/UDF/
>
> (I not change the permissions this time)
> # ls -l teste.so
> -rwxr-xr-x 1 root wheel 223551 24 Jul 13:56 teste.so*
>
> in the IBExpert:
>
> DECLARE EXTERNAL FUNCTION INTMAX
> INTEGER,
> INTEGER
> RETURNS INTEGER BY VALUE
> ENTRY_POINT 'intmax' MODULE_NAME 'teste';
>
> select intmax(3, 2) from rdb$database;
Very strange. I tried it here, and it works fine for me. I have Firebird 1.5
installed, so
What version of FPC did you use ?
Michael.
___
fpc-pascal maillist - [EMAIL PROTECTED]
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
