!+      X-16
define syntax debug_keep
        image debugshr

define syntax debug_remote
        image rdbg$rdebug
        qualifier load_file, value(type=$file)
        qualifier go
        qualifier connect
        parameter p1, prompt="Node", value(required)

define syntax debug_client
        image debuguishr
        parameter p1,value(type=$rest_of_line)

define type debug_protocol_keywords
	keyword all
	keyword tcp_ip	,negatable
	keyword decnet	,negatable
	keyword udp	,negatable

define type debug_server_options
	keyword protocols, value(required,list,type=debug_protocol_keywords)
	keyword binding_info, value(required,type=$outfile)

define syntax debug_server
        image debugshr
        parameter p1,value(type=$rest_of_line)

define verb debug
        cliroutine debug
        qualifier keep,syntax=debug_keep,nonnegatable
        qualifier remote,syntax=debug_remote
        qualifier resume,default,nonnegatable
        qualifier client,syntax=debug_client,nonnegatable
        qualifier server,syntax=debug_server,nonnegatable,value(list,type=debug_server_options)
        disallow any2 (keep, remote, resume, server, client)
!-