Google
 
Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/grind.elib
There are no other files named grind.elib in the archive.
(W
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
   m6eFMlU4]oytRGrind one MACSYMA statementGrind SexpMACSYMA Grind~DIRECTORY~%~DOC~ Grind one MACSYMA statement~DOC~ Grind Sexp~DOC~ MACSYMA Grind~DOC~ ~FILENAME~~FILENAME~

~INVERT~ 1:<
FDLR
F[VBF[VZFLFSBOUND
F~MODELISP"N
0[Region Query Size'
Z:
:i*grindM(M.M& Save Region and Query)f"e'
WJ
[2[3
[D128*5,32:ID
11.*5:FD-D:M2
15.*5:FDRK:M2
12.*5:FD-D:M2
/*5:FDC
|*5:FDR@FLL
;*5:FDL:M3
(*5:FD:M3
!"!'*5:FD:M3
)*5:FDRM3C
:I2Z-.<1AF 	:;D>32I
:I3Z-.<1AF 	:;D>
HFD
J.(0FSVBW0L.FSVB)J
FSWIDTH-10[W
FSWIDTH*2/3[C
0FO..QFill ColumnF"NUW
QWUC'
-1FO..QComment Column+1F"G-1UC'
QC[M
-1FO..QMiser Column+1F"G-1UM'
[R:IR/8+1*8
0FO..QComment RoundingF"NUR'
M.M& Indent
[G@:IG`
[2S'R
1A-("N@FWL'
FL-.-QW++(FSHPOSU2Q2)"LFLL'
CQ2-QM"L
!"!1AF';()"L@FWL1A-32"EC'''
FSHPOSU2
!LP!1a-32"EDOLP'
1A-)"EC'
FSHPOSU3
1A-;"E
Q3-QC"GQC'"#Q3R'MIL'
Q3-Q2"N13I10I
Q2/8,9IQ2&7,32I'
+1MGOLP
`
0MG
J7F~(DEFUN "E
@FLL8F=
      "E
8D.U3L
Q3,.F~FEXPR
*(Q3,.F~MACRO
)"E
-2D6D'''
JHU2U3
>
JZ:
Q3,Q2r[0[1[9
0F[SERROR
1F[BOTHCASE
0FO..QFundamental..DF"EQ..D'[..D
FS^RMODE"NF-1"G1U0'
"#(B-(:))*(Z-(:))"G
:I*MOB	Mark out of boundsFSERR'
.,(:)FU1J0U0
F=MODEMACSYMA"NOConfirm'
.,q1-1000"g!Confirm!@FTDo you really want to Grind this s-expression? (Y or N):
FI:FC-Y(FSEchoDisplayCFSEchoDisplay)"N''
.(<.,Q1FB\$\;;%0W>)J''
"#"GU0'
"#J0U0<S\$\;;%0W>J''
-S\$\;FSSVALUE"E0'"#2C.'U9Q9J
Q0<.,(S\$\;;R.)M(M.MGrind one MACSYMA statement)C>
Q9+2J9[1[2[3[4[5[6[7[8[9[0[Y[Z[C[M
FXCQ..OUMFSBCREAGC
FNQM,Q..OUMU..OQMFSBKILL
ZJI]JI[R
<S/*;-2D.U9S*/-2D[DQ9,.FXDI $1$ >
J<S\";.U9SR[AQ9,.FXA
-DDI$FQA<I%>I$>
J<S\;[B.,.+1XB-DDI$$>
J<S/;-DI\>
J<S
;-D>
J<S	;-DI >
J<SIF;RI>
J<SELSETHEN;RI5RI>
J<
SDOFORINFROMNEXTSTEPTHRUUNLESSWHILE;
RI
R-S1A-32"EDI'"#C'>
J<SORANDNOT;RIR-SCI>
J<S ;-D>
J<S;-D>
J<S(,[;-D>
J<S[;-DI(C>J<S];-DI)>
J<S:;RI C(1A-=)*(1A-:)"EC'I >
J<S:=#<>;RI C1A-="EC'I >
0U6J
<1:<FDL>:;%6>
<<
R-S1A-1"NC'.U9
FLLZ-.UZBUY
Q9,.FSBOUNDW0U5J
S(RB-."ES,FSSVALUE"N1U5''
"#B,.FBBLOCKLAMBDAFSSVALUE"L1U5''
J<S;
.U90A-"E1U1'"#-1A-O"E0U1'"#-1U1''
S,FSSVALUE"EZ-1J0A-1"ER'.U8'"#.-1U8'
Q9JFSQPPTRU7
<.,Q8FBFSSVALUE"EQ8J
.U9-SQ9-.-20"GC.U41A-"E
FLLQ9-."EOL1''"#1A-("E
FLLQ9-."ERIQ4JI2+Q9U92+Q8U8OL1'''
Q4JI(Q9+2JI)4+Q9U94+Q8U8'
!L1!Q9J
FSQPPTR-Q7<I)>
Q7FSQPUNWI0;'
0A-"E-1A-O"E0U3'"#-1U3''
"#-1A-F"E1U3'"#-1A-N"E2U3'"#3U3'''
R-S(1A-)*(1A-)"N1U2
.U9-SQ9-.-20"GC.U41A-"E
FLLQ9-."EOL2''"#1A-("E
FLLQ9-."ERIQ4JI2+Q9U92+Q8U8OL2'''
Q4JI(Q9+2JI)4+Q9U94+Q8U8'
!L2!Q9J'
"#0U2'
Q2"ECI(Q8+2U8[1Q3U1'
"#<Q1*(Q1-3)"EI)Q8+2U8]1'"#Q3U10;'>'S>
>
J<S;-DI>
Q5"EJ<S,;-DI;>'
"#J<S,;-DI>
JS(RIZ-1JI'
ZJQY,Z+QZFSBOUND
1:<FDL>:;>Q6-1U6-Q6"E0;'JQ6FDL>
0U8J<S;
(0A-)"EI
Q8<I   >'
"#(1A-()"ECI
%8<I  >'
"#0A-"NRI  C'CQ8-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

JBU9<S
;.-2-Q9-70"G-LS .-1U8Q8-Q9-50"LQ9,Q8XC
Q9+70,Q8+10FB,)FSSVALUE"NC1A- "ED'OL3'
Q9+71,Q8+1FBFSSVALUE"N1A- "ED'!L3!I
GC0L'"#L''"#L''.U9>
J<S(
;(-3A-32)*(-3A-10)"ES 3R0:K'>
J<S;-DI >
ZJ<.U90:LQ9-.-2"E2D'"#0;'>
ZJ<-S$$;2DI\GB0A-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-1FSQPUNWINDFKGC	GRIND$GRIND macros for formating code.8C 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.(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>.YC Grinds one MACSYMA statement.
Args delimit the statement (exclusive of the ; or $)<Grind Sexp
MACSYMA Grind
Grind one MACSYMA statement
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2