home *** CD-ROM | disk | FTP | other *** search
/ Amiga Elysian Archive / AmigaElysianArchive.iso / compress / zoosrc20.zoo / bilf.c < prev    next >
C/C++ Source or Header  |  1989-07-25  |  6KB  |  230 lines
  1. /*
  2. This program performs conversion of files between stream-LF format
  3. (as used by zoo) and fixed-length record binary format (used for Kermit
  4. transfers of zoo archives).
  5.  
  6. This program is:
  7.    (C) Copyright 1987 Rahul Dhesi.
  8.    All Rights Reserved.
  9.  
  10. Permission is hereby granted to copy and modify this for any purpose,
  11. whether commercial or noncommercial, provided only that the above
  12. copyright notice and this paragraph be preserved and included
  13. in all copies.
  14.  
  15.                                  -- Rahul Dhesi 
  16. 1987/07/25
  17. */
  18.  
  19. #include <stdio.h>
  20. #include <ssdef.h>
  21. #define STAT_NORM SS$_NORMAL
  22. #define STAT_ABORT SS$_ABORT
  23.  
  24. char *strrchr();
  25. char *strdup ();
  26.  
  27. main (argc, argv)
  28. int argc;
  29. char *argv[];
  30. {
  31.    char *inname;
  32.    char *outname;
  33.    char *option;
  34.    int status;
  35.  
  36.    if (argc < 3 || argc > 4) {
  37.       printf ("BILF version 1.00 for VAX/VMS by Rahul Dhesi (1987/07/25)\n\n");
  38.       printf ("(C) Copyright 1987 Rahul Dhesi,  All Rights Reserved\n");
  39.       printf ("Permission to use and distribute is granted provided this copyright\n"); 
  40.       printf ("notice is preserved and included in all copies.\n\n");
  41.       printf ("Usage:  BILF {lb} infile [ outfile ]\n\n");
  42.       printf ("Choose one character from within braces.  If outfile is not supplied\n");
  43.       printf ("it has the same name as infile but a higher version number.\n");
  44.       printf ("Options are:\n\n");
  45.       printf ("l:  Write output file in stream-LF format.  This is the format that\n");
  46.       printf ("    zoo expects all zoo archives to be in.  If a zoo archive was\n");
  47.       printf ("    uploaded to a VAX/VMS system, it will need to be converted to\n");
  48.       printf ("    stream-LF format before manipulating with zoo.\n\n");
  49.       printf ("b:  Write output file in fixed-length 512-byte binary record format.  Before\n");
  50.       printf ("    a zoo archive can be downloaded from a VAX/VMS system to a\n");
  51.       printf ("    microcomputer using VAX/VMS Kermit, it must be converted to\n");
  52.       printf ("    this binary format.  Failure to do so will result in a corrupted\n");
  53.       printf ("    download.\n");
  54.       exit (STAT_NORM);
  55.    }
  56.  
  57.    inname = argv[2];
  58.    option = argv[1];
  59.  
  60.    if (argc == 3) {                    /* use same filename for output */
  61.       char *p;
  62.       outname = strdup (inname);
  63.       p = strrchr (outname, ';');      /* strip trailing version field */
  64.       if (p != NULL)
  65.          *p = '\0';
  66.    } else
  67.       outname = argv[3];
  68.  
  69.    if (*option == 'l')
  70.       status = cvtstream (outname, inname);
  71.    else if (*option == 'b')
  72.       status = cvtbin (outname, inname);
  73.    else
  74.       prterror ('f', "Option %s is invalid\n", option);
  75.    if (status == -1)
  76.       prterror ('w', "An error occurred -- output file may be corrupted\n");
  77.    exit (STAT_NORM);
  78. }
  79.  
  80. #define  MYBUFSIZ    8192
  81.  
  82. /* writes input file to output file in stream format */
  83. int cvtstream (outname, inname)
  84. char *outname, *inname;
  85. {
  86.    FILE *infile, *outfile;
  87.    char buffer[MYBUFSIZ];
  88.    int count;
  89.  
  90.    infile = fopen (inname, "r");
  91.    if (infile == NULL)
  92.       prterror ('f', "Could not open input file %s\n", inname);
  93.    outfile = fopen (outname, "w");
  94.    if (outfile == NULL)
  95.       prterror ('f', "Could not open output file %s\n", outname);
  96.  
  97.    while ((count = fread (buffer, 1, sizeof (buffer), infile)) > 0)
  98.       count = fwrite (buffer, 1, count, outfile);
  99.  
  100.    close (infile); close (outfile);
  101.    if (count == -1)
  102.       return (-1);
  103.    else
  104.       return (0);
  105. }
  106.  
  107. /*
  108. VMS C doesn't have strdup().
  109. */
  110. char *strdup (str)
  111. char *str;
  112. {
  113.    char *malloc();
  114.    char *newstr = malloc (strlen (str) + 1);
  115.  
  116.    if (newstr != NULL) {
  117.       strcpy (newstr, str);
  118.       return (newstr);
  119.    } else
  120.       return ((char *) NULL);
  121. }
  122.  
  123. /* BLKSIZ must correspond to block size specified below in creat() */
  124. #define BLKSIZ 512
  125.  
  126. /*
  127. Writes input file to output in fixed-length BLKSIZ-byte record format.
  128. */
  129.  
  130. #if 1
  131. #include <file.h>
  132. #else
  133. #include <fcntl.h>
  134. #endif
  135.  
  136. int convert ();
  137.  
  138. int cvtbin (outname, inname)
  139. char *outname, *inname;
  140. {
  141.    int status, inhan, outhan;
  142.    inhan = open (inname, O_RDONLY);
  143.    if (inhan == -1)
  144.       prterror ('f', "Could not open input file %s\n", inname);
  145.    outhan = creat (outname, 0, "rfm=fix", "mrs=512");
  146.    if (outhan == -1)
  147.       prterror ('f', "Could not open output file %s\n", outname);
  148.    status = convert (outhan, inhan);
  149.    close (inhan);
  150.    close (outhan);
  151.    return (status);
  152. }
  153.  
  154. /*
  155. Function convert() reads from inhan and writes to outhan, always
  156. writing in BLKSIZ-byte blocks, padding with nulls if necessary
  157. */
  158.  
  159. int convert (outhan, inhan)
  160. int inhan, outhan;
  161. {
  162.    char junk[BLKSIZ];
  163.    int count;
  164.    int done = 0;
  165.    do {
  166.       count = vmsread (inhan, junk, BLKSIZ);
  167.       if (count <= 0)
  168.          break;
  169.       if (count < BLKSIZ) {
  170.          int i;
  171.          for (i = count; i < BLKSIZ; i++)
  172.             junk[i] = 0;
  173.          done++;
  174.       }
  175.       count = write (outhan, junk, BLKSIZ);
  176.       if (count == -1)
  177.          break;
  178.    } while (!done);
  179.    if (count == -1)
  180.       return (-1);
  181.    else
  182.       return (0);
  183. }
  184.  
  185. /**** Function vmsread() does a standard read() but gets around bugs
  186. in the read() function of VAX/VMS C which make it unable to always
  187. read the entire amount requested in a single read() call.
  188. */
  189. int vmsread (han, buf, amount)
  190. int han;
  191. char *buf;
  192. int amount;
  193. {
  194.    int count;
  195.    int thiscount;
  196.    count = 0;
  197.    while (count != -1 && count < amount) {
  198.       thiscount = read (han, &buf[count], amount - count);
  199.       if (thiscount == 0)
  200.          thiscount = read (han, &buf[count], amount - count);
  201.       if (thiscount == 0)
  202.           break;
  203.       if (thiscount == -1)
  204.          count = -1;
  205.       else
  206.  
  207.          count += thiscount;
  208.    }
  209.    return (count);
  210. }
  211.  
  212. prterror (level, msg1, msg2)
  213. char level;
  214. char *msg1, *msg2;
  215. {
  216.    if (level == 'e' || level == 'w' || level == 'f')
  217.       printf ("BILF: ");
  218.  
  219.    switch (level) {
  220.       case 'e': printf ("ERROR: ");    break;
  221.       case 'w': printf ("WARNING: ");  break;
  222.       case 'f': printf ("FATAL: ");    break;
  223.       default:  prterror ('f', "Internal error in prterror()\n");
  224.    }
  225.  
  226.    printf (msg1, msg2);
  227.    if (level == 'f')
  228.       exit (STAT_ABORT);
  229. }
  230.