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