[Solved] Output of fpReadLink

[Fred vS]

Hello.

With this:

Code: Pascal  [Select][+][-]

1. program fpreadlink_test;
2.   uses
3.     baseunix;
4.   var
5.     pathexec : string;    
6.      
7.   begin
8.       Fpreadlink('/proc/self/exe',@pathexec[0],high(pathexec));
9.       writeln(pathexec);
10.   end.

I get this:

Code: Text  [Select][+][-]

1. ~> ./fpreadlink_test
2. home/fred/fpreadlink_test

OK, it works, also if a symlink -s was used.

But why is the first "/" before "home" missing in the output ? (Or I miss something.  )

Fre;D

[Fred vS]

OK, found solution thanks to /fpcsrc/3.2.2/rtl/linux/system.pp and his SysInitExecPath procedure.

So this:

Code: Pascal  [Select][+][-]

1.   Program fpreadlink_test;
2.     uses
3.       baseunix;
4.     var
5.       pathexec : shortstring;  
6.       i : integer;
7.      
8.     begin
9.       pathexec[0]:=#0;
10.       i := Fpreadlink('/proc/self/exe',@pathexec[1],high(pathexec));
11.       if (i>0) and (pathexec[1]='/') then pathexec[0]:=char(i);
12.      
13.       writeln(pathexec);
14.     end.

Gives this (with the "/" at begin):
 

Code: Text  [Select][+][-]

1. ~> ./fpreadlink_test
2. /home/fred/fpreadlink_test

  ( and sorry for the noise)

Fre;D

[Fred vS]

Even simpler:

Code: Pascal  [Select][+][-]

1. Program fpreadlink_test;
2.    uses
3.      baseunix;
4.    var
5.      pathexec : shortstring;  
6.    
7.   begin
8.     pathexec := Fpreadlink('/proc/self/exe');
9.     writeln(pathexec);
10.   end.