/*
 * main.c - Convert Eeschema schematics to FIG
 *
 * Written 2016 by Werner Almesberger
 * Copyright 2016 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 <stdbool.h>
#include <stdlib.h>
#include <stdio.h>
#include <unistd.h>
#include <string.h>

#include "util.h"
#include "fig.h"
#include "cro.h"
#include "diff.h"
#include "gfx.h"
#include "file.h"
#include "lib.h"
#include "sch.h"
#include "main.h"


int verbose = 0;


static struct gfx_ops const *ops_list[] = {
	&fig_ops,
	&cro_png_ops,
	&cro_pdf_ops,
	&diff_ops,
};


void usage(const char *name)
{
	fprintf(stderr,
"usage: %s [-r] [-v ...] [file.lib ...] file.sch -- driver_spec\n"
"       %s [-v ...] -C file\n\n"
"  FIG driver spec:\n"
"    fig [-t template.fig] [var=value ...]\n"
"  Cairo PNG driver spec:\n"
"    png [-o output.png] [-s scale]\n"
"  Cairo PDF driver spec:\n"
"    pdf [-o output.pdf] [-s scale]\n"
"  Diff driver spec:\n"
"    diff [-o output.pdf] [-s scale] [file.lib ...] file.sch\n"
    , name, name);
	exit(1);
}


int main(int argc, char *const *argv)
{
	struct lib lib;
	struct sch_ctx sch_ctx;
	bool recurse = 0;
	const char *cat = NULL;
	char c;
	int arg, dashdash;
	int gfx_argc;
	char **gfx_argv;
	const struct gfx_ops **ops = ops_list;

	for (dashdash = 1; dashdash != argc; dashdash++)
		if (!strcmp(argv[dashdash], "--"))
			break;

	while ((c = getopt(dashdash, argv, "rvC:")) != EOF)
		switch (c) {
		case 'r':
			recurse = 1;
			break;
		case 'v':
			verbose++;
			break;
		case 'C':
			cat = optarg;
			break;
		default:
			usage(*argv);
		}

	if (cat) {
		if (argc != optind)
			usage(*argv);
		file_read(cat, file_cat, NULL);
		return 0;
	}

	if (dashdash - optind < 1)
		usage(*argv);

	lib_init(&lib);
	for (arg = optind; arg != dashdash - 1; arg++)
		lib_parse(&lib, argv[arg]);

	if (dashdash == argc) {
		gfx_argc = 1;
		gfx_argv = alloc_size(sizeof(const char *) * 2);
		gfx_argv[0] = (char *) (*ops)->name;
		gfx_argv[1] = NULL;
	} else {
		gfx_argc = argc - dashdash - 1;
		if (!gfx_argc)
			usage(*argv);
		gfx_argv = alloc_size(sizeof(const char *) * (gfx_argc + 1));
		memcpy(gfx_argv, argv + dashdash + 1,
		    sizeof(const char *) * (gfx_argc + 1));

		for (ops = ops_list; ops != ARRAY_END(ops_list); ops++)
			if (!strcmp((*ops)->name, *gfx_argv))
				goto found;
		fprintf(stderr, "graphics backend \"%s\" not found\n",
		    *gfx_argv);
		exit(1);
found:
		;
	}

	optind = 0; /* reset getopt */

	sch_init(&sch_ctx, recurse);
	sch_parse(&sch_ctx, argv[dashdash - 1], &lib);
	gfx_init(*ops, gfx_argc, gfx_argv);
	if (recurse) {
		const struct sheet *sheet;

		if (!gfx_multi_sheet()) {
			fprintf(stderr,
			    "graphics backend only supports single sheet\n");
			exit(1);
		}
		for (sheet = sch_ctx.sheets; sheet; sheet = sheet->next) {
			sch_render(sheet);
			if (sheet->next)
				gfx_new_sheet();
		}
	} else {
		sch_render(sch_ctx.sheets);
	}
	gfx_end();

	return 0;
}