[environment('cli.pen'), ident('v4.x')]
MODULE cli$env;
{
    Command Language Routines
}

[hidden] TYPE
    $word = [word] -32768..32767;

[external(cli$dcl_parse), asynchronous]
FUNCTION cli$dcl_parse(%descr CommandString: varying[$l1] OF char;
                       %ref table: [unsafe] integer;
                       %immed ParamRoutine: unsigned:= %immed 0;
                       %immed PromptRoutine: unsigned:= %immed 0;
                       %descr PromptString: varying[$l5] OF char:= %immed 0): integer;
    external;

                   
[external(cli$dispatch), asynchronous]
FUNCTION cli$dispatch(%immed UserArg: [unsafe] integer:= %immed 0): integer;
   external;


[external(cli$get_value), asynchronous]
FUNCTION cli$get_value(%descr entity: varying[$l1] OF char;
                       %descr retval: varying[$l2] OF char;
                       %ref retlength: $word:= %immed 0): integer;
    external;


[external(cli$present), asynchronous]
FUNCTION cli$present(%descr entity: varying[$l1] OF char): integer;
    external;

END { module cli }.