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