delphidoccl.dpr

DelphiDoc is a program for automatic generation of documentation on a Delphi-Project. At the momen

{  JADD - Just Another DelphiDoc: Documentation from Delphi Source Code

Copyright (C) 2003-2008   Gerold Veith

This file is part of JADD - Just Another DelphiDoc.

DelphiDoc is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License version 3 as
published by the Free Software Foundation.

DelphiDoc is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program.  If not, see <http://www.gnu.org/licenses/>.


In addition, as a special exception, Gerold Veith gives permission to link
the code of this program with
  * TPNGImage
  * TRegExpr
(or with modified versions of them that use the same licenses), and distribute
linked combinations including the two. You must obey the GNU General Public
License in all respects for all of the code used other than that. If you
modify this program, you may extend this exception to your version, but you
are not obligated to do so. If you do not wish to do so, delete this exception
statement from your version.
}


program DelphiDocCL(SeeUnit_UCommandParameters, ALotOf, Parameters);

{Command line version of ~[em DelphiDoc]. }


{*** $APPTYPE CONSOLE}

uses
     FastMM4,
//     UDebugMem,
     Windows, SysUtils,
     UCLMain in 'Command\UCLMain.pas';


{$R Resources\Manual\Additional.RES Resources\Manual\Additional.RC}


// /V I -p dd.ddp -d .\_doc -o AutoLauchHelp=1 -g TWinHelpDoc -o AutoLaunchDocumentation=true /o AutoCompileHelpProject=1 -r
// -V I -e DelphiDocCL.exe -d .\_doc -o AutoLauchHelp=1 -g TWinHelpDoc -o AutoLaunchDocumentation=true /o AutoCompileHelpProject=1 -r -u UserDocumentation.txt
// /V I -p dd.ddp -d .\_doc -o AutoLauchHelp=1 -g TWinHelpDoc -o AutoLaunchDocumentation=true /o AutoCompileHelpProject=1 -r -f "TFormatCommentDoc=+0,1,2,3,4,5,6,7;TJADDCommentEvaluator=-" -F -f TJADDCommentEvaluator=+10




{Checks whether the user has to press enter before ending the program
 (for windows console). In an extra function, because two strings won't be
  freed before the debugging memory-manager is finalized.
~result whether the program should wait for the return-key before ending }
function CheckAutoParam: Boolean;
begin
 Result := (ParamCount = 0) or (LowerCase(ParamStr(1)) <> '-auto');
end;



var    Success: Boolean;     //if the program ran without errors
       KeyWait: Boolean;     //waiting on a key before termination of program?
begin
// FreeConsole;
// if GetStdHandle(STD_OUTPUT_HANDLE) = INVALID_HANDLE_VALUE then
//  AllocConsole;


{$IFNDEF LINUX}
 SetConsoleTitle('JADD - Just Another DelphiDoc - Command Line Version');
{$ENDIF}

{
 AssignFile(Input, '');
 Reset(Input);
 AssignFile(Output, '');
 Rewrite(Output);
}

{$IFNDEF LINUX}
 KeyWait := True;
{$ENDIF}

{$IFNDEF LINUX}
 try
{$ENDIF}
   try
     KeyWait := CheckAutoParam;
     Success := Main(not KeyWait);
   except
     on e: Exception do
      begin
       WriteLn;              //skip possible lines with progress messages
       WriteLn;
       WriteLn;
       WriteLn;
       WriteLn('Exception: ', e.ClassName, ': ', e.Message);
       Success := False;
      end;
   end;
{$IFNDEF LINUX}
 finally
  if KeyWait then            //wait for a key (a line)
   begin
    WriteLn;
    WriteLn('Search and press the any key to end the program (and close the console window).');
    ReadLn;
   end;
 end;
{$ENDIF}
 if not Success then         //if an error occurred
  System.ExitCode := 1;        //set error code to be returned
end.