!++
! Facility:
!   DDIF Viewer
!
! Abstract:
!   DCL Command definition file for DDIF viewers.  Has new syntax for V2, but
!   still accepts V1 syntax.
!
! Author:
!   Peter Derr - adapted from V1 .CLD file by ???
!
! Creation Date: 17-Jan-89
!
! Modification History:
!
!   Dick Gumbel - minor cleanup edits; add MODULE and IDENT.	2/4/92
!   Dick Gumbel - remove OUTPUTS syntax element.		2/7/92
!
!--

MODULE	DDIF$VIEW
IDENT	"V2.1"

!
! First define option lists and their keywords
!
DEFINE TYPE select_list_options
	! V1 select list keywords
	KEYWORD all
	KEYWORD auto_wrap	NEGATABLE
	KEYWORD graphics	NEGATABLE,DEFAULT
	KEYWORD images		NEGATABLE,DEFAULT
	KEYWORD soft_directives	NEGATABLE
	KEYWORD text		NEGATABLE,DEFAULT
	!KEYWORD layout		NEGATABLE		! Why is this commented out?
	KEYWORD x_display	NEGATABLE


DEFINE TYPE display_keywords
	KEYWORD decwindows
	KEYWORD character_cell

!
! Define the top level verb for VIEW
!	VIEW[/qualifiers] filename
!
DEFINE VERB view

	IMAGE ddif$view

	PARAMETER p1,
			LABEL=dvr$input,
			VALUE(TYPE=$INFILE,NOCONCATENATE)

	! /FORMAT[=format-option]
	!
	QUALIFIER format,
			LABEL=dvr$format,
			NONNEGATABLE,
			VALUE(DEFAULT="DDIF",TYPE=$QUOTED_STRING),
			PLACEMENT=POSITIONAL

	! /OPTIONS=filename
	!
	QUALIFIER options,
			LABEL=dvr$options,
			NEGATABLE,
			VALUE(REQUIRED, TYPE=$INFILE),
			PLACEMENT=POSITIONAL

	! /OUTPUT=filename
	!
	QUALIFIER output,
			LABEL=dvr$output,
			NEGATABLE,
			BATCH,
			VALUE(TYPE=$OUTFILE),
			PLACEMENT=POSITIONAL

	! /PAGE
	!
	QUALIFIER page,
			LABEL=dvr$page,
			NEGATABLE,
			PLACEMENT=POSITIONAL


	! /SELECT=select-list
	!
	QUALIFIER select,
			LABEL=dvr$select,
			NONNEGATABLE,
			VALUE(TYPE=SELECT_LIST_OPTIONS,LIST),
			PLACEMENT=POSITIONAL


	! /DISPLAY=display_keyword
	!   present by default, with value "character_cell"
	QUALIFIER interface,
			LABEL=dvr$interface,
			NONNEGATABLE,
			DEFAULT,
			VALUE(DEFAULT="character_cell",TYPE=display_keywords),
			PLACEMENT=POSITIONAL

	!   /REFORMAT
	!
	QUALIFIER override_format,
			LABEL=dvr$override_format,
			NEGATABLE,
			PLACEMENT=GLOBAL

	!   /WIDTH=n
	!
	QUALIFIER width,
			LABEL=dvr$width,
			NONNEGATABLE,
			VALUE(REQUIRED,TYPE=$NUMBER),
			PLACEMENT=GLOBAL

	!   /HEIGHT=n
	!
	QUALIFIER height,
			LABEL=dvr$height,
			NONNEGATABLE,
			VALUE(REQUIRED,TYPE=$NUMBER),
			PLACEMENT=GLOBAL

	! X-display isn't compatible with several options
	!
	DISALLOW  (dvr$select.x_display OR dvr$interface.decwindows)
							    AND dvr$output
	DISALLOW  (dvr$select.x_display OR dvr$interface.decwindows)
							    AND dvr$page

	!   can't have /PAGE/OUTPUT
	DISALLOW dvr$page AND dvr$output

!
! End of DDIF$VIEW.CLD