Guardian Programmer's Guide

Writing a Command-Interpreter Monitor ($CMON)
Guardian Programmer’s Guide — 421922-014
23 - 64
Sample $CMON Program
!------------------------------------------------------------
! Procedure responds to an RT^shutdown^message. This
! procedure sets a flag that prohibits $CMON from accepting
! any further requests from nonoperator TACL
! processes.
!------------------------------------------------------------
PROC REJECT^REQUESTS;
BEGIN
STRUCT MSG(*); !template for RT^shutdown^message
BEGIN
INT MSGCODE;
STRING SHUTDOWNTEXT[0:63];
END;
INT .EXT RT^SHUTDOWN^MESSAGE(MSG) :=
$XADR(BUFFER); !structure pointer to I/O buffer
! Set the REFUSE^ALL flag:
REFUSE^ALL := YES;
! Set the shutdown display text in the reply:
SHUTDOWN^TEXT ':='
RT^SHUTDOWN^MESSAGE.SHUTDOWNTEXT FOR 64;
CALL REPLYX;
END;
!------------------------------------------------------------
! Procedure responds to an RT^startup^message. This
! procedure sets a flag that reenables $CMON to accept
! requests from nonoperator TACL processes.
!------------------------------------------------------------
PROC ACCEPT^REQUESTS;
BEGIN
REFUSE^ALL := NO;
CALL REPLYX;
END;