* Add config creator

utils/createconfig.pp

@@ -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.