inode.c revision 1.31 1 /* $NetBSD: inode.c,v 1.31 1999/09/06 19:52:28 christos Exp $ */
2
3 /*
4 * Copyright (c) 1980, 1986, 1993
5 * The Regents of the University of California. All rights reserved.
6 *
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following conditions
9 * are met:
10 * 1. Redistributions of source code must retain the above copyright
11 * notice, this list of conditions and the following disclaimer.
12 * 2. Redistributions in binary form must reproduce the above copyright
13 * notice, this list of conditions and the following disclaimer in the
14 * documentation and/or other materials provided with the distribution.
15 * 3. All advertising materials mentioning features or use of this software
16 * must display the following acknowledgement:
17 * This product includes software developed by the University of
18 * California, Berkeley and its contributors.
19 * 4. Neither the name of the University nor the names of its contributors
20 * may be used to endorse or promote products derived from this software
21 * without specific prior written permission.
22 *
23 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
24 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
25 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
26 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
27 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
28 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
29 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
30 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
31 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
32 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
33 * SUCH DAMAGE.
34 */
35
36 #include <sys/cdefs.h>
37 #ifndef lint
38 #if 0
39 static char sccsid[] = "@(#)inode.c 8.8 (Berkeley) 4/28/95";
40 #else
41 __RCSID("$NetBSD: inode.c,v 1.31 1999/09/06 19:52:28 christos Exp $");
42 #endif
43 #endif /* not lint */
44
45 #include <sys/param.h>
46 #include <sys/time.h>
47
48 #include <ufs/ufs/dinode.h>
49 #include <ufs/ufs/dir.h>
50 #include <ufs/ffs/fs.h>
51 #include <ufs/ffs/ffs_extern.h>
52
53 #ifndef SMALL
54 #include <err.h>
55 #include <pwd.h>
56 #endif
57 #include <stdio.h>
58 #include <stdlib.h>
59 #include <string.h>
60 #include <time.h>
61
62 #include "fsck.h"
63 #include "fsutil.h"
64 #include "extern.h"
65
66 static ino_t startinum;
67
68 static int iblock __P((struct inodesc *, long, u_int64_t));
69
70 int
71 ckinode(dp, idesc)
72 struct dinode *dp;
73 struct inodesc *idesc;
74 {
75 ufs_daddr_t *ap;
76 long ret, n, ndb, offset;
77 struct dinode dino;
78 u_int64_t sizepb;
79 int64_t remsize;
80 mode_t mode;
81 char pathbuf[MAXPATHLEN + 1];
82
83 if (idesc->id_fix != IGNORE)
84 idesc->id_fix = DONTKNOW;
85 idesc->id_entryno = 0;
86 idesc->id_filesize = iswap64(dp->di_size);
87 mode = iswap16(dp->di_mode) & IFMT;
88 if (mode == IFBLK || mode == IFCHR || (mode == IFLNK &&
89 (idesc->id_filesize < sblock->fs_maxsymlinklen ||
90 (sblock->fs_maxsymlinklen == 0 && dp->di_blocks == 0))))
91 return (KEEPON);
92 dino = *dp;
93 ndb = howmany(iswap64(dino.di_size), sblock->fs_bsize);
94 for (ap = &dino.di_db[0]; ap < &dino.di_db[NDADDR]; ap++) {
95 if (--ndb == 0 &&
96 (offset = blkoff(sblock, iswap64(dino.di_size))) != 0)
97 idesc->id_numfrags =
98 numfrags(sblock, fragroundup(sblock, offset));
99 else
100 idesc->id_numfrags = sblock->fs_frag;
101 if (*ap == 0) {
102 if (idesc->id_type == DATA && ndb >= 0) {
103 /* An empty block in a directory XXX */
104 markclean = 0;
105 getpathname(pathbuf, idesc->id_number,
106 idesc->id_number);
107 pfatal("DIRECTORY %s: CONTAINS EMPTY BLOCKS",
108 pathbuf);
109 if (reply("ADJUST LENGTH") == 1) {
110 dp = ginode(idesc->id_number);
111 dp->di_size = iswap64((ap - &dino.di_db[0]) *
112 sblock->fs_bsize);
113 printf(
114 "YOU MUST RERUN FSCK AFTERWARDS\n");
115 rerun = 1;
116 inodirty();
117 }
118 }
119 continue;
120 }
121 idesc->id_blkno = iswap32(*ap);
122 if (idesc->id_type == ADDR)
123 ret = (*idesc->id_func)(idesc);
124 else
125 ret = dirscan(idesc);
126 if (ret & STOP)
127 return (ret);
128 }
129 idesc->id_numfrags = sblock->fs_frag;
130 remsize = iswap64(dino.di_size) - sblock->fs_bsize * NDADDR;
131 sizepb = sblock->fs_bsize;
132 for (ap = &dino.di_ib[0], n = 1; n <= NIADDR; ap++, n++) {
133 if (*ap) {
134 idesc->id_blkno = iswap32(*ap);
135 ret = iblock(idesc, n, remsize);
136 if (ret & STOP)
137 return (ret);
138 } else {
139 if (idesc->id_type == DATA && remsize > 0) {
140 /* An empty block in a directory XXX */
141 markclean = 0;
142 getpathname(pathbuf, idesc->id_number,
143 idesc->id_number);
144 pfatal("DIRECTORY %s: CONTAINS EMPTY BLOCKS",
145 pathbuf);
146 if (reply("ADJUST LENGTH") == 1) {
147 dp = ginode(idesc->id_number);
148 dp->di_size = iswap64(iswap64(dp->di_size) - remsize);
149 remsize = 0;
150 printf(
151 "YOU MUST RERUN FSCK AFTERWARDS\n");
152 rerun = 1;
153 inodirty();
154 break;
155 }
156 }
157 }
158 sizepb *= NINDIR(sblock);
159 remsize -= sizepb;
160 }
161 return (KEEPON);
162 }
163
164 static int
165 iblock(idesc, ilevel, isize)
166 struct inodesc *idesc;
167 long ilevel;
168 u_int64_t isize;
169 {
170 ufs_daddr_t *ap;
171 ufs_daddr_t *aplim;
172 struct bufarea *bp;
173 int i, n, (*func) __P((struct inodesc *)), nif;
174 u_int64_t sizepb;
175 char buf[BUFSIZ];
176 char pathbuf[MAXPATHLEN + 1];
177 struct dinode *dp;
178
179 if (idesc->id_type == ADDR) {
180 func = idesc->id_func;
181 if (((n = (*func)(idesc)) & KEEPON) == 0)
182 return (n);
183 } else
184 func = dirscan;
185 if (chkrange(idesc->id_blkno, idesc->id_numfrags))
186 return (SKIP);
187 bp = getdatablk(idesc->id_blkno, sblock->fs_bsize);
188 ilevel--;
189 for (sizepb = sblock->fs_bsize, i = 0; i < ilevel; i++)
190 sizepb *= NINDIR(sblock);
191 if (isize > sizepb * NINDIR(sblock))
192 nif = NINDIR(sblock);
193 else
194 nif = howmany(isize, sizepb);
195 if (do_blkswap) { /* swap byte order of the whole blk */
196 aplim = &bp->b_un.b_indir[nif];
197 for (ap = bp->b_un.b_indir; ap < aplim; ap++)
198 *ap = bswap32(*ap);
199 dirty(bp);
200 flush(fswritefd, bp);
201 }
202 if (idesc->id_func == pass1check && nif < NINDIR(sblock)) {
203 aplim = &bp->b_un.b_indir[NINDIR(sblock)];
204 for (ap = &bp->b_un.b_indir[nif]; ap < aplim; ap++) {
205 if (*ap == 0)
206 continue;
207 (void)snprintf(buf, sizeof(buf),
208 "PARTIALLY TRUNCATED INODE I=%u", idesc->id_number);
209 if (dofix(idesc, buf)) {
210 *ap = 0;
211 dirty(bp);
212 } else
213 markclean= 0;
214 }
215 flush(fswritefd, bp);
216 }
217 aplim = &bp->b_un.b_indir[nif];
218 for (ap = bp->b_un.b_indir; ap < aplim; ap++) {
219 if (*ap) {
220 idesc->id_blkno = iswap32(*ap);
221 if (ilevel == 0)
222 n = (*func)(idesc);
223 else
224 n = iblock(idesc, ilevel, isize);
225 if (n & STOP) {
226 bp->b_flags &= ~B_INUSE;
227 return (n);
228 }
229 } else {
230 if (idesc->id_type == DATA && isize > 0) {
231 /* An empty block in a directory XXX */
232 markclean= 0;
233 getpathname(pathbuf, idesc->id_number,
234 idesc->id_number);
235 pfatal("DIRECTORY %s: CONTAINS EMPTY BLOCKS",
236 pathbuf);
237 if (reply("ADJUST LENGTH") == 1) {
238 dp = ginode(idesc->id_number);
239 dp->di_size = iswap64(iswap64(dp->di_size) - isize);
240 isize = 0;
241 printf(
242 "YOU MUST RERUN FSCK AFTERWARDS\n");
243 rerun = 1;
244 inodirty();
245 bp->b_flags &= ~B_INUSE;
246 return(STOP);
247 }
248 }
249 }
250 isize -= sizepb;
251 }
252 bp->b_flags &= ~B_INUSE;
253 return (KEEPON);
254 }
255
256 /*
257 * Check that a block in a legal block number.
258 * Return 0 if in range, 1 if out of range.
259 */
260 int
261 chkrange(blk, cnt)
262 ufs_daddr_t blk;
263 int cnt;
264 {
265 int c;
266
267 if ((unsigned)(blk + cnt) > maxfsblock)
268 return (1);
269 c = dtog(sblock, blk);
270 if (blk < cgdmin(sblock, c)) {
271 if ((blk + cnt) > cgsblock(sblock, c)) {
272 if (debug) {
273 printf("blk %d < cgdmin %d;",
274 blk, cgdmin(sblock, c));
275 printf(" blk + cnt %d > cgsbase %d\n",
276 blk + cnt, cgsblock(sblock, c));
277 }
278 return (1);
279 }
280 } else {
281 if ((blk + cnt) > cgbase(sblock, c+1)) {
282 if (debug) {
283 printf("blk %d >= cgdmin %d;",
284 blk, cgdmin(sblock, c));
285 printf(" blk + cnt %d > sblock->fs_fpg %d\n",
286 blk+cnt, sblock->fs_fpg);
287 }
288 return (1);
289 }
290 }
291 return (0);
292 }
293
294 /*
295 * General purpose interface for reading inodes.
296 */
297 struct dinode *
298 ginode(inumber)
299 ino_t inumber;
300 {
301 ufs_daddr_t iblk;
302 int blkoff;
303
304 if (inumber < ROOTINO || inumber > maxino)
305 errx(EEXIT, "bad inode number %d to ginode", inumber);
306 if (startinum == 0 ||
307 inumber < startinum || inumber >= startinum + INOPB(sblock)) {
308 iblk = ino_to_fsba(sblock, inumber);
309 if (pbp != 0)
310 pbp->b_flags &= ~B_INUSE;
311 pbp = getdatablk(iblk, sblock->fs_bsize);
312 startinum = (inumber / INOPB(sblock)) * INOPB(sblock);
313 }
314 blkoff = (inumber % INOPB(sblock)) * DINODE_SIZE;
315 return ((struct dinode *)((caddr_t)pbp->b_un.b_buf + blkoff));
316 }
317
318 /*
319 * Special purpose version of ginode used to optimize first pass
320 * over all the inodes in numerical order.
321 */
322 ino_t nextino, lastinum;
323 long readcnt, readpercg, fullcnt, inobufsize, partialcnt, partialsize;
324 struct dinode *inodebuf;
325
326 struct dinode *
327 getnextinode(inumber)
328 ino_t inumber;
329 {
330 long size;
331 ufs_daddr_t dblk;
332 static struct dinode *dp;
333
334 if (inumber != nextino++ || inumber > maxino)
335 errx(EEXIT, "bad inode number %d to nextinode", inumber);
336 if (inumber >= lastinum) {
337 readcnt++;
338 dblk = fsbtodb(sblock, ino_to_fsba(sblock, lastinum));
339 if (readcnt % readpercg == 0) {
340 size = partialsize;
341 lastinum += partialcnt;
342 } else {
343 size = inobufsize;
344 lastinum += fullcnt;
345 }
346 (void)bread(fsreadfd, (char *)inodebuf, dblk, size); /* ??? */
347 if (doswap) {
348 int i, j;
349 for (i = inumber, dp = inodebuf; i < lastinum; i++, dp++) {
350 ffs_dinode_swap(dp, dp);
351 /* ffs_dinode_swap() doesn't swap blocks addrs */
352 if ((iswap16(dp->di_mode) & IFMT) != IFLNK ||
353 iswap64(dp->di_size) > sblock->fs_maxsymlinklen) {
354 for (j=0; j<NDADDR + NIADDR; j++)
355 dp->di_db[j] = bswap32(dp->di_db[j]);
356 }
357 }
358 bwrite(fswritefd, (char *)inodebuf, dblk, size);
359 }
360 dp = inodebuf;
361 }
362 return (dp++);
363 }
364
365 void
366 resetinodebuf()
367 {
368
369 startinum = 0;
370 nextino = 0;
371 lastinum = 0;
372 readcnt = 0;
373 inobufsize = blkroundup(sblock, INOBUFSIZE);
374 fullcnt = inobufsize / DINODE_SIZE;
375 readpercg = sblock->fs_ipg / fullcnt;
376 partialcnt = sblock->fs_ipg % fullcnt;
377 partialsize = partialcnt * DINODE_SIZE;
378 if (partialcnt != 0) {
379 readpercg++;
380 } else {
381 partialcnt = fullcnt;
382 partialsize = inobufsize;
383 }
384 if (inodebuf == NULL &&
385 (inodebuf = (struct dinode *)malloc((unsigned)inobufsize)) == NULL)
386 errx(EEXIT, "Cannot allocate space for inode buffer");
387 while (nextino < ROOTINO)
388 (void)getnextinode(nextino);
389 }
390
391 void
392 freeinodebuf()
393 {
394
395 if (inodebuf != NULL)
396 free((char *)inodebuf);
397 inodebuf = NULL;
398 }
399
400 /*
401 * Routines to maintain information about directory inodes.
402 * This is built during the first pass and used during the
403 * second and third passes.
404 *
405 * Enter inodes into the cache.
406 */
407 void
408 cacheino(dp, inumber)
409 struct dinode *dp;
410 ino_t inumber;
411 {
412 struct inoinfo *inp;
413 struct inoinfo **inpp;
414 unsigned int blks, extra;
415
416 blks = howmany(iswap64(dp->di_size), sblock->fs_bsize);
417 if (blks > NDADDR)
418 blks = NDADDR + NIADDR;
419 if (blks > 0)
420 extra = (blks - 1) * sizeof(ufs_daddr_t);
421 else
422 extra = 0;
423 inp = (struct inoinfo *) malloc(sizeof(*inp) + extra);
424 if (inp == NULL)
425 return;
426 inpp = &inphead[inumber % numdirs];
427 inp->i_nexthash = *inpp;
428 *inpp = inp;
429 inp->i_child = inp->i_sibling = inp->i_parentp = 0;
430 if (inumber == ROOTINO)
431 inp->i_parent = ROOTINO;
432 else
433 inp->i_parent = (ino_t)0;
434 inp->i_dotdot = (ino_t)0;
435 inp->i_number = inumber;
436 inp->i_isize = iswap64(dp->di_size);
437 inp->i_numblks = blks * sizeof(ufs_daddr_t);
438 memmove(&inp->i_blks[0], &dp->di_db[0], (size_t)inp->i_numblks);
439 if (inplast == listmax) {
440 listmax += 100;
441 inpsort = (struct inoinfo **)realloc((char *)inpsort,
442 (unsigned)listmax * sizeof(struct inoinfo *));
443 if (inpsort == NULL)
444 errx(EEXIT, "cannot increase directory list");
445 }
446 inpsort[inplast++] = inp;
447 }
448
449 /*
450 * Look up an inode cache structure.
451 */
452 struct inoinfo *
453 getinoinfo(inumber)
454 ino_t inumber;
455 {
456 struct inoinfo *inp;
457
458 for (inp = inphead[inumber % numdirs]; inp; inp = inp->i_nexthash) {
459 if (inp->i_number != inumber)
460 continue;
461 return (inp);
462 }
463 errx(EEXIT, "cannot find inode %d", inumber);
464 return ((struct inoinfo *)0);
465 }
466
467 /*
468 * Clean up all the inode cache structure.
469 */
470 void
471 inocleanup()
472 {
473 struct inoinfo **inpp;
474
475 if (inphead == NULL)
476 return;
477 for (inpp = &inpsort[inplast - 1]; inpp >= inpsort; inpp--)
478 free((char *)(*inpp));
479 free((char *)inphead);
480 free((char *)inpsort);
481 inphead = inpsort = NULL;
482 }
483
484 void
485 inodirty()
486 {
487
488 dirty(pbp);
489 }
490
491 void
492 clri(idesc, type, flag)
493 struct inodesc *idesc;
494 char *type;
495 int flag;
496 {
497 struct dinode *dp;
498
499 dp = ginode(idesc->id_number);
500 if (flag == 1) {
501 pwarn("%s %s", type,
502 (iswap16(dp->di_mode) & IFMT) == IFDIR ? "DIR" : "FILE");
503 pinode(idesc->id_number);
504 }
505 if (preen || reply("CLEAR") == 1) {
506 if (preen)
507 printf(" (CLEARED)\n");
508 n_files--;
509 (void)ckinode(dp, idesc);
510 clearinode(dp);
511 statemap[idesc->id_number] = USTATE;
512 inodirty();
513 } else
514 markclean= 0;
515 }
516
517 int
518 findname(idesc)
519 struct inodesc *idesc;
520 {
521 struct direct *dirp = idesc->id_dirp;
522
523 if (iswap32(dirp->d_ino) != idesc->id_parent)
524 return (KEEPON);
525 memmove(idesc->id_name, dirp->d_name, (size_t)dirp->d_namlen + 1);
526 return (STOP|FOUND);
527 }
528
529 int
530 findino(idesc)
531 struct inodesc *idesc;
532 {
533 struct direct *dirp = idesc->id_dirp;
534
535 if (dirp->d_ino == 0)
536 return (KEEPON);
537 if (strcmp(dirp->d_name, idesc->id_name) == 0 &&
538 iswap32(dirp->d_ino) >= ROOTINO && iswap32(dirp->d_ino) <= maxino) {
539 idesc->id_parent = iswap32(dirp->d_ino);
540 return (STOP|FOUND);
541 }
542 return (KEEPON);
543 }
544
545 void
546 pinode(ino)
547 ino_t ino;
548 {
549 struct dinode *dp;
550 char *p;
551 struct passwd *pw;
552 time_t t;
553
554 printf(" I=%u ", ino);
555 if (ino < ROOTINO || ino > maxino)
556 return;
557 dp = ginode(ino);
558 printf(" OWNER=");
559 #ifndef SMALL
560 if ((pw = getpwuid((int)iswap32(dp->di_uid))) != 0)
561 printf("%s ", pw->pw_name);
562 else
563 #endif
564 printf("%u ", (unsigned)iswap32(dp->di_uid));
565 printf("MODE=%o\n", iswap16(dp->di_mode));
566 if (preen)
567 printf("%s: ", cdevname());
568 printf("SIZE=%qu ", (unsigned long long)iswap64(dp->di_size));
569 t = iswap32(dp->di_mtime);
570 p = ctime(&t);
571 printf("MTIME=%12.12s %4.4s ", &p[4], &p[20]);
572 }
573
574 void
575 blkerror(ino, type, blk)
576 ino_t ino;
577 char *type;
578 ufs_daddr_t blk;
579 {
580
581 pfatal("%d %s I=%u", blk, type, ino);
582 printf("\n");
583 switch (statemap[ino]) {
584
585 case FSTATE:
586 statemap[ino] = FCLEAR;
587 return;
588
589 case DSTATE:
590 statemap[ino] = DCLEAR;
591 return;
592
593 case FCLEAR:
594 case DCLEAR:
595 return;
596
597 default:
598 errx(EEXIT, "BAD STATE %d TO BLKERR", statemap[ino]);
599 /* NOTREACHED */
600 }
601 }
602
603 /*
604 * allocate an unused inode
605 */
606 ino_t
607 allocino(request, type)
608 ino_t request;
609 int type;
610 {
611 ino_t ino;
612 struct dinode *dp;
613 time_t t;
614
615 if (request == 0)
616 request = ROOTINO;
617 else if (statemap[request] != USTATE)
618 return (0);
619 for (ino = request; ino < maxino; ino++)
620 if (statemap[ino] == USTATE)
621 break;
622 if (ino == maxino)
623 return (0);
624 switch (type & IFMT) {
625 case IFDIR:
626 statemap[ino] = DSTATE;
627 break;
628 case IFREG:
629 case IFLNK:
630 statemap[ino] = FSTATE;
631 break;
632 default:
633 return (0);
634 }
635 dp = ginode(ino);
636 dp->di_db[0] = iswap32(allocblk((long)1));
637 if (dp->di_db[0] == 0) {
638 statemap[ino] = USTATE;
639 return (0);
640 }
641 dp->di_mode = iswap16(type);
642 (void)time(&t);
643 dp->di_atime = iswap32(t);
644 dp->di_mtime = dp->di_ctime = dp->di_atime;
645 dp->di_size = iswap64(sblock->fs_fsize);
646 dp->di_blocks = iswap32(btodb(sblock->fs_fsize));
647 n_files++;
648 inodirty();
649 if (newinofmt)
650 typemap[ino] = IFTODT(type);
651 return (ino);
652 }
653
654 /*
655 * deallocate an inode
656 */
657 void
658 freeino(ino)
659 ino_t ino;
660 {
661 struct inodesc idesc;
662 struct dinode *dp;
663
664 memset(&idesc, 0, sizeof(struct inodesc));
665 idesc.id_type = ADDR;
666 idesc.id_func = pass4check;
667 idesc.id_number = ino;
668 dp = ginode(ino);
669 (void)ckinode(dp, &idesc);
670 clearinode(dp);
671 inodirty();
672 statemap[ino] = USTATE;
673 n_files--;
674 }
675