Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-07 - decus/20-0172/symprp.bli
There is 1 other file named symprp.bli in the archive. Click here to see a list.
!<BLF/remark:9>
!<BLF/lowercase_user>
!<BLF/uppercase_key>
MODULE symprp (								!

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

		IDENT = '05'
		) =
BEGIN

!++
! Facility: BLISS Formatter
!
! Abstract:
!
!	This file contains the symbol property table
!
! Environment: transportable, with Xport
!--

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

!
! Include files:
!--

REQUIRE 'TOKTYP';					! Defines 'token' and the token type values 's_...'

REQUIRE 'SYMCOD';						! Defines symbol property table, 'sym...'

!
! Macros:
!--

MACRO
    setsym (syntok, field_def) =
	REP (syntok)-symorg OF (0),	!
	    (field_def) %ASSIGN(symorg,(syntok)+1)%;

MACRO
    ends_expr =
	1 ^ (%BPVAL/2) %;

!
! Equated symbols:
!--

COMPILETIME
    symorg = 0;

!
! Global storage:
!--

GLOBAL
    symprop : sym_table INITIAL(

	!+
	! Items in this table must be ordered as
	! In 'TOKTYP'
	!-

	setsym (s_end_of_file, ends_expr), 				!
	setsym (s_lparen, open_bracket), 				!
	setsym (s_rparen, ends_expr), 					!
	setsym (s_comma, ends_expr), 					!
	setsym (s_colon, ends_expr), 					!
	setsym (s_semicolon, ends_expr), 				!
	setsym (s_langle, open_bracket), 				!
	setsym (s_lbracket, open_bracket), 				!
	setsym (s_rbracket, ends_expr), 				!
	setsym (s_percent, ends_expr), 					!
	setsym (s_end, ends_expr), 					!
	setsym (s_from, ends_expr), 					!
	setsym (s_to, ends_expr), 					!
	setsym (s_by, ends_expr), 					!
	setsym (s_tes, ends_expr), 					!
	setsym (s_of, ends_expr), 					!
	setsym (s_byte, alloc_unit), 					!
	setsym (s_word, alloc_unit), 					!
	setsym (s_long, alloc_unit), 					!
	setsym (s_percent_then, ends_expr), 				!
	setsym (s_eludom, ends_expr), 					!
	setsym (s_while, ends_expr), 					!
	setsym (s_until, ends_expr), 					!
	setsym (s_do, ends_expr), 					!
	setsym (s_then, ends_expr), 					!
	setsym (s_else, ends_expr)					!
	);
%TITLE 'Last page of SYMPRP.BLI'
END									! End of module 'SYMPRP'

ELUDOM