source: buchla-68k/orig/BUCHLA/INSDFLT.C

/*
   =============================================================================
        insdflt.c -- read the default isntrument and create a C data file
        Version 3 -- 1988-04-19 -- D.N. Lynx Crowe
   =============================================================================
*/

#define M7CAT           1               /* so libdsp.h gets it right */

#include "stdio.h"
#include "stddefs.h"
#include "graphdef.h"
#include "vsdd.h"

#include "midas.h"
#include "instdsp.h"
#include "libdsp.h"

#define LIBNAME         "m7dflt.orc"            /* library name */
#define THEINST         0                       /* library offset:  0 = 1 */

#define DFLTNAME        "dfltins.h"
#define MAXPERL         8

extern  int     errno;

struct  instdef idefs[NINORC];
struct  mlibhdr ldhead;

/* 

*/

/*
   =============================================================================
        readit() -- read a file,  with error checking
   =============================================================================
*/

short
readit(fp, to, len)
register FILE *fp;
register char *to;
register long len;
{
        register long count;
        register int c;

        for (count = 0; count < len; count++) {

                if (EOF EQ (c = getc(fp))) {

                        printf("ERROR: Unexpected EOF -- errno = %d\n", errno);
                        fclose(fp);
                        return(FAILURE);

                } else {

                        *to++ = c;
                }
        }

        return(SUCCESS);
}

/*
   =============================================================================
        die() -- close a file and terminate the program
   =============================================================================
*/

die(fp)
FILE *fp;
{
        fclose(fp);
        printf("Program terminated\n");
        exit(1);
}

/* 

*/

/*
   =============================================================================
        convert an instrument definition to a data block in a header file
   =============================================================================
*/

main()
{
        register FILE *fp;
        register unsigned *wp;
        register struct instdef *ip;
        register short i, npl, count;

        if ((FILE *)NULL EQ (fp = fopenb(LIBNAME, "r"))) {

                printf("Unable to open [%s]\n", LIBNAME);
                exit(1);
        }

        printf("Reading orchestra from [%s]\n", LIBNAME);

        printf("   header\n");

        if (readit(fp, &ldhead, (long)LH_LEN))
                die(fp);

        for (i = 0; i < NINORC; i++) {

                ip = &idefs[i];

                printf("   instrument %d\n", i + 1);

                if (readit(fp, ip, (long)OR_LEN1))
                        die(fp);

                if (readit(fp, ip->idhwvao, (long)OR_LEN2))
                        die(fp);

                if (readit(fp, ip->idhwvbo, (long)OR_LEN2))
                        die(fp);

                /* unpack offsets (and eventually harmonics) into finals */

                memcpyw(ip->idhwvaf, ip->idhwvao, NUMWPNT);
                memcpyw(ip->idhwvbf, ip->idhwvbo, NUMWPNT);
        }

        fclose(fp);
/* 

*/
        if ((FILE *)NULL EQ (fp = fopena(DFLTNAME, "w"))) {

                printf("Unable to open [%s] for output\n", DFLTNAME);
                exit(1);
        }

        printf("Writing default instrument (%d) to [%s]\n",
                (THEINST + 1), DFLTNAME);

        count = sizeof (struct instdef) / 2;
        wp = (unsigned *)&idefs[THEINST];
        npl = 0;

        fprintf(fp, "short\tdfltins[] = {\t\t/* default instrument */\n\n\t");

        while (count--) {

                fprintf(fp, "0x%04.4x", *wp++);

                if (++npl EQ MAXPERL) {

                        if (count)
                                fprintf(fp, ",\n\t");

                        npl = 0;

                } else {

                        if (count)
                                fprintf(fp, ", ");
                }
        }

        fprintf(fp, "\n};\n");
        fclose(fp);
        printf("Default instrument file written.\n");
        exit(0);
}