paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-15 11:49:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

instantfpc: hint about environment variable INSTANTFPCCACHE

Browse Source 
git-svn-id: trunk@18995 -
This commit is contained in:
Mattias Gaertner 2011-09-06 20:00:54 +00:00
parent ab40391806
commit 927d080ab2
2 changed files with 14 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
utils/instantfpc/instantfpc.pas
View File

@ -54,7 +54,8 @@ begin
writeln(' Prints cache directory to stdout.');
writeln;
writeln('instantfpc --set-cache=<path to cache>');
writeln(' Set the cache to be used.');
writeln(' Set the cache to be used. Otherwise using environment variable');
writeln(' INSTANTFPCCACHE.');
writeln;
writeln('instantfpc --compiler=<path to compiler>');
writeln(' Normally fpc is searched in PATH and used as compiler.');

20
utils/instantfpc/instantfptools.pas
View File

@ -13,6 +13,10 @@ unit InstantFPTools;
{$define HASEXEEXT}
{$endif go32v2}
{$IFNDEF VER2_4}
{$DEFINE UseExeSearch}
{$ENDIF}
interface
uses
@ -138,14 +142,14 @@ begin
end;
function GetCompiler: string;
var
CompFile: String;
{$IFNDEF UseExeSearch}
Path: String;
p: Integer;
StartPos: LongInt;
Dir: String;
CompFile: String;
{$ENDIF}
begin
Result:=CmdCompiler;
if (Result<>'') then
@ -164,9 +168,11 @@ begin
{$ELSE}
CompFile:='fpc';
{$ENDIF}
{$IFDEF UseExeSearch}
Result:=ExeSearch(CompFile);
{$ELSE}
Path:=GetEnvironmentVariable('PATH');
{$IFDEF VER2_4}
if PATH<>'' then begin
if Path<>'' then begin
p:=1;
while p<=length(Path) do begin
StartPos:=p;
@ -179,8 +185,6 @@ begin
inc(p);
end;
end;
{$ELSE}
Result:=ExeSearch(CompFile);
{$ENDIF}
if (Result='') then
@ -213,7 +217,7 @@ begin
Proc.Execute;
ss:=TStringStream.Create('');
repeat
Count:=Proc.Output.Read(Buf,4096);
Count:=Proc.Output.Read(Buf{%H-},4096);
if Count>0 then
ss.write(buf,count);
until Count=0;