Google
 
Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/micro-dat.elib
There are no other files named micro-dat.elib in the archive.
PW
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
   J[T(^\h^tE|OPp/*9
DCN=U}& Get Date LinesGet Date FieldsParse DATA FieldsPrepare Data Fields^R Read Word~DIRECTORY~~DOC~ & Get Date Lines~DOC~ Get Date Fields~DOC~ Parse DATA Fields~DOC~ Prepare Data Fields~DOC~ ^R Read Word~DOC~ ~Filename~~Filename~

~INVERT~M(M.MStrip SOS)
M(M.MFundamental Mode)
[0[1[2[3
J<:S

;3R2d13i10i>
J<.-z;
0,1A"Dw2@L'
"#1@K'>
@FT
Conversion complete0fsechoactive
JkM(M.M& Get Date Lines)
@FT
Starting Part Two
0fsechoactive
[a[B0[c[d
J<.-z;
:L12-FSHPos"G
0l3FWFXA0l2@K'
"#0lGA4,32i
3fwl2fwK
M(M.M^R Delete Horizontal Space)
4,32i
\UBqb"G
-1,1a-63"E1d'"#-d'
1fwl-1fwl
\ubqb"G
-1,1a-63"E1d'"#-d'''"#-4d'
2@K
13i10i'
.*10/Z-QCF"N+QCUC
QC:\UD
:IDD0% Completed
:I*CDfsechodisp0fsechoactive'>
JN0,fszM(m.M& Save For Undo)Data Preparation
M(M.MFundamental Mode)
[a[B0[c[d[e[f[g[h[i[J
FF"N'"#9'+1uh
QH*5FSQvectorUE
QH*5FSQvectorUF
1,FFields to Use: UG
FQG:"G:iG0,1,4,5'
f[bbind
0uiGG
J3F~ALL"EQHUI'
"#J<:S;W%i>
%I
J-1uJ
QIF"G<1M(M.M^R Read Word)u:F(%J)>''
HK-1uJQIF"G<
G(Q:F(%J))FKC\U:F(QJ)>'
f]bbind
M(M.M& Get Date Lines)
@FT
Starting Part Two
0fsechoactive
J<.-z;
:L12-FSHPos"G
0l3FWFX*U:E(0)0l2@K'
"#0UJ
0l
3M(M.M^R Read Word)U:E(%J)
QH-2F"G<
1M(M.M^R Read Word)U:E(%J)>'
1@L-2@K
-1uJ
QI-qH"E
-1uJQH<G(Q:E(%J))2,32i>'
"#QIF"G<
G(Q:E(Q:F(%J)))2,32i>''
13i10i'
.*10/Z-QCF"N+QCUC
QC:\UD
:IDD0% Completed
:I*CDfsechodisp0fsechoactive'>
J.[A[B
FF"E1UA'"#UA'
QAFWLW-QAFWXB
QBBfsruntime[9@FN`FSruntime-q9u9
F[BBIND
Q9\FK+3"L
3R0X9:I99 Seconds.'
"#0x9:I99 Milliseconds.'
F]bbind
:I*ARun completed in 9fsechodisp
0fsechoactive`
0,fszM(M.M& Save For Undo)Parsing of Data Fields
JM(M.MUntabify)
1[A50[b0[c0[d0[j0[s
0[00[10[2
q..d[..d
.*5:F..DA    
FFF"N-2:"LUB'
UA'
1,FFields to use: US
FQS:"G:I*CNull String Argument.  No processing possible.
fsechodisp
0fsechoactive
0'
F[BBIND
1uIGS0uS
J3F~ALL"E
QBUI0US'
"#J<:S;W%IW>
QIUS'
QI+1*5FSQVECTORUD
QSU:D(0)
J0UJ
q:D(0)F"G<
1M(M.M^R READ WORD)U:D(%J)
@F-Z;>
QJ-q:D(0)"NQJU:D(0)''
HK0uj0us
Q:D(0)F"G<
G(Q:D(%J))FKC\U:D(QJ)
Q:D(QJ)-QSF"G+QSUS'
>'
"#QBUS'
F]BBIND
QS-QB"GQB:\US
:IARequested fields greater than S.  Resetting field requests.
fsechodisp0fsechoactive
QBUS'
QS+1*5FSQVECTORUC
QB-QS"E0US'
J<@F0123456789- .
L
.-z;
0,1a-47"EFShposition-4:"G
:Lfshposition-11"L
0L<W:FB/;-d32i>
:L'''
0@FFSboundaries
-:@F0123456789L
.-B"NZJ'
0,FSZFSBoundaries
W:K
FSHPosition:"G1K'
>
J<.-z;:FB "L
<:FB  ;-D1:R>'
1@L>
J<:S. ;-:C;48i>
J<:S 
;2r-d>
J<.-z;0l
:FB01234567890.-"E0l1@k'
"#1@L'>
J0,1a-32"E1d'
:I*CPass One Complete.AStarting Pass Two.fsechodisp
0fsechoactive
J0,1a-32"E1d'
:I*99 99 9999U:C(0)
J<.-z"EOEND'
:Lfshposition-11"L
0l<:FB-;-d32i>
0l:X*U:C(0)
0l1@K
'
"#0l0UJ
QA@FFSBoundaries
JQSF"G'"#W'<
1M(M.M^R Read Word)U:C(%J)
qs-qj"N
:S"E
QSF"EQB'"#'-QJF"G<
:I*U:C(%J)>'
QS"N%0
W:I**** SHORT RECORD ***U:C(QS)
'
0;''
"#0;'
>
HK0UJ
Q:D(0)F"G<
g(Q:C(Q:D(%J)))
FK;2,32i
>'
"#W-1UJ
QBF"G<
G(Q:C(%J))
FK;W2,32I
>'
'
W-:S :RW:K
13i10i
'
0,FSZFSBoundaries
!END!
.*10/Z-Q1F"N+q1u1
q1:\u2
:I*C20% Completed.fsechodisp
0fsechoactive'
.-z;
.UJ:S"E.,zK
0,0a-12"N13I10I'
OEND'qjj
>
Jq0"Gq0:\U0
:I*A0 Error(s) have occurred [Noted by:  *** SHORT RECORD ***].(
)fsechodisp0fsechoactive
'
MICRO-DATData Reducing Macroes@S Strips Files and leaves just the date line and
one after.'ChGrabsltheddataefieldshofsinterestument.
The string argument consists of numbers separated by commas, with the
default set to 0=Date, 1=Time, 4=TD1, 5=TD2 .  A
numeric argument specifies the number of fields to process, with the
default set to 9. J^R Read the following word and return.
Negative Arguments make sense.@C Parses data fields replacing with the users request.
The absolute value of the only argument or the post-comma argument is
the number of lines in a data record (Default: 1).  The pre-comma
argument, if given, sets the maximum number of fields that can be
processed in a data record (Default:50).
    The string argument specifies which fields are requested.  If no
string argument is given then the macro will exit with an error
message.  The string argument is specified by either the word ALL or 
<pos. number of field 1><comma><pos. num. of field 2><comma>....
<comma><pos. num. of last field>.  If a pos. num. is given as zero,
then the date is used.  If no date is found on its own line, then the
default date that is set is 99 99 9999.   The word ALL uses all the
fields in a record with no error processing.]& Get Date Lines
Get Date Fields
Prepare Data Fields
^R Read Word
Parse DATA Fields
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2