/* joiner.c - joins files together */
/* Version 1.1 25-JAN-96 */
/* Copyright © 1996 Sean Riddle */

/* Freely distributable on any medium given all copyrights are retained */
/* by the author and no charge greater than $7.00 is made for obtaining */
/* this software */

/* Please send all bug reports and update ideas to: */
/* sriddle@ionet.net */

/* latest version at: */
/* <a href="http://www.ionet.net/~sriddle">Please don't hurl on my URL!</a> */

/* usage: joiner <file> <FILL:size:byte> <...> */
/* output to stdout, so use redirection */

/* ex: joiner rom1 rom2 rom3 FILL:4096:FF rom4 FILL:4096:0 rom5 > bigrom */

/* compiled on Amiga SAS/C 6.56 */

#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <sys/stat.h>

#define BUFSIZE 256

void main(int argc,char *argv[]) {
   FILE *fpin;
   int i,j;
   int size;
   unsigned char byte;
   unsigned char fill[BUFSIZE];
   struct stat st;

   if(argc>1) {
      for(i=1;i<argc;i++) {
         if(!strnicmp(argv[i],"fill:",5)) {
            size=atoi(&argv[i][5]);
            for(j=5;(argv[i][j]!=':')&&(j<strlen(argv[i]));j++)
               ;
            if(j<strlen(argv[i]))
               byte=atoi(&argv[i][j+1]);
            else {
               fprintf(stderr,"bad argument: `%s'\n",argv[i]);
               exit(20);
            }
            for(j=0;j<BUFSIZE;j++)
               fill[j]=byte;
            for(j=0;j<(size/BUFSIZE);j++)
               fwrite(fill,BUFSIZE,1,stdout);
            if(size%BUFSIZE)
               fwrite(fill,size%BUFSIZE,1,stdout);
         } else {
            if(!stat(argv[i],&st)) {
               size=st.st_size;
               if(fpin=fopen(argv[i],"rb")) {
                  for(j=0;j<(size/BUFSIZE);j++) {
                     fread(fill,BUFSIZE,1,fpin);
                     fwrite(fill,BUFSIZE,1,stdout);
                  }
                  if(size%BUFSIZE) {
                     fread(fill,size%BUFSIZE,1,fpin);
                     fwrite(fill,size%BUFSIZE,1,stdout);
                  }
                  fclose(fpin);
               } else {
                  fprintf(stderr,"Can't open file `%s'\n",argv[i]);
                  exit(20);
               }
            } else {
               fprintf(stderr,"Can't get status about `%s'\n",argv[i]);
               exit(20);
            }
         }
      }
   } else
      fprintf(stderr,"Usage: `%s <file> <FILL:size:byte> <...>'\n",argv[0]);
}