paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-08 14:59:42 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ Check whether outputfile not in inputfilenames

Browse Source
This commit is contained in:
michael 2004-08-28 18:15:14 +00:00
parent 5b3c8ece09
commit ad65b1d01e
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
utils/fpdoc/makeskel.pp
View File

@ -28,6 +28,7 @@ resourcestring
SCmdLineHelp = 'See documentation for usage.'; SCmdLineHelp = 'See documentation for usage.';
SCmdLineInvalidOption = 'Ignoring unknown option "%s"'; SCmdLineInvalidOption = 'Ignoring unknown option "%s"';
SNoPackageNameProvided = 'Please specify a package name with --package=<name>'; SNoPackageNameProvided = 'Please specify a package name with --package=<name>';
SOutputMustNotBeDescr = 'Output file must be different from description filenames.';
SDone = 'Done.'; SDone = 'Done.';
type type
@ -267,10 +268,16 @@ begin
// Action is to create the XML skeleton // Action is to create the XML skeleton
if Length(PackageName) = 0 then if Length(PackageName) = 0 then
begin begin
WriteLn(SNoPackageNameProvided); WriteLn(SNoPackageNameProvided);
Halt(2); Halt(2);
end; end;
if DescrFiles.IndexOf(OutputName)<>-1 then
begin
Writeln(SOutputMustNotBeDescr);
Halt(3)
end;
Assign(f, OutputName); Assign(f, OutputName);
Rewrite(f); Rewrite(f);
@ -318,7 +325,10 @@ end.
{ {
$Log$ $Log$
Revision 1.9 2004-08-28 18:04:06 michael Revision 1.10 2004-08-28 18:15:14 michael
+ Check whether outputfile not in inputfilenames
Revision 1.9 2004/08/28 18:04:06 michael
+ Added update mode + Added update mode
Revision 1.8 2004/08/25 07:16:43 michael Revision 1.8 2004/08/25 07:16:43 michael