!<BLF/remark:9>
!<BLF/lowercase_user>
!<BLF/uppercase_key>
MODULE format (								!

%IF %BLISS (BLISS32)
%THEN
		ADDRESSING_MODE (EXTERNAL = LONG_RELATIVE, 		!
		NONEXTERNAL = LONG_RELATIVE) ,
%FI

		IDENT = '8.1'
		) =
BEGIN

!++
! Facility: BLISS Language Formatter
!
! Abstract:
!
!	This module controls the formatting of a single input file,
!	whose specification is provided by the command line interface
!	module, BLFxxx, where xxx is T10 (TOPS-10) or VMS (for VAX).
!	The output of the process is one or two result files (called
!	'output' and 'listing'), which are also specified by the
!	C.L.I. routine.
!
! Environment: Transportable, with XPORT
!		Called from BLF$MAIN in BLFxxx.BLI
!
!
! REVISION HISTORY
!
!	 4-Dec-81	TT	Get old version of module working.
!
!	 7-Dec-81	TT	Remove EZIO unit numbers.
!
! END OF REVISION HISTORY
!--

!<BLF/page>
!
! Table of contents:
!--

FORWARD ROUTINE
    blf$format;

!
! Include files:
!--

REQUIRE 'BLFIOB';

REQUIRE 'BLFMAC';							! Defines macros 'lex', 'msg', etc.

!
! Macros:
!--

!
! Equated symbols:
!--

!
! Own storage:
!--

LITERAL
    true = 1 EQL 1,
    false = 1 NEQ 1;

!
! External references:
!--

EXTERNAL ROUTINE
    ctl$init : NOVALUE,						! Initialize control variables (CONTRL)
    lex$init : NOVALUE,						! Initialize Lexical processor
    lst$init : NOVALUE,						! Initialize listing routines
    out$nit : NOVALUE,						! Initialize output (OUTPUT)
    prs$main : NOVALUE,						! Begin formatting (PARSE1)
    scn$init : NOVALUE,						! Initialize scan (SCANNR)
    utl$init : NOVALUE;						! Initialize error messages (UTILIT)
GLOBAL ROUTINE blf$format =

!++
! FUNCTIONAL DESCRIPTION:
!
!	Main routine of the BLISS Language Formatter (BLF)
!	1. Initializes all subordinate modules
!	2. Invokes parser/formatter
!	3. Returns to main program to close files, etc.
!
! Formal parameters:
!
!	None
!
! Implicit inputs:
!
!	None
!
! Implicit outputs:
!
!	None
!
! Routine value:
!
!	None
!
! Side effects:
!
!	None
!
!--

    BEGIN

    !+
    !	Initialize the modules
    !-

    ctl$init ();
    scn$init ();
    lst$init ();
    out$nit ();
    lex$init ();
    utl$init ();

    !+
    ! Now format the input file
    !-

    prs$main ();

    !+
    ! All done...
    !-

    RETURN true;
    END;								! End of routine 'blf$format'

%TITLE 'Last page of FORMAT.BLI'
END									! End of FORMAT

ELUDOM