home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / zip / gnu / utlsrc33.lzh / UTLSRC33 / AR.C < prev    next >
C/C++ Source or Header  |  1993-07-30  |  52KB  |  2,031 lines
  1. /* ar.c - Archive modify and extract.
  2.    Copyright (C) 1988 Free Software Foundation, Inc.
  3.  
  4.                NO WARRANTY
  5.  
  6.   BECAUSE THIS PROGRAM IS LICENSED FREE OF CHARGE, WE PROVIDE ABSOLUTELY
  7. NO WARRANTY, TO THE EXTENT PERMITTED BY APPLICABLE STATE LAW.  EXCEPT
  8. WHEN OTHERWISE STATED IN WRITING, FREE SOFTWARE FOUNDATION, INC,
  9. RICHARD M. STALLMAN AND/OR OTHER PARTIES PROVIDE THIS PROGRAM "AS IS"
  10. WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
  11. BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND
  12. FITNESS FOR A PARTICULAR PURPOSE.  THE ENTIRE RISK AS TO THE QUALITY
  13. AND PERFORMANCE OF THE PROGRAM IS WITH YOU.  SHOULD THE PROGRAM PROVE
  14. DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR
  15. CORRECTION.
  16.  
  17.  IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW WILL RICHARD M.
  18. STALLMAN, THE FREE SOFTWARE FOUNDATION, INC., AND/OR ANY OTHER PARTY
  19. WHO MAY MODIFY AND REDISTRIBUTE THIS PROGRAM AS PERMITTED BELOW, BE
  20. LIABLE TO YOU FOR DAMAGES, INCLUDING ANY LOST PROFITS, LOST MONIES, OR
  21. OTHER SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE
  22. USE OR INABILITY TO USE (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR
  23. DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY THIRD PARTIES OR
  24. A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS) THIS
  25. PROGRAM, EVEN IF YOU HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH
  26. DAMAGES, OR FOR ANY CLAIM BY ANY OTHER PARTY.
  27.  
  28.         GENERAL PUBLIC LICENSE TO COPY
  29.  
  30.   1. You may copy and distribute verbatim copies of this source file
  31. as you receive it, in any medium, provided that you conspicuously
  32. and appropriately publish on each copy a valid copyright notice
  33. "Copyright (C) 1987 Free Software Foundation, Inc.", and include
  34. following the copyright notice a verbatim copy of the above disclaimer
  35. of warranty and of this License.
  36.  
  37.   2. You may modify your copy or copies of this source file or
  38. any portion of it, and copy and distribute such modifications under
  39. the terms of Paragraph 1 above, provided that you also do the following:
  40.  
  41.     a) cause the modified files to carry prominent notices stating
  42.     that you changed the files and the date of any change; and
  43.  
  44.     b) cause the whole of any work that you distribute or publish,
  45.     that in whole or in part contains or is a derivative of this
  46.     program or any part thereof, to be licensed at no charge to all
  47.     third parties on terms identical to those contained in this
  48.     License Agreement (except that you may choose to grant more
  49.     extensive warranty protection to third parties, at your option).
  50.  
  51.     c) You may charge a distribution fee for the physical act of
  52.     transferring a copy, and you may at your option offer warranty
  53.     protection in exchange for a fee.
  54.  
  55.   3. You may copy and distribute this program or any portion of it in
  56. compiled, executable or object code form under the terms of Paragraphs
  57. 1 and 2 above provided that you do the following:
  58.  
  59.     a) cause each such copy to be accompanied by the
  60.     corresponding machine-readable source code, which must
  61.     be distributed under the terms of Paragraphs 1 and 2 above; or,
  62.  
  63.     b) cause each such copy to be accompanied by a
  64.     written offer, with no time limit, to give any third party
  65.     free (except for a nominal shipping charge) a machine readable
  66.     copy of the corresponding source code, to be distributed
  67.     under the terms of Paragraphs 1 and 2 above; or,
  68.  
  69.     c) in the case of a recipient of this program in compiled, executable
  70.     or object code form (without the corresponding source code) you
  71.     shall cause copies you distribute to be accompanied by a copy
  72.     of the written offer of source code which you received along
  73.     with the copy you received.
  74.  
  75.   4. You may not copy, sublicense, distribute or transfer this program
  76. except as expressly provided under this License Agreement.  Any attempt
  77. otherwise to copy, sublicense, distribute or transfer this program is void and
  78. your rights to use the program under this License agreement shall be
  79. automatically terminated.  However, parties who have received computer
  80. software programs from you with this License Agreement will not have
  81. their licenses terminated so long as such parties remain in full compliance.
  82.  
  83.   5. If you wish to incorporate parts of this program into other free
  84. programs whose distribution conditions are different, write to the Free
  85. Software Foundation at 675 Mass Ave, Cambridge, MA 02139.  We have not yet
  86. worked out a simple rule that can be stated here, but we will often permit
  87. this.  We will be guided by the two goals of preserving the free status of
  88. all derivatives of our free software and of promoting the sharing and reuse of
  89. software.
  90.  
  91.  In other words, you are welcome to use, share and improve this program.
  92.  You are forbidden to forbid anyone else to use, share and improve
  93.  what you give them.   Help stamp out software-hoarding!  */
  94.  
  95. #ifdef BYTE_SWAP
  96.  
  97. #define SWAP4(y) (((unsigned)(y)>>24) + (((unsigned)(y)>>8)&0xff00) + \
  98.          (((unsigned)(y)<<8)&0xff0000) + ((unsigned)(y)<<24)) 
  99. #define SWAP2(y) ((((unsigned)(y)&0xff00)>>8) + (((unsigned)(y)&0x00ff)<<8))
  100.  
  101. #endif /* BYTE_SWAP */
  102.  
  103. #ifdef CROSSATARI
  104. #ifdef USG
  105. #define bcopy(a,b,c) memcpy (b,a,c)
  106. #define bzero(a,b) memset (a,0,b)
  107. #define bcmp(a,b,c) memcmp (a,b,c)
  108. #endif
  109. #include "/usr/include/stdio.h"
  110. /* #include "ar.h" */
  111. #include "gnu-ar.h"
  112. #include "gnu-out.h"
  113. #include "/usr/include/errno.h"
  114. #include "/usr/include/sys/file.h"
  115. #include "/usr/include/sys/time.h"
  116. #include "/usr/include/sys/types.h"
  117. #include "/usr/include/sys/stat.h"
  118. #else
  119. #ifdef atarist
  120. #include <stdio.h>
  121. #include "gnu-ar.h"
  122. #include "gnu-out.h"
  123. #include <errno.h>
  124. #include <file.h>
  125. #include <time.h>
  126. #include <types.h>
  127. #include <stat.h>
  128. #else
  129. #ifdef atariminix
  130. /* #define EMUL_OPEN3 */
  131. #include <stdio.h>
  132. #include <errno.h>
  133. #include <sys/types.h>
  134. #include <sys/stat.h>
  135. /* #include "open3.h" */
  136. #include <fcntl.h>    /* ++jrb after poole fs */
  137. #include "gnu-ar.h"
  138. #include "gnu-out.h"
  139. #else
  140. #include <stdio.h>
  141. #include <ar.h>
  142. #include <a.out.h>
  143. #include <errno.h>
  144. #include <sys/file.h>
  145. #include <sys/time.h>
  146. #include <sys/types.h>
  147. #include <sys/stat.h>
  148. #endif /* atariminix */
  149. #endif /* atarist */
  150. #endif /* cross atari */
  151.  
  152.   /* Locking is normally disabled because fcntl hangs on the Sun
  153.      and it isn't supported properly across NFS anyhow.  */
  154.  
  155. #ifdef LOCKS
  156. #include <sys/fcntl.h>
  157. #endif
  158.  
  159. /* Define a name for the length of member name an archive can store.  */
  160.  
  161. struct ar_hdr foo;
  162.  
  163. #define ARNAMESIZE sizeof(foo.ar_name)
  164.  
  165. /* This structure is used internally to represent the info
  166.  on a member of an archive.  This is to make it easier to change format.  */
  167.  
  168. struct member_desc
  169.   {
  170.     char *name;        /* Name of member */
  171. /* The following fields are stored in the member header
  172.    as decimal or octal numerals,
  173.    but in this structure they are stored as machine numbers.  */
  174.     int mode;        /* Protection mode from member header */
  175.     int date;        /* Last modify date as stored in member header */
  176.     int size;        /* size of member's data in bytes, from member header */
  177.     int uid, gid;    /* uid and gid fields copied from member header */
  178.     int offset;        /* Offset in archive of the header of this member */
  179.     int data_offset;    /* Offset of first data byte of the member */
  180. /* The next field does not describe where the member was in the old archive,
  181.  but rather where it will be in the modified archive.
  182.  It is set up by write_archive.  */
  183.     int new_offset;    /* Offset of this member in new archive */
  184.     struct symdef *symdefs;    /* Symdef data for member.
  185.                    Used only for files being inserted.  */
  186.     int nsymdefs;    /* Number of entries of symdef data */
  187.     int string_size;    /* Size of strings needed by symdef data */
  188.   };
  189.  
  190. /* Each symbol is recorded by something like this.  */
  191.  
  192. struct symdef
  193.   {
  194.     union
  195.       {
  196.     long stringoffset;
  197.     char *name;
  198.       } s;
  199.     long offset;
  200.   };
  201.  
  202. /* Nonzero means it's the name of an existing member;
  203.    position new or moved files with respect to this one.  */
  204.  
  205. char *posname;
  206.  
  207.  
  208. /* How to use `posname':
  209.    POS_BEFORE means position before that member.
  210.    POS_AFTER means position after that member.
  211.    POS_DEFAULT if position by default; then `posname' should also be zero. */
  212.  
  213. enum { POS_DEFAULT, POS_BEFORE, POS_AFTER } postype;
  214.  
  215. /* Nonzero means describe each action performed.  */
  216.  
  217. int verbose;
  218.  
  219. /* Nonzero means don't warn about creating the archive file if necessary.  */
  220.  
  221. int silent_create;
  222.  
  223. /* Nonzero means don't replace existing members
  224.  whose dates are more recent than the corresponding files.  */
  225.  
  226. int newer_only;
  227.  
  228. /* Nonzero means preserve dates of members when extracting them.  */
  229.  
  230. int preserve_dates;
  231.  
  232. /* Operation to be performed.  */
  233.  
  234. #define DELETE 1
  235. #define REPLACE 2
  236. #define PRINT_TABLE 3
  237. #define PRINT_FILES 4
  238. #define EXTRACT 5
  239. #define MOVE 6
  240. #define QUICK_APPEND 7
  241.  
  242. int operation;
  243.  
  244. /* Name of archive file.  */
  245.  
  246. char *archive;
  247.  
  248. /* Descriptor on which we have locked the original archive file,
  249.    or -1 if this has not been done.  */
  250.  
  251. int lock_indesc;
  252.  
  253. /* Pointer to tail of `argv', at first subfile name argument,
  254.  or zero if no such were specified.  */
  255.  
  256. char **files;
  257.  
  258. /* Nonzero means write a __.SYMDEF member into the modified archive.  */
  259.  
  260. int symdef_flag;
  261.  
  262. /* Nonzero means __.SYMDEF member exists in old archive.  */
  263.  
  264. int symdef_exists;
  265.  
  266. /* Total number of symdef entries we will have. */
  267.  
  268. long nsymdefs;
  269.  
  270. /* Symdef data from old archive (set up only if we need it) */
  271.  
  272. struct symdef *old_symdefs;
  273.  
  274. /* Number of symdefs in remaining in old_symdefs.  */
  275.  
  276. int num_old_symdefs;
  277.  
  278. /* Number of symdefs old_symdefs had when it was read in.  */
  279.  
  280. long original_num_symdefs;
  281.  
  282. /* String table from old __.SYMDEF member.  */
  283.  
  284. char *old_strings;
  285.  
  286. /* Size of old_strings */
  287.  
  288. long old_strings_size;
  289.  
  290. /* String table to be written into __.SYMDEF member.  */
  291.  
  292. char *new_strings;
  293.  
  294. /* Size of new_strings */
  295.  
  296. long new_strings_size;
  297.  
  298. /* An archive map is a chain of these structures.
  299.   Each structure describes one member of the archive.
  300.   The chain is in the same order as the members are.  */
  301.  
  302. struct mapelt
  303.   {
  304.     struct member_desc info;
  305.     struct mapelt *next;
  306.   };
  307.  
  308. struct mapelt *maplast;
  309.  
  310. /* If nonzero, this is the map-element for the __.SYMDEF member
  311.    and we should update the time of that member just before finishing.  */
  312.  
  313. struct mapelt *symdef_mapelt;
  314.  
  315. /* Header that we wrote for the __.SYMDEF member.  */
  316.  
  317. struct ar_hdr symdef_header;
  318.  
  319. void add_to_map ();
  320. void print_descr ();
  321. char *concat ();
  322. void scan ();
  323. char *requestedp ();
  324. void extract_member ();
  325. void print_contents ();
  326. void write_symdef_member ();
  327. #if 0
  328. void read_old_symdefs ();
  329. #endif
  330.  
  331. main (argc, argv)
  332.      int argc;
  333.      char **argv;
  334. {
  335.   int i;
  336.  
  337.   operation = 0;
  338.   verbose = 0;
  339.   newer_only = 0;
  340.   silent_create = 0;
  341.   posname = 0;
  342.   postype = POS_DEFAULT;
  343.   preserve_dates = 0;
  344.   symdef_flag = 0;
  345.   symdef_exists = 0;
  346.   symdef_mapelt = 0;
  347.   files = 0;
  348.   lock_indesc = -1;
  349.  
  350.   if (argc < 2)
  351.     fatal ("too few command arguments", 0);
  352.   {
  353.     char *key = argv[1];
  354.     char *p = key;
  355.     char c;
  356.  
  357.     while (c = *p++)
  358.       {
  359.     switch (c)
  360.       {
  361.       case 'a':
  362.         postype = POS_AFTER;
  363.         break;
  364.  
  365.       case 'b':
  366.         postype = POS_BEFORE;
  367.         break;
  368.  
  369.       case 'c':
  370.         silent_create = 1;
  371.         break;
  372.  
  373.       case 'd':
  374.         if (operation)
  375.           two_operations ();
  376.  
  377.         operation = DELETE;
  378.         break;
  379.  
  380.       case 'i':
  381.         postype = POS_BEFORE;
  382.         break;
  383.  
  384.       case 'l':
  385.         break;
  386.  
  387.       case 'm':
  388.         if (operation) two_operations ();
  389.         operation = MOVE;
  390.         break;
  391.  
  392.       case 'o':
  393.         preserve_dates = 1;
  394.         break;
  395.  
  396.       case 'p':
  397.         if (operation) two_operations ();
  398.         operation = PRINT_FILES;
  399.         break;
  400.  
  401.       case 'q':
  402.         if (operation) two_operations ();
  403.         operation = QUICK_APPEND;
  404.         break;
  405.  
  406.       case 'r':
  407.         if (operation) two_operations ();;
  408.         operation = REPLACE;
  409.         break;
  410.  
  411.       case 's':
  412.         symdef_flag = 1;
  413.         break;
  414.  
  415.       case 't':
  416.         if (operation) two_operations ();
  417.         operation = PRINT_TABLE;
  418.         break;
  419.  
  420.       case 'u':
  421.         newer_only = 1;
  422.         break;
  423.  
  424.       case 'v':
  425.         verbose = 1;
  426.         break;
  427.  
  428.       case 'x':
  429.         if (operation) two_operations ();
  430.         operation = EXTRACT;
  431.         break;
  432.       }
  433.       }
  434.   
  435.   }
  436.  
  437.   if (!operation && symdef_flag)
  438.     operation = REPLACE;
  439.  
  440.   if (!operation)
  441.     fatal ("no operation specified", 0);
  442.  
  443.   i = 2;
  444.  
  445.   if (postype != POS_DEFAULT)
  446.     posname = argv[i++];
  447.  
  448.   archive = argv[i++];
  449.  
  450.   if (i < argc)
  451.     files = &argv[i];
  452.  
  453.   switch (operation)
  454.     {
  455.     case EXTRACT:
  456.     extract_members (extract_member);
  457.     break;
  458.  
  459.     case PRINT_TABLE:
  460.     extract_members (print_descr);
  461.     break;
  462.  
  463.     case PRINT_FILES:
  464.     extract_members (print_contents);
  465.     break;
  466.  
  467.     case DELETE:
  468.     if (!files) break;
  469.     delete_members ();
  470.     break;
  471.  
  472.     case MOVE:
  473.     if (!files) break;
  474.     move_members ();
  475.     break;
  476.  
  477.     case REPLACE:
  478.     if (!files && !symdef_flag) break;
  479.     replace_members ();
  480.     break;
  481.  
  482.     case QUICK_APPEND:
  483.     if (!files) break;
  484.     quick_append ();
  485.     break;
  486.  
  487.     default:
  488.     fatal ("operation not implemented yet", 0);
  489.     }
  490.     exit(0);
  491. }
  492.  
  493. two_operations ()
  494. {
  495.   fatal ("two different operation switches specified", 0);
  496. }
  497.  
  498. void
  499. scan (function, crflag)
  500.      void (*function) ();
  501.      int crflag;
  502. {
  503.   int desc = open (archive, 0, 0);
  504.  
  505.   if (desc < 0 && crflag)
  506.     /* Creation-warning, if desired, will happen later.  */
  507.     return;
  508.  
  509.   if (desc < 0)
  510.     {
  511.       perror_with_name (archive);
  512.       exit (1);
  513.     }
  514.   {
  515.     char buf[SARMAG];
  516.     int nread = read (desc, buf, SARMAG);
  517.     if (nread != SARMAG || bcmp (buf, ARMAG, SARMAG))
  518.       fatal ("file %s not a valid archive", archive);
  519.   }
  520.  
  521.   /* Now find the members one by one.  */
  522.   {
  523.     int member_offset = SARMAG;
  524.     while (1)
  525.       {
  526.     int nread;
  527.     struct ar_hdr member_header;
  528.     struct member_desc member_desc;
  529.     char name [1 + sizeof member_header.ar_name];
  530.  
  531.     if (lseek (desc, member_offset, 0) < 0)
  532.       perror_with_name (archive);
  533.  
  534. #if (defined(WORD_ALIGNED) && defined(CROSSATARI))
  535.     nread = read (desc, &member_header.ar_name, 
  536.               sizeof (member_header.ar_name));
  537.     nread += read (desc, &member_header.ar_size, 
  538.                sizeof (member_header.ar_size));
  539.     nread += read (desc, &member_header.ar_date, 
  540.                sizeof (member_header.ar_date));
  541.     nread += read (desc, &member_header.ar_mode, 
  542.                sizeof (member_header.ar_mode));
  543.     nread += read (desc, &member_header.ar_uid, 
  544.                sizeof (member_header.ar_uid));
  545.     nread += read (desc, &member_header.ar_gid, 
  546.                sizeof (member_header.ar_gid));
  547.     nread += read (desc, &member_header.ar_fmag, 
  548.                sizeof (member_header.ar_fmag));
  549. #else
  550.     nread = read (desc, &member_header, sizeof (struct ar_hdr));
  551. #endif
  552.     if (!nread) break;    /* No data left means end of file; that is ok */
  553.  
  554. #if (defined(WORD_ALIGNED) && defined(CROSSATARI))
  555.     if (nread != (sizeof (member_header.ar_name) +
  556.               sizeof (member_header.ar_size) +
  557.               sizeof (member_header.ar_date) +
  558.               sizeof (member_header.ar_mode) +
  559.               sizeof (member_header.ar_uid) +
  560.               sizeof (member_header.ar_gid) +
  561.               sizeof (member_header.ar_fmag))
  562.         || bcmp (member_header.ar_fmag, ARFMAG, 2))
  563.       fatal ("file %s not a valid archive", archive);
  564. #else
  565.     if (nread != sizeof (member_header)
  566.         || bcmp (member_header.ar_fmag, ARFMAG, 2))
  567.       fatal ("file %s not a valid archive", archive);
  568. #endif
  569.     bcopy (member_header.ar_name, name, sizeof member_header.ar_name);
  570.     {
  571.       char *p = name + sizeof member_header.ar_name;
  572.       while (p > name && *--p == ' ') *p = 0;
  573.     }
  574.     bzero(&member_desc, sizeof(member_desc));
  575.     member_desc.name = name;
  576.     member_desc.date = atoi (member_header.ar_date);
  577.     member_desc.size = atoi (member_header.ar_size);
  578.     sscanf (member_header.ar_mode, "%o", &member_desc.mode);
  579.     member_desc.uid = atoi (member_header.ar_uid);
  580.     member_desc.gid = atoi (member_header.ar_gid);
  581.     member_desc.offset = member_offset;
  582. #if (defined(WORD_ALIGNED) && defined(CROSSATARI))
  583.     member_desc.data_offset = member_offset + 
  584.       (sizeof (member_header.ar_name) +
  585.        sizeof (member_header.ar_size) +
  586.        sizeof (member_header.ar_date) +
  587.        sizeof (member_header.ar_mode) +
  588.        sizeof (member_header.ar_uid) +
  589.        sizeof (member_header.ar_gid) +
  590.        sizeof (member_header.ar_fmag));
  591. #else
  592.     member_desc.data_offset = member_offset + sizeof (member_header);
  593. #endif 
  594.  
  595.     if (!strcmp (name, "__.SYMDEF"))
  596.       symdef_exists = 1;
  597.  
  598.     function (member_desc, desc);
  599.  
  600. #if (defined(WORD_ALIGNED) && defined(CROSSATARI))
  601.     member_offset += (sizeof (member_header.ar_name) +
  602.               sizeof (member_header.ar_size) +
  603.               sizeof (member_header.ar_date) +
  604.               sizeof (member_header.ar_mode) +
  605.               sizeof (member_header.ar_uid) +
  606.               sizeof (member_header.ar_gid) +
  607.               sizeof (member_header.ar_fmag)) + member_desc.size;
  608. #else
  609.     member_offset += sizeof (member_header) + member_desc.size;
  610. #endif
  611.     if (member_offset & 1) member_offset++;
  612.       }
  613.   }
  614.  
  615.   close (desc);
  616. }
  617.  
  618. /* If the string `name' matches one of the member-name arguments
  619.    from the command line, return nonzero.  Otherwise return 0.
  620.    Only the first `len' characters of `name' need to match.  */
  621. /* In fact, the value is the command argument that `name' matched.  */
  622.  
  623. char *
  624. requestedp (name, len)
  625.      char *name;
  626.      int len;
  627. {
  628.   char **fp = files;
  629.   char *fn;
  630.  
  631.   if (fp == 0)
  632.     return 0;
  633.  
  634.   while (fn = *fp++)
  635.     if (!strncmp (name, fn, len))
  636.       return fn;
  637.  
  638.   return 0;
  639. }
  640.  
  641. void
  642. print_descr (member)
  643.      struct member_desc member;
  644. {
  645.   char *timestring;
  646.   extern char *ctime();
  647.   
  648.   if (!verbose)
  649.     {
  650.       printf ("%s\n", member.name);
  651.       return;
  652.     }
  653.   print_modes (member.mode);
  654.   timestring = ctime (&member.date);
  655.   printf (" %2d/%2d %6d %12.12s %4.4s %s\n",
  656.       member.uid, member.gid,
  657.       member.size, timestring + 4, timestring + 20,
  658.       member.name);
  659. }
  660.  
  661. print_modes (modes)
  662.      int modes;
  663. {
  664.   putchar (modes & 0400 ? 'r' : '-');
  665.   putchar (modes & 0200 ? 'w' : '-');
  666.   putchar (modes & 0100 ? 'x' : '-');
  667.   putchar (modes & 040 ? 'r' : '-');
  668.   putchar (modes & 020 ? 'w' : '-');
  669.   putchar (modes & 010 ? 'x' : '-');
  670.   putchar (modes & 04 ? 'r' : '-');
  671.   putchar (modes & 02 ? 'w' : '-');
  672.   putchar (modes & 01 ? 'x' : '-');
  673. }
  674.  
  675. #define BUFSIZE 1024
  676. void
  677. extract_member (member, arcdesc)
  678.      struct member_desc member;
  679.      int arcdesc;
  680. {
  681.   int ncopied = 0;
  682.   FILE  *ostream;
  683.   extern FILE *fopen();
  684.   long pos;
  685.   
  686.   pos = lseek (arcdesc, member.data_offset, 0);
  687. #ifdef atarist
  688.   ostream = fopen (member.name, "wb");
  689. #else
  690.   ostream = fopen (member.name, "w");
  691. #endif
  692.   if (!ostream)
  693.     {
  694.       perror_with_name (member.name);
  695.       return;
  696.     }
  697.  
  698.   if (verbose)
  699.     printf ("extracting %s\n", member.name);
  700.  
  701.   while (ncopied < member.size)
  702.     {
  703.       char buf [BUFSIZE];
  704.       int tocopy = member.size - ncopied;
  705.       int nread;
  706.       if (tocopy > BUFSIZE) tocopy = BUFSIZE;
  707.       nread = read (arcdesc, buf, tocopy);
  708.       if (nread != tocopy)
  709.     fatal ("file %s not a valid archive", archive);
  710.       fwrite (buf, 1, nread, ostream);
  711.       ncopied += tocopy;
  712.     }
  713.   lseek(arcdesc, pos, 0);
  714.  
  715. #if (defined(atariminix) || defined(USG))
  716.   fclose (ostream);
  717.   chmod (member.name, member.mode);
  718. #else
  719. #ifndef atarist
  720.   fchmod (fileno (ostream), member.mode);
  721. #endif
  722.   fclose (ostream);
  723. #endif
  724.   if (preserve_dates)
  725.     {
  726. #if (defined(atariminix) || defined(atarist) || defined(USG) || defined(CROSSHPUX))
  727. #if defined(USG) || defined(CROSSHPUX)
  728.       struct utimbuf
  729.     {
  730.       time_t actime;
  731.       time_t modtime;
  732.      } tv;
  733.       tv.actime = member.date;
  734.       tv.modtime = member.date;
  735.       utime (member.name, &tv);
  736. #else
  737.       time_t tv[2];
  738.       tv[0] = member.date;
  739.       tv[1] = member.date;
  740.       utime (member.name, tv);
  741. #endif
  742. #else
  743.       struct timeval tv[2];
  744.       tv[0].tv_sec = member.date;
  745.       tv[0].tv_usec = 0;
  746.       tv[1].tv_sec = member.date;
  747.       tv[1].tv_usec = 0;
  748.       utimes (member.name, tv);
  749. #endif
  750.     }
  751. }
  752.  
  753.  
  754. void
  755. print_contents (member, arcdesc)
  756.      struct member_desc member;
  757.      int arcdesc;
  758. {
  759.   int ncopied = 0;
  760.   long pos;
  761.   
  762.   pos = lseek (arcdesc, member.data_offset, 0);
  763.  
  764.   if (verbose)
  765.   printf ("\n<member %s>\n\n", member.name);
  766.  
  767.   while (ncopied < member.size)
  768.     {
  769.       char buf [BUFSIZE];
  770.       int tocopy = member.size - ncopied;
  771.       int nread;
  772.       if (tocopy > BUFSIZE) tocopy = BUFSIZE;
  773.       nread = read (arcdesc, buf, tocopy);
  774.       if (nread != tocopy)
  775.     fatal ("file %s not a valid archive", archive);
  776.       fwrite (buf, 1, nread, stdout);
  777.       ncopied += tocopy;
  778.     }
  779.     lseek(arcdesc, pos, 0);
  780. }
  781.  
  782.  
  783. /* Make a map of the existing members of the archive: their names,
  784.  positions and sizes.  */
  785.  
  786. /* If `nonexistent_ok' is nonzero,
  787.  just return 0 for an archive that does not exist.
  788.  This will cause the ordinary supersede procedure to
  789.  create a new archive.  */
  790.  
  791. struct mapelt *
  792. make_map (nonexistent_ok)
  793.      int nonexistent_ok;
  794. {
  795.   struct mapelt mapstart;
  796.   mapstart.next = 0;
  797.   maplast = &mapstart;
  798.   scan (add_to_map, nonexistent_ok);
  799.   return mapstart.next;
  800. }
  801.  
  802. void
  803. add_to_map (member)
  804.      struct member_desc member;
  805. {
  806.   struct mapelt *mapelt = (struct mapelt *) xmalloc (sizeof (struct mapelt));
  807.   mapelt->info = member;
  808.   mapelt->info.name = concat (mapelt->info.name, "", "");
  809.   maplast->next = mapelt;
  810.   mapelt->next = 0;
  811.   maplast = mapelt;
  812. }
  813.  
  814. /* Return the last element of the specified map.  */
  815.  
  816. struct mapelt *
  817. last_mapelt (map)
  818.      struct mapelt *map;
  819. {
  820.   struct mapelt *tail = map;
  821.   while (tail->next) tail = tail->next;
  822.   return tail;
  823. }
  824.  
  825. /* Return the element of the specified map which precedes elt.  */
  826.  
  827. struct mapelt *
  828. prev_mapelt (map, elt)
  829.      struct mapelt *map, *elt;
  830. {
  831.   struct mapelt *tail = map;
  832.   while (tail->next && tail->next != elt)
  833.     tail = tail->next;
  834.   if (tail->next) return tail;
  835.   return 0;
  836. }
  837.  
  838. /* Return the element of the specified map which has the specified name.  */
  839.  
  840. struct mapelt *
  841. find_mapelt (map, name)
  842.      struct mapelt *map;
  843.      char *name;
  844. {
  845.   struct mapelt *tail = map;
  846.   for (;tail; tail = tail->next)
  847.     if (tail->info.name && !strcmp (tail->info.name, name))
  848.       return tail;
  849.   error ("no member named %s", name);
  850.   return 0;
  851. }
  852.  
  853. struct mapelt *
  854. find_mapelt_noerror (map, name)
  855.      struct mapelt *map;
  856.      char *name;
  857. {
  858.   struct mapelt *tail = map;
  859.   for (;tail; tail = tail->next)
  860.     if (tail->info.name && !strcmp (tail->info.name, name))
  861.       return tail;
  862.   return 0;
  863. }
  864.  
  865. /* Before looking at the archive, if we are going to update it
  866.    based on looking at its current contents, make an exclusive lock on it.
  867.    The lock is released when `write_archive' is called.  */
  868.  
  869. void
  870. lock_for_update ()
  871. {
  872.   /* Open the existing archive file; if that fails, create an empty one.  */
  873.  
  874.   lock_indesc = open (archive, O_RDWR, 0);
  875.  
  876.   if (lock_indesc < 0)
  877.     {
  878.       int outdesc;
  879.  
  880.       if (!silent_create)
  881.     printf ("Creating archive file `%s'\n", archive);
  882.       outdesc = open (archive, O_WRONLY | O_APPEND | O_CREAT, 0666);
  883.       if (outdesc < 0)
  884.     pfatal_with_name (archive);
  885.       write (outdesc, ARMAG, SARMAG);
  886.       close (outdesc);
  887.  
  888.       /* Now we had better be able to open for update!  */
  889.  
  890.       lock_indesc = open (archive, O_RDWR, 0);
  891.       if (lock_indesc < 0)
  892.       {
  893.       unlink(archive);
  894.       pfatal_with_name (archive);
  895.       }
  896.     }
  897.  
  898. #ifdef LOCKS
  899.   /* Lock the old file so that it won't be updated by two programs at once.
  900.      This uses the fcntl locking facility found on Sun systems
  901.      which is also in POSIX.  (Perhaps it comes from sysV.)
  902.  
  903.      Note that merely reading an archive does not require a lock,
  904.      because we use `rename' to update the whole file atomically.  */
  905.  
  906.   {
  907.     struct flock lock;
  908.  
  909.     lock.l_type = F_WRLCK;
  910.     lock.l_whence = 0;
  911.     lock.l_start = 0;
  912.     lock.l_len = 0;
  913.  
  914.     while (1)
  915.       {
  916.     int value = fcntl (lock_indesc, F_SETLKW, &lock);
  917.     if (value >= 0)
  918.       break;
  919.     else if (errno == EINTR)
  920.       continue;
  921.     else
  922.       pfatal_with_name ("locking archive");
  923.       }
  924.   }
  925. #endif
  926. }
  927.  
  928. /* Write a new archive file from a given map.  */
  929. /* When a map is used as the pattern for a new archive,
  930.  each element represents one member to put in it, and
  931.  the order of elements controls the order of writing.
  932.  
  933.  Ordinarily, the element describes a member of the old
  934.  archive, to be copied into the new one.
  935.  
  936.  If the `offset' field of the element's info is 0,
  937.  then the element describes a file to be copied into the
  938.  new archive.  The `name' field is the file's name.
  939.  
  940.  If the `name' field of an element is 0, the element is ignored.
  941.  This makes it easy to specify deletion of archive members.
  942.  
  943.  Every operation that will eventually call `write_archive'
  944.  should call `lock_for_update' before beginning
  945.  to do any I/O on the archive file.
  946. */
  947.  
  948. char *make_tempname ();
  949. void copy_out_member ();
  950.  
  951. write_archive (map, appendflag)
  952.      struct mapelt *map;
  953.      int appendflag;
  954. {
  955.   char *tempname = make_tempname (archive);
  956.   int indesc = lock_indesc;
  957.   int outdesc;
  958.   struct mapelt *tail;
  959.  
  960.   /* Now open the output.  */
  961.  
  962.   if (!appendflag)
  963.     {
  964.       /* Updating an existing archive normally.
  965.      Write output as TEMPNAME and rename at the end.
  966.      There can never be two invocations trying to do this at once,
  967.      because of the lock made on the old archive file.  */
  968.  
  969.       outdesc = open (tempname, O_WRONLY | O_CREAT, 0666);
  970.       if (outdesc < 0)
  971.     pfatal_with_name (tempname);
  972.       write (outdesc, ARMAG, SARMAG);
  973.     }
  974.   else
  975.     {
  976.       /* Fast-append to existing archive.  */
  977.  
  978.       outdesc = open (archive, O_WRONLY | O_APPEND, 0);
  979.     }
  980.  
  981.   /* If archive has or should have a __.SYMDEF member,
  982.      compute the contents for it.  */
  983.  
  984.   if (symdef_flag || symdef_exists)
  985.     {
  986.       if (symdef_exists)
  987.     {
  988. #if 0
  989.       /* This is turned off because there seems to be a bug
  990.          in deleting the symdefs for members that are deleted.
  991.          The easiest way to fix it
  992.          is to regenerate the symdefs from scratch each time,
  993.          which happens if this is not done.  */
  994.       read_old_symdefs (map, indesc);
  995. #endif
  996.     /* needs re-initing ++jrb */
  997.       struct mapelt *this;
  998.  
  999.       /* dont assume symdef is first -- find it */
  1000.       for(this = map; this; this = this->next) {
  1001.         if(this->info.name && !strcmp(this->info.name, "__.SYMDEF"))
  1002.           break;
  1003.       }
  1004.       if(this == NULL)
  1005.         fatal("Inconsistency, SYMDEF not found", "");
  1006.  
  1007.       this->info.offset = 0;
  1008.       this->info.data_offset = 0;
  1009.       this->info.date = 0;
  1010.       this->info.size = 0;
  1011.       this->info.uid = 0;
  1012.       this->info.gid = 0;
  1013.       this->info.mode = 0666;
  1014.       this->info.symdefs = (struct symdef *)NULL;
  1015.       this->info.nsymdefs = 0;
  1016.       this->info.string_size = 0;
  1017.     }
  1018.       else
  1019.     {
  1020.       struct mapelt *this = (struct mapelt *) xmalloc (sizeof (struct mapelt));
  1021.  
  1022.       this->info.name = "__.SYMDEF";
  1023.       this->info.offset = 0;
  1024.       this->info.data_offset = 0;
  1025.       this->info.date = 0;
  1026.       this->info.size = 0;
  1027.       this->info.uid = 0;
  1028.       this->info.gid = 0;
  1029.       this->info.mode = 0666;
  1030.       this->next = map;
  1031.       map = this;
  1032.     }
  1033.  
  1034.       original_num_symdefs = 0;
  1035.       old_strings_size = 0;
  1036.  
  1037.       update_symdefs (map, indesc);
  1038.     }
  1039.  
  1040.   /* Copy the members into the output, either from the old archive
  1041.      or from specified files.  */
  1042.  
  1043.   for (tail = map; tail; tail = tail->next)
  1044.     {
  1045. /* ERS -- added test for tail->info.name */
  1046.       if (tail->info.name && !strcmp (tail->info.name, "__.SYMDEF")
  1047.       &&  tail->info.date==0)
  1048.     write_symdef_member (tail, map, outdesc);
  1049.       else
  1050.     copy_out_member (tail, indesc, outdesc);
  1051.     }
  1052.  
  1053.   /* Mark the __.SYMDEF member as up to date.  */
  1054.  
  1055.   if (symdef_mapelt)
  1056.     touch_symdef_member (outdesc);
  1057.  
  1058.   /* Install the new output under the intended name.  */
  1059.  
  1060. #if (!(defined(atariminix) || defined(atarist) || defined(USG)))
  1061.   fsync (outdesc);
  1062. #endif
  1063.   close (outdesc);
  1064.  
  1065. #ifdef atarist
  1066.   /* Close the archive.  If we renamed a new one, the old one disappears.  */
  1067.   close (lock_indesc);
  1068. #endif
  1069.  
  1070. #ifdef USG
  1071.   if (!appendflag)
  1072.     {
  1073.       unlink (archive);
  1074.       if ((link (tempname, archive) != 0) || (unlink (tempname) != 0))
  1075.         pfatal_with_name (tempname);
  1076.     }
  1077. #else
  1078.   if (!appendflag)
  1079.     if (rename (tempname, archive))
  1080.       pfatal_with_name (tempname);
  1081. #endif
  1082.  
  1083. #ifdef LOCKS
  1084.   {
  1085.     struct flock lock;
  1086.  
  1087.     /* Unlock the old archive.  */
  1088.  
  1089.     lock.l_type = F_UNLCK;
  1090.     lock.l_whence = 0;
  1091.     lock.l_start = 0;
  1092.     lock.l_len = 0;
  1093.  
  1094.     fcntl (lock_indesc, F_SETLK, &lock);
  1095.   }
  1096. #endif
  1097.  
  1098. #ifndef atarist
  1099.   /* Close the archive.  If we renamed a new one, the old one disappears.  */
  1100.   close (lock_indesc);
  1101. #endif
  1102. }
  1103.  
  1104. void
  1105. copy_out_member (mapelt, archive_indesc, outdesc)
  1106.      struct mapelt *mapelt;
  1107.      int archive_indesc;
  1108.      int outdesc;
  1109. {
  1110.   struct ar_hdr header;
  1111.   int indesc;
  1112.  
  1113.   if (!mapelt->info.name)
  1114.     return;    /* This element was cancelled.  */
  1115.  
  1116.   /* Zero the header, then store in the data as text.  */
  1117.   bzero (&header, sizeof (header));
  1118.  
  1119.   strncpy (header.ar_name, mapelt->info.name, sizeof (header.ar_name));
  1120.  
  1121.   sprintf (header.ar_date, "%d", mapelt->info.date);
  1122.   sprintf (header.ar_size, "%d", mapelt->info.size);
  1123.   sprintf (header.ar_uid, "%d", mapelt->info.uid);
  1124.   sprintf (header.ar_gid, "%d", mapelt->info.gid);
  1125.   sprintf (header.ar_mode, "%o", mapelt->info.mode);
  1126.   strncpy (header.ar_fmag, ARFMAG, sizeof (header.ar_fmag));
  1127.  
  1128.   /* Change all remaining nulls in the header into spaces.  */
  1129.  
  1130.   {
  1131.     char *tem = (char *) &header;
  1132. #if (defined(WORD_ALIGNED) && defined(CROSSATARI))
  1133.     char *end = (char *) &header + (sizeof (header.ar_name) +
  1134.                     sizeof (header.ar_size) +
  1135.                     sizeof (header.ar_date) +
  1136.                     sizeof (header.ar_mode) +
  1137.                     sizeof (header.ar_uid) +
  1138.                     sizeof (header.ar_gid) +
  1139.                     sizeof (header.ar_fmag));
  1140. #else
  1141.     char *end = (char *) &header + sizeof (header);
  1142. #endif
  1143.     while (tem < end)
  1144.       {
  1145.     if (*tem == 0)
  1146.       *tem = ' ';
  1147.     tem++;
  1148.       }
  1149.   }
  1150.  
  1151.   if (mapelt->info.data_offset)
  1152.     {
  1153.       indesc = archive_indesc;
  1154.       lseek (indesc, mapelt->info.data_offset, 0);
  1155.     }
  1156.   else
  1157.     {
  1158.       indesc = open (mapelt->info.name, 0, 0);
  1159.       if (indesc < 0)
  1160.     {
  1161.       perror_with_name (mapelt->info.name);
  1162.       return;
  1163.     }
  1164.     }
  1165.  
  1166. #if (defined(WORD_ALIGNED) && defined(CROSSATARI))
  1167.   write (outdesc, &header.ar_name, sizeof (header.ar_name));
  1168.   write (outdesc, &header.ar_size, sizeof (header.ar_size));
  1169.   write (outdesc, &header.ar_date, sizeof (header.ar_date));
  1170.   write (outdesc, &header.ar_mode, sizeof (header.ar_mode));
  1171.   write (outdesc, &header.ar_uid, sizeof (header.ar_uid));
  1172.   write (outdesc, &header.ar_gid, sizeof (header.ar_gid));
  1173.   write (outdesc, &header.ar_fmag, sizeof (header.ar_fmag));
  1174. #else
  1175.   write (outdesc, &header, sizeof (header));
  1176. #endif
  1177.  
  1178.   {
  1179.     char buf[BUFSIZE];
  1180.     int tocopy = mapelt->info.size;
  1181.     while (tocopy > 0)
  1182.       {
  1183.     int thistime = tocopy;
  1184.     if (thistime > BUFSIZE) thistime = BUFSIZE;
  1185.         read (indesc, buf, thistime);
  1186.     write (outdesc, buf, thistime);
  1187.     tocopy -= thistime;
  1188.       }
  1189.   }
  1190.  
  1191.   if (indesc != archive_indesc)
  1192.     close (indesc);
  1193.  
  1194.   if (mapelt->info.size & 1)
  1195.     write (outdesc, "", 1);      /* write (outdesc, "\n", 1); maybe?? jrb */
  1196.  
  1197.   if (verbose)
  1198.     printf ("member %s copied to new archive\n", mapelt->info.name);
  1199. }
  1200.  
  1201. /* Update the time of the __.SYMDEF member; done when we updated
  1202.    that member, just before we close the new archive file.
  1203.    It is open on OUTDESC.  */
  1204.  
  1205. touch_symdef_member (outdesc)
  1206.      int outdesc;
  1207. {
  1208. #ifndef atarist
  1209.   struct stat statbuf;
  1210.   int i;
  1211.  
  1212.   /* See what mtime the archive file has as a result of our writing it.  */
  1213.   fstat (outdesc, &statbuf);
  1214.  
  1215.   /* Advance member's time to that time */
  1216.   bzero (symdef_header.ar_date, sizeof symdef_header.ar_date);
  1217.   sprintf (symdef_header.ar_date, "%d", statbuf.st_mtime);
  1218.   for (i = 0; i < sizeof symdef_header.ar_date; i++)
  1219.     if (symdef_header.ar_date[i] == 0)
  1220.       symdef_header.ar_date[i] = ' ';
  1221.  
  1222.   /* Write back this member's header with the new time.  */
  1223.   if (lseek (outdesc, symdef_mapelt->info.new_offset, 0) >= 0)
  1224.     write (outdesc, &symdef_header, sizeof symdef_header);
  1225. #endif
  1226. }
  1227.  
  1228. char *
  1229. make_tempname (name)
  1230.      char *name;
  1231. {
  1232. #ifdef atarist        /* ERS */
  1233.   char *new, *s;
  1234.   s = new = concat (name, "", "");
  1235.   while (*s) s++;
  1236.   s--;
  1237.   if (*s == '$')
  1238.      *s = '_';
  1239.   else
  1240.      *s = '$';        /* change e.g. GNU.OLB -> GNU.OL$ */
  1241.   return new;
  1242. #else
  1243.   return concat (name, "", "_supersede");
  1244. #endif
  1245. }
  1246.  
  1247. delete_members ()
  1248. {
  1249.   struct mapelt *map = make_map (0);
  1250.   struct mapelt *tail;
  1251.   struct mapelt mapstart;
  1252.   char **p;
  1253.  
  1254.   mapstart.info.name = 0;
  1255.   mapstart.next = map;
  1256.   map = &mapstart;
  1257.  
  1258.   lock_for_update ();
  1259.  
  1260.   if (files)
  1261.     for (p = files; *p; p++)
  1262.       {
  1263.     /* If user says to delete the __.SYMDEF member,
  1264.        don't make a new one to replace it.  */
  1265.     if (!strcmp (*p, "__.SYMDEF"))
  1266.       symdef_exists = 0;
  1267.     delete_from_map (*p, map);
  1268.       }
  1269.  
  1270.   write_archive (map->next, 0);
  1271. }
  1272.  
  1273. delete_from_map (name, map)
  1274.      char *name;
  1275.      struct mapelt *map;
  1276. {
  1277.   struct mapelt *this = find_mapelt (map, name);
  1278.   struct mapelt *prev;
  1279.  
  1280.   if (!this) return;
  1281.   prev = prev_mapelt (map, this);
  1282.   prev->next = this->next;
  1283.   if (verbose)
  1284.     printf ("deleting member %s\n", name);
  1285. }
  1286.  
  1287. move_members ()
  1288. {
  1289.   struct mapelt *map = make_map (0);
  1290.   char **p;
  1291.   struct mapelt *after_mapelt;
  1292.   struct mapelt mapstart;
  1293.   struct mapelt *change_map;
  1294.  
  1295.   mapstart.info.name = 0;
  1296.   mapstart.next = map;
  1297.   change_map = &mapstart;
  1298.  
  1299.   lock_for_update ();
  1300.  
  1301.   switch (postype)
  1302.     {
  1303.     case POS_DEFAULT:
  1304.       after_mapelt = last_mapelt (change_map);
  1305.       break;
  1306.  
  1307.     case POS_AFTER:
  1308.       after_mapelt = find_mapelt (map, posname);
  1309.       break;
  1310.  
  1311.     case POS_BEFORE:
  1312.       after_mapelt = prev_mapelt (change_map, find_mapelt (map, posname));
  1313.     }
  1314.  
  1315.   /* Failure to find specified "before" or "after" member
  1316.      is a fatal error; message has already been printed.  */
  1317.  
  1318.   if (!after_mapelt) exit (1);
  1319.  
  1320.   if (files)
  1321.     for (p = files; *p; p++)
  1322.       {
  1323.     if (move_in_map (*p, change_map, after_mapelt))
  1324.       after_mapelt = after_mapelt->next;
  1325.       }
  1326.  
  1327.   write_archive (map, 0);
  1328. }
  1329.  
  1330. int
  1331. move_in_map (name, map, after)
  1332.      char *name;
  1333.      struct mapelt *map, *after;
  1334. {
  1335.   struct mapelt *this = find_mapelt (map, name);
  1336.   struct mapelt *prev;
  1337.  
  1338.   if (!this) return 0;
  1339.   prev = prev_mapelt (map, this);
  1340.   prev->next = this->next;
  1341.   this->next = after->next;
  1342.   after->next = this;
  1343.   if (verbose)
  1344.     printf ("moving member %s\n", name);
  1345.   return 1;
  1346. }
  1347.  
  1348. /* Insert files into the archive.  */
  1349.  
  1350. replace_members ()
  1351. {
  1352.   struct mapelt *map = make_map (1);
  1353.   struct mapelt mapstart;
  1354.   struct mapelt *after_mapelt;
  1355.   struct mapelt *change_map;
  1356.   char **p;
  1357.  
  1358.   mapstart.info.name = 0;
  1359.   mapstart.next = map;
  1360.   change_map = &mapstart;
  1361.  
  1362.   lock_for_update ();
  1363.  
  1364.   switch (postype)
  1365.     {
  1366.     case POS_DEFAULT:
  1367.       after_mapelt = last_mapelt (change_map);
  1368.       break;
  1369.  
  1370.     case POS_AFTER:
  1371.       after_mapelt = find_mapelt (map, posname);
  1372.       break;
  1373.  
  1374.     case POS_BEFORE:
  1375.       after_mapelt = prev_mapelt (change_map, find_mapelt (map, posname));
  1376.     }
  1377.  
  1378.   /* Failure to find specified "before" or "after" member
  1379.      is a fatal error; message has already been printed.  */
  1380.   if (!after_mapelt) exit (1);
  1381.  
  1382.   if (files)
  1383.     for (p = files; *p; p++)
  1384.       {
  1385.     if (insert_in_map (*p, change_map, after_mapelt))
  1386.       after_mapelt = after_mapelt->next;
  1387.       }
  1388.  
  1389.   write_archive (change_map->next, 0);
  1390. }
  1391.  
  1392. /* Handle the "quick insert" operation.  */
  1393.  
  1394. quick_append ()
  1395. {
  1396.   struct mapelt *map;
  1397.   struct mapelt *after;
  1398.   struct mapelt mapstart;
  1399.   char **p;
  1400.  
  1401.   mapstart.info.name = 0;
  1402.   mapstart.next = 0;
  1403.   map = &mapstart;
  1404.   after = map;
  1405.  
  1406.   lock_for_update ();
  1407.  
  1408.   /* Insert the specified files into the "map",
  1409.      but is a map of the inserted files only,
  1410.      and starts out empty.  */
  1411.   if (files)
  1412.     for (p = files; *p; p++)
  1413.       {
  1414.     if (insert_in_map (*p, map, after))
  1415.       after = after->next;
  1416.       }
  1417.  
  1418.   /* Append these files to the end of the existing archive file.  */
  1419.  
  1420.   write_archive (map->next, 1);
  1421. }
  1422.  
  1423. /* Insert an entry for name NAME into the map MAP after the map entry AFTER.
  1424.    Delete an old entry for NAME.
  1425.    MAP is assumed to start with a dummy entry, which facilitates
  1426.    insertion at the beginning of the list.
  1427.    Return 1 if successful, 0 if did nothing because file NAME doesn't
  1428.    exist or (optionally) is older.  */
  1429.  
  1430. insert_in_map (name, map, after)
  1431.      char *name;
  1432.      struct mapelt *map, *after;
  1433. {
  1434.   struct mapelt *old = find_mapelt_noerror (map, name);
  1435.   struct mapelt *this;
  1436.   struct stat status;
  1437.  
  1438.   if (stat (name, &status))
  1439.     {
  1440.       perror_with_name (name);
  1441.       return 0;
  1442.     }
  1443.   if (old && newer_only && status.st_mtime <= old->info.date)
  1444.     return 0;
  1445.   if (old && verbose)
  1446.     printf ("replacing old member %s\n", old->info.name);
  1447.   if (old) old->info.name = 0;    /* Delete the old one.  */
  1448.   this = (struct mapelt *) xmalloc (sizeof (struct mapelt));
  1449.   this->info.name = name;
  1450.   this->info.offset = 0;
  1451.   this->info.data_offset = 0;
  1452.   this->info.date = status.st_mtime;
  1453.   this->info.size = status.st_size;
  1454.   this->info.uid = status.st_uid;
  1455.   this->info.gid = status.st_gid;
  1456.   this->info.mode = status.st_mode;
  1457.   this->next = after->next;
  1458.   after->next = this;
  1459.   if (verbose)
  1460.     printf ("inserting file %s\n", name);
  1461.   return 1;
  1462. }
  1463.  
  1464. /* Apply a function to each of the specified members.
  1465. */
  1466.  
  1467. extract_members (function)
  1468.      void (*function) ();
  1469. {
  1470.   struct mapelt *map;
  1471.   int arcdesc;
  1472.   char **p;
  1473.  
  1474.   if (!files)
  1475.     {
  1476.       /* Handle case where we want to operate on every member.
  1477.      No need to make a map and search it for this.  */
  1478.       scan (function, 0);
  1479.       return;
  1480.     }
  1481.  
  1482.   arcdesc = open (archive, 0, 0);
  1483.   if (!arcdesc)
  1484.     fatal ("failure opening archive %s for the second time", archive);
  1485.   map = make_map (0);
  1486.  
  1487.   for (p = files; *p; p++)
  1488.     {
  1489.       struct mapelt *this = find_mapelt (map, *p);
  1490.       if (!this) continue;
  1491.       function (this->info, arcdesc);
  1492.     }
  1493.  
  1494.   close (arcdesc);
  1495. }
  1496.  
  1497. /* Write the __.SYMDEF member from data in core.  */
  1498.  
  1499. void
  1500. write_symdef_member (mapelt, map, outdesc)
  1501.      struct mapelt *mapelt;
  1502.      struct mapelt *map;
  1503.      int outdesc;
  1504. {
  1505.   struct ar_hdr header;
  1506.   int indesc;
  1507.   struct mapelt *mapptr;
  1508.   int symdefs_size;
  1509.  
  1510.   if (!mapelt->info.name)
  1511.     return;    /* This element was cancelled.  */
  1512.  
  1513.   /* Clear the header, then store in the data as text.  */
  1514.  
  1515.   bzero (&header, sizeof header);
  1516.  
  1517.   strncpy (header.ar_name, mapelt->info.name, sizeof (header.ar_name));
  1518.  
  1519.   sprintf (header.ar_date, "%d", mapelt->info.date);
  1520.   sprintf (header.ar_size, "%d", mapelt->info.size);
  1521.   sprintf (header.ar_uid, "%d", mapelt->info.uid);
  1522.   sprintf (header.ar_gid, "%d", mapelt->info.gid);
  1523.   sprintf (header.ar_mode, "%o", mapelt->info.mode);
  1524.   strncpy (header.ar_fmag, ARFMAG, sizeof (header.ar_fmag));
  1525.  
  1526.   /* Change all remaining nulls in the header into spaces.  */
  1527.  
  1528.   {
  1529.     char *tem = (char *) &header;
  1530. #if (defined(WORD_ALIGNED) && defined(CROSSATARI))
  1531.     char *end = (char *) &header + (sizeof (header.ar_name) +
  1532.                     sizeof (header.ar_size) +
  1533.                     sizeof (header.ar_date) +
  1534.                     sizeof (header.ar_mode) +
  1535.                     sizeof (header.ar_uid) +
  1536.                     sizeof (header.ar_gid) +
  1537.                     sizeof (header.ar_fmag));
  1538. #else
  1539.     char *end = (char *) &header + sizeof (header);
  1540. #endif
  1541.     while (tem < end)
  1542.       {
  1543.     if (*tem == 0)
  1544.       *tem = ' ';
  1545.     tem++;
  1546.       }
  1547.   }
  1548.  
  1549. #if (defined(WORD_ALIGNED) && defined(CROSSATARI))
  1550.   bcopy (&header, &symdef_header, (sizeof (header.ar_name) +
  1551.                    sizeof (header.ar_size) +
  1552.                    sizeof (header.ar_date) +
  1553.                    sizeof (header.ar_mode) +
  1554.                    sizeof (header.ar_uid) +
  1555.                    sizeof (header.ar_gid) +
  1556.                    sizeof (header.ar_fmag)));
  1557.  
  1558.   write (outdesc, &header.ar_name, sizeof (header.ar_name));
  1559.   write (outdesc, &header.ar_size, sizeof (header.ar_size));
  1560.   write (outdesc, &header.ar_date, sizeof (header.ar_date));
  1561.   write (outdesc, &header.ar_mode, sizeof (header.ar_mode));
  1562.   write (outdesc, &header.ar_uid, sizeof (header.ar_uid));
  1563.   write (outdesc, &header.ar_gid, sizeof (header.ar_gid));
  1564.   write (outdesc, &header.ar_fmag, sizeof (header.ar_fmag));
  1565. #else
  1566.   bcopy (&header, &symdef_header, sizeof header);
  1567.  
  1568.   write (outdesc, &header, sizeof (header));
  1569. #endif 
  1570.  
  1571.   /* Write long containing number of symdefs.  */
  1572.  
  1573.   symdefs_size = nsymdefs * sizeof (struct symdef);
  1574. #ifdef BYTE_SWAP
  1575.   symdefs_size = SWAP4(symdefs_size);
  1576. #endif
  1577.   write (outdesc, &symdefs_size, sizeof symdefs_size);
  1578.  
  1579.   /* Write symdefs surviving from old archive.  */
  1580.  
  1581.   write (outdesc, old_symdefs, num_old_symdefs * sizeof (struct symdef));
  1582.  
  1583.   /* Write symdefs for new members.  */
  1584.  
  1585.   for (mapptr = map; mapptr; mapptr = mapptr->next)
  1586.     {
  1587.       if (mapptr->info.nsymdefs)
  1588.     {
  1589. #ifdef BYTE_SWAP
  1590.       { register struct symdef *s = mapptr->info.symdefs;
  1591.         register int i;
  1592.         for(i = mapptr->info.nsymdefs; i; i--, s++) {
  1593.           s->s.stringoffset  = SWAP4(s->s.stringoffset);
  1594.           s->offset  = SWAP4(s->offset);
  1595.         }
  1596.       }
  1597. #endif
  1598.       write (outdesc, mapptr->info.symdefs,
  1599.          mapptr->info.nsymdefs * sizeof (struct symdef));
  1600.     }
  1601.     }
  1602.  
  1603.   /* Write long containing string table size.  */
  1604.  
  1605. #ifdef BYTE_SWAP
  1606.   new_strings_size = SWAP4(new_strings_size);
  1607. #endif
  1608.   write (outdesc, &new_strings_size, sizeof new_strings_size);
  1609. #ifdef BYTE_SWAP
  1610.   new_strings_size = SWAP4(new_strings_size);
  1611. #endif
  1612.  
  1613.   /* Write string table  */
  1614.  
  1615.   write (outdesc, new_strings, new_strings_size);
  1616.  
  1617.   if (mapelt->info.size & 1)
  1618.     write (outdesc, "", 1);
  1619.  
  1620.   if (verbose)
  1621.     printf ("member %s copied to new archive\n", mapelt->info.name);
  1622. }
  1623.  
  1624. #if 0
  1625. void
  1626. read_old_symdefs (map, archive_indesc)
  1627.      int archive_indesc;
  1628. {
  1629.   struct mapelt *mapelt;
  1630.   char *data;
  1631.   int val;
  1632.   int symdefs_size;
  1633.  
  1634.   mapelt = find_mapelt_noerror (map, "__.SYMDEF");
  1635.   if (!mapelt)
  1636.     abort ();            /* Only call here if an old one exists */
  1637.  
  1638.   data  = (char *) xmalloc (mapelt->info.size);
  1639.   lseek (archive_indesc, mapelt->info.data_offset, 0);
  1640.   val = read (archive_indesc, data, mapelt->info.size);
  1641.  
  1642.   symdefs_size = * (long *) data;
  1643.   original_num_symdefs = symdefs_size / sizeof (struct symdef);
  1644.   old_symdefs = (struct symdef *) (data + sizeof (long));
  1645.   old_strings = (char *) (old_symdefs + original_num_symdefs) + sizeof (long);
  1646.   old_strings_size = * (long *) (old_strings - sizeof (long));
  1647. }
  1648. #endif
  1649.  
  1650. /* Create the info.symdefs for a new member
  1651.    by reading the file it is coming from.
  1652.    This code was taken from the GNU nm.c.  */
  1653.  
  1654. void
  1655. make_new_symdefs (mapelt, archive_indesc)
  1656.      struct mapelt *mapelt;
  1657.      int archive_indesc;
  1658. {
  1659.   int indesc;
  1660.   int len;
  1661.   char *name = mapelt->info.name;
  1662.   struct exec header;   /* file header read in here */
  1663.   int string_size;
  1664.   struct nlist *symbols_and_strings;
  1665.   int symcount;
  1666.   int totalsize;
  1667.   char *strings;
  1668.   int i;
  1669.   int offset;
  1670.  
  1671.   if (mapelt->info.data_offset)
  1672.     {
  1673.       indesc = archive_indesc;
  1674.       lseek (indesc, mapelt->info.data_offset, 0);
  1675.       offset = mapelt->info.data_offset;
  1676.     }
  1677.   else
  1678.     {
  1679.       indesc = open (mapelt->info.name, 0, 0);
  1680.       if (indesc < 0)
  1681.     {
  1682.       perror_with_name (mapelt->info.name);
  1683.       return;
  1684.     }
  1685.       offset = 0;
  1686.     }
  1687.  
  1688.   len = read (indesc, &header, sizeof header);
  1689. #ifdef BYTE_SWAP
  1690.    header.a_info   = SWAP4(header.a_info);
  1691.    header.a_text   = SWAP4(header.a_text);
  1692.    header.a_data   = SWAP4(header.a_data);
  1693.    header.a_bss    = SWAP4(header.a_bss);
  1694.    header.a_syms   = SWAP4(header.a_syms);
  1695.    header.a_entry  = SWAP4(header.a_entry);
  1696.    header.a_trsize = SWAP4(header.a_trsize);
  1697.    header.a_drsize = SWAP4(header.a_drsize);
  1698. #endif
  1699.   if (len != sizeof header)
  1700.     error_with_file ("failure reading header of ", mapelt);
  1701.   else if (N_BADMAG(header))
  1702.     error_with_file ("bad format (not an object file) in ", mapelt);
  1703.  
  1704.   /* read the string-table-length out of the file */
  1705.  
  1706.   lseek (indesc, N_STROFF(header) + offset, 0);
  1707.   if (sizeof string_size != read (indesc, &string_size, sizeof string_size))
  1708.     {
  1709.       error_with_file ("bad string table in ", mapelt);
  1710.       if (mapelt->info.data_offset) /* ++ */
  1711.     close (indesc);    /* We just opened it.  Give up */
  1712.       return;
  1713.     }
  1714. #ifdef BYTE_SWAP
  1715.   string_size = SWAP4(string_size);
  1716. #endif
  1717.   /* number of symbol entries in the file */
  1718.   symcount = header.a_syms / sizeof (struct nlist);
  1719.  
  1720.   totalsize = string_size + header.a_syms;
  1721.   /* allocate space for symbol entries and string table */
  1722.   symbols_and_strings = (struct nlist *) xmalloc (totalsize);
  1723.   strings = (char *) symbols_and_strings + header.a_syms;
  1724.  
  1725.   /* read them both in all at once */
  1726.   lseek (indesc, N_SYMOFF(header) + offset, 0);
  1727.   if (totalsize != read (indesc, symbols_and_strings, totalsize))
  1728.     {
  1729.       error_with_file ("premature end of file in symbols/strings of ");
  1730.       if (mapelt->info.data_offset)
  1731.     close (indesc);    /* Give up! */
  1732.       return;
  1733.     }
  1734.  
  1735.   if (indesc != archive_indesc)
  1736.     close (indesc);
  1737.  
  1738. #ifdef BYTE_SWAP
  1739.    { register struct nlist *from = symbols_and_strings;
  1740.      register struct nlist *end = symbols_and_strings + symcount;
  1741.      for(;from < end; from++) {
  1742.       from->n_un.n_strx = SWAP4(from->n_un.n_strx); 
  1743.       from->n_desc      = SWAP2(from->n_desc);
  1744.      }
  1745.    }
  1746. #endif /* BYTE_SWAP */
  1747.   /* discard the symbols we don't want to mention; compact the rest down */
  1748.  
  1749.   symcount = filter_symbols (symbols_and_strings, symcount, strings);
  1750.  
  1751.   /* We have a vector of struct nlist; we want a vector of struct symdef.
  1752.      Convert it in place, reusing the space.
  1753.      This works since a struct nlist is longer than a struct symdef.
  1754.  
  1755.      Also make each symdef point directly at the symbol name string.  */
  1756.  
  1757.   mapelt->info.symdefs = (struct symdef *) symbols_and_strings;
  1758.   mapelt->info.nsymdefs = symcount;
  1759.   mapelt->info.string_size = 0;
  1760.  
  1761.   for (i = 0; i < symcount; i++)
  1762.     {
  1763.       mapelt->info.symdefs[i].s.name = strings + symbols_and_strings[i].n_un.n_strx;
  1764.       mapelt->info.string_size += strlen (mapelt->info.symdefs[i].s.name) + 1;
  1765.     }
  1766. }
  1767.  
  1768. /* Choose which symbol entries to mention in __.SYMDEF;
  1769.   compact them downward to get rid of the rest.
  1770.   Return the number of symbols left.  */
  1771.  
  1772. int
  1773. filter_symbols (syms, symcount, strings)
  1774.      struct nlist *syms;
  1775.      int symcount;
  1776.      char *strings;
  1777. {
  1778.   struct nlist *from = syms, *to = syms;
  1779.   struct nlist *end = syms + symcount;
  1780.  
  1781.   while (from < end)
  1782.     {
  1783.       if ((from->n_type & N_EXT)
  1784.       && (from->n_type != N_EXT || from->n_value))
  1785.     *to++ = *from;
  1786.       from++;
  1787.     }
  1788.  
  1789.   return to - syms;
  1790. }
  1791.  
  1792.  
  1793. /* Update the __.SYMDEF data before writing a new archive.  */
  1794.  
  1795. update_symdefs (map, archive_indesc)
  1796.      struct mapelt *map;
  1797.      int archive_indesc;
  1798. {
  1799.   struct mapelt *tail;
  1800.   int pos;
  1801.   int i,j;
  1802.   int len;
  1803.   struct symdef *s;
  1804. /*  struct timeval timeofday; */
  1805.  
  1806.   nsymdefs = original_num_symdefs;
  1807.   num_old_symdefs = original_num_symdefs;
  1808.   new_strings_size = old_strings_size;
  1809.  
  1810.   if (nsymdefs != 0)
  1811.     {
  1812.       /* We already had a __.SYMDEF member, so just update it.  */
  1813.  
  1814.       /* Mark as canceled any old symdefs for members being deleted.  */
  1815.  
  1816.       for (tail = map; tail; tail = tail->next)
  1817.     {
  1818.       if (tail->info.name == 0)
  1819.         /* Old member being deleted.  Delete its symdef entries too.  */
  1820.         {
  1821.           for (i = 0; i < nsymdefs; i++)
  1822.         if (old_symdefs[i].offset == tail->info.offset)
  1823.           {
  1824.             old_symdefs[i].offset = 0;
  1825.             nsymdefs--;
  1826.             num_old_symdefs--;
  1827.             new_strings_size
  1828.               -= strlen (old_strings + old_symdefs[i].s.stringoffset);
  1829.           }
  1830.         }
  1831.     }
  1832.  
  1833.       /* Now compactify old_symdefs */
  1834.  
  1835.       for (i = 0, j = 0; i < num_old_symdefs; i++)
  1836.     if (old_symdefs[i].offset)
  1837.       old_symdefs[j++] = old_symdefs[i];
  1838.  
  1839.       /* Create symdef data for any new members.  */
  1840.  
  1841.       for (tail = map; tail; tail = tail->next)
  1842.     {
  1843.     /* ERS -- added check for tail->info.name != 0 */
  1844.       if ((tail->info.offset) ||
  1845.           !(tail->info.name) || !strcmp (tail->info.name, "__.SYMDEF"))
  1846.         continue;
  1847.       make_new_symdefs (tail, archive_indesc);
  1848.       nsymdefs += tail->info.nsymdefs;
  1849.       new_strings_size += tail->info.string_size;
  1850.     }
  1851.     }
  1852.   else
  1853.     {
  1854.       /* Create symdef data for all existing members.  */
  1855.  
  1856.       for (tail = map; tail; tail = tail->next)
  1857.     { /* added tail->info.name as per other ERS changes  ++jrb */
  1858.       if (!(tail->info.name) || !strcmp (tail->info.name, "__.SYMDEF"))
  1859.         continue;
  1860.       make_new_symdefs (tail, archive_indesc);
  1861.       nsymdefs += tail->info.nsymdefs;
  1862.       new_strings_size += tail->info.string_size;
  1863.     }
  1864.     }
  1865.  
  1866.   /* Now we know the size of __.SYMDEF,
  1867.      so assign the positions of all the members. */
  1868.  
  1869.   tail = find_mapelt_noerror (map, "__.SYMDEF");
  1870.   tail->info.size = nsymdefs * sizeof (struct symdef) + sizeof (long) + sizeof (long) + new_strings_size;
  1871.   symdef_mapelt = tail;
  1872.  
  1873.   pos = SARMAG;
  1874.   for (tail = map; tail; tail = tail->next)
  1875.     {
  1876.       if (!tail->info.name) continue;    /* Ignore deleted members */
  1877.       tail->info.new_offset = pos;
  1878. #if (defined(WORD_ALIGNED) && defined(CROSSATARI))
  1879.       pos += tail->info.size + (sizeof (foo.ar_name) +
  1880.                 sizeof (foo.ar_size) +
  1881.                 sizeof (foo.ar_date) +
  1882.                 sizeof (foo.ar_mode) +
  1883.                 sizeof (foo.ar_uid) +
  1884.                 sizeof (foo.ar_gid) +
  1885.                 sizeof (foo.ar_fmag));
  1886. #else
  1887.       pos += tail->info.size + sizeof (struct ar_hdr);
  1888. #endif
  1889.       if (tail->info.size & 1) pos++;
  1890.     }
  1891.  
  1892.   /* Now update the offsets in the symdef data
  1893.      to be the new offsets rather than the old ones.  */
  1894.  
  1895.   for (tail = map; tail; tail = tail->next)
  1896.     {
  1897.       if (!tail->info.name) continue;
  1898.       if (!tail->info.symdefs)
  1899.     /* Member without new symdef data.
  1900.        Check the old symdef data; it may be included there. */
  1901.     for (i = 0; i < num_old_symdefs; i++)
  1902.       {
  1903.         if (old_symdefs[i].offset == tail->info.offset)
  1904.           old_symdefs[i].offset = tail->info.new_offset;
  1905.       }
  1906.       else
  1907.     for (i = 0; i < tail->info.nsymdefs; i++)
  1908.       tail->info.symdefs[i].offset = tail->info.new_offset;
  1909.     }
  1910.  
  1911.   /* Generate new, combined string table
  1912.      and put each string's offset into the symdef that refers to it.
  1913.      Note that old symdefs ref their strings by offsets into old_strings
  1914.      but new symdefs contain addresses of strings.  */
  1915.  
  1916.   new_strings = (char *) xmalloc (new_strings_size);
  1917.   pos = 0;
  1918.  
  1919.   for (i = 0; i < num_old_symdefs; i++)
  1920.     {
  1921.       if (old_symdefs[i].offset == 0) continue;
  1922.       strcpy (new_strings + pos, old_strings + old_symdefs[i].s.stringoffset);
  1923.       old_symdefs[i].s.stringoffset = pos;
  1924.       pos += strlen (new_strings + pos) + 1;
  1925.     }
  1926.   for (tail = map; tail; tail = tail->next)
  1927.     {
  1928.       len = tail->info.nsymdefs;
  1929.       s = tail->info.symdefs;
  1930.  
  1931.       for (i = 0; i < len; i++)
  1932.     {
  1933.       strcpy (new_strings + pos, s[i].s.name);
  1934.       s[i].s.stringoffset = pos;
  1935.       pos += strlen (new_strings + pos) + 1;
  1936.     }
  1937.     }
  1938.   if (pos != new_strings_size)
  1939.     fatal ("inconsistency in new_strings_size", 0);
  1940. }
  1941.  
  1942. /* Print error message and exit.  */
  1943.  
  1944. fatal (s1, s2)
  1945.      char *s1, *s2;
  1946. {
  1947.   error (s1, s2);
  1948.   exit (1);
  1949. }
  1950.  
  1951. /* Print error message.  `s1' is printf control string, `s2' is arg for it. */
  1952.  
  1953. error (s1, s2)
  1954.      char *s1, *s2;
  1955. {
  1956.   fprintf (stderr, "ar: ");
  1957.   fprintf (stderr, s1, s2);
  1958.   fprintf (stderr, "\n");
  1959. }
  1960.  
  1961. error_with_file (string, mapelt)
  1962.      char *string;
  1963.      struct mapelt *mapelt;
  1964. {
  1965.   fprintf (stderr, "ar: ");
  1966.   fprintf (stderr, string);
  1967.   if (mapelt->info.offset)
  1968.     fprintf (stderr, "%s(%s)", archive, mapelt->info.name);
  1969.   else
  1970.     fprintf (stderr, "%s", mapelt->info.name);
  1971.   fprintf (stderr, "\n");
  1972. }
  1973.  
  1974. perror_with_name (name)
  1975.      char *name;
  1976. {
  1977.   extern int errno, sys_nerr;
  1978.   extern char *sys_errlist[];
  1979.   char *s;
  1980.  
  1981.   if (errno < sys_nerr)
  1982.     s = concat ("", sys_errlist[errno], " for %s");
  1983.   else
  1984.     s = "cannot open %s";
  1985.   error (s, name);
  1986. }
  1987.  
  1988. pfatal_with_name (name)
  1989.      char *name;
  1990. {
  1991.   extern int errno, sys_nerr;
  1992.   extern char *sys_errlist[];
  1993.   char *s;
  1994.  
  1995.   if (errno < sys_nerr)
  1996.     s = concat ("", sys_errlist[errno], " for %s");
  1997.   else
  1998.     s = "cannot open %s";
  1999.   fatal (s, name);
  2000. }
  2001.  
  2002. /* Return a newly-allocated string whose contents concatenate those of s1, s2, s3.  */
  2003.  
  2004. char *
  2005. concat (s1, s2, s3)
  2006.      char *s1, *s2, *s3;
  2007. {
  2008.   int len1 = strlen (s1), len2 = strlen (s2), len3 = strlen (s3);
  2009.   char *result = (char *) xmalloc (len1 + len2 + len3 + 1);
  2010.  
  2011.   strcpy (result, s1);
  2012.   strcpy (result + len1, s2);
  2013.   strcpy (result + len1 + len2, s3);
  2014.   *(result + len1 + len2 + len3) = 0;
  2015.  
  2016.   return result;
  2017. }
  2018.  
  2019. /* Like malloc but get fatal error if memory is exhausted.  */
  2020.  
  2021. int
  2022. xmalloc (size)
  2023.      int size;
  2024. {
  2025. /*   int result = malloc (size);  */
  2026.   int result = calloc (1, size);
  2027.   if (!result)
  2028.     fatal ("virtual memory exhausted", 0);
  2029.   return result;
  2030. }
  2031.