Guardian Programmer's Guide

Table Of Contents
Writing a Server Program
Guardian Programmer’s Guide 421922-014
22 - 15
The Part-Query Server ($SER1)
!------------------------
!Other global variables:
!------------------------
STRING .S^PTR; !pointer to end of string
INT TERM^NUM; !file number for terminal
INT .BUFFER[0:BUFSIZE/2 - 1];!I/O buffer
STRING .SBUFFER := @BUFFER[0] '<<' 1; !string pointer to I/O
! buffer
INT REPLY^ERROR; !error value returned to
! requester
INT INV^FNUM; !file number for inventory
! file
INT REPLY^LEN; !length of reply buffer
INT RECV^NUM; !file number for $RECEIVE
INT .RECEIVE^INFO[0:16]; !returned by
! FILE_GETRECEIVEINFO_
?NOLIST
?SOURCE $SYSTEM.SYSTEM.EXTDECS0(INITIALIZER,FILE_OPEN_,
? FILE_GETINFO_,PROCESS_STOP_,
? FILE_GETRECEIVEINFO_,KEYPOSITION,DNUMOUT,
? WRITEX,OLDFILENAME_TO_FILENAME_,READUPDATEX,
? REPLYX)
?LIST