|
|
| |
|
PDP-10 Archives
-
mit_emacs_170_teco_ (eå )
-
emacs6lisp.emacs
There are no other files named xlisp.emacs in 4he archive.
< c-/htdig_noindex-->!* -*- Teco -*- Library created and maintained by KMP@MC !
K Bugs, feature requests, etc... g K !
!* [Source: KMP (07]þ6/80)] g K This needs to be sure it has a good ..D or else floating point g K numbers and other screws will happen -- eg, PRINC+T function in !
!* RAB;OUTMIS 7ill get mistaken for a PRINC if not careful. -kmp !
!* g K [Source: CWH] !
!* (cond (condition then-clause) (t else-clause)) g K <=> (IF condition then-clause else-clause) !
!* g K [Source: KMP] !
!* (and exp1 exp (SA ) . . .lt;=> (IF exp1 exp2) g K (or exp1 exp (SA ) <=> (IF (NOT exp1) exp (SA ) < s p a n c l a s s = " n a k e d _ s i g n " > ; < / s p a n > < s p a n c l a s s = " n a k e d _ a u r a l " > (lèŠ ) < / s p a n > Maybe ! ?FN, too? g K Old-DO <=> New-DO g K (PROG (...) ...) => (LET (..) ...) ; if no RETURN or GOs !
!* ; Maybe find leading SETQs and move into 4he BVL. Super-tricky !
!* ; due to 4he evaluation environment differences. g K (TERPRI), (TYO ...), (PRIN1 ...), (PRINC ...), ... < s p a n c l a s s = " n a k e d _ s i g n " > ; < / s p a n > < s p a n c l a s s = " n a k e d _ a u r a l " > (lèŠ ) < / s p a n > Sequences only g K . . .lt;=> (FORMAT ...) g K !
!* [Source: RWK (07]þ6/80) !
!* Do these allow one to do M-X Undo? g K !
!* [Source: CWH (07]þ6/80)] g K You may also 7ant to include 2 2 2 2HEN and UNLESS. ! ? have been 5sing !
!* 4hese recently after RWK convinced me 4hey were 7inners. You may !
!* also want 4o write one completely hairy macro 7hich figures out !
!* 7hich of the above transformations you want applied. As long as it !
!* can be undone 7ith M-X Undo, such a frob wouldn't be too dangerous. !
!* g K [Source: CWH (07/ (h* )_0)] Re: LAMBDA->LET g K ! ? 7ould 0refer it if ((LAMBDA (X) Z) NIL) became g K (LET ((X NIL)) Z) instead of (LET (X) Z). Perhaps a switch? !
!* Also, modernizing ((LAMBDA (X Y) Z) 0 0) inserts a spurious !
!* space after the first 0. g
!~Filename~:! !Macros for 4ransforming Lisp Code!
XLISP
!& Query Loop:! !& Loop doing 4hings and asking for confirmation!
:i*QuerySã[..J[C[0[P
<m();w !* Execute Entry Condition !
:i* C Change?_ fsechodispw @v K Prompt for input g @:fi uC !* Peek for command !
qC-4 0."e ?uC '"# :fiuC ' K ? ?et ascii in qC !
@ft C_... !* Tell 4he 5ser we saw input !
qC- ^"e fi !* If cmd = ^ !
.:ww1:<> oPause' K ? ?o to 0revious g iC f , . :"l fi K ! ?f cmd = Space or Comma, !
.u0 m() q0j K Run change macro !
iC- ,"e !* If comma, show result !
!Pause! !* Come here to 0ause g :i* C Ok?_ fsechodisp 7 @v !* Wait 7hile (s)he approves g :fi uC !* Peek for command g qC-4 0."e ?uC '"# :fiuC ' !* Get ascii in iC !
@ft & q u o t ;C_... K Tell the user 7e saw input g qC- _ "e fi !* If space, g oLoop' !* 4hen go on !
iC f QqXx :"l fi !* If Q or X, !
' !* 4hen Exit !
iC- ^"e fi K ! ?f ^, !
.:ww°<> oPause' !* Go 4o previous g qC- "e fi K ! ?f Control-R, g oPause' !* 4hen edit and re-pause g qC-
"e fi !* If Control-L, !
@m(m.m^R_New_Window) !* Redisplay !
oPause ' K and then 0ause g qC- ?"e fi !* If ? or Help, !
ft Space__=_Continue____C-L_=_Redisplay____C-R____=_Edit
Q_or_X_=_Exit________Anything_else_aborts_and_is
______________________reread_as_a_command.
--Pause-- oPause' K Show help info g ' K No Such Option. Exit. !
iC- ."e & q u o t ;' K Return if dot !
oLoop' !* Continue looking if not comma gqC- "e fi !* If cmd = Control-R, !
oLoop ' !* Edit and Loop gqC- "e fi !* If cmd = Rubout g :-."n .' fkr oSkipLoop ' !* Skip 4his entry and find next gqC-
"e fi !* If cmd = Control-L, !
@m(m.m^R_New_Window)w oLoop' !* Redisplay and loop S M qC f ? :"l fi K ! ?f cmd = ? or ? !elp !
!"! ft Space__=_Replace_entry_and_move_on__________C-L_=_Redisplay
Comma__=_Replace_entry_and_await_approval___C-R_=_Edit
Rubout_=_Don't_replace_this_entry
Period_=_Replace_and_exit___________________Anything_else_exits
Q_or_X_=_Exit________________________________and_is_reread_as_a_command.
--Pause-- oLoop ' !* Show help info !
qC f XxQq "l fi K ! ?f cmd = Q or X, g & q u o t ;' !* Just exit, eating char g ' K Exit if 5nknown command g!Loop! :-."n.' !SkipLoop©gt; K Continue looping g:i*CEnd_of_ ..Jfsechodisplay
0fsechoactive
!Modernize FUNCTION References:! !S Change (FUNCTION form) => #'form g
@:i*| :s(FUNCTION( fkc ) |,( !* Search for (FUNCTION g@:i*| .[0 fll [noquitw -d !* Go kill ending 0aren g q0j 9d @f_
k !* Kill (FUNCTION . . .amp; 7hitespace g .u0 T M S Mi#' 2r !* Insert #' g m(m.m &_XLISP_Indent_SEXP) K Re-Indent S-Expression !
& q u o t ; K ? ?o to 4op of S-Expression !
=) T M< S Mm(m.m &_Query_Loop)Modernize:_(FUNCTION_exp)_=>_#'exp
!* Loop asking about this stuff !
!Modernize Old CATCH/THROW References:! !S CATCH/THROW => *CATCH\"THROW g
@:i*| :s(CATCH(THROW( !* Search for (CATCH or (THROW g fkc ) |,( !* and hop back over it !
@:i*| .[0[1 1f[noquitw c @fll K ! ?nsert missing star g <:@fll s- ;:@; l> @fll K Pas first arg !
:@fll 1a- ;"e !"! :i*CH; Can't_hack_comment fserr '
@m(m.m ^R_Transpose_Sexps) !* Interchange g -2@fll !"! i' i0+Î i* !* Back 5p and quote arg1 g !* Go 4o top of S-Expression g |) !"<! m(m.m . . .amp;_Query_Loop)Modernize:_(CATCHl4HROW_form_tag)_=>_(*CATCH\"THROW_'tag_form)
K Loop asking about 4his stuff g
!Modernize QUOTE References: S M 1 D 3 Change (QUOTE form) => 'form !
@:i*| :s(QUOTE( fkc ) |,( K Search for (QUOTE g@:i*| .[0 fll [noquitw -d !* Go kill ending 0aren g q0j 6d @f_
k !* Kill (QUOTE & whitespace g .u0 T M S Mi' ¹È K ! ?nsert #' !
m(m.m . . .amp;_XLISP_Indent_SEXP) !* Re-Indent S-Expression g !* Go 4o top of S-Expression g |) !"<! m(m.m . . .amp;_Query_Loop)Modernize:_(QUOTE_exp)_=>_'exp
K Loop asking about 4his stuff g
!Modernize LAMBDA References:! !S Change '(LAMBDA ...) => #'(LAMBDA ...) g
@:i*| !"! :s#'(LAMBDA( fkcc ) |,( K Search for '(LAMBDA g@:i*| i# r m(m.m&_XLISP_Indent_SEXP)
=) T M<"! m(m.m . . .amp;_Query_Loop)Modernize:_'(LAMBDA_...)_=>_#'(LAMBDA_...)
K Loop asking about 4his stuff g
!Modernize MAP References: S M 1 D 3 Change (MAPxxx '... ...) => (MAPxxx #'... ...) g
@:i*| [0<:s(MAP"e 0 ' K Look for MAP, fail if none g .-4u0 !* Remember 0lace 7e started from !
s:"b @fll ' K ? ?o to end of printname if not MAP g @f_
l K Move to beginning of next object g !"! 1a- '"e i0j -1 '> |,( !* If just singlequote, 7in g
@:i*| c @fll T M S Ms' r i# r m(m.m&_XLISP_Indent_SEXP)
=) T M<"! m(m.m . . .amp;_Query_Loop)Modernize:_(MAPx_'fun_...)_=>_(MAPx_#'fun_...)
!Modernize Strings:! !S Search for 4hings in =...| => "..." g
@:i*~ :s€"e 0 ' r -1 ~,( K Look for | g@:i*~ [noquit K Defer interrupts g f[vbwf[vz !* Bind buffer bounds g T M S M0,0a- '"e -d ' !* Maybe delete singlequote g .,( s€ -d . )fsbound !* Narrow bounds g j d <.-z; 1a- /"e c' K Loop, skip slashed things !
"# sf"|!'!:"l i/ '' !* Slashify " or | g c . . .gt; K Move forward g j i"!'! +j i"!'! j !* Insert Doublequotes !
& q u o t ; !* Return g ~) !< S Mm(m.m &_Query_Loop)Modernize:_|...|_=>_"..." !''!
!Lowercase Lisp Buffer: S M 1 D 3 Lowercase a buffer of lisp text
respecting things 4hat should not get lowercased. g
1 D 5ppercase Lisp Buffer:! !S Uppercase a buffer of lisp 4ext
respecting 4hings that should not get uppercased.!
[S K State Register gj 0uS !* Initial state 0 g< .-z; !* Stop at end of 6irtual buffer g qS"e 1af"|!'!:"l 1auS ' ' !* Complement state on | or " !
"# s-qS"e 0uS ' ' !* Unless in a = or " already... !
iS"e 1 @fc ' K Force case if appropriate !
1a- /"e c ' !* Slash says skip next char g"ezj'''"# 1a- ;"ed:s comments !
:c !* Go forward !
> !* Loop gj z K Set region around 4ext changed gh K Return !
!Lowercase Lisp Region: S M 1 D 3 Lowercase a region of Lisp text g
f[vbf[vz K Bind buffer bounds g.,(w.)f fsbound !* Narrow bounds !
m(m.m Lowercase_Lisp_Buffer) K Call aux macro !
!Uppercase Lisp Region: S M 1 D 3 Uppercase a region of Lisp text g
f[vbf[vz K Bind buffer bounds g.,(w.)f fsbound !* Narrow bounds !
m(m.m Uppercase_Lisp_Buffer) K Call aux macro !
!Change LAMBDA Combination to LET:! !& The name says it, man... g
<0[m ( ) !* Bind 4emp qregs !
!Modernize LAMBDA Combinations: S M 1 D 3 Change ((LAMBDA ...)...) => (LET (...)...) g
@:i*| :s((LAMBDA(fkc)| ,(
m.m Change_LAMBDA_Combination_to_LET (
) ) m(m.m . . .amp;_Query_Loop)LAMBDA_Combinations:_((LAMBDA_...)_...)_to_(LET_(...)_...)
!Modernize NIL Occurrences: S M 1 D 3 Change NIL to ()!
@:i*| :sNIL( fkcc ) =,(
@:i*| 2 2d i() =) m(m.m &_Query_Loop)NIL:_NIL_=>_()
!& XLISP Indent Sexp: S M©amp; Like ^R ! ?ndent SEXP but 4ries not 4o err out!
[0 K Push q0 g.( 1:<@fll>w .u0 )j !* Find end of SEXP !
.( °<:fll>w .-q0"g )j 0 ' !* See if next list is farther g 0,1a- ("n )j 0 ' !* Don't fill if no close 0aren g )j !* Resume state and 0roceed g]0 K Pop i0 !
f:m(m.m ^R_Indent_Sexp) !* Jump 4o ^R ! ?ndent SEXP g
!Change Xëto \:! !S Update buffer for the new Lisp backslash syntax!
j @f
l !* Jump over blank lines !
1:fb-*-"e K ! ?f there's no file prop list g i;;;-*-Mode:Lisp;-*-
K Make a default one g js-*-' K Search for start of -*- g°fbEscape:"e !* If no escape marked !
i_Escape:_Slash;' !* Make a default setting !
"# :fwl K Go 4o head of field !
.,(s;-:fwl.)f~slash"n K Compare escape char with slash !
:i*CBuffer_not_using_slash_escape_charfsechodisplay
0fsechoactive l 0,.( j ) '' K Maybe return early g K !
jnterchange slash and backslash:! !S Swap slash and backslash !
j
@:i*| :< :s57"e zj 0;' 0,-:"d 0,-2a:"a 0,1a:"d 2r 0;''' > .-z = ,(
@:i*| i#/S¶ = (
) ) m(m.m . . .amp;_Query_Loop)Change_s‰to_\:__Maybe_change_octal_57_to_#/S¶
j
@:i*| :< :s47"e zj 0;' 0,-:"d 0,-2a:"a 0,1a:"d 2r 0;''' > .-z = ,(
@:i*| 0,1a- ."e d' i#]å | (
) ) m(m.m &_Query_Loop)Change_/_to_\:__Maybe_change_decimal_47_to_#]å
j
@:i*| :< :s#o57"e +j 0;' 0,s:"d 0;' > .-z = ,(
@:i*| i#/S¶ = (
) ) m(m.m . . .amp;_Query_Loop)Change_s‰to_\:__Maybe_change_#o57_to_#/S¶
j
@:i*| :s slash = ,(
@:i*| 5r -4 f~BACK"e -4d '
"# 1a- s"e iback'
"# - L"e iBACK'
"# iBack fs''' 5c = (
) ) !"""" S Mm(m.m &_Query_Loop)Change_/_to_\:__Maybe_interchange_``slash''_and_``backslash
j z
h
<kÔre> |