1 64f7506b 2006-02-24 devnull /*
  2 64f7506b 2006-02-24 devnull  * old (V6 and before) PDP-11 Unix filesystem
  3 64f7506b 2006-02-24 devnull  */
  4 64f7506b 2006-02-24 devnull #include <u.h>
  5 64f7506b 2006-02-24 devnull #include <libc.h>
  6 64f7506b 2006-02-24 devnull #include <auth.h>
  7 64f7506b 2006-02-24 devnull #include <fcall.h>
  8 64f7506b 2006-02-24 devnull #include "tapefs.h"
  9 64f7506b 2006-02-24 devnull 
 10 64f7506b 2006-02-24 devnull /*
 11 64f7506b 2006-02-24 devnull  * v6 disk inode
 12 64f7506b 2006-02-24 devnull  */
 13 64f7506b 2006-02-24 devnull #define	V6NADDR	8
 14 64f7506b 2006-02-24 devnull #define	V6FMT	0160000
 15 64f7506b 2006-02-24 devnull #define	V6IFREG	0100000
 16 64f7506b 2006-02-24 devnull #define	V6IFDIR	0140000
 17 64f7506b 2006-02-24 devnull #define	V6IFCHR	0120000
 18 64f7506b 2006-02-24 devnull #define	V6IFBLK	0160000
 19 64f7506b 2006-02-24 devnull #define	V6MODE	0777
 20 64f7506b 2006-02-24 devnull #define	V6LARGE	010000
 21 64f7506b 2006-02-24 devnull #define	V6SUPERB	1
 22 64f7506b 2006-02-24 devnull #define	V6ROOT		1	/* root inode */
 23 64f7506b 2006-02-24 devnull #define	V6NAMELEN	14
 24 64f7506b 2006-02-24 devnull #define	BLSIZE	512
 25 64f7506b 2006-02-24 devnull #define	LINOPB	(BLSIZE/sizeof(struct v6dinode))
 26 64f7506b 2006-02-24 devnull #define	LNINDIR	(BLSIZE/sizeof(unsigned short))
 27 64f7506b 2006-02-24 devnull 
 28 64f7506b 2006-02-24 devnull struct v6dinode {
 29 64f7506b 2006-02-24 devnull 	unsigned char flags[2];
 30 64f7506b 2006-02-24 devnull 	unsigned char nlinks;
 31 64f7506b 2006-02-24 devnull 	unsigned char uid;
 32 64f7506b 2006-02-24 devnull 	unsigned char gid;
 33 64f7506b 2006-02-24 devnull 	unsigned char hisize;
 34 64f7506b 2006-02-24 devnull 	unsigned char losize[2];
 35 64f7506b 2006-02-24 devnull 	unsigned char addr[V6NADDR][2];
 36 64f7506b 2006-02-24 devnull 	unsigned char atime[4];	/* pdp-11 order */
 37 64f7506b 2006-02-24 devnull 	unsigned char mtime[4];	/* pdp-11 order */
 38 64f7506b 2006-02-24 devnull };
 39 64f7506b 2006-02-24 devnull 
 40 64f7506b 2006-02-24 devnull struct	v6dir {
 41 64f7506b 2006-02-24 devnull 	uchar	ino[2];
 42 64f7506b 2006-02-24 devnull 	char	name[V6NAMELEN];
 43 64f7506b 2006-02-24 devnull };
 44 64f7506b 2006-02-24 devnull 
 45 64f7506b 2006-02-24 devnull int	tapefile;
 46 64f7506b 2006-02-24 devnull Fileinf	iget(int ino);
 47 64f7506b 2006-02-24 devnull long	bmap(Ram *r, long bno);
 48 64f7506b 2006-02-24 devnull void	getblk(Ram *r, long bno, char *buf);
 49 64f7506b 2006-02-24 devnull 
 50 64f7506b 2006-02-24 devnull void
 51 64f7506b 2006-02-24 devnull populate(char *name)
 52 64f7506b 2006-02-24 devnull {
 53 64f7506b 2006-02-24 devnull 	Fileinf f;
 54 64f7506b 2006-02-24 devnull 
 55 64f7506b 2006-02-24 devnull 	replete = 0;
 56 64f7506b 2006-02-24 devnull 	tapefile = open(name, OREAD);
 57 64f7506b 2006-02-24 devnull 	if (tapefile<0)
 58 64f7506b 2006-02-24 devnull 		error("Can't open argument file");
 59 64f7506b 2006-02-24 devnull 	f = iget(V6ROOT);
 60 64f7506b 2006-02-24 devnull 	ram->perm = f.mode;
 61 64f7506b 2006-02-24 devnull 	ram->mtime = f.mdate;
 62 64f7506b 2006-02-24 devnull 	ram->addr = f.addr;
 63 64f7506b 2006-02-24 devnull 	ram->data = f.data;
 64 64f7506b 2006-02-24 devnull 	ram->ndata = f.size;
 65 64f7506b 2006-02-24 devnull }
 66 64f7506b 2006-02-24 devnull 
 67 64f7506b 2006-02-24 devnull void
 68 64f7506b 2006-02-24 devnull popdir(Ram *r)
 69 64f7506b 2006-02-24 devnull {
 70 64f7506b 2006-02-24 devnull 	int i, ino;
 71 64f7506b 2006-02-24 devnull 	char *cp;
 72 64f7506b 2006-02-24 devnull 	struct v6dir *dp;
 73 64f7506b 2006-02-24 devnull 	Fileinf f;
 74 64f7506b 2006-02-24 devnull 	char name[V6NAMELEN+1];
 75 64f7506b 2006-02-24 devnull 
 76 64f7506b 2006-02-24 devnull 	cp = 0;
 77 64f7506b 2006-02-24 devnull 	for (i=0; i<r->ndata; i+=sizeof(struct v6dir)) {
 78 64f7506b 2006-02-24 devnull 		if (i%BLSIZE==0)
 79 64f7506b 2006-02-24 devnull 			cp = doread(r, i, BLSIZE);
 80 64f7506b 2006-02-24 devnull 		dp = (struct v6dir *)(cp+i%BLSIZE);
 81 64f7506b 2006-02-24 devnull 		ino = dp->ino[0] + (dp->ino[1]<<8);
 82 64f7506b 2006-02-24 devnull 		if (strcmp(dp->name, ".")==0 || strcmp(dp->name, "..")==0)
 83 64f7506b 2006-02-24 devnull 			continue;
 84 64f7506b 2006-02-24 devnull 		if (ino==0)
 85 64f7506b 2006-02-24 devnull 			continue;
 86 64f7506b 2006-02-24 devnull 		f = iget(ino);
 87 64f7506b 2006-02-24 devnull 		strncpy(name, dp->name, V6NAMELEN);
 88 ada24b40 2008-05-10 rsc 		name[V6NAMELEN] = '\0';
 89 64f7506b 2006-02-24 devnull 		f.name = name;
 90 64f7506b 2006-02-24 devnull 		popfile(r, f);
 91 64f7506b 2006-02-24 devnull 	}
 92 64f7506b 2006-02-24 devnull 	r->replete = 1;
 93 64f7506b 2006-02-24 devnull }
 94 64f7506b 2006-02-24 devnull 
 95 64f7506b 2006-02-24 devnull void
 96 64f7506b 2006-02-24 devnull dotrunc(Ram *r)
 97 64f7506b 2006-02-24 devnull {
 98 64f7506b 2006-02-24 devnull 	USED(r);
 99 64f7506b 2006-02-24 devnull }
100 64f7506b 2006-02-24 devnull 
101 64f7506b 2006-02-24 devnull void
102 64f7506b 2006-02-24 devnull docreate(Ram *r)
103 64f7506b 2006-02-24 devnull {
104 64f7506b 2006-02-24 devnull 	USED(r);
105 64f7506b 2006-02-24 devnull }
106 64f7506b 2006-02-24 devnull 
107 64f7506b 2006-02-24 devnull char *
108 64f7506b 2006-02-24 devnull doread(Ram *r, vlong off, long cnt)
109 64f7506b 2006-02-24 devnull {
110 64f7506b 2006-02-24 devnull 	static char buf[Maxbuf+BLSIZE];
111 64f7506b 2006-02-24 devnull 	int bno, i;
112 64f7506b 2006-02-24 devnull 
113 64f7506b 2006-02-24 devnull 	bno = off/BLSIZE;
114 64f7506b 2006-02-24 devnull 	off -= bno*BLSIZE;
115 64f7506b 2006-02-24 devnull 	if (cnt>Maxbuf)
116 64f7506b 2006-02-24 devnull 		error("count too large");
117 64f7506b 2006-02-24 devnull 	if (off)
118 64f7506b 2006-02-24 devnull 		cnt += off;
119 64f7506b 2006-02-24 devnull 	i = 0;
120 64f7506b 2006-02-24 devnull 	while (cnt>0) {
121 64f7506b 2006-02-24 devnull 		getblk(r, bno, &buf[i*BLSIZE]);
122 64f7506b 2006-02-24 devnull 		cnt -= BLSIZE;
123 64f7506b 2006-02-24 devnull 		bno++;
124 64f7506b 2006-02-24 devnull 		i++;
125 64f7506b 2006-02-24 devnull 	}
126 64f7506b 2006-02-24 devnull 	return buf;
127 64f7506b 2006-02-24 devnull }
128 64f7506b 2006-02-24 devnull 
129 64f7506b 2006-02-24 devnull void
130 64f7506b 2006-02-24 devnull dowrite(Ram *r, char *buf, long off, long cnt)
131 64f7506b 2006-02-24 devnull {
132 64f7506b 2006-02-24 devnull 	USED(r); USED(buf); USED(off); USED(cnt);
133 64f7506b 2006-02-24 devnull }
134 64f7506b 2006-02-24 devnull 
135 64f7506b 2006-02-24 devnull int
136 64f7506b 2006-02-24 devnull dopermw(Ram *r)
137 64f7506b 2006-02-24 devnull {
138 64f7506b 2006-02-24 devnull 	USED(r);
139 64f7506b 2006-02-24 devnull 	return 0;
140 64f7506b 2006-02-24 devnull }
141 64f7506b 2006-02-24 devnull 
142 64f7506b 2006-02-24 devnull /*
143 64f7506b 2006-02-24 devnull  * fetch an i-node
144 64f7506b 2006-02-24 devnull  * -- no sanity check for now
145 64f7506b 2006-02-24 devnull  * -- magic inode-to-disk-block stuff here
146 64f7506b 2006-02-24 devnull  */
147 64f7506b 2006-02-24 devnull 
148 64f7506b 2006-02-24 devnull Fileinf
149 64f7506b 2006-02-24 devnull iget(int ino)
150 64f7506b 2006-02-24 devnull {
151 64f7506b 2006-02-24 devnull 	char buf[BLSIZE];
152 64f7506b 2006-02-24 devnull 	struct v6dinode *dp;
153 64f7506b 2006-02-24 devnull 	long flags, i;
154 64f7506b 2006-02-24 devnull 	Fileinf f;
155 64f7506b 2006-02-24 devnull 
156 71e936d7 2006-04-20 devnull 	memset(&f, 0, sizeof f);
157 64f7506b 2006-02-24 devnull 	seek(tapefile, BLSIZE*((ino-1)/LINOPB + V6SUPERB + 1), 0);
158 64f7506b 2006-02-24 devnull 	if (read(tapefile, buf, BLSIZE) != BLSIZE)
159 64f7506b 2006-02-24 devnull 		error("Can't read inode");
160 64f7506b 2006-02-24 devnull 	dp = ((struct v6dinode *)buf) + ((ino-1)%LINOPB);
161 64f7506b 2006-02-24 devnull 	flags = (dp->flags[1]<<8) + dp->flags[0];
162 64f7506b 2006-02-24 devnull 	f.size = (dp->hisize << 16) + (dp->losize[1]<<8) + dp->losize[0];
163 64f7506b 2006-02-24 devnull 	if ((flags&V6FMT)==V6IFCHR || (flags&V6FMT)==V6IFBLK)
164 64f7506b 2006-02-24 devnull 		f.size = 0;
165 64f7506b 2006-02-24 devnull 	f.data = emalloc(V6NADDR*sizeof(ushort));
166 64f7506b 2006-02-24 devnull 	for (i = 0; i < V6NADDR; i++)
167 64f7506b 2006-02-24 devnull 		((ushort*)f.data)[i] = (dp->addr[i][1]<<8) + dp->addr[i][0];
168 64f7506b 2006-02-24 devnull 	f.mode = flags & V6MODE;
169 64f7506b 2006-02-24 devnull 	if ((flags&V6FMT)==V6IFDIR)
170 64f7506b 2006-02-24 devnull 		f.mode |= DMDIR;
171 64f7506b 2006-02-24 devnull 	f.uid = dp->uid;
172 fa325e9b 2020-01-10 cross 	f.gid = dp->gid;
173 64f7506b 2006-02-24 devnull 	f.mdate = (dp->mtime[2]<<0) + (dp->mtime[3]<<8)
174 64f7506b 2006-02-24 devnull 	     +(dp->mtime[0]<<16) + (dp->mtime[1]<<24);
175 64f7506b 2006-02-24 devnull 	return f;
176 64f7506b 2006-02-24 devnull }
177 64f7506b 2006-02-24 devnull 
178 64f7506b 2006-02-24 devnull void
179 64f7506b 2006-02-24 devnull getblk(Ram *r, long bno, char *buf)
180 64f7506b 2006-02-24 devnull {
181 64f7506b 2006-02-24 devnull 	long dbno;
182 64f7506b 2006-02-24 devnull 
183 64f7506b 2006-02-24 devnull 	if ((dbno = bmap(r, bno)) == 0) {
184 64f7506b 2006-02-24 devnull 		memset(buf, 0, BLSIZE);
185 64f7506b 2006-02-24 devnull 		return;
186 64f7506b 2006-02-24 devnull 	}
187 64f7506b 2006-02-24 devnull 	seek(tapefile, dbno*BLSIZE, 0);
188 64f7506b 2006-02-24 devnull 	if (read(tapefile, buf, BLSIZE) != BLSIZE)
189 64f7506b 2006-02-24 devnull 		error("bad read");
190 64f7506b 2006-02-24 devnull }
191 64f7506b 2006-02-24 devnull 
192 64f7506b 2006-02-24 devnull /*
193 64f7506b 2006-02-24 devnull  * logical to physical block
194 64f7506b 2006-02-24 devnull  * only singly-indirect files for now
195 64f7506b 2006-02-24 devnull  */
196 64f7506b 2006-02-24 devnull 
197 64f7506b 2006-02-24 devnull long
198 64f7506b 2006-02-24 devnull bmap(Ram *r, long bno)
199 64f7506b 2006-02-24 devnull {
200 64f7506b 2006-02-24 devnull 	unsigned char indbuf[LNINDIR][2];
201 64f7506b 2006-02-24 devnull 
202 64f7506b 2006-02-24 devnull 	if (r->ndata <= V6NADDR*BLSIZE) {	/* assume size predicts largeness of file */
203 64f7506b 2006-02-24 devnull 		if (bno < V6NADDR)
204 64f7506b 2006-02-24 devnull 			return ((ushort*)r->data)[bno];
205 64f7506b 2006-02-24 devnull 		return 0;
206 64f7506b 2006-02-24 devnull 	}
207 64f7506b 2006-02-24 devnull 	if (bno < V6NADDR*LNINDIR) {
208 64f7506b 2006-02-24 devnull 		seek(tapefile, ((ushort *)r->data)[bno/LNINDIR]*BLSIZE, 0);
209 64f7506b 2006-02-24 devnull 		if (read(tapefile, (char *)indbuf, BLSIZE) != BLSIZE)
210 64f7506b 2006-02-24 devnull 			return 0;
211 64f7506b 2006-02-24 devnull 		return ((indbuf[bno%LNINDIR][1]<<8) + indbuf[bno%LNINDIR][0]);
212 64f7506b 2006-02-24 devnull 	}
213 64f7506b 2006-02-24 devnull 	return 0;
214 64f7506b 2006-02-24 devnull }