/* sto3.c PEH and RAP Version 1 25/07/07 */

#include<stdlib.h>
#include<stdio.h>
#include"blimp.h"

int main(int argc, char **argv)
{
    FILE *f1, *f2;
    int i,k;
    int *gp;
    if(argc<3)
    {
        printf("usage st03 <input1> <input2> . . . <output>\n");
        return 0;
    }
    gp=(int*) malloc(GRPSIZ*sizeof(int));
    if(gp == NULL)
    {
        printf("Error allocating memory\n");
        exit(23);
    }
    f2 = (FILE*)fopen(argv[argc-1],"w");
    if(f2 == NULL)
    {
        printf("Error opening output file %s\n",argv[argc-1]);
        exit(24);
    }
    for(i=1;i<argc-1;i++)
    {
	f1 = (FILE*)fopen(argv[i],"r");
	if(f1==NULL) 
	{
	    printf("no file %s\n",argv[i]);
	    exit(23);
	}
	while(1)
	{
	    k=ReadGroup(gp,f1);
	    if(k==-1) break;
	    WriteGroup(gp,f2);
	}
	fclose(f1);
    }
    WriteEOF(f2);
    fclose(f2);
}

/* end of st03.c */