Re: [fpc-pascal] run pascal programs as scripts

2011-03-25 Thread michael . vancanneyt 



On Thu, 24 Mar 2011, Mattias Gaertner wrote:


On Thu, 24 Mar 2011 23:10:08 +0100
Felipe Monteiro de Carvalho  wrote:


Commenting is better. Then the reported error line numbers are still
valid.


Yes, but then bash won't recognize it, I suppose


I meant:

Original file:
#!/usr/bin/instantfpc
begin
end.

bash is happy.


Preprocessor creates:
//#!/usr/bin/instantfpc
begin
end.

fpc is happy.


Indeed it works:

fsb: >cat testscript
#!/home/michael/fpcscript
program testscript;

Var
  I : Integer;

begin
 Write('Testscript called as ');
 For I:=0 to ParamCount do
   begin
   if I>0 then
 Write(' ');
   Write(paramstr(i));
   end;
  writeln;
end.
fsb: >./testscript
/usr/bin/ld: warning: link.res contains output sections; did you forget -T?
Testscript called as /tmp/fpc0.tmp
fsb: >

And here is fpcscript (50 lines only):

$mode objfpc}{$h+}
program fpcscript;

uses sysutils,classes,baseunix, unix;

Const
  BufSize = 10 * 1024;
  Comment = '//';

Type
  TStringArray = Array of string;

Var
  F1,F2 : TFileStream;
  FN : String;
  Args : TStringArray;
  E,I : integer;

begin
  E:=127;
  F1:=TFileStream.Create(ParamStr(1),fmOpenRead);
  try
FN:=GetTempFileName(GetTempDir,'fpc')+'.pp';
F2:=TFileStream.Create(FN,fmCreate);
try
  F2.WriteBuffer(Comment[1],Length(Comment));
  F2.CopyFrom(F1,F1.Size);
finally
  F2.Free;
end;
if (ExecuteProcess('/usr/local/bin/fpc',[FN])=0) then
  begin
  If FileExists(ChangeFileExt(FN,'.o')) then
DeleteFIle(ChangeFileExt(FN,'.o'));
  SetLength(Args,ParamCount-1);
  For I:=2 to ParamCount do
Args[I-1]:=Paramstr(i);
  E:=ExecuteProcess(ChangeFileExt(FN,''),Args);
  If FileExists(ChangeFileExt(FN,'')) then
DeleteFile(ChangeFileExt(FN,''));
  If FileExists(FN) then
DeleteFile(Fn);
  end;
  Finally
F1.Free;
  end;
  Halt(E); 
end.


Now we need to get rid of the ugly ld message and you're all set.

Michael.
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal

[fpc-pascal] calling object pascal object function in c/c++

2011-03-25 Thread Toan Pham 
Hi,

I am working on calling object pascal functions from c/c++.  I notice that
when a unit is compiled into object code, the name of a function is altered
in this convention:

_$$


for example, if i have this unit:


unit wrapper;

interface

function test(): integer; stdcall;

implementation

function test(); integer; stdcall;
begin
result := 3;
end;

end.


when the unit described above is compiled, its name changed to
"WRAPPER_TEST$$SMALLINT",
not just test like c/c++ expects at link time.  Is there a way perhaps
through fpc compiler setting or using object pascal identifier to avoid
object pascal name mangling like this?

Please help.


thank you.

Toan
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal

[fpc-pascal] Re: calling object pascal object function in c/c++

2011-03-25 Thread leledumbo 
http://www.freepascal.org/docs-html/prog/progsu126.html Here  you go. Watch
out for name clash. FPC uses that convention for operator overloading and
symbol namespacing.

--
View this message in context: 
http://free-pascal-general.1045716.n5.nabble.com/calling-object-pascal-object-function-in-c-c-tp4264422p4264526.html
Sent from the Free Pascal - General mailing list archive at Nabble.com.
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal

[fpc-pascal] Re: calling object pascal object function in c/c++

2011-03-25 Thread leledumbo 
Sorry, I mean just overloading. both operator and function/procedure applies.

--
View this message in context: 
http://free-pascal-general.1045716.n5.nabble.com/calling-object-pascal-object-function-in-c-c-tp4264422p4264529.html
Sent from the Free Pascal - General mailing list archive at Nabble.com.
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal