[JVCL-Checkins] CVS: dev/JVCL3/devtools/NoQuotes .cvsignore,NONE,1.1 NoQuotes.dof,NONE,1.1 NoQuotes.dpr,NONE,1.1 - New tool to use in batch files

[Olivier S. <ob...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/devtools/NoQuotes
In directory sc8-pr-cvs1:/tmp/cvs-serv15207/dev/JVCL3/devtools/NoQuotes

Added Files:
	.cvsignore NoQuotes.dof NoQuotes.dpr 
Log Message:
New tool to use in batch files

--- NEW FILE: .cvsignore ---
*.cfg
--- NEW FILE: NoQuotes.dof ---
[Directories]
OutputDir=..\bin
UnitOutputDir=..\dcu


--- NEW FILE: NoQuotes.dpr ---
program NoQuotes;

{$APPTYPE CONSOLE}

uses
  SysUtils;

procedure usage;
begin
  writeln('NoQuotes EnvVar Value');
end;

var
  F : textfile;
  EnvVar : string;
  Value : string;

begin
  if ParamCount <> 2 then
    usage
  else
  begin
    EnvVar := ParamStr(1);
    Value := ParamStr(2);
    if Value[1] = '"' then
      Value := Copy(Value, 2, Length(Value));

    if Value[Length(Value)] = '"' then
      Value := Copy(Value, 1, Length(Value)-1);

    AssignFile(F, 'NoQuotesBatch.bat');
    Rewrite(F);
    Write(F, 'SET ');
    Write(F, EnvVar);
    Write(F, '=');
    Write(F, Value);
    CloseFile(F);
  end;
end.