module project_options
define verb exit
	synonym quit
	routine exit_command

define verb grant
	synonym add
	routine grant_command
	parameter p1, label=identifier, prompt="Identifier", value(required)
	parameter p2, label=username, prompt="Username", value(list,required)
	qualifier file, nonnegatable, placement=local

define verb help
	routine help_command
	parameter p1 label=topic, prompt="Topic", value(type=$rest_of_line)

define verb list
	synonym show
	routine list_command
	parameter p1, label=identifier, prompt="Identifier", value(required)
	qualifier output, default, value(default="SYS$OUTPUT",type=$outfile),
		  nonnegatable

define verb revoke
	synonym remove
	routine revoke_command
	parameter p1, label=identifier, prompt="Identifier", value(required)
	parameter p2, label=username, prompt="Username", value(list,required)
	qualifier file, nonnegatable, placement=local
!	 VAX/DEC CMS REPLACEMENT HISTORY, Element PROJECT_OPTIONS.CLD
!	 *1    31-MAR-1994 12:12:45 TILLMAN "Definitions for PROJECT's commands"
!	 VAX/DEC CMS REPLACEMENT HISTORY, Element PROJECT_OPTIONS.CLD