(DEFINE-FILE-INFO §READTABLE "INTERLISP" §PACKAGE "INTERLISP") (FILECREATED "22-Jan-87 01:39:34" ("compiled on " {ERIS}LISPCORE>LAFITE-INDENT.;1) "21-Jan-87 16:54:06" tcompl'd in "Xerox Lisp 21-Jan-87 ..." dated "21-Jan-87 17:55:05") (FILECREATED "22-Jan-87 01:34:36" {ERIS}LISPCORE>LAFITE-INDENT.;1 25845 previous date%: "21-Jan-87 16:06:01" {ERIS}KOTO>LAFITE-INDENT.;5) TEDIT-INDENT-ADD-INDENTATION :D4 (P 4 new-indent-string P 3 new-indent P 2 old-indent P 1 i I 3 hanging-indent I 2 right-margin I 1 indent-string I 0 paragraph) «@ kIHó³@I o ¡h†IkÔY°éi‘@@g@ µ@ kØ A JÔAJo 0C3”o€A@ BKC3µjÔÕBKÕ°dd™gLh‚h]—NµM_^¿µâO ^M°î(164 LAST 160 CONCATLIST 120 TEDIT-INDENT-BREAK-LINE 104 CONCAT 101 TEDIT-INDENT-STRIP-INDENTATION 81 CONCAT 78 ALLOCSTRING 64 NCHARS 57 \TEDIT-INDENT-COUNT-SPACES 52 NCHARS 46 STRPOS 24 MEMB 17 NTHCHARCODE 3 NCHARS) (130 % 42 % ) ( 95 "" 75 " " 21 (32 13)) TEDIT-INDENT-BREAK-LINE :D4 (P 2 break-point P 1 existing-eol I 2 max-length I 1 first-line-max-length I 0 string) Œ@d²o §@g ‘hoHd«l h i¿H@ Iµ@ Aó²I3²I@ ð™IdAó¥¿@hI3•AIó‘I„@A @kJkÙµo@JkØ µoBd(136 TEDIT-INDENT-BREAK-LINE 125 SUBSTRING 112 SUBSTRING 101 TEDIT-INDENT-FIND-BREAKPOINT 74 NCHARS 60 NCHARS 50 STRPOSL 39 MAKEBITTABLE 18 STRING-EQUAL 10 STRING-EQUAL) (15 % ) ( 131 "" 118 "" 25 (NIL) 7 "") TEDIT-INDENT-BREAK-LONG-LINES :D4 (P 4 string P 2 hanging-indent P 0 selection I 1 explicit-paragraph-breaks? I 0 text-stream) n@ @H@H A HÉÉHÉ hð´HÉHÉÉÕ"I\² KLo`Jghhº »L°àK (107 TEDIT-INDENT-REPLACE-SELECTION 104 CONCATLIST 94 \NCONC2 83 TEDIT-INDENT-ADD-INDENTATION 38 EQP 17 TEDIT-INDENT-SEPERATE-PARAGRAPHS 13 TEDIT.SEL.AS.STRING 3 TEDIT.GETSEL) (86 % 79 *TEDIT-INDENT-LINE-LENGTH* 58 LINEDESCRIPTOR 52 SELECTION 46 SELECTION 33 SELECTION 27 LINEDESCRIPTOR 21 SELECTION) ( 76 "") TEDIT-INDENT-FIND-BREAKPOINT :D4 (P 1 white-space-chars I 1 max-length I 0 string) >oHd³l l l h i¿HI@Ahi µI@Aµ@ kØ(57 NCHARS 51 STRPOSL 43 STRPOSL 24 MAKEBITTABLE) NIL ( 3 (NIL)) TEDIT-INDENT-REPLACE-SELECTION :D4 (P 0 start I 2 new-text I 1 selection I 0 text-stream) ,AÉ@HAÉgi @B @HB g(41 TEDIT.SETSEL 35 NCHARS 29 TEDIT.INSERT 24 TEDIT.SETSEL) (38 RIGHT 19 LEFT 14 SELECTION 3 SELECTION) () TEDIT-INDENT-SELECTION :D4 (P 4 string P 2 hanging-indent P 0 selection I 1 explicit-paragraph-breaks? I 0 text-stream) m@ @H@H A HÉÉHÉ hð´HÉHÉÉÕ"I\²KL``Jghhº »L°áK (106 TEDIT-INDENT-REPLACE-SELECTION 103 CONCATLIST 93 \NCONC2 82 TEDIT-INDENT-ADD-INDENTATION 38 EQP 17 TEDIT-INDENT-SEPERATE-PARAGRAPHS 13 TEDIT.SEL.AS.STRING 3 TEDIT.GETSEL) (85 % 78 *TEDIT-INDENT-LINE-LENGTH* 75 *TEDIT-INDENT-STRING* 58 LINEDESCRIPTOR 52 SELECTION 46 SELECTION 33 SELECTION 27 LINEDESCRIPTOR 21 SELECTION) () TEDIT-INDENT-SELECTION-KEEPING-LINEBREAKS :D4 (I 0 text-stream) @i (4 TEDIT-INDENT-SELECTION) NIL () TEDIT-INDENT-SEPERATE-PARAGRAPHS :D4 (I 1 explicit-paragraph-breaks? I 0 string) @ ¡hA”@ @ (17 \TEDIT-INDENT-SEPERATE-PARAGRAPHS 12 \TEDIT-INDENT-SEPERATE-LINES 3 STRINGP) NIL () TEDIT-INDENT-SET-INDENT :D4 (P 1 pwindow P 0 window I 0 text-stream) <@ ÉHµ#`I o`hIhdl h d’¿H °Ù(56 GETPROMPTWINDOW 43 PROMPTFORWORD 24 CLEARW 3 TEXTOBJ) (46 *TEDIT-INDENT-STRING* 31 *TEDIT-INDENT-STRING* 17 PROMPTWINDOW 6 TEXTOBJ) ( 28 "New indent string: ") TEDIT-INDENT-STRIP-INDENTATION :D4 (P 1 eol-pos P 0 string I 1 first-line-too? I 0 paragraph) `@kgH YµA²MHdk kØ µoH ™HkIkÙ°&HkIkÙoHIHIkØ kÔÔ µo¸°ªH(89 CONCAT 80 SUBSTRING 74 \TEDIT-INDENT-COUNT-SPACES 61 SUBSTRING 51 SUBSTRING 42 EQP 39 NCHARS 28 SUBSTRING 23 \TEDIT-INDENT-COUNT-SPACES 11 STRPOS) (7 % ) ( 86 "" 65 " " 34 "") TEDIT-MAKE-LINES-EXPLICIT :D4 (P 6 i P 2 last-line P 1 this-line P 0 selection I 0 text-stream) h@ HÉHÉ 2IÉ½LµMh\»IÉYdJð²è¿K°!M&¼°ìd@Nkgi ¿@g µå@Hhg(101 TEDIT.SETSEL 87 TEDIT.INSERT 79 TEDIT.SETSEL 22 LAST 3 TEDIT.GETSEL) (98 RIGHT 84 % 74 LEFT 45 LINEDESCRIPTOR 30 LINEDESCRIPTOR 17 SELECTION 10 SELECTION) () TEDIT-OPEN-LINE :D4 (P 0 selection I 0 text-stream) G@ @gHÉHÉÉÕo HÉYjðªI´ I ´@H (68 TEDIT.SETSEL 61 \FZEROP 42 TEDIT.INSERT 39 CONCAT 36 ALLOCSTRING 3 TEDIT.GETSEL) (46 SELECTION 26 LINEDESCRIPTOR 20 SELECTION 14 SELECTION 10 % ) ( 33 " ") TEDIT-REMOVE-INDENT :D4 (P 4 paragraph P 0 selection I 0 text-stream) G@ @H0@H °dLi ghY–JµI[Z¿µãK ZI°ì(64 LAST 60 TEDIT-INDENT-REPLACE-SELECTION 57 CONCATLIST 31 TEDIT-INDENT-STRIP-INDENTATION 19 TEDIT-INDENT-SEPERATE-PARAGRAPHS 16 TEDIT.SEL.AS.STRING 3 TEDIT.GETSEL) (34 % ) () \TEDIT-INDENT-COUNT-SPACES :D4 (P 1 max-pos P 0 i I 1 start-pos I 0 string) /@ ¡jA@ HdIó¬¿@H l §HµiAÕHkÔX°ä(30 EQP 25 NTHCHARCODE 11 NCHARS 3 STRINGP) NIL () \TEDIT-INDENT-FIND-PARAGRAPH-END :D4 (P 2 i P 0 eol-pos I 2 after-pos I 1 paragraph-indent I 0 string) \g@BkØHµ @ kØkÙBkØJIó³@J l ¡h†JkÔZ°ëi‘BH@ ‘HA@HkØ ²ó@AH(89 \TEDIT-INDENT-FIND-PARAGRAPH-END 81 EQP 78 \TEDIT-INDENT-COUNT-SPACES 67 EQP 64 NCHARS 45 EQP 40 NTHCHARCODE 19 NCHARS 9 STRPOS) (2 % ) () \TEDIT-INDENT-SEPERATE-LINES :D4 (P 0 eol-pos I 1 current-lines I 0 remaining-string) @@ ¬A µ5ohg@ µ@ kØ@HkØ @kHkÙµoA (61 \TEDIT-INDENT-SEPERATE-LINES 50 SUBSTRING 42 SUBSTRING 30 NCHARS 24 STRPOS 8 DREVERSE 3 STRINGP) (20 % ) ( 56 "" 14 "") \TEDIT-INDENT-SEPERATE-PARAGRAPHS :D4 (P 3 para-end-pos P 2 i P 0 eol-pos I 1 current-paragraphs I 0 string) †@ ¤A g@ Hµ @A kÙkJIó³@J l ¡h†JkÔZ°ëi²@HkØ oA H@ ³¾@dHkØ H@KkØ @kKkÙµoA (131 \TEDIT-INDENT-SEPERATE-PARAGRAPHS 120 SUBSTRING 112 SUBSTRING 102 \TEDIT-INDENT-FIND-PARAGRAPH-END 98 \TEDIT-INDENT-COUNT-SPACES 88 EQP 85 NCHARS 79 \TEDIT-INDENT-SEPERATE-PARAGRAPHS 70 SUBSTRING 50 EQP 45 NTHCHARCODE 28 DREVERSE 16 STRPOS 8 DREVERSE 3 STRINGP) (12 % ) ( 126 "" 74 "") (PRETTYCOMPRINT LAFITE-INDENTCOMS) (RPAQQ LAFITE-INDENTCOMS ((* * LAFITE-INDENT defines a function that will indent the current selection.) (FNS TEDIT-INDENT-ADD-INDENTATION TEDIT-INDENT-BREAK-LINE TEDIT-INDENT-BREAK-LONG-LINES TEDIT-INDENT-FIND-BREAKPOINT TEDIT-INDENT-REPLACE-SELECTION TEDIT-INDENT-SELECTION TEDIT-INDENT-SELECTION-KEEPING-LINEBREAKS TEDIT-INDENT-SEPERATE-PARAGRAPHS TEDIT-INDENT-SET-INDENT TEDIT-INDENT-STRIP-INDENTATION TEDIT-MAKE-LINES-EXPLICIT TEDIT-OPEN-LINE TEDIT-REMOVE-INDENT \TEDIT-INDENT-COUNT-SPACES \TEDIT-INDENT-FIND-PARAGRAPH-END \TEDIT-INDENT-SEPERATE-LINES \TEDIT-INDENT-SEPERATE-PARAGRAPHS) (INITVARS (*TEDIT-INDENT-STRING* (ALLOCSTRING 4 " ")) ( *TEDIT-INDENT-LINE-LENGTH* 72)) (CONSTANTS (*eol-string* (CHARACTER (CHARCODE EOL)))) (GLOBALVARS *TEDIT-INDENT-STRING* *TEDIT-INDENT-LINE-LENGTH*) (P (OR (GETD (QUOTE TEDIT)) (FILESLOAD TEDIT)) ( TEDIT.REMOVE.MENUITEM TEDIT.DEFAULT.MENU (QUOTE Indent)) (TEDIT.ADD.MENUITEM TEDIT.DEFAULT.MENU (QUOTE (Indent (QUOTE TEDIT-INDENT-SELECTION) "Indent the current selection" (SUBITEMS (Indent (QUOTE TEDIT-INDENT-SELECTION) "Indent the current selection") ("Indent & keep lines" (QUOTE TEDIT-INDENT-SELECTION-KEEPING-LINEBREAKS) "Indent the current selection, keeping existing line breaks") ("Set indent" (QUOTE TEDIT-INDENT-SET-INDENT) "Set the indent string to a new value") (Unindent (QUOTE TEDIT-REMOVE-INDENT) "Remove one level of indentation from the current selection") ("Open line" (QUOTE TEDIT-OPEN-LINE) "Open a blank line at the current position") ("Insert s" (QUOTE TEDIT-MAKE-LINES-EXPLICIT) "Insert real s at the end of each line in the current selection") ("Break long lines" (QUOTE TEDIT-INDENT-BREAK-LONG-LINES) "Break long lines by inserting explicit 's")))))))) (RPAQ? *TEDIT-INDENT-STRING* (ALLOCSTRING 4 " ")) (RPAQ? *TEDIT-INDENT-LINE-LENGTH* 72) (RPAQ *eol-string* (CHARACTER (CHARCODE EOL))) (CONSTANTS (*eol-string* (CHARACTER (CHARCODE EOL)))) (OR (GETD (QUOTE TEDIT)) (FILESLOAD TEDIT)) (TEDIT.REMOVE.MENUITEM TEDIT.DEFAULT.MENU (QUOTE Indent)) (TEDIT.ADD.MENUITEM TEDIT.DEFAULT.MENU (QUOTE (Indent (QUOTE TEDIT-INDENT-SELECTION) "Indent the current selection" (SUBITEMS (Indent (QUOTE TEDIT-INDENT-SELECTION) "Indent the current selection") ("Indent & keep lines" (QUOTE TEDIT-INDENT-SELECTION-KEEPING-LINEBREAKS) "Indent the current selection, keeping existing line breaks") ("Set indent" (QUOTE TEDIT-INDENT-SET-INDENT) "Set the indent string to a new value") (Unindent (QUOTE TEDIT-REMOVE-INDENT) "Remove one level of indentation from the current selection") ("Open line" (QUOTE TEDIT-OPEN-LINE) "Open a blank line at the current position") ("Insert s" (QUOTE TEDIT-MAKE-LINES-EXPLICIT) "Insert real s at the end of each line in the current selection") ("Break long lines" (QUOTE TEDIT-INDENT-BREAK-LONG-LINES) "Break long lines by inserting explicit 's"))))) (PUTPROPS LAFITE-INDENT COPYRIGHT ("Xerox Corporation" 1986 1987)) NIL