浏览代码

* show usage if no parameters

git-svn-id: trunk@12747 -
marco 16 年之前
父节点
当前提交
cb7f19e798
共有 1 个文件被更改,包括 6 次插入0 次删除
  1. 6 0
      utils/fpdoc/fpclasschart.pp

+ 6 - 0
utils/fpdoc/fpclasschart.pp

@@ -715,6 +715,11 @@ var
 
 begin
   Result:=0;
+  if ParamCount=0 then
+    begin
+      Usage;
+      Halt(0);
+    end;
   DocLang:='';
   for i := 1 to ParamCount do
     ParseOption(ParamStr(i));
@@ -744,6 +749,7 @@ begin
   WriteLn(STitle);
   WriteLn(Format(SVersion, [FPCVersion, FPCDate]));
   WriteLn(SCopyright);
+ 
   InitOptions;
   Try
     E:=ParseCommandLine;