!+      X-15
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 verb debug
        cliroutine debug
        qualifier keep,syntax=debug_keep,nonnegatable
        qualifier remote,syntax=debug_remote
        qualifier resume,default,nonnegatable
        disallow any2 (keep, remote, resume)
!-