github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-01-12 00:42:56 +00:00
Code Issues Projects Releases Wiki Activity
Interlisp.medley/lispusers/FINGER.TEDIT
Larry Masinter 6424116dc9 massive reorganization
2020-11-15 19:22:14 -08:00

10 lines
6.0 KiB
Plaintext
Raw 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.

XEROX FINGER
2
4
1
FINGER
1
4
By: Greg Nuyens (mcvax!inria!nuyens@seismo.css.gov)
INTRODUCTION
Finger is a facility for determining and displaying information about other users running Xerox LISP. It displays the user's name, the Etherhostname (or the octal net address when no nameserver is available) and the user's idle time (time since last keystroke or mouseaction). Only other users who have the finger server loaded will be displayed. Users can specify the net radius to query, a list specifying only which users they want displayed, or similarly, only which hosts are to be displayed.
Loading Finger begins the finger server (which responds to queries). To display finger information, the following top-level function is provided:
(FINGER WHO HOST HOPS ICON?) [Function]
WHO is an optional list of usernames specifying which people are to be displayed if a response is received. who defaults to FINGER.CROWD, initially NIL meaning display all responses.
HOST is an optional list of etherhostnames analogous to WHO. Specifying both WHO and HOST denotes union. HOST defaults to NIL, denoting all hosts.
HOPS specifies the net radius to query. 0 specifies only nets to which you are directly connected. hops defaults to FINGER.NET.HOPS, initially 2.
ICON? specifies whether initial display should be the finger icon
b?~€qÀ0à0à0`p`p`à`ä`‡`€`ààÀÿøü€þ<ø?ÿÀÀÿà €ÿð À@x<`øx ÿÀp@ü`@ÿÀÿÀÀàÿÀ€ð€øpÀ?€0Àà0À0„0Àá‰Àà`<07>àÀ` Áøð`0`ð0`ˆ0`<à`|à`0ðp` ‡€0`ø0`À0`'Àð`~7ƒÀcÿ€?€Ãàÿ~ÿÿÿà`ÿø
or a display window. ICON? defaults to NIL meaning display. {typically, in an init file the call would be (FINGER NIL NIL NIL T)}.
The display window is updated each time the users bugs the display window with left or middle mouse button, and when most window operations are performed on the display window (shape, repaint, expand from icon, etc.). Right button retains the standard window menu.
Options:
the following are user specifiable variables affecting the operation of Finger.
FINGER.ICON.POSITION a position indicating the original position for the icon. Initially (900,500).
FINGER.DISPLAY.POSITION a position indicating the original position for the display window. Initially (650,325).
FINGER.DISPLAY.HEIGHT height of the display window. Initially 140. The display width is correct for the display format and need not be changed.
FINGER.TIMEOUT milliseconds to wait for the last response packet. Initially 1500.
FINGER.NET.HOPS net radius to be queried.
FINGER.CROWD list of potential users to be displayed (discussed above).
FINGER.INFINITY.MINUTES number of minutes to be considered infinite idle time. Initially 90.
Additional functions of interest to the user are:
(END.FINGER) which kills the finger server process, closes the sockets, closes the windows, etc.
(FINGER.SERVER) will start a finger server process.(LIST ((PAGE NIL (FOLIOINFO (ARABIC) STARTINGPAGE# 1) (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) FORMATINFO (ARABIC)) (174 36 288 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))) (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))))).ÈÈ(È(È (È(ŠŠ8(ŠŠ8DÈÈ PAGEHEADING RUNNINGHEADMODERN
€MODERN
MODERN
MODERN
MODERN MODERNLOGO HRULE.GETFNMODERN
 HRULE.GETFNMODERN
 HRULE.GETFNMODERN
 HRULE.GETFNMODERN  HRULE.GETFNMODERN 5 õ“(z   4
r>~ BMOBJ.GETFN3MODERN

A
PQ[}E <G2 U$
ómzº
Reference in New Issue View Git Blame Copy Permalink