PDP-10 Archive: decus/20-0172/blfmac.req from decuslib20-07

Trailing-Edge - PDP-10 Archives - decuslib20-07 - decus/20-0172/blfmac.req

There is 1 other file named blfmac.req in the archive. Click here to see a list.

!	... Require file 'BLFMAC.REQ' ...
!
!<BLF/macro>
!<BLF/synonym $field = field>
!<BLF/lowercase_user>
!<BLF/uppercase_key>

!++
! REQUIRE files
!--

%IF %BLISS (BLISS32)
%THEN
    LIBRARY 'sys$library:XPORT';
%ELSE
    LIBRARY 'XPO:XPORT';
%FI

!++
! Macros:
!--

MACRO
    msg (l, s) =

	%IF %LENGTH EQL 1
	%THEN
	    $xpo_put (				!
		string = (%CHARCOUNT (l), CH$PTR (UPLIT (l))),	!
		iob = tty_iob)
	%ELSE
	    $xpo_put (,				!
		string = (l, s),		!
		iob = tty)
	%FI

    %,
    crlf =
	%CHAR (13, 10) %;


MACRO
    lex =
	BEGIN

	DO
	    lex$getsym ()
	UNTIL .tok NEQ null_symbol;

	IF .tok EQL s_end_of_file THEN RETURN;

	END
    %;

!<BLF/page>

!
! BLFCMD - PRETTY Command Information
!

$FIELD
    blf$cmd_fields =
	SET
	blf$a_in_iob = [$address],		! Address of input file IOB chain
	blf$a_out_iob = [$address]		! Address of output file IOB
	TES;

LITERAL
    blf$k_cmd_lng = $field_set_size;		! Length of PRETTY command block

!<BLF/nomacro>

MACRO
    $blf_cmd =
	$BLOCK [blf$k_cmd_lng]
	FIELD (blf$cmd_fields)%;
!
!	... End of require file 'BLFMAC.REQ' ...