$compact rom ot(3)
$title('iRMX CLI EXTENSION ')
$subtitle('Module Header')

/*****************************************************************************

    TITLE:    usrext

    ABSTRACT:
        Allow the user to manipulate command lines, and to use the iRMX
		CLI features and commands

*****************************************************************************/


hclusr: DO;

$include(:rmx:inc/error.lit)
$include(:rmx:inc/common.lit)

$subtitle('CLI$User$Process')

/*****************************************************************************

    TITLE:    CLI$User$Process

    CALLING SEQUENCE:

        CALL CLI$User$Process(comm$buf$p, excep$p);

    ALGORITHM:

*****************************************************************************/

CLI$User$Process:    PROCEDURE(comm$buf$p, excep$p) BYTE REENTRANT  PUBLIC;


	DECLARE
		comm$buf$p		POINTER,
		comm$buf		BASED	comm$buf$p	STRING,
		excep$p			POINTER,
		excep			BASED	excep$p		WORD;


	excep = E$OK;
	RETURN(TRUE);

END CLI$User$Process;

$subtitle('CLI$User$Init')

/*****************************************************************************

    TITLE:    CLI$User$Init

    CALLING SEQUENCE:

        CALL CLI$User$Init( excep$p);

    ALGORITHM:

*****************************************************************************/

CLI$User$Init:    PROCEDURE(excep$p) REENTRANT  PUBLIC;


	DECLARE
		excep$p			POINTER,
		excep			BASED	excep$p		WORD;


	excep = E$OK;
	RETURN;

END CLI$User$Init;

$subtitle('CLI$User$Epilog')

/*****************************************************************************

    TITLE:    CLI$User$Epilog

    CALLING SEQUENCE:

        CALL CLI$User$Epilog( excep$p);

    ALGORITHM:

*****************************************************************************/

CLI$User$Epilog:    PROCEDURE(excep$p) REENTRANT  PUBLIC;


	DECLARE
		excep$p			POINTER,
		excep			BASED	excep$p		WORD;


	excep = E$OK;
	RETURN;

END CLI$User$Epilog;
END Hclusr;