/*
 * fped.c - Footprint editor, main function
 *
 * Written 2009-2011 by Werner Almesberger
 * Copyright 2009-2011 by Werner Almesberger
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 */


#include <stdlib.h>
#include <stdio.h>
#include <unistd.h>
#include <string.h>
#include <errno.h>

#include "cpp.h"
#include "util.h"
#include "error.h"
#include "obj.h"
#include "inst.h"
#include "file.h"
#include "postscript.h"
#include "dump.h"
#include "gui.h"
#include "delete.h"
#include "fpd.h"
#include "fped.h"


char *save_file_name = NULL;
int no_save = 0;


static void load_file(const char *name)
{
	FILE *file;
	char line[sizeof(MACHINE_GENERATED)];

	file = fopen(name, "r");
	if (file) {
		if (!fgets(line, sizeof(line), file)) {
			if (ferror(file)) {
				perror(name);
				exit(1);
			}
			*line = 0;
		}
		no_save = strcmp(line, MACHINE_GENERATED);
		fclose(file);
		reporter = report_parse_error;
		run_cpp_on_file(name);
	} else {
		if (errno != ENOENT) {
			perror(name);
			exit(1);
		}
		scan_empty();
	}
	(void) yyparse();
}


static void usage(const char *name)
{
	fprintf(stderr,
"usage: %s [-k] [-p|-P [-s scale] [-1 package]] [-T [-T]] [cpp_option ...]\n"
"       %*s [in_file [out_file]]\n\n"
"  -1 name     output only the specified package\n"
"  -k          write KiCad output, then exit\n"
"  -p          write Postscript output, then exit\n"
"  -P          write Postscript output (full page), then exit\n"
"  -s scale    scale factor for -P (default: auto-scale)\n"
"  -T          test mode. Load file, then exit\n"
"  -T -T       test mode. Load file, dump to stdout, then exit\n"
"  cpp_option  -Idir, -Dname[=value], or -Uname\n"
    , name, (int) strlen(name), "");
	exit(1);
}


int main(int argc, char **argv)
{
	char *name = *argv;
	char **fake_argv;
	char *args[2];
	int fake_argc;
	char opt[] = "-?";
	char *end;
	int error;
	int batch = 0;
	int test_mode = 0;
	const char *one = NULL;
	int batch_write_kicad = 0;
	int batch_write_ps = 0, batch_write_ps_fullpage = 0;
	int c;

	while ((c = getopt(argc, argv, "1:kps:D:I:PTU:")) != EOF)
		switch (c) {
		case '1':
			one = optarg;
			break;
		case 'k':
			batch_write_kicad = 1;
			break;
		case 'p':
			batch_write_ps = 1;
			break;
		case 'P':
			batch_write_ps_fullpage = 1;
			break;
		case 's':
			if (!batch_write_ps_fullpage)
				usage(*argv);
			postscript_params.zoom = strtod(optarg, &end);
			if (*end)
				usage(*argv);
			break;
		case 'T':
			batch = 1;
			test_mode++;
			break;
		case 'D':
		case 'U':
		case 'I':
			opt[1] = c;
			add_cpp_arg(opt);
			add_cpp_arg(optarg);
			break;
		default:
			usage(name);
		}

	if (batch_write_ps && batch_write_ps_fullpage)
		usage(name);

	if (one && !(batch_write_ps || batch_write_ps_fullpage))
		usage(name);

	if (batch_write_kicad || batch_write_ps || batch_write_ps_fullpage)
		batch = 1;

	if (!batch) {
		args[0] = name;
		args[1] = NULL;
		fake_argc = 1;
		fake_argv = args;
		error = gui_init(&fake_argc, &fake_argv);
		if (error)
			return error;
	}

	switch (argc-optind) {
	case 0:
		scan_empty();
		(void) yyparse();
		break;
	case 1:
		load_file(argv[optind]);
		save_file_name = argv[optind];
		break;
	case 2:
		load_file(argv[optind]);
		save_file_name = argv[optind+1];
		if (!strcmp(save_file_name, "-"))
			save_file_name = NULL;
		break;
	default:
		usage(name);
	}

	if (!pkg_name)
		pkg_name = stralloc("_");

	reporter = report_to_stderr;
	if (!instantiate())
		return 1;

	if (batch_write_kicad)
		write_kicad();
	if (batch_write_ps)
		write_ps(one);
	if (batch_write_ps_fullpage)
		write_ps_fullpage(one);
	if (!batch) {
		error = gui_main();
		if (error)
			return error;
	}
	if (test_mode > 1)
		dump(stdout, NULL);

	purge();
	inst_revert();
	obj_cleanup();
	unique_cleanup();

	return 0;
}