Hello All,
I'm writing a library that needs to be used as statically linked units
in an application and also as a stand alone dll/so for use from other
software. The library needs to know where its binary file is loaded on
the host system. The following code in the main unit's Initialization
section does what I need for Windows and Linux, but I would like to
avoid having to hard code the compiled binary name into the source. Is
there any system symbol or define I could use as a place-holder for the
output filename? I would like to be able to replace 'libgiq' with
something like {$i %FPCVERSION%} so that I don't need to remember to
edit the library when re-using it in other projects. Also is there a
better way to retrieve this information on Linux?
Thanks,
Paul
--------------------------------------------
{$IFDEF WINDOWS}
DataFolder :=
IncludeTrailingPathDelimiter(ExtractFilePath(GetModuleName(HInstance)));
{$ELSE}
If IsLibrary Then
Begin
AssignFile(DataFile, '/proc/self/maps');
Try
Reset(DataFile);
While Not EOF(DataFile) Do
Begin
readln(DataFile, MapText);
If Pos('libgiq', MapText)<>0 Then
Begin
DataFolder := ExtractFilePath(Copy(MapText,
LastDelimiter(' ',MapText)+1, Length(MapText)));
Exit;
End;
End;
CloseFile(DataFile);
Except
On E: EInOutError Do
writeln('File handling error: ', E.Message);
End;
End
Else
DataFolder := IncludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0)));
{$ENDIF}
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
