home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / util / zoo-2.1.lha / zoo-2.1 / zoo.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-05-02  |  15.2 KB  |  531 lines
  1. #ifndef LINT
  2. /* derived from: zoo.c 2.24 88/01/29 00:55:09 */
  3. static char sccsid[]="$Id: zoo.c,v 1.21 91/07/09 02:36:40 dhesi Exp $";
  4. #endif /* LINT */
  5.  
  6. #if 0
  7. #define TRACEI(item) printf("line %d: %s= %d\n", __LINE__, #item, item)
  8. #define TRACES(item) printf("line %d: %s= [%s]\n", __LINE__, #item, item)
  9. #endif
  10.  
  11. extern char version[];
  12.  
  13. /*
  14. Copyright (C) 1986, 1987 Rahul Dhesi -- All rights reserved
  15. (C) Copyright 1988 Rahul Dhesi -- All rights reserved
  16. (C) Copyright 1991 Rahul Dhesi -- All rights reserved
  17. */
  18. #include "options.h"
  19. #include "zooio.h"
  20. #include "various.h"
  21.  
  22. #include "zoo.h"
  23. #include "zoofns.h"
  24.  
  25. #include "errors.i"
  26. #include "zoomem.h"
  27.  
  28. /*#define MS_HELP*/
  29. #ifdef MS_HELP
  30. static void ms_help PARMS((char *));
  31. #endif
  32. static void wait_return PARMS((void));
  33.  
  34. #ifdef TRACE_IO
  35. int verbose = 0;
  36. #endif
  37.  
  38. int instr PARMS ((char *, char *));
  39.  
  40. char *out_buf_adr;        /* points to memory allocated for output buffer(s) */
  41. char *in_buf_adr; /* points to memory allocated for input buffer */
  42.  
  43. /* static declarations */
  44. int quiet = 0;         /* whether to be quiet */
  45. int next_arg = FIRST_ARG; /* filenames start at this position */
  46. int arg_count;     /* count of arguments supplied to program */
  47. char **arg_vector;        /* vector of arguments supplied to program */
  48.  
  49. main(argc,argv)
  50. register int argc;
  51. register char **argv;
  52. {
  53.     char *zooname;     /* synonym for argv[2] -- to make life easier */
  54. #ifndef OOZ
  55.     static char incorrect_args[] = "Incorrect number of arguments.\n";
  56.     int filecount;     /* how many filespecs supplied */
  57. #endif /* OOZ */
  58.  
  59. #ifdef OOZ
  60. #else
  61. /* else not OOZ */
  62.         static char usage[] = "Usage: zoo {acDeglLPTuUvx}[aAcCdEfInmMNoOpPqu1:/.@n] archive file\n(\"zoo h\" for help, \"zoo H\" for extended help)\n";
  63.         static char nov_usage[] =
  64.              "\nNovice usage:  zoo -cmd archive[.zoo] file...  where -cmd is one of these:\n";
  65.         char *option;
  66.  
  67.         static char nov_cmds[] =
  68.             /* ADD=0EXT=5      MOV=14TES=20PRI=26 DEL=33  LIS=41UPD=47  FRE=55     COMMENT=64 */
  69.               "-add -extract -move -test -print -delete -list -update -freshen -comment\n";
  70.  
  71. #ifdef NOENUM
  72. #define NONE    -1
  73. #define ADD 0
  74. #define EXTRACT 5
  75. #define MOVE    14
  76. #define TEST    20
  77. #define PRINT    26
  78. #define DELETE 33
  79. #define LIST    41
  80. #define UPDATE 47
  81. #define FRESHEN 55
  82. #define COMMENT 64
  83.  
  84. int cmd = NONE;
  85.  
  86. #else
  87.     enum choice {
  88.         NONE = -1, ADD = 0, EXTRACT = 5, MOVE = 14, TEST = 20, PRINT = 26,
  89.         DELETE = 33, LIST = 41, UPDATE = 47, FRESHEN = 55, COMMENT = 64
  90.     };
  91.     enum choice cmd = NONE;             /* assume no Novice command */
  92. #endif
  93.  
  94. #endif /* end of not OOZ */
  95.  
  96. #ifdef SPECINIT
  97.     void spec_init PARMS ((void));
  98.     spec_init();                     /* system-specific startup code */
  99. #endif
  100.  
  101.     /* make sure T_UINT16 is an unsigned 16-bit type, exactly.    This
  102.         code is included only if T_UINT16 was defined by default at the
  103.         end of options.h. */
  104. #ifdef CHECK_TUINT
  105.     {
  106.         T_UINT16 i;
  107.         int status = 0;
  108.         i = ((unsigned) 1) << 15;
  109.         if (i < 0)
  110.             status = 1;
  111.         if (i != ((unsigned) 1) << 15)
  112.             status = 1;
  113.         i *= 2;
  114.         if (i != 0)
  115.             status = 1;
  116.         if (status != 0)
  117.             prterror('w', "Configuration problem: T_UINT16 is not 16 bits\n");
  118.     }
  119. #endif
  120.  
  121.     arg_count = argc;
  122.     arg_vector = argv;
  123.     zooname = argv[FIRST_ARG-1];        /* points to name or archive */
  124.  
  125. #ifdef OOZ
  126.     if (argc < 2) {
  127.         putstr (usage1);
  128.         putstr (usage2);
  129.         zooexit (1);
  130.     }
  131. #else
  132. /* else not OOZ */
  133.     if (argc < 2)
  134.         goto show_usage;
  135.     filecount = argc - 3;
  136.     option = str_dup(argv[1]);
  137.  
  138. #ifdef TRACE_IO
  139.     if (*option == ':') {         /* for debugging output */
  140.         verbose++;
  141.         option++;                        /* hide the : from other functions */
  142.     }
  143. #endif
  144.  
  145. #ifdef WAIT_PROMPT
  146.     if (*option == 'w') {
  147.         option++;                        /* hide w from other functions */
  148.         wait_return();
  149.     }
  150. #endif /* WAIT_PROMPT */
  151.  
  152. #ifdef MS_HELP
  153.     if (*option == 'H') ms_help(option);
  154. #endif
  155.     if (*option == 'h' || *option == 'H')
  156.         goto bigusage;
  157.     if (strchr("-acDegflLPTuUvVx", *option) == NULL)
  158.         goto give_list;
  159.  
  160.     if (*option == '-') {
  161.  
  162. #ifdef NOENUM
  163.         cmd = instr (nov_cmds, str_lwr(option));
  164. #else
  165.         cmd = (enum choice) instr (nov_cmds, str_lwr(option));
  166. #endif
  167.  
  168.         if (strlen(option) < 2 || cmd == NONE)
  169.             goto show_usage;
  170.         if (  ((cmd == ADD || cmd == MOVE || cmd == FRESHEN ||
  171.                         cmd == UPDATE || cmd == DELETE) && argc < 4) ||
  172.                 ((cmd == EXTRACT || cmd == TEST || cmd == LIST ||
  173.                             cmd == PRINT || cmd == COMMENT) && argc < 3)) {
  174.             fprintf (stderr, incorrect_args);
  175.             goto show_usage;
  176.         }
  177.     } else {
  178.         char *wheresI; /* will be null if I option not supplied */
  179.         if (
  180.                 (
  181.                     strchr("au",*option) &&
  182.                     (
  183.                         (((wheresI = strchr(option,'I')) != 0) &&
  184.                             argc != 3) ||
  185.                         wheresI==NULL && argc < 4
  186.                     )
  187.                 ) ||
  188.                  strchr("DU",*option) && argc < 4 ||
  189.                  strchr("cexlvVL",*option) && argc < 3 ||
  190.                  strchr("TP",*option)   && argc != 3 ||
  191.                  (*option == 'f' && argc != 2) ||
  192.                  (*option == 'g' &&
  193.                     (strchr(option,'A') == NULL && argc < 4 ||
  194.                      strchr(option,'A') != NULL && argc != 3
  195.                     )
  196.                  )
  197.             ) {
  198.             fprintf (stderr, incorrect_args);
  199.             goto show_usage;
  200.         }
  201.     }
  202. #endif /* end of not OOZ */
  203.  
  204. #ifndef OOZ
  205.     /* if not doing a list and no extension in archive name, add default
  206.     extension */
  207.     if (*option != 'f' && cmd != LIST && strchr("lvVL", *option) == NULL &&
  208.             strchr(nameptr (zooname), EXT_CH) == NULL)
  209.         zooname = newcat (zooname, EXT_DFLT);
  210. #endif
  211.  
  212. /*
  213. Here we allocate a large block of memory for the duration of the program.
  214. lzc() and lzd() will use half of it each.  Routine getfile() will use all
  215. of it.    Routine decode() will use the first 8192 bytes of it.  Routine
  216. encode() will use all of it. */
  217.  
  218. /*                          fudge/2      fudge/2
  219. **         [______________||________________|]
  220. **           output buffer  input buffer
  221. */
  222.     out_buf_adr = ealloc (MEM_BLOCK_SIZE);
  223.     in_buf_adr = out_buf_adr + OUT_BUF_SIZE + (FUDGE/2);
  224.  
  225. #ifdef OOZ
  226. zooext(zooname, "\0");     /* just extract -- no fancy stuff   */
  227. zooexit (0);                  /* and exit normally                */
  228. #else
  229. /* else not OOZ -- parse command line and invoke a routine */
  230.     if (cmd != NONE) {
  231.         switch (cmd) {
  232.  
  233.             case ADD:        zooadd (zooname, filecount, &argv[3], "aP:"); break;
  234.             case FRESHEN:    zooadd (zooname, filecount, &argv[3], "auP:"); break;
  235.             case UPDATE:    zooadd (zooname, filecount, &argv[3], "aunP:"); break;
  236.             case MOVE:        zooadd (zooname, filecount, &argv[3], "aMP:"); break;
  237.  
  238.             case EXTRACT:    zooext (zooname, "x"); break;
  239.             case TEST:        zooext (zooname, "xNd"); break;
  240.             case PRINT: zooext (zooname, "xp"); break;
  241.  
  242.             case DELETE:    zoodel (zooname, "DP",1); break;
  243.             case LIST:        zoolist (&argv[2], "VC", argc-2); break;
  244.             case COMMENT:    comment (zooname, "c"); break;
  245.             default: goto show_usage;
  246.         }
  247.     } else
  248.         switch (*option) {
  249.  
  250.             case 'a':
  251.             case 'u':
  252.             case 'T':
  253.                 zooadd (zooname, filecount, &argv[3], option); break;
  254. #ifdef FILTER
  255.             case 'f':
  256.                 zoofilt (option);  break;
  257. #endif /* FILTER */
  258.             case 'D':
  259.                 zoodel (zooname, option, 1); break;
  260.             case 'U':
  261.                 zoodel (zooname, option, 0); break;
  262.             case 'g':
  263.                 zoodel (zooname, option, 2); break;
  264.             case 'v':
  265.             case 'V':
  266.             case 'l':
  267.                 zoolist(&argv[2], option, 1); break;
  268.             case 'L':
  269.                 zoolist(&argv[2], option, argc-2); break;
  270.             case 'e':
  271.             case 'x':
  272.                 zooext(zooname, option); break;
  273.             case 'P':
  274.                 zoopack (zooname, option); break;
  275.             case 'c':
  276.                 comment (zooname, option); break;
  277.             default:
  278.                 goto give_list;
  279.         }
  280. zooexit (0);      /* don't fall through */
  281.  
  282. /* usage list including Novice commands */
  283. show_usage:
  284.     fprintf (stderr, "%s\n\n%s%s%s", version, usage, nov_usage, nov_cmds);
  285.     zooexit (1);
  286.  
  287. /* brief usage list */
  288. give_list:
  289.     fprintf (stderr, usage); zooexit (1);
  290.  
  291. /* help screen */
  292. bigusage:
  293. printf("\n\n\n\n\n\n\n\n");
  294. printf ("Zoo archiver, %s\n", version);
  295. printf("(C) Copyright 1991 Rahul Dhesi -- Noncommercial use permitted\n");
  296.  
  297. printf (usage);
  298. printf ("\nChoose a command from within {} and zero or more modifiers from within [].\n");
  299.  
  300. printf ("E.g.:  `zoo a save /bin/*' will archive all files in /bin into save.zoo.\n");
  301. printf ("(Please see the user manual for a complete description of commands.)\n\n");
  302. printf (nov_usage);
  303. printf (nov_cmds);
  304. printf ("\n\n\n\n");
  305. wait_return(); /* print msg & wait for RETURN */
  306.  
  307. printf ("\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n");
  308. printf (usage);
  309.  
  310. printf (" Commands in {} mean:         |Modifiers in [] mean:\n");
  311.  
  312. printf ("  a     add files             | a     show archive name(s) in listing\n");
  313. printf ("  c     update comments       | A     apply g or c to archive\n");
  314. printf ("  D     delete stored files   | c     add/list comments\n");
  315. printf ("  e,x   extract files         | d     extract/list deleted files too\n");
  316. printf ("  g     adj. gen. limit/count | dd    extract/list only deleted files\n");
  317. printf ("  l,L,v,V list filenames      | E     erase backup after packing\n");
  318. printf ("  P     pack archive          | f     fast add (no compression) or list\n");
  319. printf ("  T     fix archive datestamp | M     move when adding (erase original)\n");
  320. printf ("  u     add only newer files  | n     add only files not already in archive\n");
  321. printf ("  U     undelete stored files | N     send extracted data to Nowhere\n");
  322. #ifdef FILTER
  323. printf ("  f     act as filter         | c/u   compress/uncompress as filter\n");
  324. #endif /* FILTER */
  325. printf (" -----------------------------  O     don't ask \"Overwrite?\"\n");
  326. printf ("  q     be quiet                p     pipe extracted data to standard output\n");
  327. printf ("  :     don't store dir names   /,//  extract full pathnames\n");
  328. printf ("  .     pack to current dir     I     add filenames read from stdin\n");
  329. printf ("  C     show file CRC value     +/-   enable/disable generations\n");
  330. printf ("  S     overwrite newer files   g     list generation limits\n");
  331. printf ("  P     pack after adding       @n    start extract/list at position n\n");
  332.  
  333. #ifdef FATTR
  334. printf ("  m     list file modes         OO    overwrite read-only files\n");
  335. #endif /* FATTR */
  336. printf ("  C     change archive cmnt     H DON'T use high-compression method\n");
  337. #endif /* end of not OOZ */
  338.  
  339. /* NOTE:  if allowed to fall through and return without an exit() statement,
  340.     it was printing garbage--corrupted stack?  Why--bug in Microsoft C? */
  341. zooexit (1);
  342. return 1;    /* keep lint & compilers happy */
  343. }
  344.  
  345. #ifdef MS_HELP
  346. /* multi-screen help facility thanks to Bill Davidsen */
  347.  
  348. /* help screens */
  349. static char *scrn1[] = {
  350.     "",
  351.     "command line format:",
  352.     "  zoo {command}[options] archive files(s)",
  353.     "",
  354.     "Commands:",
  355.     " a  add files",
  356.     "    u - update, replace only if file is newer than saved version",
  357.     "    n - new, add if file is not in archive",
  358.     "    f - fast, don't compress at all",
  359.     "    h - high performance compressor, slower than default",
  360.     "    M - move files to archive, delete after saving",
  361.     "    c - add a comment to each file added",
  362.     "    C - add a comment to the archive as a whole",
  363.     "    : - strip directory names, save filenames only",
  364.     "    q - quiet (qq suppresses warnings, qqq suppresses nonfatal errors too)",
  365.     "    P - pack after adding, remove overwritten or deleted files",
  366.     "        (leaves a .bak file, use PP to overwrite it)",
  367.     "    I - read filenames from standard input",
  368.     "    + - enable generations",
  369.     (char *)NULL
  370. };
  371.  
  372. static char *scrn2[] = {
  373.     "",
  374.     " e  extract files",
  375.     " x  extract files",
  376.     "    : - extract to current directory (ignore pathnames)",
  377.     "    . - make absolute pathnames relative to current directory",
  378.     "        (name /etc/hosts becomes ./etc/hosts)",
  379.     "    / - extract to subdirs, // create subdirs as needed - default",
  380.     "        (the sequence :/ may be used to use but not create subdirs)",
  381.     "    q - quiet",
  382.     "    d - extract deleted files, too. dd extract *only* deleted files",
  383.     "    N - extract to nowhere. Used to test the archive with xN or xNq",
  384.     "    p - extract for pipe to standard output. Use q to avoid header",
  385.     "",
  386. #ifdef FATTR
  387.     "    O - overwrite without asking, OO overwrites readonly files",
  388. #else
  389.     "    O - overwrite without asking",
  390. #endif
  391.     "    S - overwrite superceded (newer) files",
  392.     (char *)NULL
  393. };
  394.  
  395. static char *scrn3[] = {
  396.     "",
  397.     " l  list archive info",
  398.     " L  list info for multiple archives",
  399.     " v  list verbose file info and archive comment",
  400.     " V  list verbose file info, archive and file comments",
  401.     "    v - verbose (same as v command, used with L for multiple files",
  402.     "    V - verbose with file comments",
  403.     "    C - show CRC",
  404.     "    a - show archive name in file listing (useful with L)",
  405. #ifdef FATTR
  406.     "    m - mode, show file modes in octal",
  407. #endif
  408.     "    d - show deleted files",
  409.     "    q - quiet, shows only file info, no comments or headers",
  410.     "    f - fast, lists only filename, no pathname, multiple columns",
  411.     "    1 - one column output (for the f option)",
  412.     "",
  413.     " c  comment changes, change or add comments to listed files",
  414.     "    (changes all file comments if no files given)",
  415.     "    A - only change archive comment",
  416.     (char *)NULL
  417. };
  418.  
  419. static char *scrn4[] = {
  420.     "",
  421.     " P  pack archive, remove deleted or overwritten files",
  422.     "    E - erase the .bak file when done",
  423.     "",
  424.     " D  delete files by name",
  425.     "    P - pack after deletion, use PP if .bak file exists",
  426.     "    q - quiet",
  427.     "",
  428.     " T  timestamp adjust, make archive age of newest file",
  429.     "",
  430.     " g  generation commands",
  431.     "    l - set generation limit on files",
  432.     "    A - apply limit to archive rather than a file (with gl)",
  433.     "",
  434.     " f  filter, copy stdin to stdout with [de]compression",
  435.     "    c - compress",
  436.     "    u - uncompress",
  437.     "    h - use the high compression method",
  438.     (char *)NULL
  439. };
  440.  
  441. static char *scrn5[] = {
  442.     "",
  443.     "Examples:",
  444.     "",
  445.     "# just add a few files",
  446.     "    zoo a arch file1 files",
  447.     "# add C source files in subdirectories",
  448.     "    zoo a test part1/*.c part2/*.c",
  449.     "# add documentation files with high compression",
  450.     "    zoo ah test *.doc",
  451.     "",
  452.     "# extract all files",
  453.     "    zoo x test",
  454.     "# extract files into the current directory",
  455.     "    zoo x: test",
  456.     "# extract a single file and sort before listing",
  457.     "    zoo xp test users.lst | sort",
  458.     "",
  459.     "# list the contents and archive comments",
  460.     "    zoo v arch",
  461.     "# list all files in all archives",
  462.     "    zoo L xxx.zoo /doc/*.zoo ../*.zoo",
  463.     (char *)NULL
  464. };
  465.  
  466. static char **screens[] = {
  467.     scrn1,        /* intro and add */
  468.     scrn2,        /* extract */
  469.     scrn3,        /* list commands */
  470.     scrn4,        /* other commands */
  471.     scrn5,        /* add and extract examples */
  472.     (char **)NULL
  473. };
  474.  
  475. /* multi-screen help routine */
  476. static void ms_help(options)
  477. char *options;
  478. {
  479. #ifndef SZ_SCREEN /* screen size can be overridden in options.h */
  480. # define SZ_SCREEN 24
  481. #endif
  482.     int scrnlen = SZ_SCREEN;
  483.     char ***curscreen, **curline;
  484.     int linecount;
  485.  
  486.     /* if "Hnn" output in nn line format */
  487.     if (++options) sscanf(options, "%d", &scrnlen);
  488.     if (scrnlen < 2)
  489.         scrnlen = SZ_SCREEN;
  490.  
  491.     /* loop thru screens */
  492.     for (curscreen = screens; *curscreen != NULL; ++curscreen) {
  493.         printf("\n\n\n\n");
  494.         linecount = scrnlen;
  495.         curline = *curscreen;
  496.         while (*curline != NULL) {
  497.             printf("%s\n", *(curline++));
  498.             --linecount;
  499.         }
  500.  
  501.         /* slew page */
  502.         while (--linecount != 0) putchar('\n');
  503.         wait_return(); /* print msg & wait for RETURN */
  504.     }
  505.  
  506.     exit(0);
  507. }
  508. #endif
  509.  
  510. /* wait_return prints a message, then waits until user hits RETURN key,
  511. then returns.    Special cases: (a) if not interactive (as tested with
  512. isatty() if available), it returns immediately; (b) while waiting for
  513. RETURN, if EOF occurs, it causes zooexit(0) */
  514.  
  515. static void wait_return()
  516. {
  517. #ifdef HAVE_ISATTY
  518.     if (!isatty(fileno(stdout)) || !isatty(fileno(stdin)))
  519.         return;
  520. #endif
  521.     (void) printf("Hit RETURN (or ENTER) key to continue...");
  522.     for ( ; ;) {
  523.         int key;
  524.         key = getchar();
  525.         if (key == EOF)
  526.             zooexit(0);
  527.         if (key == '\n' || key == '\r')
  528.             return;
  529.     }
  530. }
  531.