FPC-Sourcen Pfad ermitteln

[Mathias]

Auf diese Art kann man zb. die Version von FPC ermitteln.

Code: Alles auswählen

  Caption := {$I %FPCVERSION%};

Gibt es auch eine Möglichkeit, den Pfad zu den FPC-Sourcen zu ermitteln ?

Dieses hier habe ich schon gesehen: https://wiki.freepascal.org/$include

[fliegermichl]

Es gibt eine Variable $(FPCSrcDir). Ich weiss jetzt allerdings nicht, ob man die auch im Quellcode anwenden kann oder nur in der IDE.

[Mathias]

Code: Alles auswählen

  Caption := {$I %FPCSrcDir%};

Geht leider nicht.

[Ich934]

Moin,

naja ich vermute mal, das wird grundsätzlich nicht gehen. Wenn ich ein Programm habe, dann habe ich nicht zwangsläufig die FPC-Sourcen auf dem System. Installiert schon gar nicht als das ich das abfragen könnte und eine Entwicklungsumgebung, welche mir diese mitteilen könnte ist dann ja auch weg. Somit ist es schon sinnig, dass es dafür keine Variable etc. gibt.

Das Lazarus eine Variable im Programm hat ist insoweit ja sinnig, dass ich hier für den Kompilierungsprozess das benötige und das auch entsprechend dynamisch gestalten kann.

cu tb

[af0815]

Die Frage ist, für was benötigst du das mit den Sourcen ?

[fliegermichl]

Die Frage ist, für was benötigst du das mit den Sourcen ?

Ich könnte mir vorstellen, daß man z.B. alle beim compilieren verwendeten Einstellungen anzeigen will oder irgendwas.
Ich hab deshalb gestern auch alles mögliche ausprobiert um eine IDE Variable in eine Variable in meinem Programm zu bekommen - ohne Erfolg.

Klar kann ich

Code: Alles auswählen

 
{$ifdef irgendwas}
 s := 'irgendwas';
{$endif}
 

Wenn ich aber z.B. gar nicht weiss, welche defines beim compilieren verwendet wurden, kann ich auch nicht darauf reagieren.

[Socke]

Du kannst in den Lazarus-Projektoptionen das IDE-Macro zu einem Compiler-Macro machen.
Dazu musst du in den Projektoptionen (Abschnitt "Parsen") die Macros einschalten und defnierst dann in den Benutzerdefinierten Einstellungen: -dFPSOURCE=$(FPCSrcDir)

Probleme kann es dann ggf. noch mit Sonderzeichen (Schrägstrichen, Doppelpunkt etc.) geben, da das Macro im Quelltext einfach nur ersetzt wird.

[fliegermichl]

Genau das hatte ich versucht.

Bei benutzerdefinierten Einstellungen gebe ich an
-dfpcsrcdir:=$(FPCSrcDir)

Wie weise ich das denn im Quellcode zu?

s:= fpcsrcdir; // unknwon identifier
s:= {$i %fpcsrcdir%}; // Warning: Include environment "FPCSRCDIR" not found in environment

[af0815]

-dfpcsrcdir:=$(FPCSrcDir)

-d macht nur eine Define ! und ist somit nur als Define im Code zu verwenden.

[Mathias]

Die Frage ist, für was benötigst du das mit den Sourcen ?

Ich will die aktuelle Makefile von ./fpcsrc/fpc/rtl/embedded/Makefile auslesen.

[fliegermichl]

-dfpcsrcdir:=$(FPCSrcDir)

-d macht nur eine Define ! und ist somit nur als Define im Code zu verwenden.

Ne, laut Doku werden so auch die Makros erzeugt.

Siehe hier

[fliegermichl]

Hmm, wenn ich das so mache:

Code: Alles auswählen

 
procedure ButtonClick(Sender: TObject);
begin
 {$macro on}
 {$define fpcsrc:='Hallo Welt'}
 ShowMessage(fpcsrc);
end;
 

dann funktioniert das. Gebe ich bei den Projektoptionen unter Benutzerdefinierte Einstellungen

Code: Alles auswählen

 
-dfpcsrc:=$(FPCSrcDir)
 

ein, dann meckert der Compiler, daß er fpcsrc nicht kennt.

[af0815]

Das ist das was ich gemeint habe. bei -d wird NUR ein define gemacht, du kannst nichts zuweisen.

[Socke]

Das ist das was ich gemeint habe. bei -d wird NUR ein define gemacht, du kannst nichts zuweisen.

In den Compileroptionen muss vorher -Sm auftauchen, damit auch ein Wert zugewiesen werden kann. Werden die Markros nicht per Compilerschalter sondern erst im Quelltext mper {$MACRO ON} aktiviert, funktioniert es nicht.

[fliegermichl]

Das ist das was ich gemeint habe. bei -d wird NUR ein define gemacht, du kannst nichts zuweisen.

In den Compileroptionen muss vorher -Sm auftauchen, damit auch ein Wert zugewiesen werden kann. Werden die Markros nicht per Compilerschalter sondern erst im Quelltext mper {$MACRO ON} aktiviert, funktioniert es nicht.

-Sm -dfpcsrc:=$(FPCSrcDir)

Code: Alles auswählen

 
 s:= fpcsrc; // Error: Identifier not found "fpcsrc"