Google
 

Trailing-Edge - PDP-10 Archives - bb-r775d-bm_tops20_ks_upd_4 - sources/parlits.req
There are 10 other files named parlits.req in the archive. Click here to see a list.
!
! This module contains a number of literals required for parsing.
! These are used by many of the modules PR*.B36 and PRDATA.R36.
 !****************************************************************************
 !*									     *
 !*  COPYRIGHT (c) 1984, 1985                                                *
 !*  BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.			     *
 !*		ALL RIGHTS RESERVED.					     *
 !* 									     *
 !*  THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND  COPIED  *
 !*  ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE AND WITH THE  *
 !*  INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR  ANY  OTHER  *
 !*  COPIES  THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY  *
 !*  OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF  THE  SOFTWARE  IS  HEREBY  *
 !*  TRANSFERRED.							     *
 !* 									     *
 !*  THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT  NOTICE  *
 !*  AND  SHOULD  NOT  BE  CONSTRUED  AS  A COMMITMENT BY DIGITAL EQUIPMENT  *
 !*  CORPORATION.							     *
 !* 									     *
 !*  DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR  RELIABILITY  OF  ITS  *
 !*  SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.		     *
 !*									     *
 !****************************************************************************
!

!+
! MACROS
!
! NOTE - The macros CMDTAB and CMDENTRY create tables for the COMND JSYS.
! If the flag CM_ABR is set, then VALUE will contain a reference to the
! entry for which this one is an abbreviation. This value is absolute and
! must be fixed when new commands are added to the table. It is of the form
! TABLE + N, where N is the number of the entry starting at one.
!

    MACRO
	CMDTAB (NAME)[] =
		OWN NAME : VECTOR [(%LENGTH+2)/3] INITIAL (
		((%LENGTH-1)/3) * %O'1000001',
		CMDENTRY (%REMAINING)
		); %,

	CMDENTRY (NAME, FLAGS, VALUE)[] =
		FLD ( %IF %NULL (FLAGS) %THEN
			UPLIT ( %ASCIZ NAME)
		      %ELSE
			UPLIT ( CM_FW + FLAGS, %ASCIZ NAME)
		      %FI
			,FLD_LHS) + VALUE
	    %IF (%LENGTH GEQ 6) %THEN
		,CMDENTRY (%REMAINING)
	    %FI %,

	COMMAND (FDB) =
		_COMND ( CSB, FDB; C_FLAG, C_DATA, C_FDB) %;


!+
! Length of atom buffer
!-

LITERAL
	ATOM_LEN = 250;

!+
! SET command keyword identifiers
!-

LITERAL
	SET_NUMB  = 1,			! NUMBERS
	SET_NONUM = 2,			! NONUMBERS
	SET_CASE  = 3,			! CASE
	SET_SRCH  = 4,			! SEARCH
	SET_TERM  = 5,			! TERMINAL
	SET_VERFY = 6,			! VERIFY
	SET_NOVER = 7,			! NOVERIFY
	SET_TRUNC = 8,			! TRUNCATE
	SET_NOTRU = 9,			! NOTRUNCATE
	SET_KEY   = 10,			! KEYPAD
	SET_NOKEY = 11,			! NOKEYPAD
	SET_WRAP  = 12,			! WRAP
	SET_NOWRP = 13,			! NOWRAP
	SET_CURSR = 14,			! CURSOR
	SET_SCRN  = 15,			! SCREEN
	SET_MODE  = 16,			! MODE
	SET_LINES = 17,			! LINES
	SET_NTITY = 18,			! ENTITY
	SET_QUIET = 19,			! QUIET
	SET_NOQIT = 20,			! NOQUIET
	SET_TAB   = 21,			! TAB
	SET_NOTAB = 22,			! NOTAB
	SET_REPT  = 23,			! REPEAT
	SET_NORPT = 24,			! NOREPEAT
	SET_FNF   = 25,			! FNF
	SET_NOFNF = 26,			! NOFNF
	SET_SUMM  = 27,			! SUMMARY
	SET_NOSUM = 28,			! NOSUMMARY
	SET_PROMPT= 29,			! PROMPT
	SET_TEXT  = 30,			! TEXT
	SET_WORD  = 31,			! WORD
	SET_PARA  = 32,			! PARAGRAPH
	SET_HELP  = 33,			! HELP
	SET_AUTO  = 34,			! AUTOREPEAT
	SET_NOAUT = 35,			! NOAUTOREPEAT
	SET_COMND = 36,			! COMMAND
	SET_CTRLT = 37,			! CONTROL-T
	SET_NOCTLT= 38,			! NOCONTROL-T
	MAX_SET   = 38;

!+
! SET CASE keywords
!-

LITERAL
	SET_CNONE = 1,			! NONE
	SET_CUPPR = 2,			! UPPER
	SET_CLOWR = 3;			! LOWER

!+
! SET MODE keywords
!-

LITERAL
	SET_MCHNG = 1,			! CHANGE
	SET_MLINE = 2;			! LINES

!+
! SET SEARCH keywords
!-

LITERAL
	SET_SGEN  = 1,			! GENERAL
	SET_SEXCT = 2,			! EXACT
	SET_SEND  = 3,			! END
	SET_SBEG  = 4,			! BEGIN
	SET_SUNB  = 5,			! UNBOUNDED
	SET_SBND  = 6,			! BOUNDED
	SET_SWPS  = 7,			! WPS
	SET_CI    = 8,			! CASE INSENSITIVE
	SET_DI    = 9,			! DIACRITICAL INSENSITIVE
	SET_SIGN  = 10,			! IGNORE
	SET_SNIGN = 11,			! NOIGNORE
	MAX_SET_SRCH = 11;

!+
! SET TERMINAL keywords
!-

LITERAL
	SET_VT52  = 1,			! VT52
	SET_VT100 = 2,			! VT100
	SET_HCPY  = 3,			! HARDCOPY
	SET_SCRL  = 4,			! SCROLL
	SET_NSCRL = 5,			! NOSCROLL
	SET_EDIT  = 6,			! EDIT
	SET_NEDIT = 7,			! NOEDIT
	SET_8BIT  = 8,			! EIGHTBIT
	SET_N8BIT = 9,			! NOEIGHTBIT
	MAX_SET_TERM = 9;

!+
! ENTITY keywords
!-

LITERAL
	ENT_WORD  = 1,			! WORD
	ENT_SENT  = 2,			! SENTENCE
	ENT_PARA  = 3,			! PARAGRAPH
	ENT_PAGE  = 4;			! PAGE

!+
! SET PROMPT keywords
!-

LITERAL
	SET_PLINE = 1,			! LINE
	SET_PKEY  = 2,			! KEYPAD
	SET_PNKEY = 3,			! NOKEYPAD
	SET_PHCCH = 4,			! HCCHANGE
	SET_PINS  = 5,			! INSERT
	SET_PNINS = 6,			! NINSERT
	SET_PQRY  = 7,			! QUERY
	MAX_SET_PROMPT = 7;

!+
! SET TEXT keywords
!-

LITERAL
	SET_TEND  = 1,			! END
	SET_TPAGE = 2;			! PAGE

!+
! SET WORD keywords
!-

LITERAL
	SET_WDEL  = 1,			! DELIMITER
	SET_WNDEL = 2;			! NODELIMITER

!+
! SET PARAGRAPH keywords
!-

LITERAL
	SET_PWPS  = 1,			! WPS
	SET_PNWPS = 2;			! NOWPS

!+
! SHOW command keywords
!-

LITERAL
	SHO_BUFF  = 1,			! BUFFER
	SHO_CASE  = 2,			! CASE
	SHO_SRCH  = 3,			! SEARCH
	SHO_TERM  = 4,			! TERMINAL
	SHO_VERS  = 5,			! VERSION
	SHO_NTITY = 6,			! ENTITY
	SHO_KEY   = 7,			! KEYPAD
	SHO_CURSR = 8,			! CURSOR
	SHO_SCRN  = 9,			! SCREEN
	SHO_NUM   = 10,			! NUMBERS
	SHO_VRFY  = 11,			! VERIFY
	SHO_TRUNC = 12,			! TRUNCATE
	SHO_KEYPD = 13,			! KEYPAD
	SHO_WRAP  = 14,			! WRAP
	SHO_MODE  = 15,			! MODE
	SHO_LINES = 16,			! LINES
	SHO_QUIET = 17,			! QUIET
	SHO_TAB   = 18,			! TAB
	SHO_REPT  = 19,			! REPEAT
	SHO_FNF   = 20,			! FNF
	SHO_SUMM  = 21,			! SUMMARY
	SHO_PROMPT= 22,			! PROMPT
	SHO_TEXT  = 23,			! TEXT
	SHO_WORD  = 24,			! WORD
	SHO_PARA  = 25,			! PARAGRAPH
	SHO_HELP  = 26,			! HELP
	SHO_AUTO  = 27,			! AUTOREPEAT
	SHO_COMND = 28,			! COMMAND
	SHO_FILES = 29,			! FILES
	SHO_CTRLT = 30,			! CONTROL-T
	MAX_SHO   = 30;

!+
! DEFINE KEY and SHOW KEY command function codes
!-

LITERAL
	KEY_NUM   = 1,			! Number
	KEY_DEL   = 2,			! DELETE
	KEY_CONT  = 3,			! CONTROL
	KEY_FUNC  = 4,			! FUNCTION
	KEY_GOLD  = 5;			! GOLD

!+
! The following definitions are for the various switches which may be
! appended to a command.
!-

LITERAL
	SWT_QUERY = 1,			! /QUERY
	SWT_BRIEF = 2,			! /BRIEF:nn
	SWT_NOTYP = 3,			! /NOTYPE
	SWT_SEQU  = 4,			! /SEQUENCE:nn:mm
	SWT_DUPL  = 5,			! /DUPLICATE:nn
	SWT_SAVE  = 6,			! /SAVE
	SWT_STAY  = 7,			! /STAY
	SWT_GO    = 8,			! /GO
	SWT_LOCN  = 9,			! /LOCATION:name
	SWT_STACK =10;			! /STACK:nn
!+
! The following values are used by the TRACE command:
!-

LITERAL
	TRC_ON    = 1,			! ON
	TRC_OFF   = 2,			! OFF
	TRC_RESET = 3,			! RESET
	TRC_LIST  = 4,			! LIST
	TRC_OPEN  = 5,			! OPEN
	TRC_CLOSE = 6;			! CLOSE

!+
! The following flags are defined in FLAGS2.
!-

LITERAL
	F_SLR    = 0,				! Any SLR done
	F_THRU   = 1,				! THRU type range
	F_FOR    = 2,				! FOR range
	F_AND    = 3,				! AND range
	F_BUFFER = %O'1000000',			! BUFFER was specified
	F_NEXT   = %O'2000000',			! 
	F_SLRINI = %O'4000000';			! SLR has been inited

!+
! End of PARLITS
!-