/*
 *** cgimain.c: CGI interface ***
 */

/*
#include <stdio.h>
#include <string.h>
#include <ctype.h>
#include "cgi.c"
*/
#include "baresir.h"

#define	NBUF		200000
#define	Llen		100

/*
 *** option flags ***
 */

int cgimode    = 0;		// 0: 直接実行 1: CGI モード
int echoflag   = 1;		// 入力データのエコー
#ifdef NOLOG
int logflag    = 0;		// log
#else
int logflag    = 1;		// log
#endif

/*
 */
static char cgibuf[NBUF], cgimsg[100];
static int nb = 0;
char *filename = NULL;

char smffile[100], srcfile[100], datfile[100];
char UID[100];

/*
 */

void
endprog(msg)
	char *msg;
{
	if (msg) printf("\n*** %s ***\n", msg);
	exit(0);
}

char *
getln(buf)
	char *buf;
{
	int i;

	for (i=0; cgibuf[nb]; i++, nb++) {
		if (cgibuf[nb] == '\n') { nb++; break; }
		buf[i] = cgibuf[nb];
	}
	buf[i] = 0;
	if ((i == 0) && (cgibuf[nb] == 0)) return(NULL);
	return(buf);
}

#define	drawln()	drawline(NULL)

void
drawline(msg)
	char *msg;
{
	int i, l=0;
	if (msg != NULL) { printf(msg); l = strlen(msg); }
	for (i=l; i<Llen; i++) printf("="); printf("\n");
}

void
read_file()
{
	int i, flag=0;
	FILE *fin = (filename == NULL)? stdin: fopen(filename, "r"), *fout;

	if (fin == NULL) {
		sprintf(cgimsg, "%s: ファイルが開けません", filename);
		endprog(cgimsg);
	}
	for (nb = 0; nb < NBUF; nb++) {
		cgibuf[nb] = getc(fin);
		if (cgibuf[nb] == EOF) { cgibuf[nb] = 0; break; }
	}
	if (nb == NBUF) {
		endprog("入力データが大きすぎます");
	}
	nb = 0;
	if (filename) fclose(fin);

	strcpy(smffile, "out.mid");
	strcpy(srcfile, "out.mml");
	strcpy(datfile, "out.txt");
}

/*
*/

void
cgimain(argc, argv, arge)
	int argc; char **argv, **arge;
{
	int i, j;
	FILE *fsrc;

	filename = NULL;

	for (i=1; i<argc; i++) switch (argv[i][0]) {
		case '-':
			if (argv[i][1] == 'e') echoflag = 0;
			if (argv[i][1] == 'l') logflag = 0;
			break;
		case '+':
			if (argv[i][1] == 'e') echoflag = 1;
			if (argv[i][1] == 'l') logflag = 1;
			break;
		default:
			filename = argv[i];
			break;
	}
	read_file(filename);
	/*
	if ((fsrc = fopen(srcfile, "w")) != NULL) {
		for (i=0; cgibuf[i]; i++) fprintf(fsrc, "%c", cgibuf[i]);
		fclose(fsrc);
	}
	*/

	/*
	endprog();
	*/
}