MODULE QUOTA_COMMANDS
!
!	John Hasstedt
!	Physics Dept., SUNY, Stony Brook
!
!
! This file defines the commands for the GROUPQUOTA program.
!

DEFINE VERB EXIT
	ROUTINE QEXIT
	NOPARAMETERS
	NOQUALIFIERS

DEFINE VERB HELP
	ROUTINE QHELP
	PARAMETER P1, LABEL=ITEM, VALUE(DEFAULT="", TYPE=$REST_OF_LINE)
	NOQUALIFIERS

DEFINE VERB LIST
	ROUTINE QLIST
	PARAMETER P1, LABEL=FILE, VALUE(DEFAULT="QUOTA.LIS", TYPE=$FILE)
	QUALIFIER SORT, NEGATABLE, VALUE(DEFAULT="USE", TYPE=SORT_TYPE)
DEFINE TYPE SORT_TYPE
	KEYWORD NAME
	KEYWORD USE, DEFAULT
	KEYWORD QUOTA

DEFINE VERB SET
	ROUTINE QSET
	PARAMETER P1, LABEL=USER,  PROMPT="User ", VALUE(REQUIRED)
	PARAMETER P2, LABEL=QUOTA, PROMPT="Quota", VALUE(REQUIRED, TYPE=$NUMBER)
	NOQUALIFIERS

DEFINE VERB QUIT
	ROUTINE QQUIT
	NOPARAMETERS
	NOQUALIFIERS

DEFINE VERB SHOW
	ROUTINE QSHOW
	PARAMETER P1, LABEL=USER, VALUE(DEFAULT="")
	QUALIFIER SUMMARY

DEFINE VERB USE
	ROUTINE QUSE
	PARAMETER P1, LABEL=DISK, PROMPT="Disk",
		VALUE(REQUIRED, TYPE=DISK_TYPE)
	NOQUALIFIERS
DEFINE TYPE DISK_TYPE
	KEYWORD USER
	KEYWORD SCRATCH

DEFINE VERB WRITE
	ROUTINE QWRITE
	NOPARAMETERS
	NOQUALIFIERS

DEFINE VERB DIVIDE
	ROUTINE QDIVIDE
	NOPARAMETERS
	NOQUALIFIERS

DEFINE VERB REDUCE
	ROUTINE QREDUCE
	PARAMETER P1, LABEL=PERCENT, PROMPT="Percent",
		VALUE(REQUIRED, TYPE=$NUMBER)
	NOQUALIFIERS