5ad5083c6d
* GREP: avoids tedit-file formatting, font change chars in Lisp source files, adds TGREP * Oops, TAB is not a fontchange character * Updated documentation GREP.TEDIT * Avoids EXPORTS.ALL by doing SYSREC1 * Don't change the outcharfn * Make it work on Tedit files * Print out the filename instead of the stream for Tedit files
43 lines
3.9 KiB
Plaintext
43 lines
3.9 KiB
Plaintext
en·vÅos GREP
|
||
2
|
||
|
||
4
|
||
|
||
1
|
||
|
||
GREP
|
||
1
|
||
|
||
4
|
||
|
||
By: Larry Masinter (Masinter.pa@Xerox.com)
|
||
INTRODUCTION
|
||
Like FGREP of Unix: searches for strings in files.
|
||
(GREP STRS FILES OUTSTREAM ) [Function]
|
||
STRS is a string or a list of strings. FILES is a file or a list of files (including * wild-cards). Searches for the given string(s) in the given file(s), showing each line on OUTSTREAM. The function The function TGREPcreates a scrollable Tedit stream to show the output.
|
||
(TGREP STRS FILES OUTSTREAM ) [Function]
|
||
(PHONE name) [Function]
|
||
Calls (GREP name PHONELISTFILES). PHONELISTFILES is initialized to NIL. (The PARC init file resets it to point to the PARC phone list.)
|
||
For example,
|
||
(GREP (QUOTE ED) (QUOTE {INDIGO}<REGISTRAR>PARCPHONELIST.TXT))
|
||
will print:
|
||
(from {INDIGO}<REGISTRAR>PARCPHONELIST.TXT;3)
|
||
4183 <Endicott>, Fred 35-1354
|
||
4435 <Fiala>, Ed 35-2166
|
||
4598 <RKennedy>, Ray 34-78
|
||
4839 <McCreight>, Ed 35-2146
|
||
5759 Pedersen, Jan 32-202
|
||
4818 Satterthwaite, Ed * 35-2174
|
||
MES Solcz, Edward J. 8* 348-1214
|
||
ATA Wahlenmeier, Fred 887-4018
|
||
|
||
(LIST ((PAGE NIL (PAPERSIZE LETTER FOLIOINFO (ARABIC "" "") STARTINGPAGE# 100) (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 (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))))) 1 $ 1 È $ 4 È $È 5 È $È T 4 È $È 1 È $ 1 Š Š8 $ 1 Š Š8 $ J È $È PAGEHEADING RUNNINGHEAD MODERN
|
||
r d(DEFAULTFONT 1 (TERMINAL 12) (TERMINAL 8) (TERMINAL 8) (PDF (TERMINAL 8)) (POSTSCRIPT (TERMINAL 8))) GACHA
|
||
HELVETICA
|
||
HELVETICA TERMINAL
|
||
MODERN
|
||
MODERN
|
||
MODERN MODERN CLASSIC CLASSIC
|
||
HRULE.GETFN HRULE.GETFN HRULE.GETFN HRULE.GETFN HRULE.GETFN , 3
|
||
# „ W
|
||
|
||
|
||
ˆ
|
||
> - & ' DATE:g°Ÿ Szº |