MODULE F77Comp;

{ updated 22/3/82 - add procedures namesful, outputful }


EXPORTS

imports filedefs from filedefs;
IMPORTS FortranCompiler FROM Fortran;

procedure dumcomp;
PROCEDURE F77Com(
                  NumOutFile,         { FileID of output (.SEG or .PSG) file } 
                  InFileNum,          { FileID of input file }
                  Wkfilenum : FileID; { Fileid of workfile }                   
      
                  Extern,          { TRUE if /EXTERN switch to be in effect }
                  Range,           { TRUE if /RANGE switch to be in effect }
                  Check,           { TRUE if /CHECK switch to be in effect }
                  List,            { TRUE if /LIST switch to be in effect }
                  Code,            { TRUE if /CODE switch to be in effect }
                  XRef,            { TRUE if /XREF switch to be in effect }
                  Attr,            { TRUE if /ATTRIBUTE switch to be in effect}
                  Noisy,           { TRUE if /NOISY switch to be in effect }
                  Query,           { TRUE if /QUERY switch to be in effect }
                  Debug,           { TRUE if /DEBUG switch to be in effect }
                  DoStat : Switch; { TRUE if /STAT switch to be in effect }
                  Blocks : integer; { Non-zero if /SYMBOLS switch given }

              var InFileName,             { Name of the input file }
                  ErrFileName,            { Name of the compile error file }
                  OutFileName: PathName;  { Name of the output file }
    
                  Inblks,Inbits:integer;  { no. of blocks in input file }
                                          { and bits in last block      }
                  Isn : IsnType;              { Total number of imports }
                  Mods : PModuleDescriptor;   { List of new imports }
                  NumNewImports : IsnType;    { Number of new imports }
                  MemSize : MemBoardSize      { Size of compile time memory }
                 );

procedure sourceline(buffaddr:fsbit32);
procedure outputful;
procedure namesful;
procedure dicful;
procedure extful;

PRIVATE

procedure dumcomp;
begin
end;

PROCEDURE F77Com(
                  NumOutFile, 
                  InFileNum,
                  Wkfilenum : FileID; 
      
                  Extern,
                  Range,
                  Check,
                  List,
                  Code,
                  XRef,
                  Attr,
                  Noisy,
                  Query,
                  Debug,
                  DoStat : Switch;
                  Blocks : integer;

              var InFileName,
                  ErrFileName,
                  OutFileName: PathName;
    
                  inblks,inbits:integer;
                  Isn : IsnType;
                  Mods : PModuleDescriptor;
                  NumNewImports : IsnType;
                  MemSize : MemBoardSize
                 );
BEGIN
    Writeln('Compiling Fortran');
END; { f77com }

procedure sourceline;
begin
writeln('reading a source line');
end; { sourceline }

procedure outputful;
begin
writeln('dummy outputful');
end;

procedure namesful;
begin
writeln('dummy namesful');
end;

procedure dicful;
begin
writeln('dummy dicful');
end; { dicful }

procedure extful;
begin
writeln('dummy extful');
end. { extful }