!++
! Copyright © 1993, 1994 by Brian Schenkenberger and TMESIS Consulting
!                            All rights reserved.                            
!                         -------------------------
! This software is provided "as is" and is supplied for informational purpose
! only.  No warranty is expressed or implied and no liability can be accepted
! for any actions or circumstances incurred from the use of this software or 
! from the information contained herein.  The author makes no claim as to the
! suitablilty or fitness of this software or information contain herein for a
! particular purpose.
!                         -------------------------
! This software may be copied and distributed only with the inclusion of this
! copyright notice.
!--
! Modification: 
! 20-DEC-1993	Added syntax for SYMBOL/SHOW
! 30-DEC-1993	Change default syntax SYMBOL/SHOW
! 04-JAN-1994	Allow foreign symbol syntax and internal parsing
! 25-JAN-1994	Add /BINARY qualifier and BINSET syntax
!--
Module	SYMBOL_CLITABLE	
Ident	"SYMBOL V3%4.091"

Define Syntax DELSYM
	Routine	SYMDELSET

	Qualifier	DELETE,Default
	Qualifier	SET,Nonnegatable
	Disallow	SET

	Qualifier	GLOBAL
	Qualifier	LOCAL
	Disallow	GLOBAL and LOCAL

	Qualifier	IDENT,Nonnegatable,Value(Required)

	Parameter	P1,Label=Symbol,Prompt="Symbol",
			Value(Type=$INSYM,Required)

Define Syntax SETSYM
	Routine	SYMDELSET

	Qualifier	SET,Default
	Qualifier	DELETE,Nonnegatable
	Disallow	DELETE 

	Qualifier	GLOBAL
	Qualifier	LOCAL
	Disallow	GLOBAL and LOCAL

	Qualifier	IDENT,Nonnegatable,Value(Required)

	Qualifier	BINARY,Nonnegatable,Syntax=BINSET

	Parameter	P1,Label=Symbol,Prompt="Symbol",
			Value(Type=$INSYM,Required)
	Parameter	P2,Label=Value,Prompt="String",
			Value(Type=$REST_OF_LINE,Required)

Define Syntax BINSET

	Parameter	P1,Label=Symbol,Prompt="Symbol",
			Value(Type=$INSYM,Required)
	Parameter	P2,Label=Value,Prompt="Value",
			Value(Type=$Number,Required)

Define Verb SYMBOL
	Routine	SYMDISPLAY

	Qualifier	GLOBAL
	Qualifier	LOCAL
	Disallow	GLOBAL and LOCAL

	Qualifier	IDENT,Nonnegatable,Value(Required)

	Qualifier	SET,Nonnegatable,Syntax=SETSYM
	Qualifier	DELETE,Nonnegatable,Syntax=DELSYM
	Qualifier	SHOW,Nonnegatable,Default
	Disallow	SET and DELETE and SHOW

	Parameter	P1,Label=Match,Prompt="Match Pattern",
			Value(Type=$Quoted_String,Default="*")