home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume11 / zoo / part01 / fiz.c < prev    next >
Encoding:
C/C++ Source or Header  |  1987-08-16  |  5.9 KB  |  205 lines
  1. #ifndef LINT
  2. static char sccsid[]="@(#) fiz.c 1.4 87/05/29 12:53:42";
  3. #endif /* LINT */
  4.  
  5. /*
  6. The contents of this file are hereby released to the public domain.
  7.  
  8.                                    -- Rahul Dhesi 1987/02/06
  9. */
  10.  
  11. /*
  12. Searches for all directory entries in an archive and prints their
  13. offsets.  Zoo 1.41 and later may then be asked to extract a specific
  14. file by supplying the offset of the file.
  15. */
  16.  
  17. #include "options.h"
  18. #include <stdio.h>
  19. #include "various.h"
  20. #include "zoofns.h"
  21. #include "portable.h"         /* I/O definitions */
  22. #include "zoo.h"
  23.  
  24. #ifdef LINT_ARGS
  25. void prtctrl (char *);
  26. void prtch (unsigned int);
  27. #else
  28. void prtctrl ();
  29. void prtch ();
  30. #endif
  31.  
  32. main(argc,argv)
  33. register int argc;
  34. register char **argv;
  35. {
  36.    char *zooname;          /* name of archive to be read */
  37.    FILE *zoo_file;         /* the archive opened as a FILE */
  38.    int column;             /* column currently printing */
  39.    int state;              /* to keep track of how much of tag seen */
  40.    int inch;               /* char just read from archive */
  41.  
  42.    static char usage1[] = "Fiz 1.0 (1987/01/30) public domain Zoo archive repair utility by Rahul Dhesi\n";
  43.    static char usage2[] = "Usage:  fiz archive[.zoo]  (\"fiz -h\" for help)\n";
  44.  
  45. #ifdef SETBUF
  46. /* set stdout to unbuffered */
  47. setbuf (stdout, (char *) NULL);
  48. #endif
  49.  
  50.    if (argc < 2) {
  51.       printf("%s%s", usage1, usage2);
  52.       exit (1);
  53.    }
  54.  
  55.    if (strcmp(argv[1],"-h") == 0)
  56.       goto givehelp;
  57.  
  58.    zooname = argv[1];
  59.  
  60.    /* Add default extension if none supplied */
  61.    {
  62.       char *p, *q;
  63.       p = zooname + strlen(zooname);         /* point to last char */
  64.       while (p != zooname && *p != EXT_CH)
  65.          --p;
  66.       /* either found EXT_CH or reached beginning of zooname */
  67.       if (*p != EXT_CH) {
  68.          q = malloc(strlen(zooname) + strlen(EXT_DFLT) + 2);
  69.          if (q == NULL) {
  70.             printf("Fiz:  Ran out of memory.\n");
  71.             exit(1);
  72.          }
  73.          strcpy(q, zooname);
  74.          strcat(q, EXT_DFLT);
  75.          zooname = q;
  76.       }
  77.    }
  78.  
  79.    zoo_file = fopen (zooname, FRDSTR);
  80.    if (zoo_file == NULL) {
  81.       printf("Fiz:  FATAL:  Could not open %s.\n", zooname);
  82.       exit(1);
  83.    }
  84.  
  85. #define  NOTHING  1
  86. #define  CHAR_1   0xdc
  87. #define  CHAR_2   0xa7
  88. #define  CHAR_3   0xc4
  89. #define  CHAR_4   0xfd
  90.  
  91.    column = 0;
  92.    state = NOTHING;
  93.    while ((inch = getc(zoo_file)) != EOF) {
  94.       inch = inch & 0xff;
  95.       if (state == NOTHING && inch == CHAR_1)
  96.          state = CHAR_1;
  97.       else if (state == CHAR_1 && inch == CHAR_2)
  98.          state = CHAR_2;
  99.       else if (state == CHAR_2 && inch == CHAR_3)
  100.          state = CHAR_3;
  101.       else if (state == CHAR_3 && inch == CHAR_4)
  102.          state = CHAR_4;
  103.       else
  104.          state = NOTHING;
  105.  
  106.       if (state == CHAR_4) {           /* found tag */
  107.          long save_pos;
  108.          struct direntry direntry;
  109.          save_pos = ftell(zoo_file);
  110.          fseek(zoo_file, save_pos-4L, 0);          /* back to tag pos */
  111.          frd_dir(&direntry, zoo_file);             /* read dir entry */
  112.          printf("****************\n");
  113.  
  114.          printf ("%8lu:  ", save_pos-4L);
  115.  
  116.          if (direntry.dirlen > 0) {
  117.             printf ("[");
  118.             prtctrl (direntry.dirname);
  119.             printf ("]");
  120.          }
  121.  
  122.          printf(" [");
  123.          prtctrl (direntry.fname);
  124.          printf ("]");
  125.  
  126.          if (direntry.namlen > 0) {
  127.             printf (" [");
  128.             prtctrl (direntry.lfname);
  129.             printf ("]");
  130.          }
  131.          if (direntry.dir_crc != 0)
  132.             printf (" [*bad CRC*]");
  133.          printf ("\n");
  134.          fseek (zoo_file, save_pos, 0);         /* try again from there */
  135.       }
  136.    }
  137. exit (0);      /* don't fall through */
  138.  
  139. givehelp:
  140.  
  141.    printf ("Fiz is used to help you recover data from a damaged archive.  Fiz\n");
  142.    printf ("searches the specified archive and prints the position (a decimal\n");
  143.    printf ("number) of each directory entry found and the directory name and\n");
  144.    printf ("filename associated with it.\n\n");
  145.  
  146.    printf ("Make a record of the output of Fiz by redirecting it to a file.  Then\n");
  147.    printf ("use Zoo version 1.41 or higher to list or extract files in the\n");
  148.    printf ("damaged archives starting at a chosen position.  For example, you can\n");
  149.    printf ("start extracting files from archive \"badarc.zoo\" at position 1098\n");
  150.    printf ("with the command\n\n");
  151.  
  152.    printf ("     zoo x@1098 badarc\n\n");
  153.  
  154.    printf ("Zoo will ignore the first 1097 bytes of the damaged archive and you\n"); 
  155.    printf ("should be able to recover the undamaged files from the rest of the\n");
  156.    printf ("archive.\n\n");
  157.    printf ("The position supplied to Zoo should have been obtained from Fiz and\n");
  158.    printf ("must correspond to an undamaged directory entry in the archive.\n");
  159.  
  160.    exit(1);
  161. }
  162.  
  163. /*
  164. prtctrl() prints a string with all unprintable characters converted
  165. to printable form.  To avoid the program running astray trying to
  166. print damaged data, no more than MAXPRT characters are printed.
  167. Characters with the 8th bit set are printed preceded with ~.  Control
  168. characters are printed preceded with ^.  Both ~ and ^ may preced
  169. the character if a control character has the 8th bit set.
  170. */
  171. #define  MAXPRT      50
  172.  
  173. void prtctrl (str)
  174. char *str;
  175. {
  176.    unsigned int ch;
  177.    int count;
  178.    count = 0;
  179.  
  180.    while (count < MAXPRT && *str != '\0') {
  181.       ch = (unsigned) *str;
  182.       prtch(ch);
  183.       str++;
  184.       count++;
  185.    }
  186. }
  187.  
  188. /*
  189. Does the actual character printing for prtctrl()
  190. */
  191. void prtch(ch)
  192. unsigned int ch;
  193. {
  194.    /* assumes ASCII character set */
  195.    if (ch < ' ') {                        /* ^@ through ^_ */
  196.       printf("^%c", ch + 0x40);
  197.    } else if (ch == 0x7f) {               /* DEL */
  198.       printf("^?");
  199.    } else if (ch > 0x7f) {                /* 8th bit set */
  200.       printf("~");                        /* .. so precede with ~ */
  201.       prtch(ch & 0x7f);                   /* slick recursive call */
  202.    } else
  203.       printf("%c", ch);                   /* plain char */
  204. }
  205.