home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 9 Archive / 09-Archive.zip / unzip540.zip / amiga / makesfx.c < prev    next >
C/C++ Source or Header  |  1998-01-21  |  6KB  |  177 lines
  1. /* MakeSFX: join UnZipSFX and a .zip archive into a single self-extracting   */
  2. /* Amiga program.  On most systems simple concatenation does the job but for */
  3. /* the Amiga a special tool is needed.  By Paul Kienitz, no rights reserved. */
  4. /* This program is written portably, so if anyone really wants to they can   */
  5. /* produce Amiga self-extracting programs on a non-Amiga.  We are careful    */
  6. /* not to mix Motorola-format longwords read from files with native long     */
  7. /* integers.  Not necessarily limited to use with only the Zip format --     */
  8. /* just combine any archive with any self-extractor program that is capable  */
  9. /* of reading a HUNK_DEBUG section at the end as an archive.                 */
  10.  
  11. #include <stat.h>
  12. #include <string.h>
  13. #include <stdio.h>
  14. #include <stdlib.h>
  15. #ifdef __SASC
  16. #  include <proto/dos.h>
  17. #  ifdef DEBUG
  18. #    include <sprof.h>
  19. #  endif
  20. #endif /* __SASC */
  21. #ifdef AZTEC_C
  22. #  include <dos/dos.h>
  23. #  include <clib/dos_protos.h>
  24. #endif /* AZTEC_C */
  25.  
  26. typedef unsigned long ulg;
  27. typedef unsigned char uch;
  28. typedef unsigned short bool;
  29. #define false 0
  30. #define true  1
  31.  
  32. /* the following are extracted from Commodore include file dos/doshunks.h: */
  33. #define HUNK_NAME       1000L
  34. #define HUNK_CODE       1001L
  35. #define HUNK_DATA       1002L
  36. #define HUNK_BSS        1003L
  37. #define HUNK_RELOC32    1004L
  38. #define HUNK_SYMBOL     1008L
  39. #define HUNK_DEBUG      1009L
  40. #define HUNK_END        1010L
  41. #define HUNK_HEADER     1011L
  42. #define HUNK_OVERLAY    1013L
  43. #define HUNK_BREAK      1014L
  44.  
  45. /* Convert a big-endian (Motorola) sequence of four bytes to a longword: */
  46. #define CHARS2LONG(b)   (((ulg)(b)[0] << 24) | ((ulg)(b)[1] << 16) | \
  47.                          ((ulg)(b)[2] << 8) | ((ulg)(b)[3]))
  48. /* b must be (uch *) in each of these.  Now the reverse: */
  49. #define LONG2CHARS(b,l) ((b)[0] = (uch)((l) >> 24), (b)[1] = (uch)((l) >> 16),\
  50.                          (b)[2] = (uch)((l) >> 8), (b)[3] = (uch)(l))
  51.  
  52. #define COPYBUFFER      16384
  53.  
  54. ulg totalwritten = 0;
  55.  
  56.  
  57. bool CopyData(FILE *out, FILE *inn, ulg archivesize,
  58.               char *outname, char *inname)
  59. {
  60.     static uch buf[COPYBUFFER];
  61.     ulg written;
  62.     size_t chunk;
  63.  
  64.     if (archivesize) {
  65.         LONG2CHARS(buf, HUNK_DEBUG);
  66.         written = (archivesize + 3) / 4;
  67.         LONG2CHARS(buf + 4, written);
  68.         if (fwrite(buf, 1, 8, out) < 8) {
  69.             printf("Error writing in-between data to %s\n", outname);
  70.             return false;
  71.         }
  72.         totalwritten += 8;
  73.     }
  74.     written = 0;
  75.     do {
  76.         chunk = fread(buf, 1, COPYBUFFER, inn);
  77.         if (ferror(inn)) {
  78.             printf("Error reading data from %s\n", inname);
  79.             return false;
  80.         }
  81.         if (!archivesize && !written) {   /* true only for first block read */
  82.             if (CHARS2LONG(buf) != HUNK_HEADER) {
  83.                 printf("%s is not an Amiga executable.\n", inname);
  84.                 return false;
  85.             }
  86.         }
  87.         if (fwrite(buf, 1, chunk, out) < chunk) {
  88.             printf("Error writing %s to %s\n", archivesize ? "archive data" :
  89.                                                "self-extractor code", outname);
  90.             return false;
  91.         }
  92.         written += chunk;
  93.         totalwritten += chunk;
  94.     } while (!feof(inn));
  95.     if (archivesize) {
  96.         if (written != archivesize) {
  97.             printf("Wrong number of bytes copied from archive %s\n", outname);
  98.             return false;
  99.         }
  100.         LONG2CHARS(buf, 0);
  101.         chunk = 3 - (written + 3) % 4;
  102.         LONG2CHARS(buf + chunk, HUNK_END);
  103.         chunk += 4;
  104.         if (fwrite(buf, 1, chunk, out) < chunk) {
  105.             printf("Error writing end-marker data to %s\n", outname);
  106.             return false;
  107.         }
  108.         totalwritten += chunk;
  109.     }
  110.     return true;
  111. }
  112.  
  113.  
  114. void main(int argc, char **argv)
  115. {
  116.     FILE *out, *arch, *tool;
  117.     char *toolname = argv[3];
  118.     struct stat ss;
  119.     int ret;
  120.     ulg archivesize;
  121.  
  122.     if (argc < 3 || argc > 4) {
  123.         printf("Usage: %s <result-file> <zip-archive> [<self-extractor-"
  124.                "program>]\nThe third arg defaults to \"UnZipSFX\" in the"
  125.                " current dir or C:.\n", argv[0]);
  126.         exit(20);
  127.     }
  128.     if (!(arch = fopen(argv[2], "rb"))) {
  129.         printf("Could not find archive file %s\n", argv[2]);
  130.         exit(10);
  131.     }
  132.     if (stat(argv[2], &ss) || !(archivesize = ss.st_size)) {
  133.         fclose(arch);
  134.         printf("Could not check size of archive %s, or file is empty.\n",
  135.                argv[2]);
  136.         exit(10);
  137.     }
  138.     if (argc < 4)
  139.         toolname = "UnZipSFX";
  140.     if (!(tool = fopen(toolname, "rb"))) {
  141.         BPTR lk = Lock("C:", ACCESS_READ);
  142.         BPTR ocd = lk ? CurrentDir(lk) : 0;
  143.         if (!(tool = fopen(toolname, "rb"))) {
  144.             fclose(arch);
  145.             printf("Could not find self-extractor program %s\n", toolname);
  146.             if (lk)
  147.                 UnLock(CurrentDir(ocd));
  148.             exit(10);
  149.         }
  150.         if (lk)
  151.             UnLock(CurrentDir(ocd));
  152.     }
  153.     if (!(out = fopen(argv[1], "wb"))) {
  154.         fclose(arch);
  155.         fclose(tool);
  156.         printf("Could not create output file %s\n", argv[1]);
  157.         exit(10);
  158.     }
  159.     ret = CopyData(out, tool, 0, argv[1], toolname)
  160.           && CopyData(out, arch, archivesize, argv[1], argv[2]) ? 0 : 10;
  161.     fclose(out);
  162.     fclose(arch);
  163.     fclose(tool);
  164.     if (ret) {
  165.         printf("Deleting %s\n", argv[1]);
  166.         remove(argv[1]);
  167.     } else
  168.         printf("%s successfully written, size %lu bytes.\n",
  169.                 argv[1], totalwritten);
  170.     exit(ret);
  171. }
  172.  
  173.  
  174. #if (defined(AZTEC_C) && defined(MCH_AMIGA))
  175. void _wb_parse(void) { }        /* avoid unneeded infrastructure */
  176. #endif
  177.