* all mallocs now use xmalloc (and so are OOM error safe), and
[platform/upstream/busybox.git] / util-linux / fsck_minix.c
1 /* vi: set sw=4 ts=4: */
2 /*
3  * fsck.c - a file system consistency checker for Linux.
4  *
5  * (C) 1991, 1992 Linus Torvalds. This file may be redistributed
6  * as per the GNU copyleft.
7  */
8
9 /*
10  * 09.11.91  -  made the first rudimetary functions
11  *
12  * 10.11.91  -  updated, does checking, no repairs yet.
13  *              Sent out to the mailing-list for testing.
14  *
15  * 14.11.91  -  Testing seems to have gone well. Added some
16  *              correction-code, and changed some functions.
17  *
18  * 15.11.91  -  More correction code. Hopefully it notices most
19  *              cases now, and tries to do something about them.
20  *
21  * 16.11.91  -  More corrections (thanks to Mika Jalava). Most
22  *              things seem to work now. Yeah, sure.
23  *
24  *
25  * 19.04.92  -  Had to start over again from this old version, as a
26  *              kernel bug ate my enhanced fsck in february.
27  *
28  * 28.02.93  -  added support for different directory entry sizes..
29  *
30  * Sat Mar  6 18:59:42 1993, faith@cs.unc.edu: Output namelen with
31  *                           super-block information
32  *
33  * Sat Oct  9 11:17:11 1993, faith@cs.unc.edu: make exit status conform
34  *                           to that required by fsutil
35  *
36  * Mon Jan  3 11:06:52 1994 - Dr. Wettstein (greg%wind.uucp@plains.nodak.edu)
37  *                            Added support for file system valid flag.  Also
38  *                            added program_version variable and output of
39  *                            program name and version number when program
40  *                            is executed.
41  *
42  * 30.10.94 - added support for v2 filesystem
43  *            (Andreas Schwab, schwab@issan.informatik.uni-dortmund.de)
44  *
45  * 10.12.94  -  added test to prevent checking of mounted fs adapted
46  *              from Theodore Ts'o's (tytso@athena.mit.edu) e2fsck
47  *              program.  (Daniel Quinlan, quinlan@yggdrasil.com)
48  *
49  * 01.07.96  - Fixed the v2 fs stuff to use the right #defines and such
50  *             for modern libcs (janl@math.uio.no, Nicolai Langfeldt)
51  *
52  * 02.07.96  - Added C bit fiddling routines from rmk@ecs.soton.ac.uk 
53  *             (Russell King).  He made them for ARM.  It would seem
54  *             that the ARM is powerful enough to do this in C whereas
55  *             i386 and m64k must use assembly to get it fast >:-)
56  *             This should make minix fsck systemindependent.
57  *             (janl@math.uio.no, Nicolai Langfeldt)
58  *
59  * 04.11.96  - Added minor fixes from Andreas Schwab to avoid compiler
60  *             warnings.  Added mc68k bitops from 
61  *             Joerg Dorchain <dorchain@mpi-sb.mpg.de>.
62  *
63  * 06.11.96  - Added v2 code submitted by Joerg Dorchain, but written by
64  *             Andreas Schwab.
65  *
66  * 1999-02-22 Arkadiusz Mi¶kiewicz <misiek@misiek.eu.org>
67  * - added Native Language Support
68  *
69  *
70  * I've had no time to add comments - hopefully the function names
71  * are comments enough. As with all file system checkers, this assumes
72  * the file system is quiescent - don't use it on a mounted device
73  * unless you can be sure nobody is writing to it (and remember that the
74  * kernel can write to it when it searches for files).
75  *
76  * Usuage: fsck [-larvsm] device
77  *      -l for a listing of all the filenames
78  *      -a for automatic repairs (not implemented)
79  *      -r for repairs (interactive) (not implemented)
80  *      -v for verbose (tells how many files)
81  *      -s for super-block info
82  *      -m for minix-like "mode not cleared" warnings
83  *      -f force filesystem check even if filesystem marked as valid
84  *
85  * The device may be a block device or a image of one, but this isn't
86  * enforced (but it's not much fun on a character device :-). 
87  */
88
89 #include "internal.h"
90 #include <stdio.h>
91 #include <errno.h>
92 #include <unistd.h>
93 #include <string.h>
94 #include <fcntl.h>
95 #include <ctype.h>
96 #include <stdlib.h>
97 #include <termios.h>
98 #include <mntent.h>
99 #include <sys/stat.h>
100 #include <sys/param.h>                  /* for PATH_MAX */
101
102 #include <linux/fs.h>
103 #include <linux/minix_fs.h>
104
105 #ifdef MINIX2_SUPER_MAGIC2
106 #define HAVE_MINIX2 1
107 #endif
108
109 #ifndef __linux__
110 #define volatile
111 #endif
112
113 #define ROOT_INO 1
114
115 #define UPPER(size,n) ((size+((n)-1))/(n))
116 #define INODE_SIZE (sizeof(struct minix_inode))
117 #ifdef HAVE_MINIX2
118 #define INODE_SIZE2 (sizeof(struct minix2_inode))
119 #define INODE_BLOCKS UPPER(INODES, (version2 ? MINIX2_INODES_PER_BLOCK \
120                                     : MINIX_INODES_PER_BLOCK))
121 #else
122 #define INODE_BLOCKS UPPER(INODES, (MINIX_INODES_PER_BLOCK))
123 #endif
124 #define INODE_BUFFER_SIZE (INODE_BLOCKS * BLOCK_SIZE)
125
126 #define BITS_PER_BLOCK (BLOCK_SIZE<<3)
127
128 static char *program_name = "fsck.minix";
129 static char *program_version = "1.2 - 11/11/96";
130 static char *device_name = NULL;
131 static int IN;
132 static int repair = 0, automatic = 0, verbose = 0, list = 0, show =
133         0, warn_mode = 0, force = 0;
134 static int directory = 0, regular = 0, blockdev = 0, chardev = 0, links =
135         0, symlinks = 0, total = 0;
136
137 static int changed = 0;                 /* flags if the filesystem has been changed */
138 static int errors_uncorrected = 0;      /* flag if some error was not corrected */
139 static int dirsize = 16;
140 static int namelen = 14;
141 static int version2 = 0;
142 static struct termios termios;
143 static int termios_set = 0;
144
145 /* File-name data */
146 #define MAX_DEPTH 32
147 static int name_depth = 0;
148 // static char name_list[MAX_DEPTH][PATH_MAX + 1];
149 static char **name_list = NULL;
150
151 static char *inode_buffer = NULL;
152
153 #define Inode (((struct minix_inode *) inode_buffer)-1)
154 #define Inode2 (((struct minix2_inode *) inode_buffer)-1)
155 static char super_block_buffer[BLOCK_SIZE];
156
157 #define Super (*(struct minix_super_block *)super_block_buffer)
158 #define INODES ((unsigned long)Super.s_ninodes)
159 #ifdef HAVE_MINIX2
160 #define ZONES ((unsigned long)(version2 ? Super.s_zones : Super.s_nzones))
161 #else
162 #define ZONES ((unsigned long)(Super.s_nzones))
163 #endif
164 #define IMAPS ((unsigned long)Super.s_imap_blocks)
165 #define ZMAPS ((unsigned long)Super.s_zmap_blocks)
166 #define FIRSTZONE ((unsigned long)Super.s_firstdatazone)
167 #define ZONESIZE ((unsigned long)Super.s_log_zone_size)
168 #define MAXSIZE ((unsigned long)Super.s_max_size)
169 #define MAGIC (Super.s_magic)
170 #define NORM_FIRSTZONE (2+IMAPS+ZMAPS+INODE_BLOCKS)
171
172 static char *inode_map;
173 static char *zone_map;
174
175 static unsigned char *inode_count = NULL;
176 static unsigned char *zone_count = NULL;
177
178 static void recursive_check(unsigned int ino);
179 static void recursive_check2(unsigned int ino);
180
181 #define inode_in_use(x) (bit(inode_map,(x)))
182 #define zone_in_use(x) (bit(zone_map,(x)-FIRSTZONE+1))
183
184 #define mark_inode(x) (setbit(inode_map,(x)),changed=1)
185 #define unmark_inode(x) (clrbit(inode_map,(x)),changed=1)
186
187 #define mark_zone(x) (setbit(zone_map,(x)-FIRSTZONE+1),changed=1)
188 #define unmark_zone(x) (clrbit(zone_map,(x)-FIRSTZONE+1),changed=1)
189
190 static void leave(int) __attribute__ ((noreturn));
191 static void leave(int status)
192 {
193         if (termios_set)
194                 tcsetattr(0, TCSANOW, &termios);
195         exit(status);
196 }
197
198 static void show_usage(void)
199 {
200         fprintf(stderr, "BusyBox v%s (%s) multi-call binary -- GPL2\n\n",
201                         BB_VER, BB_BT);
202         fprintf(stderr, "Usage: %s [-larvsmf] /dev/name\n\n", program_name);
203         fprintf(stderr,
204                         "Performs a consistency check for MINIX filesystems.\n\n");
205         fprintf(stderr, "OPTIONS:\n");
206         fprintf(stderr, "\t-l\tLists all filenames\n");
207         fprintf(stderr, "\t-r\tPerform interactive repairs\n");
208         fprintf(stderr, "\t-a\tPerform automatic repairs\n");
209         fprintf(stderr, "\t-v\tverbose\n");
210         fprintf(stderr, "\t-s\tOutputs super-block information\n");
211         fprintf(stderr,
212                         "\t-m\tActivates MINIX-like \"mode not cleared\" warnings\n");
213         fprintf(stderr, "\t-f\tForce file system check.\n\n");
214         leave(16);
215 }
216
217 static void die(const char *str)
218 {
219         fprintf(stderr, "%s: %s\n", program_name, str);
220         leave(8);
221 }
222
223 /*
224  * This simply goes through the file-name data and prints out the
225  * current file.
226  */
227 static void print_current_name(void)
228 {
229         int i = 0;
230
231         while (i < name_depth)
232                 printf("/%.*s", namelen, name_list[i++]);
233         if (i == 0)
234                 printf("/");
235 }
236
237 static int ask(const char *string, int def)
238 {
239         int c;
240
241         if (!repair) {
242                 printf("\n");
243                 errors_uncorrected = 1;
244                 return 0;
245         }
246         if (automatic) {
247                 printf("\n");
248                 if (!def)
249                         errors_uncorrected = 1;
250                 return def;
251         }
252         printf(def ? "%s (y/n)? " : "%s (n/y)? ", string);
253         for (;;) {
254                 fflush(stdout);
255                 if ((c = getchar()) == EOF) {
256                         if (!def)
257                                 errors_uncorrected = 1;
258                         return def;
259                 }
260                 c = toupper(c);
261                 if (c == 'Y') {
262                         def = 1;
263                         break;
264                 } else if (c == 'N') {
265                         def = 0;
266                         break;
267                 } else if (c == ' ' || c == '\n')
268                         break;
269         }
270         if (def)
271                 printf("y\n");
272         else {
273                 printf("n\n");
274                 errors_uncorrected = 1;
275         }
276         return def;
277 }
278
279 /*
280  * Make certain that we aren't checking a filesystem that is on a
281  * mounted partition.  Code adapted from e2fsck, Copyright (C) 1993,
282  * 1994 Theodore Ts'o.  Also licensed under GPL.
283  */
284 static void check_mount(void)
285 {
286         FILE *f;
287         struct mntent *mnt;
288         int cont;
289         int fd;
290
291         if ((f = setmntent(MOUNTED, "r")) == NULL)
292                 return;
293         while ((mnt = getmntent(f)) != NULL)
294                 if (strcmp(device_name, mnt->mnt_fsname) == 0)
295                         break;
296         endmntent(f);
297         if (!mnt)
298                 return;
299
300         /*
301          * If the root is mounted read-only, then /etc/mtab is
302          * probably not correct; so we won't issue a warning based on
303          * it.
304          */
305         fd = open(MOUNTED, O_RDWR);
306         if (fd < 0 && errno == EROFS)
307                 return;
308         else
309                 close(fd);
310
311         printf("%s is mounted.   ", device_name);
312         if (isatty(0) && isatty(1))
313                 cont = ask("Do you really want to continue", 0);
314         else
315                 cont = 0;
316         if (!cont) {
317                 printf("check aborted.\n");
318                 exit(0);
319         }
320         return;
321 }
322
323 /*
324  * check_zone_nr checks to see that *nr is a valid zone nr. If it
325  * isn't, it will possibly be repaired. Check_zone_nr sets *corrected
326  * if an error was corrected, and returns the zone (0 for no zone
327  * or a bad zone-number).
328  */
329 static int check_zone_nr(unsigned short *nr, int *corrected)
330 {
331         if (!*nr)
332                 return 0;
333         if (*nr < FIRSTZONE)
334                 printf("Zone nr < FIRSTZONE in file `");
335         else if (*nr >= ZONES)
336                 printf("Zone nr >= ZONES in file `");
337         else
338                 return *nr;
339         print_current_name();
340         printf("'.");
341         if (ask("Remove block", 1)) {
342                 *nr = 0;
343                 *corrected = 1;
344         }
345         return 0;
346 }
347
348 #ifdef HAVE_MINIX2
349 static int check_zone_nr2(unsigned int *nr, int *corrected)
350 {
351         if (!*nr)
352                 return 0;
353         if (*nr < FIRSTZONE)
354                 printf("Zone nr < FIRSTZONE in file `");
355         else if (*nr >= ZONES)
356                 printf("Zone nr >= ZONES in file `");
357         else
358                 return *nr;
359         print_current_name();
360         printf("'.");
361         if (ask("Remove block", 1)) {
362                 *nr = 0;
363                 *corrected = 1;
364         }
365         return 0;
366 }
367 #endif
368
369 /*
370  * read-block reads block nr into the buffer at addr.
371  */
372 static void read_block(unsigned int nr, char *addr)
373 {
374         if (!nr) {
375                 memset(addr, 0, BLOCK_SIZE);
376                 return;
377         }
378         if (BLOCK_SIZE * nr != lseek(IN, BLOCK_SIZE * nr, SEEK_SET)) {
379                 printf("Read error: unable to seek to block in file '");
380                 print_current_name();
381                 printf("'\n");
382                 memset(addr, 0, BLOCK_SIZE);
383                 errors_uncorrected = 1;
384         } else if (BLOCK_SIZE != read(IN, addr, BLOCK_SIZE)) {
385                 printf("Read error: bad block in file '");
386                 print_current_name();
387                 printf("'\n");
388                 memset(addr, 0, BLOCK_SIZE);
389                 errors_uncorrected = 1;
390         }
391 }
392
393 /*
394  * write_block writes block nr to disk.
395  */
396 static void write_block(unsigned int nr, char *addr)
397 {
398         if (!nr)
399                 return;
400         if (nr < FIRSTZONE || nr >= ZONES) {
401                 printf("Internal error: trying to write bad block\n"
402                            "Write request ignored\n");
403                 errors_uncorrected = 1;
404                 return;
405         }
406         if (BLOCK_SIZE * nr != lseek(IN, BLOCK_SIZE * nr, SEEK_SET))
407                 die("seek failed in write_block");
408         if (BLOCK_SIZE != write(IN, addr, BLOCK_SIZE)) {
409                 printf("Write error: bad block in file '");
410                 print_current_name();
411                 printf("'\n");
412                 errors_uncorrected = 1;
413         }
414 }
415
416 /*
417  * map-block calculates the absolute block nr of a block in a file.
418  * It sets 'changed' if the inode has needed changing, and re-writes
419  * any indirect blocks with errors.
420  */
421 static int map_block(struct minix_inode *inode, unsigned int blknr)
422 {
423         unsigned short ind[BLOCK_SIZE >> 1];
424         unsigned short dind[BLOCK_SIZE >> 1];
425         int blk_chg, block, result;
426
427         if (blknr < 7)
428                 return check_zone_nr(inode->i_zone + blknr, &changed);
429         blknr -= 7;
430         if (blknr < 512) {
431                 block = check_zone_nr(inode->i_zone + 7, &changed);
432                 read_block(block, (char *) ind);
433                 blk_chg = 0;
434                 result = check_zone_nr(blknr + ind, &blk_chg);
435                 if (blk_chg)
436                         write_block(block, (char *) ind);
437                 return result;
438         }
439         blknr -= 512;
440         block = check_zone_nr(inode->i_zone + 8, &changed);
441         read_block(block, (char *) dind);
442         blk_chg = 0;
443         result = check_zone_nr(dind + (blknr / 512), &blk_chg);
444         if (blk_chg)
445                 write_block(block, (char *) dind);
446         block = result;
447         read_block(block, (char *) ind);
448         blk_chg = 0;
449         result = check_zone_nr(ind + (blknr % 512), &blk_chg);
450         if (blk_chg)
451                 write_block(block, (char *) ind);
452         return result;
453 }
454
455 #ifdef HAVE_MINIX2
456 static int map_block2(struct minix2_inode *inode, unsigned int blknr)
457 {
458         unsigned int ind[BLOCK_SIZE >> 2];
459         unsigned int dind[BLOCK_SIZE >> 2];
460         unsigned int tind[BLOCK_SIZE >> 2];
461         int blk_chg, block, result;
462
463         if (blknr < 7)
464                 return check_zone_nr2(inode->i_zone + blknr, &changed);
465         blknr -= 7;
466         if (blknr < 256) {
467                 block = check_zone_nr2(inode->i_zone + 7, &changed);
468                 read_block(block, (char *) ind);
469                 blk_chg = 0;
470                 result = check_zone_nr2(blknr + ind, &blk_chg);
471                 if (blk_chg)
472                         write_block(block, (char *) ind);
473                 return result;
474         }
475         blknr -= 256;
476         if (blknr >= 256 * 256) {
477                 block = check_zone_nr2(inode->i_zone + 8, &changed);
478                 read_block(block, (char *) dind);
479                 blk_chg = 0;
480                 result = check_zone_nr2(dind + blknr / 256, &blk_chg);
481                 if (blk_chg)
482                         write_block(block, (char *) dind);
483                 block = result;
484                 read_block(block, (char *) ind);
485                 blk_chg = 0;
486                 result = check_zone_nr2(ind + blknr % 256, &blk_chg);
487                 if (blk_chg)
488                         write_block(block, (char *) ind);
489                 return result;
490         }
491         blknr -= 256 * 256;
492         block = check_zone_nr2(inode->i_zone + 9, &changed);
493         read_block(block, (char *) tind);
494         blk_chg = 0;
495         result = check_zone_nr2(tind + blknr / (256 * 256), &blk_chg);
496         if (blk_chg)
497                 write_block(block, (char *) tind);
498         block = result;
499         read_block(block, (char *) dind);
500         blk_chg = 0;
501         result = check_zone_nr2(dind + (blknr / 256) % 256, &blk_chg);
502         if (blk_chg)
503                 write_block(block, (char *) dind);
504         block = result;
505         read_block(block, (char *) ind);
506         blk_chg = 0;
507         result = check_zone_nr2(ind + blknr % 256, &blk_chg);
508         if (blk_chg)
509                 write_block(block, (char *) ind);
510         return result;
511 }
512 #endif
513
514 static void write_super_block(void)
515 {
516         /*
517          * Set the state of the filesystem based on whether or not there
518          * are uncorrected errors.  The filesystem valid flag is
519          * unconditionally set if we get this far.
520          */
521         Super.s_state |= MINIX_VALID_FS;
522         if (errors_uncorrected)
523                 Super.s_state |= MINIX_ERROR_FS;
524         else
525                 Super.s_state &= ~MINIX_ERROR_FS;
526
527         if (BLOCK_SIZE != lseek(IN, BLOCK_SIZE, SEEK_SET))
528                 die("seek failed in write_super_block");
529         if (BLOCK_SIZE != write(IN, super_block_buffer, BLOCK_SIZE))
530                 die("unable to write super-block");
531
532         return;
533 }
534
535 static void write_tables(void)
536 {
537         write_super_block();
538
539         if (IMAPS * BLOCK_SIZE != write(IN, inode_map, IMAPS * BLOCK_SIZE))
540                 die("Unable to write inode map");
541         if (ZMAPS * BLOCK_SIZE != write(IN, zone_map, ZMAPS * BLOCK_SIZE))
542                 die("Unable to write zone map");
543         if (INODE_BUFFER_SIZE != write(IN, inode_buffer, INODE_BUFFER_SIZE))
544                 die("Unable to write inodes");
545 }
546
547 static void get_dirsize(void)
548 {
549         int block;
550         char blk[BLOCK_SIZE];
551         int size;
552
553 #if HAVE_MINIX2
554         if (version2)
555                 block = Inode2[ROOT_INO].i_zone[0];
556         else
557 #endif
558                 block = Inode[ROOT_INO].i_zone[0];
559         read_block(block, blk);
560         for (size = 16; size < BLOCK_SIZE; size <<= 1) {
561                 if (strcmp(blk + size + 2, "..") == 0) {
562                         dirsize = size;
563                         namelen = size - 2;
564                         return;
565                 }
566         }
567         /* use defaults */
568 }
569
570 static void read_superblock(void)
571 {
572         if (BLOCK_SIZE != lseek(IN, BLOCK_SIZE, SEEK_SET))
573                 die("seek failed");
574         if (BLOCK_SIZE != read(IN, super_block_buffer, BLOCK_SIZE))
575                 die("unable to read super block");
576         if (MAGIC == MINIX_SUPER_MAGIC) {
577                 namelen = 14;
578                 dirsize = 16;
579                 version2 = 0;
580         } else if (MAGIC == MINIX_SUPER_MAGIC2) {
581                 namelen = 30;
582                 dirsize = 32;
583                 version2 = 0;
584 #ifdef HAVE_MINIX2
585         } else if (MAGIC == MINIX2_SUPER_MAGIC) {
586                 namelen = 14;
587                 dirsize = 16;
588                 version2 = 1;
589         } else if (MAGIC == MINIX2_SUPER_MAGIC2) {
590                 namelen = 30;
591                 dirsize = 32;
592                 version2 = 1;
593 #endif
594         } else
595                 die("bad magic number in super-block");
596         if (ZONESIZE != 0 || BLOCK_SIZE != 1024)
597                 die("Only 1k blocks/zones supported");
598         if (IMAPS * BLOCK_SIZE * 8 < INODES + 1)
599                 die("bad s_imap_blocks field in super-block");
600         if (ZMAPS * BLOCK_SIZE * 8 < ZONES - FIRSTZONE + 1)
601                 die("bad s_zmap_blocks field in super-block");
602 }
603
604 static void read_tables(void)
605 {
606         inode_map = xmalloc(IMAPS * BLOCK_SIZE);
607         zone_map = xmalloc(ZMAPS * BLOCK_SIZE);
608         memset(inode_map, 0, sizeof(inode_map));
609         memset(zone_map, 0, sizeof(zone_map));
610         inode_buffer = xmalloc(INODE_BUFFER_SIZE);
611         inode_count = xmalloc(INODES + 1);
612         zone_count = xmalloc(ZONES);
613         if (IMAPS * BLOCK_SIZE != read(IN, inode_map, IMAPS * BLOCK_SIZE))
614                 die("Unable to read inode map");
615         if (ZMAPS * BLOCK_SIZE != read(IN, zone_map, ZMAPS * BLOCK_SIZE))
616                 die("Unable to read zone map");
617         if (INODE_BUFFER_SIZE != read(IN, inode_buffer, INODE_BUFFER_SIZE))
618                 die("Unable to read inodes");
619         if (NORM_FIRSTZONE != FIRSTZONE) {
620                 printf("Warning: Firstzone != Norm_firstzone\n");
621                 errors_uncorrected = 1;
622         }
623         get_dirsize();
624         if (show) {
625                 printf("%ld inodes\n", INODES);
626                 printf("%ld blocks\n", ZONES);
627                 printf("Firstdatazone=%ld (%ld)\n", FIRSTZONE, NORM_FIRSTZONE);
628                 printf("Zonesize=%d\n", BLOCK_SIZE << ZONESIZE);
629                 printf("Maxsize=%ld\n", MAXSIZE);
630                 printf("Filesystem state=%d\n", Super.s_state);
631                 printf("namelen=%d\n\n", namelen);
632         }
633 }
634
635 struct minix_inode *get_inode(unsigned int nr)
636 {
637         struct minix_inode *inode;
638
639         if (!nr || nr > INODES)
640                 return NULL;
641         total++;
642         inode = Inode + nr;
643         if (!inode_count[nr]) {
644                 if (!inode_in_use(nr)) {
645                         printf("Inode %d marked not used, but used for file '", nr);
646                         print_current_name();
647                         printf("'\n");
648                         if (repair) {
649                                 if (ask("Mark in use", 1))
650                                         mark_inode(nr);
651                         } else {
652                                 errors_uncorrected = 1;
653                         }
654                 }
655                 if (S_ISDIR(inode->i_mode))
656                         directory++;
657                 else if (S_ISREG(inode->i_mode))
658                         regular++;
659                 else if (S_ISCHR(inode->i_mode))
660                         chardev++;
661                 else if (S_ISBLK(inode->i_mode))
662                         blockdev++;
663                 else if (S_ISLNK(inode->i_mode))
664                         symlinks++;
665                 else if (S_ISSOCK(inode->i_mode));
666                 else if (S_ISFIFO(inode->i_mode));
667                 else {
668                         print_current_name();
669                         printf(" has mode %05o\n", inode->i_mode);
670                 }
671
672         } else
673                 links++;
674         if (!++inode_count[nr]) {
675                 printf("Warning: inode count too big.\n");
676                 inode_count[nr]--;
677                 errors_uncorrected = 1;
678         }
679         return inode;
680 }
681
682 #ifdef HAVE_MINIX2
683 struct minix2_inode *get_inode2(unsigned int nr)
684 {
685         struct minix2_inode *inode;
686
687         if (!nr || nr > INODES)
688                 return NULL;
689         total++;
690         inode = Inode2 + nr;
691         if (!inode_count[nr]) {
692                 if (!inode_in_use(nr)) {
693                         printf("Inode %d marked not used, but used for file '", nr);
694                         print_current_name();
695                         printf("'\n");
696                         if (repair) {
697                                 if (ask("Mark in use", 1))
698                                         mark_inode(nr);
699                                 else
700                                         errors_uncorrected = 1;
701                         }
702                 }
703                 if (S_ISDIR(inode->i_mode))
704                         directory++;
705                 else if (S_ISREG(inode->i_mode))
706                         regular++;
707                 else if (S_ISCHR(inode->i_mode))
708                         chardev++;
709                 else if (S_ISBLK(inode->i_mode))
710                         blockdev++;
711                 else if (S_ISLNK(inode->i_mode))
712                         symlinks++;
713                 else if (S_ISSOCK(inode->i_mode));
714                 else if (S_ISFIFO(inode->i_mode));
715                 else {
716                         print_current_name();
717                         printf(" has mode %05o\n", inode->i_mode);
718                 }
719         } else
720                 links++;
721         if (!++inode_count[nr]) {
722                 printf("Warning: inode count too big.\n");
723                 inode_count[nr]--;
724                 errors_uncorrected = 1;
725         }
726         return inode;
727 }
728 #endif
729
730 static void check_root(void)
731 {
732         struct minix_inode *inode = Inode + ROOT_INO;
733
734         if (!inode || !S_ISDIR(inode->i_mode))
735                 die("root inode isn't a directory");
736 }
737
738 #ifdef HAVE_MINIX2
739 static void check_root2(void)
740 {
741         struct minix2_inode *inode = Inode2 + ROOT_INO;
742
743         if (!inode || !S_ISDIR(inode->i_mode))
744                 die("root inode isn't a directory");
745 }
746 #endif
747
748 static int add_zone(unsigned short *znr, int *corrected)
749 {
750         int result;
751         int block;
752
753         result = 0;
754         block = check_zone_nr(znr, corrected);
755         if (!block)
756                 return 0;
757         if (zone_count[block]) {
758                 printf("Block has been used before. Now in file `");
759                 print_current_name();
760                 printf("'.");
761                 if (ask("Clear", 1)) {
762                         *znr = 0;
763                         block = 0;
764                         *corrected = 1;
765                 }
766         }
767         if (!block)
768                 return 0;
769         if (!zone_in_use(block)) {
770                 printf("Block %d in file `", block);
771                 print_current_name();
772                 printf("' is marked not in use.");
773                 if (ask("Correct", 1))
774                         mark_zone(block);
775         }
776         if (!++zone_count[block])
777                 zone_count[block]--;
778         return block;
779 }
780
781 #ifdef HAVE_MINIX2
782 static int add_zone2(unsigned int *znr, int *corrected)
783 {
784         int result;
785         int block;
786
787         result = 0;
788         block = check_zone_nr2(znr, corrected);
789         if (!block)
790                 return 0;
791         if (zone_count[block]) {
792                 printf("Block has been used before. Now in file `");
793                 print_current_name();
794                 printf("'.");
795                 if (ask("Clear", 1)) {
796                         *znr = 0;
797                         block = 0;
798                         *corrected = 1;
799                 }
800         }
801         if (!block)
802                 return 0;
803         if (!zone_in_use(block)) {
804                 printf("Block %d in file `", block);
805                 print_current_name();
806                 printf("' is marked not in use.");
807                 if (ask("Correct", 1))
808                         mark_zone(block);
809         }
810         if (!++zone_count[block])
811                 zone_count[block]--;
812         return block;
813 }
814 #endif
815
816 static void add_zone_ind(unsigned short *znr, int *corrected)
817 {
818         static char blk[BLOCK_SIZE];
819         int i, chg_blk = 0;
820         int block;
821
822         block = add_zone(znr, corrected);
823         if (!block)
824                 return;
825         read_block(block, blk);
826         for (i = 0; i < (BLOCK_SIZE >> 1); i++)
827                 add_zone(i + (unsigned short *) blk, &chg_blk);
828         if (chg_blk)
829                 write_block(block, blk);
830 }
831
832 #ifdef HAVE_MINIX2
833 static void add_zone_ind2(unsigned int *znr, int *corrected)
834 {
835         static char blk[BLOCK_SIZE];
836         int i, chg_blk = 0;
837         int block;
838
839         block = add_zone2(znr, corrected);
840         if (!block)
841                 return;
842         read_block(block, blk);
843         for (i = 0; i < BLOCK_SIZE >> 2; i++)
844                 add_zone2(i + (unsigned int *) blk, &chg_blk);
845         if (chg_blk)
846                 write_block(block, blk);
847 }
848 #endif
849
850 static void add_zone_dind(unsigned short *znr, int *corrected)
851 {
852         static char blk[BLOCK_SIZE];
853         int i, blk_chg = 0;
854         int block;
855
856         block = add_zone(znr, corrected);
857         if (!block)
858                 return;
859         read_block(block, blk);
860         for (i = 0; i < (BLOCK_SIZE >> 1); i++)
861                 add_zone_ind(i + (unsigned short *) blk, &blk_chg);
862         if (blk_chg)
863                 write_block(block, blk);
864 }
865
866 #ifdef HAVE_MINIX2
867 static void add_zone_dind2(unsigned int *znr, int *corrected)
868 {
869         static char blk[BLOCK_SIZE];
870         int i, blk_chg = 0;
871         int block;
872
873         block = add_zone2(znr, corrected);
874         if (!block)
875                 return;
876         read_block(block, blk);
877         for (i = 0; i < BLOCK_SIZE >> 2; i++)
878                 add_zone_ind2(i + (unsigned int *) blk, &blk_chg);
879         if (blk_chg)
880                 write_block(block, blk);
881 }
882
883 static void add_zone_tind2(unsigned int *znr, int *corrected)
884 {
885         static char blk[BLOCK_SIZE];
886         int i, blk_chg = 0;
887         int block;
888
889         block = add_zone2(znr, corrected);
890         if (!block)
891                 return;
892         read_block(block, blk);
893         for (i = 0; i < BLOCK_SIZE >> 2; i++)
894                 add_zone_dind2(i + (unsigned int *) blk, &blk_chg);
895         if (blk_chg)
896                 write_block(block, blk);
897 }
898 #endif
899
900 static void check_zones(unsigned int i)
901 {
902         struct minix_inode *inode;
903
904         if (!i || i > INODES)
905                 return;
906         if (inode_count[i] > 1)         /* have we counted this file already? */
907                 return;
908         inode = Inode + i;
909         if (!S_ISDIR(inode->i_mode) && !S_ISREG(inode->i_mode) &&
910                 !S_ISLNK(inode->i_mode)) return;
911         for (i = 0; i < 7; i++)
912                 add_zone(i + inode->i_zone, &changed);
913         add_zone_ind(7 + inode->i_zone, &changed);
914         add_zone_dind(8 + inode->i_zone, &changed);
915 }
916
917 #ifdef HAVE_MINIX2
918 static void check_zones2(unsigned int i)
919 {
920         struct minix2_inode *inode;
921
922         if (!i || i > INODES)
923                 return;
924         if (inode_count[i] > 1)         /* have we counted this file already? */
925                 return;
926         inode = Inode2 + i;
927         if (!S_ISDIR(inode->i_mode) && !S_ISREG(inode->i_mode)
928                 && !S_ISLNK(inode->i_mode))
929                 return;
930         for (i = 0; i < 7; i++)
931                 add_zone2(i + inode->i_zone, &changed);
932         add_zone_ind2(7 + inode->i_zone, &changed);
933         add_zone_dind2(8 + inode->i_zone, &changed);
934         add_zone_tind2(9 + inode->i_zone, &changed);
935 }
936 #endif
937
938 static void check_file(struct minix_inode *dir, unsigned int offset)
939 {
940         static char blk[BLOCK_SIZE];
941         struct minix_inode *inode;
942         int ino;
943         char *name;
944         int block;
945
946         block = map_block(dir, offset / BLOCK_SIZE);
947         read_block(block, blk);
948         name = blk + (offset % BLOCK_SIZE) + 2;
949         ino = *(unsigned short *) (name - 2);
950         if (ino > INODES) {
951                 print_current_name();
952                 printf(" contains a bad inode number for file '");
953                 printf("%.*s'.", namelen, name);
954                 if (ask(" Remove", 1)) {
955                         *(unsigned short *) (name - 2) = 0;
956                         write_block(block, blk);
957                 }
958                 ino = 0;
959         }
960         if (name_depth < MAX_DEPTH)
961                 strncpy(name_list[name_depth], name, namelen);
962         name_depth++;
963         inode = get_inode(ino);
964         name_depth--;
965         if (!offset) {
966                 if (!inode || strcmp(".", name)) {
967                         print_current_name();
968                         printf(": bad directory: '.' isn't first\n");
969                         errors_uncorrected = 1;
970                 } else
971                         return;
972         }
973         if (offset == dirsize) {
974                 if (!inode || strcmp("..", name)) {
975                         print_current_name();
976                         printf(": bad directory: '..' isn't second\n");
977                         errors_uncorrected = 1;
978                 } else
979                         return;
980         }
981         if (!inode)
982                 return;
983         if (name_depth < MAX_DEPTH)
984                 strncpy(name_list[name_depth], name, namelen);
985         name_depth++;
986         if (list) {
987                 if (verbose)
988                         printf("%6d %07o %3d ", ino, inode->i_mode, inode->i_nlinks);
989                 print_current_name();
990                 if (S_ISDIR(inode->i_mode))
991                         printf(":\n");
992                 else
993                         printf("\n");
994         }
995         check_zones(ino);
996         if (inode && S_ISDIR(inode->i_mode))
997                 recursive_check(ino);
998         name_depth--;
999         return;
1000 }
1001
1002 #ifdef HAVE_MINIX2
1003 static void check_file2(struct minix2_inode *dir, unsigned int offset)
1004 {
1005         static char blk[BLOCK_SIZE];
1006         struct minix2_inode *inode;
1007         int ino;
1008         char *name;
1009         int block;
1010
1011         block = map_block2(dir, offset / BLOCK_SIZE);
1012         read_block(block, blk);
1013         name = blk + (offset % BLOCK_SIZE) + 2;
1014         ino = *(unsigned short *) (name - 2);
1015         if (ino > INODES) {
1016                 print_current_name();
1017                 printf(" contains a bad inode number for file '");
1018                 printf("%.*s'.", namelen, name);
1019                 if (ask(" Remove", 1)) {
1020                         *(unsigned short *) (name - 2) = 0;
1021                         write_block(block, blk);
1022                 }
1023                 ino = 0;
1024         }
1025         if (name_depth < MAX_DEPTH)
1026                 strncpy(name_list[name_depth], name, namelen);
1027         name_depth++;
1028         inode = get_inode2(ino);
1029         name_depth--;
1030         if (!offset) {
1031                 if (!inode || strcmp(".", name)) {
1032                         print_current_name();
1033                         printf(": bad directory: '.' isn't first\n");
1034                         errors_uncorrected = 1;
1035                 } else
1036                         return;
1037         }
1038         if (offset == dirsize) {
1039                 if (!inode || strcmp("..", name)) {
1040                         print_current_name();
1041                         printf(": bad directory: '..' isn't second\n");
1042                         errors_uncorrected = 1;
1043                 } else
1044                         return;
1045         }
1046         if (!inode)
1047                 return;
1048         name_depth++;
1049         if (list) {
1050                 if (verbose)
1051                         printf("%6d %07o %3d ", ino, inode->i_mode, inode->i_nlinks);
1052                 print_current_name();
1053                 if (S_ISDIR(inode->i_mode))
1054                         printf(":\n");
1055                 else
1056                         printf("\n");
1057         }
1058         check_zones2(ino);
1059         if (inode && S_ISDIR(inode->i_mode))
1060                 recursive_check2(ino);
1061         name_depth--;
1062         return;
1063 }
1064 #endif
1065
1066 static void recursive_check(unsigned int ino)
1067 {
1068         struct minix_inode *dir;
1069         unsigned int offset;
1070
1071         dir = Inode + ino;
1072         if (!S_ISDIR(dir->i_mode))
1073                 die("internal error");
1074         if (dir->i_size < 2 * dirsize) {
1075                 print_current_name();
1076                 printf(": bad directory: size<32");
1077                 errors_uncorrected = 1;
1078         }
1079         for (offset = 0; offset < dir->i_size; offset += dirsize)
1080                 check_file(dir, offset);
1081 }
1082
1083 #ifdef HAVE_MINIX2
1084 static void recursive_check2(unsigned int ino)
1085 {
1086         struct minix2_inode *dir;
1087         unsigned int offset;
1088
1089         dir = Inode2 + ino;
1090         if (!S_ISDIR(dir->i_mode))
1091                 die("internal error");
1092         if (dir->i_size < 2 * dirsize) {
1093                 print_current_name();
1094                 printf(": bad directory: size < 32");
1095                 errors_uncorrected = 1;
1096         }
1097         for (offset = 0; offset < dir->i_size; offset += dirsize)
1098                 check_file2(dir, offset);
1099 }
1100 #endif
1101
1102 static int bad_zone(int i)
1103 {
1104         char buffer[1024];
1105
1106         if (BLOCK_SIZE * i != lseek(IN, BLOCK_SIZE * i, SEEK_SET))
1107                 die("seek failed in bad_zone");
1108         return (BLOCK_SIZE != read(IN, buffer, BLOCK_SIZE));
1109 }
1110
1111 static void check_counts(void)
1112 {
1113         int i;
1114
1115         for (i = 1; i <= INODES; i++) {
1116                 if (!inode_in_use(i) && Inode[i].i_mode && warn_mode) {
1117                         printf("Inode %d mode not cleared.", i);
1118                         if (ask("Clear", 1)) {
1119                                 Inode[i].i_mode = 0;
1120                                 changed = 1;
1121                         }
1122                 }
1123                 if (!inode_count[i]) {
1124                         if (!inode_in_use(i))
1125                                 continue;
1126                         printf("Inode %d not used, marked used in the bitmap.", i);
1127                         if (ask("Clear", 1))
1128                                 unmark_inode(i);
1129                         continue;
1130                 }
1131                 if (!inode_in_use(i)) {
1132                         printf("Inode %d used, marked unused in the bitmap.", i);
1133                         if (ask("Set", 1))
1134                                 mark_inode(i);
1135                 }
1136                 if (Inode[i].i_nlinks != inode_count[i]) {
1137                         printf("Inode %d (mode = %07o), i_nlinks=%d, counted=%d.",
1138                                    i, Inode[i].i_mode, Inode[i].i_nlinks, inode_count[i]);
1139                         if (ask("Set i_nlinks to count", 1)) {
1140                                 Inode[i].i_nlinks = inode_count[i];
1141                                 changed = 1;
1142                         }
1143                 }
1144         }
1145         for (i = FIRSTZONE; i < ZONES; i++) {
1146                 if (zone_in_use(i) == zone_count[i])
1147                         continue;
1148                 if (!zone_count[i]) {
1149                         if (bad_zone(i))
1150                                 continue;
1151                         printf("Zone %d: marked in use, no file uses it.", i);
1152                         if (ask("Unmark", 1))
1153                                 unmark_zone(i);
1154                         continue;
1155                 }
1156                 printf("Zone %d: %sin use, counted=%d\n",
1157                            i, zone_in_use(i) ? "" : "not ", zone_count[i]);
1158         }
1159 }
1160
1161 #ifdef HAVE_MINIX2
1162 static void check_counts2(void)
1163 {
1164         int i;
1165
1166         for (i = 1; i <= INODES; i++) {
1167                 if (!inode_in_use(i) && Inode2[i].i_mode && warn_mode) {
1168                         printf("Inode %d mode not cleared.", i);
1169                         if (ask("Clear", 1)) {
1170                                 Inode2[i].i_mode = 0;
1171                                 changed = 1;
1172                         }
1173                 }
1174                 if (!inode_count[i]) {
1175                         if (!inode_in_use(i))
1176                                 continue;
1177                         printf("Inode %d not used, marked used in the bitmap.", i);
1178                         if (ask("Clear", 1))
1179                                 unmark_inode(i);
1180                         continue;
1181                 }
1182                 if (!inode_in_use(i)) {
1183                         printf("Inode %d used, marked unused in the bitmap.", i);
1184                         if (ask("Set", 1))
1185                                 mark_inode(i);
1186                 }
1187                 if (Inode2[i].i_nlinks != inode_count[i]) {
1188                         printf("Inode %d (mode = %07o), i_nlinks=%d, counted=%d.",
1189                                    i, Inode2[i].i_mode, Inode2[i].i_nlinks,
1190                                    inode_count[i]);
1191                         if (ask("Set i_nlinks to count", 1)) {
1192                                 Inode2[i].i_nlinks = inode_count[i];
1193                                 changed = 1;
1194                         }
1195                 }
1196         }
1197         for (i = FIRSTZONE; i < ZONES; i++) {
1198                 if (zone_in_use(i) == zone_count[i])
1199                         continue;
1200                 if (!zone_count[i]) {
1201                         if (bad_zone(i))
1202                                 continue;
1203                         printf("Zone %d: marked in use, no file uses it.", i);
1204                         if (ask("Unmark", 1))
1205                                 unmark_zone(i);
1206                         continue;
1207                 }
1208                 printf("Zone %d: %sin use, counted=%d\n",
1209                            i, zone_in_use(i) ? "" : "not ", zone_count[i]);
1210         }
1211 }
1212 #endif
1213
1214 static void check(void)
1215 {
1216         memset(inode_count, 0, (INODES + 1) * sizeof(*inode_count));
1217         memset(zone_count, 0, ZONES * sizeof(*zone_count));
1218         check_zones(ROOT_INO);
1219         recursive_check(ROOT_INO);
1220         check_counts();
1221 }
1222
1223 #ifdef HAVE_MINIX2
1224 static void check2(void)
1225 {
1226         memset(inode_count, 0, (INODES + 1) * sizeof(*inode_count));
1227         memset(zone_count, 0, ZONES * sizeof(*zone_count));
1228         check_zones2(ROOT_INO);
1229         recursive_check2(ROOT_INO);
1230         check_counts2();
1231 }
1232 #endif
1233
1234 /* Wed Feb  9 15:17:06 MST 2000 */
1235 /* dynamically allocate name_list (instead of making it static) */
1236 static void alloc_name_list(void)
1237 {
1238         int i;
1239
1240         name_list = xmalloc(sizeof(char *) * MAX_DEPTH);
1241         for (i = 0; i < MAX_DEPTH; i++)
1242                 name_list[i] = xmalloc(sizeof(char) * PATH_MAX + 1);
1243 }
1244
1245 /* execute this atexit() to deallocate name_list[] */
1246 /* piptigger was here */
1247 static void free_name_list(void)
1248 {
1249         int i;
1250
1251         if (name_list) { 
1252                 for (i = 0; i < MAX_DEPTH; i++) {
1253                         if (name_list[i]) {
1254                                 free(name_list[i]);
1255                         }
1256                 }
1257                 free(name_list);
1258         }
1259 }
1260
1261 extern int fsck_minix_main(int argc, char **argv)
1262 {
1263         struct termios tmp;
1264         int count;
1265         int retcode = 0;
1266
1267         alloc_name_list();
1268         atexit(free_name_list);
1269
1270         if (argc && *argv)
1271                 program_name = *argv;
1272         if (INODE_SIZE * MINIX_INODES_PER_BLOCK != BLOCK_SIZE)
1273                 die("bad inode size");
1274 #ifdef HAVE_MINIX2
1275         if (INODE_SIZE2 * MINIX2_INODES_PER_BLOCK != BLOCK_SIZE)
1276                 die("bad v2 inode size");
1277 #endif
1278         while (argc-- > 1) {
1279                 argv++;
1280                 if (argv[0][0] != '-') {
1281                         if (device_name)
1282                                 show_usage();
1283                         else
1284                                 device_name = argv[0];
1285                 } else
1286                         while (*++argv[0])
1287                                 switch (argv[0][0]) {
1288                                 case 'l':
1289                                         list = 1;
1290                                         break;
1291                                 case 'a':
1292                                         automatic = 1;
1293                                         repair = 1;
1294                                         break;
1295                                 case 'r':
1296                                         automatic = 0;
1297                                         repair = 1;
1298                                         break;
1299                                 case 'v':
1300                                         verbose = 1;
1301                                         break;
1302                                 case 's':
1303                                         show = 1;
1304                                         break;
1305                                 case 'm':
1306                                         warn_mode = 1;
1307                                         break;
1308                                 case 'f':
1309                                         force = 1;
1310                                         break;
1311                                 default:
1312                                         show_usage();
1313                                 }
1314         }
1315         if (!device_name)
1316                 show_usage();
1317         check_mount();                          /* trying to check a mounted filesystem? */
1318         if (repair && !automatic) {
1319                 if (!isatty(0) || !isatty(1))
1320                         die("need terminal for interactive repairs");
1321         }
1322         IN = open(device_name, repair ? O_RDWR : O_RDONLY);
1323         if (IN < 0)
1324                 die("unable to open '%s'");
1325         for (count = 0; count < 3; count++)
1326                 sync();
1327         read_superblock();
1328
1329         /*
1330          * Determine whether or not we should continue with the checking.
1331          * This is based on the status of the filesystem valid and error
1332          * flags and whether or not the -f switch was specified on the 
1333          * command line.
1334          */
1335         printf("%s, %s\n", program_name, program_version);
1336         if (!(Super.s_state & MINIX_ERROR_FS) &&
1337                 (Super.s_state & MINIX_VALID_FS) && !force) {
1338                 if (repair)
1339                         printf("%s is clean, no check.\n", device_name);
1340                 return retcode;
1341         } else if (force)
1342                 printf("Forcing filesystem check on %s.\n", device_name);
1343         else if (repair)
1344                 printf("Filesystem on %s is dirty, needs checking.\n",
1345                            device_name);
1346
1347         read_tables();
1348
1349         if (repair && !automatic) {
1350                 tcgetattr(0, &termios);
1351                 tmp = termios;
1352                 tmp.c_lflag &= ~(ICANON | ECHO);
1353                 tcsetattr(0, TCSANOW, &tmp);
1354                 termios_set = 1;
1355         }
1356 #if HAVE_MINIX2
1357         if (version2) {
1358                 check_root2();
1359                 check2();
1360         } else
1361 #endif
1362         {
1363                 check_root();
1364                 check();
1365         }
1366         if (verbose) {
1367                 int i, free;
1368
1369                 for (i = 1, free = 0; i <= INODES; i++)
1370                         if (!inode_in_use(i))
1371                                 free++;
1372                 printf("\n%6ld inodes used (%ld%%)\n", (INODES - free),
1373                            100 * (INODES - free) / INODES);
1374                 for (i = FIRSTZONE, free = 0; i < ZONES; i++)
1375                         if (!zone_in_use(i))
1376                                 free++;
1377                 printf("%6ld zones used (%ld%%)\n", (ZONES - free),
1378                            100 * (ZONES - free) / ZONES);
1379                 printf("\n%6d regular files\n"
1380                            "%6d directories\n"
1381                            "%6d character device files\n"
1382                            "%6d block device files\n"
1383                            "%6d links\n"
1384                            "%6d symbolic links\n"
1385                            "------\n"
1386                            "%6d files\n",
1387                            regular, directory, chardev, blockdev,
1388                            links - 2 * directory + 1, symlinks,
1389                            total - 2 * directory + 1);
1390         }
1391         if (changed) {
1392                 write_tables();
1393                 printf("----------------------------\n"
1394                            "FILE SYSTEM HAS BEEN CHANGED\n"
1395                            "----------------------------\n");
1396                 for (count = 0; count < 3; count++)
1397                         sync();
1398         } else if (repair)
1399                 write_super_block();
1400
1401         if (repair && !automatic)
1402                 tcsetattr(0, TCSANOW, &termios);
1403
1404         if (changed)
1405                 retcode += 3;
1406         if (errors_uncorrected)
1407                 retcode += 4;
1408         return retcode;
1409 }