1
0
mirror of synced 2026-01-12 00:42:56 +00:00
Interlisp.medley/lispusers/REMOTEPSW.TEDIT
2020-11-15 19:22:14 -08:00

20 lines
10 KiB
Plaintext
Raw Permalink Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

en·vÅos REMOTEPSW
2
4
1
REMOTEPSW
1
4
By: Christopher Lane (Lane@Sumex-Aim.Stanford.Edu)
Uses: COURIERSERVE, COURIERDEFS
REMOTEPSW defines a remote process status window facility that runs on top of Courier. The remote process status window is identical to the local one except that it contains UPDATE (to get the current process status) instead of BREAK, and INFO is not implemented. Both the client and server code are contained in the module which must be loaded on both hosts. The Courier server must be running on the host you wish to monitor.
The only user function is:
(REMOTE.PROCESS.STATUS.WINDOW HOST) [Function]
which opens a remote process status window onto HOST, where HOST is any NS host specification that COURIER.OPEN accepts.
ìüÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿðÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿðüqïõñðc<C3B0>xþñǼ`ý|ÿÿÿÿÿÿÿÿÿÿÿÿðû®<C3BB>Àî÷Ýtwxîº;½ð;¿ÿÿÿÿÿÿÿÿÿÿÿÿðÿ¾ïëîðý~»úû¿ÿÿÿÿÿÿÿÿÿÿÿÿðüqïëîÿcwxþwúû¿ÿÿÿÿÿÿÿÿÿÿÿÿðûïï<C3AF>î÷_wwþî»»÷à{¿ÿÿÿÿÿÿÿÿÿÿÿÿðø ï×ñ¸Á<C2B8>p^ñǸ7õüÿÿÿÿÿÿÿÿÿÿÿÿðÿÿÿÿÿ¿ÿÿÿßÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿðÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿðÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿðÀ0Ïÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ0È0ÈáÄO>xpà<70>G>8pAÀqð¡810É$H„ D‰<11>H€ DˆÂ "0ˆ£<08>"DQ0É$H„ D‰‡é€ D<>B
&Pˆ DQ0É$O<x ‚Š€<ð@@*!A<$J P @‚Š€"ˆ@€* AA„"$I H@€<>Ì€ ˆA2@Gá„" ù0É$H„ D<>„"@ˆB"<E282AC>ˆ"@0ÈáÈŽ>Dùóå|qóáŽ|ø‚‡Ç|áÄO>xÃ<>Ÿ"|ðƒƒ |$H„ D„B2@ˆ„E@$H„ D„B2@ˆB„E@$O<xƒ*xð@€‰$x$J P€‚*@¡ð<C2A1> $D$I H„B&@<40>@„>$H„ D!„B&@ˆ@„DáÈŽ>D!ñÂ"|ˆçÁ8<x(áÁŽ|pàƒ€8 ãáO€"D)#@‰„@ "Da!H"Dý%Ó@‰„@&L¡ "DP Axà€€*T B<><xP@<40>D!<10>*T @‚ˆ€<41>A2d €<>À€
D<>"D! @¡óçÊ8øãçÂ8ùñáÄO>xÃ<>Ÿ"|ð$H„ D„B2@ˆ$H„ D„B2@ˆ$O<xƒ*xð$J P€‚*@ $I H„B&@<40>$H„ D!„B&@ˆáÈŽ>D!ñÂ"|ˆ|qóäB D!ñÄ@@ BÅ DPB$@@ BÅ TPB$@x CÅE TPBÀ"@ BH„ TˆB@>@ BO„ (øB$@"@ BH„ (ˆB$@"@pCäHŽ>(ˆAÄ@ùáÃ<C383>>ø<00>„B<E2809E> (€<00>„OÐ (€ñàƒ<(ð<00>@€… D€<00> „_<E2809E> |€<00>„J D€ùÊ>D€ q„BDùà ‰²DE"D<> ²EE"D<>qSÅE |ñà R%H„ D<>@ R"<22>„"D<> ‰R"ˆ„"D<>qˆ„#ˆŽ>dH dH ¤HŒ<¤H ¤H ¤H #‡>óàA
8B@
DBG?DCÄÁBABA~ BÁ (@CãA(|çÀ‚Ž<‡‰‚‡Æ‚ 0Ê"""""""""""""""""""""""""""#0È|‰ñÀˆˆˆˆˆˆˆˆˆˆˆˆÈ‰Š¨ˆˆˆˆˆˆˆˆˆˆˆ‰0È@Q 0Ê""""""""""""z#â""""""""""""#0È@!ˆˆˆˆˆˆˆˆˆˆˆˆÈÙŠ¨ˆˆˆˆˆˆˆˆˆˆˆ‰0È@‰ 0Ê""""""""""""~«óâ"""""""""""#0Ȉˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆ‰0È"8pCçÈç€2Dˆ "<10>@2Dˆ "<10>@*0€ ˆñSÇ€*¹<10>R&D‰ð„"<10>2&D‰"<10>2@"8q‡ÏŽùä@ƒÄOÃ<>Ÿ"|ð$H<10>„B2@ˆB$H<10>„B2@ˆB$H<>ñƒ*xð#ÄO"<10>€‚*@ "H><10>„B&@<40>H"<10>„B&@ˆˆ"ùñÂ"|ˆÇ>xãÇ8 D$H<>"D<00> D$H<>"D<00><xÄH0A Pâ„HA HDH<44>"D! D!$H<>"D!>D!#‡8DqáÄHž
"H‰$L
"P‰$L
p<>â$J H¹B$JŸ"H‰"$I"D‰$IDqÈž0Ïÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ0ÀÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿþøþbABbADbA IHø” BP”A Dh”A DDABøAAóð?Ð@#ñð~?<3F><>áãú @B A AB  A B?ñ A?B  ~~ <00>GàB B  A AÄB " A A$B?ñðA?<3F><>$Bøþ‚H'áàÄB?€TL$ÄD D8J$Ä(H øDTI'Ä((P?(I$(Dh ((|D HdB øH$àA?€üAãà þþ|AÈ'ÂA A <20><> $""P€A <10>
$ü"PüxAŸ‰$âˆA $øA<00>¤A <20>d"üâáþ|>È'Âÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿþ0ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿðÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿð (LIST ((PAGE NIL (PAPERSIZE LETTER FOLIOINFO (ARABIC "" "") STARTINGPAGE# 234) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC "" "")) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL NIL (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF SLOPE REGULAR WEIGHT MEDIUM)) (282 42 72 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 444 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL NIL (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF SLOPE REGULAR WEIGHT MEDIUM)) (282 42 72 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 444 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))))),È2ÈÈ,È,È,È,ŠŠ8,ŠŠ8HÈÈ PAGEHEADING RUNNINGHEAD CLASSICCLASSICCLASSIC HELVETICA
MODERN
MODERN
MODERN MODERNMODERN

 HRULE.GETFNMODERN
 HRULE.GETFNMODERN
 HRULE.GETFNMODERN

 HRULE.GETFNMODERN  HRULE.GETFNMODERN 4! 
 0»  0  : BMOBJ.GETFN3MODERN
 ˆ:zº