
#include	"../H/ugens.h"
#include        <ctype.h>
#include        <stdio.h>
#include 	<math.h>
#include        "defs.h"     /* parser */
extern        mixerr;
extern  int   NBYTES;
extern  int   sfd;
extern  double dispatch();



/* parse: points to tree to be executed once yacc gets done */
Tree     program;            

                 /*  ug_list MUST be initialized with something...	*/
struct	ug_item	ug_head =
	{ 0, 0, "" };
struct	ug_item *ug_list = &ug_head;

#define CMAX 16     /* allow up to 16 command line args to be passed to subs */
FILE *fp;

ib()
{	char string[22];;
	fscanf(stdin,"%s",string);
	fprintf(stderr,"in ib %s\n",string);
	rewind(stdin);
	yyparse();    /* create intermediate representation */
}

double parse_dispatch(str,args,n)
char *str;
int n;
double args[];
{
	int i1;
	printf ("============================\n");
	printf ("%s:  ",str);
	for (i1=0;i1<n;i1++) {
		printf ("%g ",args[i1]);
	}
	printf ("\n");
	return /*(dispatch(str,args,n))*/;
};

yywrap () {return 1;}
