david
ac9b7c9668
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.jvcl@17 7f62d464-2af8-f54e-996c-e91b33f51cbe
91 lines
2.2 KiB
ObjectPascal
91 lines
2.2 KiB
ObjectPascal
unit MakeCFGUtils;
|
|
|
|
interface
|
|
|
|
procedure Run;
|
|
|
|
implementation
|
|
uses
|
|
Windows, Classes, SysUtils, JFileSearch;
|
|
|
|
procedure ShowHelp;
|
|
begin
|
|
writeln('');
|
|
writeln('');
|
|
writeln('MakeCFG: Creates CFG files for projects based on a template file');
|
|
writeln('');
|
|
writeln('Usage:');
|
|
writeln(ExtractFilename(ParamStr(0)),' <filemask> <template>');
|
|
writeln('');
|
|
writeln(#9'<filemask> - the files to find');
|
|
writeln(#9'<template> - a template CFG file to create for the found file(s)');
|
|
writeln('');
|
|
writeln('The created CFG will have the same base name as the found file,');
|
|
writeln('but the extension CFG.');
|
|
writeln('');
|
|
writeln('MakeCFG searches subfolders by default and overwrites any existing files');
|
|
end;
|
|
|
|
function CreateCFG(const FileMask, TemplateFile: string): integer;
|
|
var F: TJvSearchFiles;
|
|
i: integer;
|
|
S: TStringlist;
|
|
T: string;
|
|
begin
|
|
Result := 0;
|
|
if not FileExists(TemplateFile) then
|
|
begin
|
|
writeln('ERROR: ', TemplateFile, ' not found!');
|
|
Exit;
|
|
end;
|
|
|
|
S := TStringlist.Create;
|
|
F := TJvSearchFiles.Create(nil);
|
|
try
|
|
S.LoadFromFile(TemplateFile);
|
|
F.FileParams.FileMask := ExtractFileName(FileMask);
|
|
F.FileParams.SearchTypes := [stFileMask];
|
|
F.RootDirectory := ExpandUNCFileName(ExtractFilePath(FileMask));
|
|
|
|
F.Options := F.Options - [soStripDirs];
|
|
F.DirOption := doIncludeSubDirs;
|
|
F.Search;
|
|
for i := 0 to F.Files.Count - 1 do
|
|
begin
|
|
T := ChangeFileExt(F.Files[i], '.cfg');
|
|
if FileExists(T) and (GetFileAttributes(PChar(T)) and FILE_ATTRIBUTE_READONLY > 0) then
|
|
writeln('WARNING: ', T, ' exists and is read-only')
|
|
else
|
|
begin
|
|
S.SaveToFile(T);
|
|
Inc(Result);
|
|
end;
|
|
end;
|
|
finally
|
|
F.Free;
|
|
S.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure Run;
|
|
var i: integer;
|
|
begin
|
|
{
|
|
command-line:
|
|
<filemask> <doftemplate>
|
|
}
|
|
if ParamCount <> 2 then
|
|
ShowHelp
|
|
else
|
|
try
|
|
i := CreateCFG(ExpandUNCFileName(ParamStr(1)), ExpandUNCFileName(ParamStr(2)));
|
|
writeln(i, ' file(s) created');
|
|
except
|
|
on E: Exception do
|
|
writeln('ERROR: ', E.Message);
|
|
end;
|
|
end;
|
|
|
|
end.
|
|
|