!  MadGoat FTP client and server
!
!  Authors:	Chad Wilson, Dale Moore, Tod Shannon, Bruce Miller,
!		Marc Shannon, Henry Miller, John Clement,
!		Matt Madison, Darrell Burkhead, Hunter Goatley
!
!		Copyright © 1986, 1992, Carnegie Mellon University.
!		Copyright © 1994, MadGoat Software.  All rights reserved.
!		Copyright © 2001, Hunter Goatley.
!
!		Permission  is  granted  for  not-for-profit redistribution,
!		provided all source and object code  remain  unchanged  from
!		the  original  distribution,  and that all copyright notices
!		remain intact.
!
!++
! FTP.CLD
!
! Description:
!	A command Description file for the FTP network utility.
!	This version produces a NOISY version of Ftp
!
! Written By:
!
!	Chad Wilson	CMU-CS	12-JUN-1986
!
! Modifications:
!
!	V2.7		Hunter Goatley		10-NOV-2001 12:52
!		Added URL.
!
!	V2.0		Darrell Burkhead	 4-DEC-1993 15:55
!		Added /APASSWORD qualifier to send the anonymous password
!		(user@host).
!
!	V1.0		Hunter Goatley		29-SEP-1993 06:35
!		Made /INITIALIZATION default, with no default value.
!
!	9-Jul-1993	Darrell Burkhead	WKU
!	Added VERIFY qualifier which controls whether commands
!	executed from a command procedure should be echoed to the
!	screen.
!--
DEFINE VERB FTP
    IMAGE MADGOAT_EXE:FTP.EXE
    PARAMETER P1,		LABEL = HOST, PROMPT = "Host"
    PARAMETER P2,		LABEL = COMMAND, PROMPT = "Command"
				VALUE (TYPE = $REST_OF_LINE)
    QUALIFIER ACCOUNT,		LABEL=USER_ACCT, NONNEGATABLE
				VALUE (TYPE = $QUOTED_STRING, REQUIRED)
    QUALIFIER ANONYMOUS,	NONNEGATABLE
    QUALIFIER APASSWORD,	NEGATABLE
    QUALIFIER BATCH,		BATCH,NEGATABLE
    QUALIFIER CASE,		VALUE (TYPE = CASE_TYPE, REQUIRED),
				NONNEGATABLE
    QUALIFIER CONTROL_C,	VALUE (TYPE = ACTION_TYPE, REQUIRED),
				NONNEGATABLE
    QUALIFIER ERROR,		VALUE (TYPE = ACTION_TYPE, REQUIRED),
				NONNEGATABLE
    QUALIFIER HASH,		NEGATABLE
    QUALIFIER INITIALIZATION	VALUE (TYPE = $FILE), DEFAULT, NEGATABLE
    QUALIFIER LOCAL_PORT,	VALUE (REQUIRED), NONNEGATABLE
    QUALIFIER PASSWORD,		LABEL=PASSWORD, NONNEGATABLE,
				VALUE (TYPE = $QUOTED_STRING, REQUIRED)
    QUALIFIER PORT,		VALUE (REQUIRED), NONNEGATABLE
    QUALIFIER QUIET,		NEGATABLE
    QUALIFIER REPLY,		DEFAULT, NEGATABLE
    QUALIFIER SEVERE,		VALUE (TYPE = ACTION_TYPE, REQUIRED),
				NONNEGATABLE
    QUALIFIER WARNING,		VALUE (TYPE = ACTION_TYPE, REQUIRED),
				NONNEGATABLE
    QUALIFIER USERNAME,		LABEL=USER_NAME, NONNEGATABLE,
				VALUE (TYPE = $QUOTED_STRING, REQUIRED)
    QUALIFIER VERIFY		NEGATABLE
    QUALIFIER VMS_STRUCTURE_NEGOTIATION,
				LABEL=VMS_STRUCTURE, DEFAULT, NEGATABLE
    QUALIFIER URL		SYNTAX=FTP_URL, NONNEGATABLE
    DISALLOW ERROR.CONTINUE
    DISALLOW SEVERE.CONTINUE
    DISALLOW USER_NAME AND NOT HOST
    DISALLOW USER_ACCT AND NOT (USER_NAME OR ANONYMOUS)
    DISALLOW PASSWORD AND NOT (USER_NAME OR ANONYMOUS)
    DISALLOW APASSWORD AND NOT (USER_NAME OR ANONYMOUS)
    DISALLOW NEG APASSWORD AND NOT ANONYMOUS
    DISALLOW PASSWORD AND APASSWORD

DEFINE TYPE ACTION_TYPE
    KEYWORD ABORT
    KEYWORD CONTINUE
    KEYWORD EXIT

DEFINE TYPE CASE_TYPE
    KEYWORD LOWER
    KEYWORD NORMAL
    KEYWORD UPPER

!
!  For FTP/URL, the URL is the only parameter, but allow the other keywords too
!
DEFINE SYNTAX FTP_URL
    PARAMETER P1		LABEL=URL,
				VALUE (TYPE = $QUOTED_STRING, REQUIRED)
    QUALIFIER ACCOUNT,		LABEL=USER_ACCT, NONNEGATABLE
				VALUE (TYPE = $QUOTED_STRING, REQUIRED)
    QUALIFIER APASSWORD,	NEGATABLE
    QUALIFIER BATCH,		BATCH,NEGATABLE
    QUALIFIER CASE,		VALUE (TYPE = CASE_TYPE, REQUIRED),
				NONNEGATABLE
    QUALIFIER CONTROL_C,	VALUE (TYPE = ACTION_TYPE, REQUIRED),
				NONNEGATABLE
    QUALIFIER ERROR,		VALUE (TYPE = ACTION_TYPE, REQUIRED),
				NONNEGATABLE
    QUALIFIER HASH,		NEGATABLE
    QUALIFIER INITIALIZATION	VALUE (TYPE = $FILE), DEFAULT, NEGATABLE
    QUALIFIER LOCAL_PORT,	VALUE (REQUIRED), NONNEGATABLE
    QUALIFIER PASSWORD,		LABEL=PASSWORD, NONNEGATABLE,
				VALUE (TYPE = $QUOTED_STRING, REQUIRED)
    QUALIFIER PORT,		VALUE (REQUIRED), NONNEGATABLE
    QUALIFIER QUIET,		NEGATABLE
    QUALIFIER REPLY,		DEFAULT, NEGATABLE
    QUALIFIER SEVERE,		VALUE (TYPE = ACTION_TYPE, REQUIRED),
				NONNEGATABLE
    QUALIFIER WARNING,		VALUE (TYPE = ACTION_TYPE, REQUIRED),
				NONNEGATABLE
    QUALIFIER VERIFY		NEGATABLE
    QUALIFIER VMS_STRUCTURE_NEGOTIATION,
				LABEL=VMS_STRUCTURE, DEFAULT, NEGATABLE
    DISALLOW ERROR.CONTINUE
    DISALLOW SEVERE.CONTINUE