/* debug stuff for language debuging
 * by Marek Zelem and Lubos Janica 
 */

#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <fcntl.h>

#include "log.h"
#include "language.h"
#include "lex.h"
#include "runtime.h"

extern tab_t conflang_tab[];
extern void lex_out(lex_t * l, sym_t s);
#define	S		(N|0)

int print_name(char *s, void *f)
{
	s[0] = 0;
	return 1;
}

void add_fsentry(udata act, udata recursive, char *subor, udata * prog,
		 int proglen)
{
	printf("ADD_FSENTRY: %lx %ld %s proglen=%d\n",
	       act, recursive, subor, proglen);

}

char *me = "debuglang";
int add_module(int (*func) (void *, char *, void *, char **))
{
	return 0;
}
int apply(int mode, struct med_s *orig, udata * prog)
{
	return 0;
}
char *med_cmd(void *m, char *s)
{
	return 0;
}

udata load_force_code(char *file)
{
	return 0;
}
udata force_do(struct med_s * m, udata fc, var_t * arg, int n)
{
	return 0;
}

int main(int argc, char *argv[])
{
	int a, fd;
	sym_t r;
	fd = 0;
	a = 1;
	while (a < argc) {
		close(fd);
		if ((fd = open(argv[a], O_RDONLY)) < 0) {
			fprintf(stderr, "Can't open file %s\n", argv[a]);
			return -1;
		}
		a++;
	}
	lex_line = 1;
	lex_char = 0;
	r = sa_automat(conflang_tab, S, getlex, lex_out, fd);
	if (lang_errors != 0 || r != 0)
		fatal("Error(s) in config file!");
	return 0;
}