XEROX PHONE-DIRECTORY 2 4 1 PHONE-DIRECTORY 1 4 By: smL (Lanning.pa@Xerox.com) Requires: Lispuser package GREP INTRODUCTION The PHONE-DIRECTORY package provides quick and easy access to on$line phone directories. When you load the PHONE-DIRECTORY package, an icon (9>???~~?`>À>) will appear on your screen. Opening this icon will start a directory search program (see example below). To look up a person, type in a name, followed by a return. The PHONE-DIRECTORY program will search the available phone lists and print out those entries that contain the name. This can be repeated as many times as you like. When you are done, just SHRINK the window back to its icon. 2 "_SO31M7oݻv~ݻv~ݻvov;tUnޯs?qo?68 ,8*D 2D*|"D*@"D*D "D*8 "8  Lj!"BR`@0B@$a$B$ H$H"BJ@0@@$ $"$O HP"BF@H@@Đ''HPQG"@>0f͛0"DAD3f͛1"DB8f0"D|q68 *D *|*@*D *8  Example PHONE-DIRECTORY window 2 Variables PHONELISTFILES [Variable] PHONELISTFILES is a list of files that contain phone lists. This is usually set in the INIT.LISP file. The PHONELISTFILES should be unformatted files with a single entry per line. Blank lines are permitted. A typical value for PARC users (as defined in PARC-INIT) is ({INDIGO}PARCPHONELIST.TXT {INDIGO}ISDNORTHPHONELIST.TXT). *Phone-Directory-Pos* [Variable] *Phone-Directory-Pos* is the initial POSITION for the PHONE-DIRECTORY icon. This is defined as an INITVAR in the file, so you can set it before loading the file. The default value is (create POSITION XCOORD 15 YCOORD (DIFFERENCE SCREENHEIGHT 75)). This places the icon in the upper left corner of the screen, just above the exec window. *Phone-Directory-Region* [Variable] *Phone-Directory-Region* is the initial REGION for the PHONE-DIRECTORY window. This is defined as an INITVAR in the file, so you can set it before loading the file. The default value is (CREATEREGION 15 (DIFFERENCE SCREENHEIGHT 258) 400 250). This places the window in the upper left corner of the screen. Notes When you first open the PHONE-DIRECTORY window, the program will copy the PHONELISTFILES to {CORE}, significantly speeding up queries. Bugging in the title of the PHONE-DIRECTORY window with the left or middle mouse button will produce a menu with an option to recache the files from PHONELISTFILES.(LIST ((PAGE NIL (PAPERSIZE LETTER STARTINGPAGE# 184) (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 NIL) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE NIL . LETTER) (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 NIL) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE NIL . LETTER) (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 NIL) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))))).(($$ ( ((8(8D PAGEHEADING RUNNINGHEADMODERN TERMINAL MODERN MODERN MODERN MODERNLOGO HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN    @O BMOBJ.GETFN3 HRULE.GETFNMODERN  BMOBJ.GETFN3 HRULE.GETFNMODERN  R!UY$F?,8Iz