crossref_main.pas

{$I CrossrefPrefixCode.inc}  // STD definitions
// Crossref - Pascal Cross reference
// Version 0.01
// January 9, 2021
// Copyright 2021 Paul Robinson
// Licensed under GPL v2

// Ctossref_Main - Defacto main program used for modularization
// Main Program - starts everything
unit Crossref_Main;

{$mode ObjFPC}{$H+}

interface

uses
  Classes, SysUtils, Notice, Command, scan, setup, _symboltable, tables;



  // Main toutine of program
  Procedure Main;


implementation

Procedure GetArgs;
var
    I: Integer;
    PassThru: Boolean;
    Param,
    Param1,
    ParAm2,
    Test1,
    Test2: UnicodeString;

begin

     if ParamCount = 0 then
     begin
            Param := '--help';
            Passthru := TRUE;
     end;
     For I := 1 to Paramcount do
       begin
          if not passthru  then
          begin  // bypass first argument only
                 Param   := UnicodeString( ParamStr(I));  // collect each argument
                 PassThru := FALSE;
          end;
          Test1   := Copy(Param,1,1);  // used for all other switches
          Param1  := Copy(Param,2,Length(Param));
          Test2   := Copy(Param,1,2);  // used for -- switches
          Param2  := Copy(Param,3,Length(Param));

          If (Test1 ='-')  then
              If test2<>'--' then
                  ProcessSingleArgument(Param1)  // handle /x or -x
              else
                  ProcessDoubleArgument(Param2)     // handle --x
          else
          if Test1 ='/' then
              ProcessSingleArgument(Param1)  // handle /x or -x
          else if test1='@' then
              ProcessCommandFile(Param1)
          else
              ProcessSourceFile(Param);
     end
end;

Procedure Main;
begin
                                                                                                                                                                                                                                                                                                                                                                                                                                                                   ProgramPath := UnicodeString(ParamStr(0));
    SplitPath(ProgramPath,ProgramFolder,ProgramName,ProgramExt);
    writeln('ProgramPath=', ProgramPath);
    writeln('ProgramFolder=', ProgramFolder,' ProgramName=',ProgramName,' ProgramExt=',ProgramExt);

    Banner;
    // check for switches ot commands


 //   TestMode;


    GetArgs;
    // if the user issued a command that disallows processing, don't do it!
    if  not WillExit then
    begin
    Init;

{    OpenFile(PasPath);
// scan file and continue
    ScanFile;

}   end;
{$IFDEF Test}

     write('*39 Press rnter: ');
     readln;
{$ELSE}
     if willHold then
     begin
         Writeln;
         Write('Press Enter key to end program;

     end;
{$ENDIF}
end;


end.