/*
 *	Text handling routines for simple embedded SQL
 */

#include <stdio.h>
#include <string.h>
extern FILE *yyout;	/* lex output file */

char save_buf[2000];	/* buffer for SQL command */
char *savebp;		/* current buffer pointer */

#define NPARAM	20	/* max params per function */
char *varnames[NPARAM];	/* parameter names */

/* start an embedded command after EXEC SQL */
start_save(void)
{

	savebp = save_buf;
} /* start_save */

/* save a SQL token */
save_str(char *s)
{

	strcpy(savebp, s);
	savebp += strlen(s);
} /* save_str */

/* save a parameter reference */
save_param(char *n)
{
	int i;
	char pbuf[10];

	/* look up the variable name in the table */
	
	for(i = 1; i < NPARAM; i++) {
		if(!varnames[i]) {

			/* not there, enter it */
			varnames[i] = strdup(n);
			break;
		}

		if(!strcmp(varnames[i],n))
			break;	/* already present */
	}

	if(i >= NPARAM) {
		yyerror("Too many parameter references");
		exit(1);
	}

	/* save #n referece by variable number */
	sprintf(pbuf, " #%d", i);
	save_str(pbuf);

} /* save_param */

/* end of SQL command, now write it out */
end_sql(void)
{
	int i;
	register char *cp;

	savebp--;	/* back over the closing semicolon */

	/* call exec_sql function */
	
	fprintf(yyout, "exec_sql(\"");

	/* write out saved buffer as a big C string
	 * starting new lines as needed
	 */
	
	for(cp = save_buf, i = 20; cp < savebp; cp++, i++) {
		if(i > 70) {	/* need new line */
			fprintf(yyout, "\\\n");
			i = 0;
		}
		putc(*cp, yyout);
	}
	putc('"', yyout);

	/* pass address of every referenced variable */
	for(i = 1; i < NPARAM; i++) {
		if(!varnames[i])
			break;
		fprintf(yyout, ",\n\t&%s", varnames[i]);
		free(varnames[i]);
		varnames[i] = 0;
	}

	fprintf(yyout, ");\n");

	/* return scanner to regular mode */
	un_sql();

} /* end_sql */