paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-08 05:48:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add config creator

Browse Source
This commit is contained in:
michael 2017-12-28 12:26:29 +00:00
parent 7d8c29b0a6
commit 2841b37b5f
1 changed files with 74 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

74
utils/createconfig.pp Executable file
View File

@ -0,0 +1,74 @@
program createconfig;
{$mode objfpc}
{$h+}
uses sysutils;
Var
F : Text;
CfgFile : String;
BaseDir : String;
Procedure AddLn(S : String);
begin
Writeln(F,S);
end;
begin
if ParamCount<>2 then
begin
Writeln('Usage ',ParamStr(0),' cfgfile basedir');
Writeln('Basedir relative to cfgfile');
Halt(1);
end;
CfgFile:=Paramstr(1);
BaseDir:=ParamStr(2);
if not ForceDirectories(ExtractFilePath(CfgFile)) then
begin
Writeln(StdErr,'Could not create destination directory ',ExtractFilePath(CfgFile));
Halt(2);
end;
Assign(F,CfgFile);
try
Rewrite(F);
except
On E : exception do
begin
Writeln(StdErr,'Could not create config file ',CfgFile,' : ',E.Message);
Halt(3);
end;
end;
Addln('#');
Addln('# Minimal config file for pas2js compiler');
Addln('#');
Addln('');
Addln('# not yet implemented: -d is the same as #DEFINE');
Addln('# not yet implemented: -u is the same as #UNDEF');
Addln('');
Addln('# Write always a nice logo ;)');
Addln('-l');
Addln('');
Addln('# Display Hints, Warnings and Notes');
Addln('-vwnh');
Addln('# If you don''t want so much verbosity use');
Addln('#-vw');
Addln('');
Addln('-Fu$CfgDir/'+BASEDIR+'/packages/rtl');
Addln('-Fu$CfgDir/'+BASEDIR+'/packages/fcl-base');
Addln('-Fu$CfgDir/'+BASEDIR+'/packages/fcl-db');
Addln('-Fu$CfgDir/'+BASEDIR+'/packages/fpcunit');
Addln('');
Addln('#IFDEF nodejs');
Addln('-Jirtl.js');
Addln('#ENDIF');
Addln('');
Addln('# end.');
Addln('EOCF');
Addln('');
Addln('# end');
Close(F);
end.