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

/*
   =============================================================================
        instdir.c -- read an instrument library and print its directory
        Version 2 -- 1988-08-03 -- 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         "m7slot00.orc"          /* library name */

extern  int     errno;

char    libname[64];

struct  instdef idefs[1];
struct  mlibhdr ldhead;

/* 

*/

/*
   =============================================================================
        skipit() -- skip past data in a file,  with error checking
   =============================================================================
*/

short
skipit(fp, len)
register FILE *fp;
register long len;
{
        if (fseek(fp, len, 1))
                return(FAILURE);
        else
                return(SUCCESS);
}

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

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

/* 

*/

/*
   =============================================================================
        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);
}

/* 

*/

/*
   =============================================================================
        print the directory of an instrument library
   =============================================================================
*/

main(argc, argv)
int argc;
char *argv[];
{
        register FILE *fp;
        register struct instdef *ip;
        register short i;

        strcpy(libname, LIBNAME);

        if (argc EQ 2)
                strcpy(libname, argv[1]);

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

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

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

        printf("Directory of Orchestra in [%s]\n", libname);
        printf("N_  Name             Comments\n");
        printf("--  ---------------- ---------------- ---------------- ----------------\n");

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

                ip = &idefs;

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

                if (skipit(fp, (long)OR_LEN2))
                        die(fp);

                if (skipit(fp, (long)OR_LEN2))
                        die(fp);

                printf("%2d: %-16.16s", i + 1, ip->idhname);
                printf(" %-16.16s", ip->idhcom1);
                printf(" %-16.16s", ip->idhcom2);
                printf(" %-16.16s\n", ip->idhcom3);
        }

        fclose(fp);
        exit(0);
}