Google
 
Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/fdb.elib
There are no other files named fdb.elib in the archive.
xW
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
   =^(Bj*Hw
CM.a]-wi*~|,7
+S-=,*h6*d=0& Bit Decode Number& Fast Indent with TabsGet FDB Block Get File FDB Reference CountGet Reference Count Set File FDB Reference CountSet Reference Count~DIRECTORY~~DOC~ & Bit Decode Number!~DOC~ & Fast Indent with Tabs~DOC~ Get FDB Block&~DOC~ Get File FDB Reference Count~DOC~ Get Reference Count&~DOC~ Set File FDB Reference Count~DOC~ Set Reference Count~DOC~ ~Filename~~Filename~

~INVERT~f[dfile0f[dversion
e[fne]
5,2FFile
[FF[BBIND
1,111110000001.ezA
J:XA1,110000000001.ezA
J:XA1K
J<.-z;
@I\1110000001.,-1M(M.MGet Reference Count)\:L27i1l>
HXFf]BBIND
M(M.MSelect Buffer)*FDB*
0,fszfsboundarie
ZJ0,0a-12"N12i13i10i9iga13i10i13i10i
IFilename17,32iIWrite Date10,32i
IRead Date11,32II  #W   #R13i10i
'
MF
QPrevious BufferUA
M(M.MSelect Buffer)A
gf[dfile0f[dversion
e[fne]
5,2FFile
:\[B:\[C[D
FF[E
QE-2"G:IDB,C'
QE-2"E:IDB,'
QE-1"EQCUD'
QE"E:ID'
[FF[BBIND
1,111110000001.ezA
J<.-z;
@I\DM(M.MSet Reference Count)\:L27i1l>
HXFf]BBIND
MF
9f[dfile0f[dversion
e[fne]
5,FFile[.A[a
f[bbind
1,111110000001.EZ.AJ:FXAf]bbind
1:<1,erA>"N
:I*AA cannot be opened for read.fsechodisp
0fsechoactive
'
fsifversionfsdversion
fsdfileUA
0,(W14.fsiffdb):fsfdconvert
F~W16-nov-1858 20:00:00"E:IBNever'
0,(W15.fsiffdb):fsfdconvert
F~B16-nov-1858 20:00:00"E:IBNever'
W16.fsiffdb[D[E
:I*18B17,QCM(M.M& Bit Decode Number)UCUD
FF"N
"GM(M.MSelect Buffer)*FDB*
0UBuffer Filenames
ZJ0,0A-10"N13i10i'
'
M.M& Fast Indent With Tabs
1,(WFF-1"G'"#111110000001.')EZA-2d
Wfshposition,25MMGWWfshposition,45MMGB
fshposition,65MM4,QC\Wfshposition,70MM4,QD\
13I10I
"GQPrevious Bufferua
M(M.MSelect Buffer)A
''
"#QC:\UCQD:\UD
:I*CAA     W=[C] W    R=[D] B.(
)fsechodisp0fsechoactive
'
EC
Kf[dfile0f[dversion
e[fne]
5,FFile[.A[a
f[bbind
1,111110000001.EZ.AJ:FXAf]bbind
1:<1,erA>"N
:I*CA cannot be opened for read.
fsechodisp
0fsechoactive
'
W16.fsiffdb[D[E
:I*18B17,QCM(M.M& Bit Decode Number)UCUE
FFF"G-1"guc'ud'
FF-3"Lqeud'
1:<QC*1000000.+qd,16.fsiffdb>"N
:I*CInsufficient Privileges to set these bits.
No action taken.fsechodisp0fsechoactive
'
:I*AA  Set.fsechodisp0fsechoactive
EC
<0f[dverswf[dfile
fsdfilew[b
40.*5fsqvector
[d[e[1
5,fOpen Fileub
fqb:"Gqaub'
qbu:C(32.)
1:<1,ERB>"N
:I*CB cannot be found.
fsechodisp0fsechoactive
'
fsifversfsdvers
fsifileub
0ud
31.<qdfsiffdbu:c(qd)%dw>
0,q:c(5.):fsfdconvertu:c(5.)
0,q:c(13.):fsfdconvertu:c(13.)
0,q:c(14.):fsfdconvertu:c(14.)
0,q:c(15.):fsfdconvertu:c(15.)
0,q:c(23.):fsfdconvertu:c(23.)
f~(q:c(5.))16-Nov-1858 20:00:00"E:i*Neveru:C(5.)'
f~(q:c(13.))16-Nov-1858 20:00:00"E:i*Neveru:C(13.)'
f~(q:c(14.))16-Nov-1858 20:00:00"E:i*Neveru:C(14.)'
f~(q:c(15.))16-Nov-1858 20:00:00"E:i*Neveru:C(15.)'
f~(q:c(23.))16-Nov-1858 20:00:00"E:i*Neveru:C(23.)'
8[..e
M(M.MSelect Buffer)*FDB*
0ubuffer filenames
hkwM(M.M^R Buffer Not Modified)
ezB
m.m& Fast Indent With Tabsu10s,
-1@l<:s+1;c>-d0,0:fmfsshpos,18m1w<:s+1;c>-d
0,0:fmfsshpos,24m1w
.,.+11f=16-Nov-1858"ei Never .,(:fb"n.-1'"#:l.')k'
<:s+1;c>-d0,0:fmfsshpos,42m1w
.,.+11f=16-Nov-1858"ei Never .,(:fb"n.-1'"#:l.')k'
:fb"n-d0,0:fmfsshpos,64m1w'
@2:l13i10i13i10i
IFDB for B13i10i
13i10i
IWord	Contents

0ud32.<2,qd\9i13i10i%d>
0udJ6l
:l:i*18b17,Q:C(qd)M(M.M& Bit Decode Number)uaubW
i.FBHDR  -  Header Word: qaf"N\i,,'qb\
:i*6B35,q:c(qd)M(M.M& Bit Decode Number)uaw
qa"N:l13i10ii	  
iFB%LEN   (77B35=QA\!)!
!(!I) - Length of the FDB: 10U..EQA\8u..E'
w%d1:l
:i*18b17,Q:C(qd)M(M.M& Bit Decode Number)uaubW
i.FBCTL  -  Status Bits: qaf"N\i,,'qb\
qa"N
:i*1B0,q:c(qd)M(M.M& Bit Decode Number)uaw
qa"N:l13i10ii	  
iFB%TMP   (1B0=1) - File is temporary: YES'
:i*1B1,q:c(qd)M(M.M& Bit Decode Number)uaw
qa"N:l13i10ii	  
iFB%PRM   (1B1=1) - File is permanent: YES'
:i*1B2,q:c(qd)M(M.M& Bit Decode Number)uaw
qa"N:l13i10ii	  
iFB%NEX   (1B2=1) - File does not have a file type: YES'
:i*1B3,q:c(qd)M(M.M& Bit Decode Number)uaw
qa"N:l13i10ii	  
iFB%DEL   (1B3=1) - File is deleted: YES'
:i*1B4,q:c(qd)M(M.M& Bit Decode Number)uaw
qa"N:l13i10ii	  
iFB%NXF   (1B4=1) - File nonexistent, first write incomplete: YES'
:i*1B5,q:c(qd)M(M.M& Bit Decode Number)uaw
qa"N:l13i10ii	  
iFB%LNG   (1B5=1) - File is longer than 512 pages: YES'
:i*1B6,q:c(qd)M(M.M& Bit Decode Number)uaw
qa"N:l13i10ii	  
iFB%SHT   (1B6=1) - Reserved for DEC: ON'
:i*1B7,q:c(qd)M(M.M& Bit Decode Number)uaw
qa"N:l13i10ii	  
iFB%DIR   (1B7=1) - File is a deirectory: YES'
:i*1B8,q:c(qd)M(M.M& Bit Decode Number)uaw
qa"N:l13i10ii	  
iFB%NOD   (1B8=1) - File will not be saved by backup: YES'
:i*1B9,q:c(qd)M(M.M& Bit Decode Number)uaw
qa"N:l13i10ii	  
iFB%BAT   (1B9=1) - File may contain bad pages: YES'
:i*1B10,q:c(qd)M(M.M& Bit Decode Number)uaw
qa"N:l13i10ii	  
iFB%SDR   (1B10=1) - Directory has subdirectories: YES'
:i*1B11,q:c(qd)M(M.M& Bit Decode Number)uaw
qa"N:l13i10ii	  
iFB%ARC   (1B11=1) - File has archive status: YES'
:i*1B12,q:c(qd)M(M.M& Bit Decode Number)uaw
qa"N:l13i10ii	  
iFB%INV   (1B12=1) - File is invisible: YES'
:i*1B13,q:c(qd)M(M.M& Bit Decode Number)uaw
qa"N:l13i10ii	  
iFB%OFF   (1B13=1) - File is offline: YES'
:i*4B17,q:C(QD)M(M.M& Bit Decode Number)uaw
qa"N:l13i10ii	  
iFB%FCF   (17B17=qa\i) - File Class Field: 
qa-1"EiRMS File'"#iValue = qa\''
'w%dw2:l
:i*18b17,Q:C(qd)M(M.M& Bit Decode Number)uaubW
i.FBEXL  -  Link to FDB of next file type: qaf"N\i,,'qb\
w%dw2:l
:i*18b17,Q:C(qd)M(M.M& Bit Decode Number)uaubW
i.FBADR  -  Disk address of index block: qaf"N\i,,'qb\
w%dw2:l
:i*18b17,Q:C(qd)M(M.M& Bit Decode Number)uaubW
i.FBPRT  -  File access bits: qaf"N\i,,'qb\
w%dw2:l
i.FBCRE  -  Time of last write: g(q:c(qd))
w%dw2:l
:i*18b17,Q:C(qd)M(M.M& Bit Decode Number)uaubW
i.FBAUT  -  Author of file: qaf"N\i,,'qb\
w%dw2:l
:i*18b17,Q:C(qd)M(M.M& Bit Decode Number)uaubW
i.FBGEN  -  Generation and Directory numbers: qaf"N\i,,'qb\
QA"N:l13i10ii	  
iFB%GEN   (777777B17=qa\i) Generation Number: 10u..eqa\
8u..e46i'
qb"N:i*1b7,q:c(1)M(M.M& Bit Decode Number)uaw
qa"N:l13i10ii	  
iFB%DIR  (777777B35=qb\i) Directory Number: qb\''
w%dw2:l
:i*18b17,Q:C(qd)M(M.M& Bit Decode Number)uaubW
i.FBACT  -  Account Designator: qaf"N\i,,'qb\
w%dw2:l
:i*18b17,Q:C(qd)M(M.M& Bit Decode Number)uaubW
i.FBBYV  -  File I/O information: qaf"N\i,,'qb\
q:C(QD)"N
:I*6B5,Q:C(QD)M(M.M& Bit Decode Number)UAW
:l13i10ii	  
IFB%RET   (77B5=QA\I) Retention Count: 10u..eqa\46i8u..e
:i*6B11,q:C(QD)M(M.M& Bit Decode Number)uaw
:l13i10ii	  
iFB%BSZ   (77B11=qa\i) File Byte Size: 10u..eqa\46i
8u..e
:i*4B17,q:C(QD)M(M.M& Bit Decode Number)uaw
:l13i10ii	  
iFB%MOD   (17B17=qa\i) Data Mode of Last Open: qa\
QB"N:l13i10ii	  
iFB%PGC   (777777B35=qb\i) Page Count of File: 10u..eqb\
46i8u..e''
w%dw2:l
I.FBSIZ  -  Number of bytes in file: 10u..eq:c(qd)\46i8u..e
w%dw2:l
i.FBCRV  -  Creation time of file: g(q:c(qd))
w%dw2:l
i.FBWRT  -  Time of last user write: g(q:c(qd))
w%dw2:l
i.FBREF  -  Time of last nonwrite access: g(q:c(qd))
w%dw2:l
:i*18b17,Q:C(qd)M(M.M& Bit Decode Number)uaubW
i.FBCNT  -  Count of writes,,references: 10u..eqa\46ii,,qb\
46i8u..e
w%dw2:l
:i*18b17,Q:C(qd)M(M.M& Bit Decode Number)uaubW
i.FBBK0  -  Word 1 for backup system: qaf"N\i,,'qb\
w%dw2:l
:i*18b17,Q:C(qd)M(M.M& Bit Decode Number)uaubW
i.FBBK1  -  Word 2 for backup system: qaf"N\i,,'qb\
w%dw2:l
:i*18b17,Q:C(qd)M(M.M& Bit Decode Number)uaubW
i.FBBK2  -  Word 3 for backup system: qaf"N\i,,'qb\
w%dw2:l
:i*18b17,Q:C(qd)M(M.M& Bit Decode Number)uaubW
i.FBBBT  -  Word 4 for backup system: qaf"N\i,,'qb\
qa"N
:i*1B1,q:c(qd)M(M.M& Bit Decode Number)uaw
qa"N:l13i10ii	  
iAR%RAR   (1B1=1) - User requested archive: YES'
:i*1B2,q:c(qd)M(M.M& Bit Decode Number)uaw
qa"N:l13i10ii	  
iAR%RIV   (1B2=1) - System request for involuntary migration: YES'
:i*1B3,q:c(qd)M(M.M& Bit Decode Number)uaw
qa"N:l13i10ii	  
iAR%NDL   (1B3=1) - No delete contents on archival completion: YES'
:i*1B4,q:c(qd)M(M.M& Bit Decode Number)uaw
qa"N:l13i10ii	  
iAR%NAR   (1B4=1) - Resist Involuntary archiving: YES'
:i*1B5,q:c(qd)M(M.M& Bit Decode Number)uaw
qa"N:l13i10ii	  
iAR%EXM   (1B5=1) - File is exempt from involuntary migration: YES'
:i*1B6,q:c(qd)M(M.M& Bit Decode Number)uaw
qa"N:l13i10ii	  
iAR%1ST   (1B6=1) - First pass of archival run in progress: YES'
:i*1B7,q:c(qd)M(M.M& Bit Decode Number)uaw
qa"N:l13i10ii	  
iAR%RFL   (1B7=1) - Restore failed: YES'
:i*1B10,q:c(qd)M(M.M& Bit Decode Number)uaw
qa"N:l13i10ii	  
iAR%WRN   (1B10=1) - Offline expiration date is approaching: YES'
:i*3B17,q:c(qd)M(M.M& Bit Decode Number)uaw
qa"N:l13i10ii	  
iAR%RSN   (7B17=QA\WI) B1=File expired, B2=Arch. Req., B3=Mig. Req.'
'
QB"N:l13i10ii	  
iFB%PGC   (777777B35=qb\i) Deleted page count: 10u..eqb\
46i8u..e'
w%dw2:l
i.FBNET  -  On-line expiration date and time: g(q:c(QD))
w%dw2:l
:i*18b17,Q:C(qd)M(M.M& Bit Decode Number)uaubW
i.FBUSW  -  User settable word: qaf"N\i,,'qb\
w%dw2:l
:i*18b17,Q:C(qd)M(M.M& Bit Decode Number)uaubW
i.FBGNL  -  Address of FDB for next generation: qaf"N\i,,'qb\
w%dw2:l
:i*18b17,Q:C(qd)M(M.M& Bit Decode Number)uaubW
i.FBNAM  -  Pointer to filename block: qaf"N\i,,'qb\
w%dw2:l
:i*18b17,Q:C(qd)M(M.M& Bit Decode Number)uaubW
i.FBEXT  -  Pointer to file type block: qaf"N\i,,'qb\
w%dw2:l
:i*18b17,Q:C(qd)M(M.M& Bit Decode Number)uaubW
i.FBLWR  -  Last writer to file: qaf"N\i,,'qb\
w%dw2:l
:i*18b17,Q:C(qd)M(M.M& Bit Decode Number)uaubW
i.FB???  -  Length of FDB: qaf"N\i,,'qb\w%dw2:l
J:L-fwxe
:S.FBLWR"L!<!:l-fwl\ud:li ==> E
-:S.FBAUT"L:l-fwl
\-qd"E!<!:li ==> E'''
JFF-2"L
:i*CWrong Number of arguments were given.
fsechodisp
0fsechoactive'
[A[B[C[D[E[F
UAUC
F[BBIND
GAJ
\UA
1:C"E
:i*CUnexpected end of field encountered.
fsechodisp
0fsechoactive'
\UB
f]BBIND
QB"Eqc&377777777777.uf
qc&400000000000.ue
qf,qe'
0ufqa+qb-35"E1uf'
1udqa<qd*2ud>qd-1ua
QB-35"G
:i*CBit Location is longer than a word.
fsaechodisp
0fsechoactive'
1ud
35-qB<qd*2.ud>
qc&(qd-1)ue
(qa*qd)+(qf*400000000000.)uf
QC&qfuf
qf/qduf
qf"Lqf-777777000000.uf'
qe,qf9-:"G32i'
/8-(/8)f"g,9i
&7,32i'
"#-,32i'
FDB,Functions for reading the FDBs of a file+C Gets the reference count for many files.
The listing is put on a separate page appended to the buffer *FDB*.
    The numeric argument is passed on to the JFNS callHC Sets the reference count for many files.
The precomma argument is the write count while the post comma is the
read count.  If any argument is left out the original values of
the fdb are used.C Gets the number of file accesses.
A numeric argument implies the result is appended to buffer *FDB*
(negative implies already in *FDB*) else it is returned in the echo
area.  A pre-comma argument specifies the flags to the JFNS call
(Default: 111110000001.)uC Set the files reference count.
The two arguments are write,read count with the defaults being the old
values.1C Reads the File Directory Block for the file"S Decodes a number.
The first argument (a string in the form <mask>B<bit number>)
specifies how to decode it.  The second argument is the number to
decode.OS Fast indent subroutine.
Args are current column and column to indent to.  If the current
column is greater than or equal to the goal column than a single
space is put in.  Uses both tabs and spaces.'Get File FDB Reference Count
Set File FDB Reference Count
Get Reference Count
Set Reference Count
Get FDB Block
& Bit Decode Number
& Fast Indent with Tabs
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2