Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

!* -*-TECO-*-!

!~FILENAME~:! !GRIND macros for formating code.!
GRIND

!Grind Sexp:! !C Grind the sexp after the pointer.
Uses QMiser Column to decide where to start using "Miser" format,
and QFill Column as the page width to aim for.
Can be undone with Undo.!

  1:<
    FDL R			    !* Find the next list.!
    F[VB F[VZ  FL FSBOUND	    !* Narrow bounds to that list.!
    F~MODELISP"N
      0[Region_Query_Size'	    !* If not Lisp mode, query even on small region.!
    Z:
    :i*grindM(M.M &_Save_Region_and_Query)f"e '
    W J
    [2 [3
!*** Now normalize the expression;  put it into the form PRIN1 would print.!
    [D 128*5,32:ID		    !* In QD make a dispatch that!
       11.*5:F D -D :M2 	    !* turns any whitespace into a single space,!
       15.*5:F D RK :M2 	    !* deletes CRLFs and the indentation after them,!
       12.*5:F D -D :M2 
       /*5:F D C		    !* Handle slashes and vertical bars right.!
       |*5:F D R @FLL 
       ;*5:F D L :M3 	    !* Skip comments, deleting indentation on next line.!
       (*5:F D :M3 	    !* Make sure no whitespace follows ('s and ''s!
  !"!  '*5:F D :M3 
       )*5:F D R M3 C 	    !* or precedes )'s.!
    :I2 Z-.< 1A F_	:; D> 32I 
    :I3 Z-.< 1A F_	:; D> 
    HF
D
    J .( 0FS VBW 0L .FS VB )J	    !* Include all of line, up to (, after B,!
				    !* so that FS HPOS is accurate.!
!*** Now decode the grinding parameters.!
    FS WIDTH-10[W		    !* Figure the width to aim at!
    FS WIDTH*2/3[C		    !* and the comment column.!
    0FO ..Q Fill_Column F"N UW
	QWUC'
    -1FO ..Q Comment_Column +1F"G -1UC'
    QC[M			    !* Figure the place to switch to Miser fmt.!
    -1FO ..Q Miser_Column +1F"G -1UM'
    [R :IR /8+1*8
    0FO ..Q Comment_Rounding F"N UR'
    M.M &_Indent [I
!* G gets recursive macro to grind and pass 1 sexp.!
!* It expects numerc arg = depth in parens.!
    [G @:IG`
	[2 S' R		    !* Pass by all leading quotes.!
	1A-("N @FWL '	    !* Atoms, just skip over.!
	FL-.-QW++(FS HPOSU2 Q2)"L FLL '	    !* Lists that fit in line, skip over.!
	C Q2-QM"L		    !* If not yet far enough for Miser fmt,!
	   !"!  1A F';()"L @FWL 1A-32"E C'''	    !* Skip 1st element, so get 2 on 1st line.!
				    !* But if 1st element is a list, use miser fmt anyway.!
	FS HPOS U2		    !* Q2 gets column to put rest of elements at.!
     !LP! 1a-32"E D  O LP'	    !* Don't be confused by whitespace.!
	  1A-)"E C '	    !* Until end of this list,!
	  FS HPOSU3
	  1A-;"E		    !* Put comments at the comment column,!
	    Q3-QC"G QC' "# Q3 R' MI L'
	  Q3-Q2"N 13I 10I	    !* and for lists, indent to right place!
	    Q2/8,9I Q2&7,32I'
	  +1MG  O LP		    !* and recursively grind.!
	`
    0MG				    !* DO IT!
    J 7F~ (DEFUN_"E		    !* Now, if list is (DEFUN FOO<cr>..., then!
	@FLL 8F=
                ______"E
	     8D	.U3 L		    !* Get the thing after FOO onto first line,!
	     Q3,. F~FEXPR
	       *(Q3,. F~MACRO
	       )"E		    !* and if it is a function property name,!
		 -2D 6D'''	    !* get it on that line too.!
    J HU2U3
    >  !* end errset!
  J Z:			    !* Leave region around the ground sexp.!
  Q3,Q2

!MACSYMA Grind:! !C Format MACYSMA code.
When called from ^R mode it grinds from . to <mark>,
unless it is given an argument in which case
it does the command point is in.  When called from regular TECO it
the whole buffer if given no argument or <n> MACSYMA commands after
the . if given an argument <n>.!

[0[1[9
0F[ S ERROR
1F[ BOTHCASE
0FO..Q Fundamental ..D F"E Q..D'[..D
!*READ ARGS AND SET UP ..N!
FS^RMODE"N F-1"G 1U0 '		!* IN ^R AND WITH ARG => DO ONE CMD!
		 "# (B-(:))*(Z-(:))"G	!* CHECK <MARK> IS REASONABLE!
			 :I*MOB	Mark_out_of_boundsFSERR '
		     .,(:)FU1J 0U0
		     F=MODEMACSYMA"N OConfirm'
		     .,q1-1000"g !Confirm! @FT Do_you_really_want_to_Grind_this_s-expression?_(Y_or_N):
				  FI :FC - Y(  FS Echo Display C FS Echo Display) "N ''

		     .(<.,Q1FB\$\;; %0W>)J ''
				!* IN ^R AND NO ARG => DO .,<MARK>!
	 "# "G U0 '		!* REG TECO WITH NON-NEG ARG => DO ^X CMDS!
	      "#  J 0U0 <S\$\;; %0W> J ' '
				!* REG TECO WITH ZERO ARG => DO EVERYTHING!
-S\$\; FS S VALUE"E 0 '"# 2C . 'U9 Q9J
Q0<.,(S\$\;; R .)M(M.MGrind_one_MACSYMA_statement) C>
Q9+2J 

!Grind one MACSYMA statement:! !C Grinds one MACSYMA statement.
Args delimit the statement (exclusive of the ; or $)!

[1[2[3[4[5[6[7[8[9[0[Y[Z[C[M
FXC Q..OUM FS B CREA GC
FN QM,Q..OUMU..O QMFSBKILL
ZJI] JI[R	!* PREVENT LOSSAGE AT ENDS!

!*GET RID OF /* TYPE COMMENTS PUSH THEM ONTO Q-R D
MARK THEM WITH  $1$  COMMENTS NOT ALLOWED WITHIN ATOMS!
<S/*;-2D .U9 S*/-2D[D Q9,.FXD I_$1$_>

!*GET RID OF STUFF IN DOUBLE QUOTES PUSH THEM ONTO Q-R A MARK WITH $%%%$!
J<S\";.U9S R[A Q9,.FXA
-DD I$ FQA<I%> I$>

!*GET RID OF \ED STUFF PUSH ONTO Q-R B MARK WITH $$!
J<S\; [B .,.+1XB -DD I$$>

!*CHANGE / TO \ SO FLL ETC WORK!
J<S/; -DI\>

!*GET RID OF CRS AND TABS!
J<S
;-D>
J<S	;-DI_>

!*SAVE IMPORTANT SPACES  ^H AFTER IF AND BEFORE THEN ELSE, ^R AFTER THEN ELSE
^P AFTER DO ETC AND ^R BEFORE (IF THERE WAS A SPACE THERE, ^R EITHER SIDE
OF AND ETC!
J<SIF; RI>
J<SELSETHEN;RI5RI>
J<
SDOFORINFROMNEXTSTEPTHRUUNLESSWHILE;
RI
R-S 1A-32"EDI'"#C'>
J<SORANDNOT;RI R-S CI>

!*DELETE REMAINING SPACES AND REMOVE SPURIOUS CONTROL CHARS
AND CHANGE [S TO (S MARKING WITH ^A!
J<S_;-D>
J<S;-D>
J<S(,[;-D>
J<S[; -DI
(C> J<S]; -DI
)>

!*PUT IN SPACES AROUND = ETC!
J<S:; RI_C (1A-=)*(1A-:)"EC' I_>
J<S:=#<>;RI_C 1A-="EC'I_>

!*START GRINDING, START FROM BOTTOM Q6 IS DEPTH!
0U6 J
<1:<FDL>:; %6>
<  <

!*SET BOUNDS ROUND EITHER FOO(...) OR ^A(....^A)  SAVE OLD BOUNDS
IN Q-R Y AND Z!
R-S 1A-1"NC' .U9
FLL Z-.UZ  BUY
Q9,.FSBOUNDW 0U5 J

!* IF FOO = BLOCK OR LAMBDA OR IF COMPOUND STATEMENT THEN GRIND (Q5=1)!
S(R B-."E S,FS S VALUE"N 1U5''
"#B,.FBBLOCKLAMBDA FS S VALUE"L1U5' '

!*LOOK FOR IF OR DO STATEMENT (MARKED BY ^P FOR DO OR ^H FOR IF!
J<S;

!*Q1=1 FOR IF STA, 0 FOR HEAD DO STA -1 FOR DO STA WITH HEAD (EG FOR CLAUSE)!
.U9 0A-"E 1U1'"# -1A-O"E 0U1 '"#-1U1 ' '

!*Q8 MARKS END OF STA, QPDL POINTER SAVED IN Q7!
S,FS S VALUE"EZ-1J 0A-1"E R ' .U8 '"# .-1U8 '
Q9J FSQPPTRU7
<.,Q8FB FSS VALUE"E Q8J 
.U9 -S Q9-.-20"G C.U4 1A-"E
FLL Q9-."E OL1 ' '"# 1A-("E
FLL Q9-."E RIQ4J I 2+Q9U9 2+Q8U8 OL1 ' ' '
Q4J I( Q9+2J I) 4+Q9U9 4+Q8U8 '
!L1! Q9J

FSQPPTR-Q7< I) >
Q7FSQPUNWI 0; '
0A-"E -1A-O"E 0U3 '"# -1U3 ' '
"#-1A-F"E 1U3 '"# -1A-N"E2U3'"# 3U3 ' ' '
R-S (1A-)*(1A-)"N 1U2 
.U9 -S Q9-.-20"G C.U4 1A-"E
FLL Q9-."E OL2 ' '"# 1A-("E
FLL Q9-."E RIQ4J I 2+Q9U9 2+Q8U8 OL2 ' ' '
Q4J I( Q9+2J I) 4+Q9U9 4+Q8U8 '
!L2! Q9J'
"# 0U2 '
Q2"ECI( Q8+2U8 [1 Q3U1'
"#<Q1*(Q1-3)"E I) Q8+2U8 ]1'"# Q3U1  0; '> ' S>

>
!*END OF DO AND IF HACKING!
J<S; -DI>
Q5"E J<S,;-DI;>'
"#J<S,;-DI>
JS(RI Z-1JI '
ZJ QY,Z+QZFSBOUND

 1:<FDL>:;>  Q6-1U6 -Q6"E0;' JQ6FDL>

0U8J<S;
(0A-)"EI
Q8<I___> '
"#(1A-()"ECI
%8<I__>'
"#0A-"NRI__C' C Q8-1U8 (1A-)*(1A-)"N
(1A-)*(1A-)*(1A-;)"EC' I
 Q8<I___> '  ' '>

J<S;; -DI, 1A-13"NI_'>
J<S;-D> J<S;-DD> J<S\;-DI/>
J<S
(;-2DI[> J<S
);-2DI]> JDI
 ZJ-DI

J BU9 <S
;.-2-Q9-70"G -L S_ .-1U8 Q8-Q9-50"L Q9,Q8XC
Q9+70,Q8+10FB,) FS S VALUE"N C1A-_"ED' OL3 '
Q9+71,Q8+1FB FS S VALUE"N 1A-_"ED'!L3! I
 GC 0L '"# L ' '"#L ' ' .U9>
J<S(
;(-3A-32)*(-3A-10)"ES_3R0:K' >
J<S;-DI_>
ZJ <.U9 0:L Q9-.-2"E2D'"#0;' >
ZJ<-S$$;2DI\ GB 0A-13"EI
' ]B>
ZJ<-S%$;CDI"R.U9-S$DI".,Q9KGA ]A>
ZJ<-S$1$;3D0LS_0A-13"ED-D0K'"#0L'
I/**/
4RGD ]D>
HFXC -1FS QP UNWIND FK GC