-+-+-+-+-+-+-+-+ START OF PART 2 -+-+-+-+-+-+-+-+
X  int method;`009`009`009/* Method of unsharing */
X`032
X  method= BRUTAL;`009`009/* Only BRUTAL currently available */
X  table=  0;`009`009`009/* Don't generate a table */
X  verbose=0;`009`009`009/* Nor be very verbose */
X  numext= 0;`009`009`009/* Initially no files to extract */
X`032
X`032
X  while ((c=getopt(argc,argv,"x:tbv"))!=EOF)
X    switch(c)
X     `123
X      case 't' : table=1;`009/* Get the various options */
X`009`009 break;
X      case 'b' : method= BRUTAL;
X`009`009 break;
X      case 'v' : verbose=1;
X`009`009 break;
X      case 'x' : exfile`091numext`093= (char *)malloc(strlen(optarg)+1);
X`009`009 strcpy(exfile`091numext++`093,optarg);
X`009`009 break;
X      default  : usage();
X     `125
X`032
X  if (argc==1) first=argc;`009`009/* Find first file argument */
X  else for (first=1;first<argc;first++)
X`009if (argv`091first`093`0910`093!='-') break;
X`032
X  if (first==argc)`009`009`009/* If no file argument */
X   `123`009`009`009`009`009/* use stdin only */
X    switch(method)
X     `123
X      case BRUTAL: disembowel();`009/* Unshar brutally! */
X`009`009   break;
X      default:`009   fprintf(stderr,"unshar: Unknown method of unsharing\n")
V;
X`009`009   exit(1);
X      `125
X   `125
X  else
X   for (i=first;i<argc;i++)`009/* open stdio with every file */
X   `123
X    fclose(stdin);
X    if ((zin=fopen(argv`091i`093,"r"))==NULL)
X      `123 perror("unshar");
X        exit(1);
X      `125
X`032
X    switch(method)
X     `123
X      case BRUTAL: disembowel();`009/* Unshar brutally! */
X`009`009   break;
X      default:`009   fprintf(stderr,"unshar: Unknown method of unsharing\n")
V;
X`009`009   exit(1);
X      `125
X   `125
X  exit(0);
X `125
$ CALL UNPACK UNSHAR.C;2 409914892
$ create/nolog 'f'
X/*
X * Unshar - extract files from shell archive
X *
X * Written by Warren Toomey. Nov, 1989.
X * You may freely copy or give away this source as
X * long as this notice remains intact.
X *
X * Definitions used by unshar
X */
X`032
X`009/* Methods of unsharing */
X`032
X#define UNKNOWN`0090
X#define BRUTAL`0091
X`032
X`032
X`009/* Whitespace indicators */
X`032
X#define WHITE`0090
X#define NOWHITE 1
X`032
X`032
X`009/* Leading character indicators */
X`032
X#define NOX`0090
X#define YESX`0091
X`032
X`032
X`009/* Emulation types available */
X`032
X#define NUMTOKS    4`009`009/* Must change NUMTOKS to equal the */
X/* define UNKNOWN  0 */`009`009/* number of emulation types */
X#define SED`009   1
X#define GRES `009   2
X#define CAT`009   3
X`032
Xstatic char *token`091NUMTOKS`093 =`009/* The list of emulation types! */
X`009`123 "",
X`009  "sed",
X`009  "gres",
X`009  "cat"
X`009`125;
X`032
X`032
X`032
X`009/* Misc. constants */
X`032
X#define BUFSIZE`009256`009`009/* Size of line buffer */
$ CALL UNPACK UNSHAR.H;2 1644497184
$ EXIT