Guardian Programmer's Guide

Writing a Command-Interpreter Monitor ($CMON)
Guardian Programmer’s Guide — 421922-014
23 - 83
Sample Command-Interface Program
!------------------------------------------------------------
! Procedure opens the $CMON process. Prompts the user to try
! again if the open fails.
!------------------------------------------------------------
PROC OPEN^CMON(PROCESS^NAME,PROCESS^NAMELEN,SERVER^NUM);
STRING .PROCESS^NAME;
INT PROCESS^NAMELEN;
INT .SERVER^NUM;
BEGIN
INT ERROR;
TRY^AGAIN:
ERROR := FILE_OPEN_(PROCESS^NAME:PROCESS^NAMELEN,
SERVER^NUM);
IF ERROR <> 0 THEN
BEGIN
PRINT^STR("Could not open $CMON");
SBUFFER ':=' "Do you wish to try again? (y/n): "
->@S^PTR;
CALL WRITEREADX(TERMNUM,SBUFFER,@S^PTR '-' @SBUFFER,
BUFSIZE);
IF (SBUFFER[0] = "n") OR (SBUFFER[0] = "N") THEN
CALL PROCESS_STOP_
ELSE GOTO TRY^AGAIN;
END;
END;