1 Lisp Library Modules, Medley Release 1.0, MINISERVE 1 Lisp Library Modules, Medley Release 1.0, MINISERVE MINISERVE 1 MINISERVE 1 MINISERVE 6 MiniServe(MINISERVE NIL MiniServe NIL NIL 199) contains servers for three simple protocols: Time Service (both PUP and XNS versions) and PUP ID Service. The servers are intended to run in the background on an 1108 or 1186 on networks that lack other sources of these services. Requirements 1 The time must be correctly set on the machine running MiniServe (see "NS Time Service" below). Installation 1 Load MINISERVE.LCOM from the library. Either set the variable NS.TO.PUP.ALIST correctly, or make sure that the variable NS.TO.PUP.FILE is the name of a file containing a single form which will be used to set NS.TO.PUP.ALIST (see "PUP ID Service" below). Evaluate (STARTMINISERVER). Functions 1 (STARTMINISERVE(STARTMINISERVE (function) NIL NIL NIL 199)) [Function] This function has no arguments; it adds three background processes to the environment, one for each of the protocols that miniserve handles. These processes and protocols are: \NSTIMESERVER(NSTIMESERVER (function) NIL NIL NIL 199) Provides the XNS Time Service \PUPTIMESERVER(PUPTIMESERVER (function) NIL NIL NIL 199) Provides the PUP Time Service \PUP.ID.SERVER(PUP.ID.SERVER (function) NIL NIL NIL 199) Provides the PUP ID Service XNS Time Service(XNS% TIME% SERVICE NIL XNS% Time% Service NIL NIL 199) XNS Time Service answers requests for the time using the XNS Time Protocol. You must already have set the correct date and time on your workstation, either via one of the installation utilities or by evaluating (SETTIME(SETTIME (function) NIL NIL NIL 199) "dd-MMM-yy hh:mm:ss"). If you are not in the Pacific time zone, you should also make sure the following variables are set correctly: \BEGINDST(BEGINDST (variable) NIL NIL NIL 199) [Variable] The ordinal day of the year (1= January 1, 366 = December 31) on or before which daylight saving time starts in your area. Set it to 367 if your area does not observe daylight saving time. \ENDDST(ENDDST (variable) NIL NIL NIL 199) [Variable] The ordinal day of the year on or before which daylight saving time ends. \TIMEZONECOMP(TIMEZONECOMP (variable) NIL NIL NIL 200) [Variable] The number of hours west of Greenwich; e.g., Eastern standard time = 5. PUP Time Service(PUP% TIME% SERVICE NIL PUP% Time% Service NIL NIL 200) PUP Time Service is like NS Time Service, but using a PUP protocol. This service is not required by any Xerox workstation as long as XNS Time Service is available, but may be of use to other workstations. You can disable it by evaluating (MOVD 'NILL '\PUPTIMESERVER). PUP ID Service(PUP% ID% SERVICE NIL PUP% ID% Service NIL NIL 200) PUP ID Service supplies workstations with PUP host numbers, given their 48-bit XNS host numbers, so that they may communicate via PUP protocols. NS.TO.PUP.FILE(NS.TO.PUP.FILE (variable) NIL NIL NIL 200) [Variable] The name of a file containing a single form which will be used to set NS.TO.PUP.ALIST. Either this variable or NS.TO.PUP.ALIST must be set for the PUP ID Service to work. NS.TO.PUP.ALIST(NS.TO.PUP.ALIST (variable) NIL NIL NIL 200) [Variable] A list which maps a workstation's XNS host number(XNS% HOST% NUMBER NIL XNS% host% number NIL NIL 200) to a pup host number. Elements of this list are dotted pairs of the form: ((NSHOSTNUMBER A B C) . PUPNUMBER) where A, B, C are the three 16-bit components of the workstation's 48-bit XNS host number (the value of the variable \MY.NSHOSTNUMBER(MY.NSHOSTNUMBER (variable) NIL NIL NIL 200)), and PUPNUMBER(PUPNUMBER (variable) NIL NIL NIL 200) is the corresponding PUP host number to be assigned to the workstation. PUP host numbers are integers in the range [1,254], and must be unique among hosts on a single net. To set up this list correctly you can do the following on each workstation which will use the service (including the workstation running MiniServe): 1. Decide on a unique PUP host number for this workstation. It must be an integer inthe range [1,254]. For example we'll choose PUP Host number 2. 2. Get the workstation's NS host number and add it to the PUP host number. Evaluate the following form: (CONS \MY.NSHOSTNUMBER YOURPUPNUMBER) Using our chosen PUP host number of 2 and an example value for \MY.NSHOSTNUMBER the result might be: ((NSHOSTNUMBER 0 43520 14312) . 2) 3. Back on the workstation which is about to run MINISERVE, insert the dotted pair into NS.TO.PUP.ALIST. Restarting MiniServe(RESTARTING% MINISERVE NIL Restarting% MiniServe NIL NIL 201) 1 If you need to restart MiniServe: ÿÿïf ÿUse the PSW window to kill the three processes that were started by STARTMINISERVE. ÿÿïf ÿEvaluate (STARTMINISERVE). [This page intentionally left blank] (LIST ((PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC "" "") STARTINGPAGE# 199) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD RIGHT) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY HELVETICA OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC "" "")) (270 15 288 36) NIL) (HEADING NIL (HEADINGTYPE FOOTINGR) (54 27 558 36) NIL) (TEXT NIL NIL (54 54 504 702) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC "" "")) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD LEFT) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY HELVETICA OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC "" "")) (54 15 288 36) NIL) (HEADING NIL (HEADINGTYPE FOOTINGV) (54 27 558 36) NIL) (HEADING NIL (HEADINGTYPE VERSOHEAD) (54 762 558 36) NIL) (TEXT NIL NIL (54 54 504 684) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC "" "")) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD RIGHT) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY HELVETICA OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC "" "")) (270 15 288 36) NIL) (HEADING NIL (HEADINGTYPE FOOTINGR) (54 27 558 36) NIL) (HEADING NIL (HEADINGTYPE RECTOHEAD) (54 762 558 36) NIL) (TEXT NIL NIL (54 54 504 684) NIL))))).àTT-$$øT2HHà à2HTàT5l„à„œ2l„à„2HHàl,llà-àT,HHà,HHà ,HHà-àT5ÌøÀÌ5Ìø ÀÌ,ÌÌø-T-øäìTFøø PAGEHEADING VERSOHEADFøø PAGEHEADING RECTOHEADEøø PAGEHEADINGFOOTINGVEøø PAGEHEADINGFOOTINGR CLASSIC  HELVETICA  HELVETICA TITAN  HELVETICA HELVETICACLASSIC MODERN MODERNMODERN MODERNMODERN  HRULE.GETFNMODERN 4  HRULE.GETFNMODERN 4  HRULE.GETFNMODERN   HRULE.GETFNMODERN     HRULE.GETFNMODERN  %IM.INDEX.GETFNç    HRULE.GETFNMODERN  `   HRULE.GETFNMODERN   +J    HRULE.GETFNMODERN +IM.INDEX.GETFN ± )IM.INDEX.GETFNMODERN  *IM.INDEX.GETFNMODERN  *IM.INDEX.GETFNMODERN 7IM.INDEX.GETFNMODERN   N ‡ $IM.INDEX.GETFN n %IM.INDEX.GETFNMODERN   W5 #IM.INDEX.GETFNMODERN K )IM.INDEX.GETFNMODERN E7IM.INDEX.GETFNMODERN   Ð #3IM.INDEX.GETFNMODERN   ”+IM.INDEX.GETFNMODERN F-,IM.INDEX.GETFNMODERN 15IM.INDEX.GETFNL$v,IM.INDEX.GETFNCLASSIC  &IM.INDEX.GETFNCLASSIC ®••i %%1 =IM.INDEX.GETFN  HRULE.GETFNMODERN  "F %Æïzº