* src/hgs.c: added.

1 files changed, 98 insertions, 0 deletions

diff --git a/src/hgs.c b/src/hgs.c
new file mode 100644
index 0000000..816243b
--- /dev/null
+++ b/src/hgs.c
@@ -0,0 +1,98 @@
+/* 
+ * hgs.c
+ * Copyright (C) 2006 Akira TAGOH
+ * 
+ * Authors:
+ *   Akira TAGOH  <at@gclab.org>
+ * 
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2 of the License, or (at your option) any later version.
+ * 
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ * Lesser General Public License for more details.
+ * 
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the
+ * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+ * Boston, MA 02111-1307, USA.
+ */
+#include <hieroglyph/hgmem.h>
+#include <hieroglyph/vm.h>
+
+
+GList *plugin_list = NULL;
+
+static gboolean
+_hgs_arg_define_cb(const char *option_name,
+		   const char *value,
+		   gpointer    data)
+{
+	return TRUE;
+}
+
+static gboolean
+_hgs_arg_load_plugin_cb(const char *option_name,
+			const char *value,
+			gpointer    data)
+{
+	gboolean retval = TRUE;
+
+	if (value && *value) {
+		plugin_list = g_list_append(plugin_list, g_strdup(value));
+	} else {
+		retval = FALSE;
+	}
+
+	return retval;
+}
+
+int
+main(int    argc,
+     char **argv)
+{
+	HgVM *vm;
+	GOptionContext *ctxt = g_option_context_new("<PostScript file>");
+	GOptionEntry entries[] = {
+		{"define", 'd', 0, G_OPTION_ARG_CALLBACK, _hgs_arg_define_cb, "Define a variable in systemdict.", "SYMBOL[=VALUE]"},
+		{"load-plugin", 'l', 0, G_OPTION_ARG_CALLBACK, _hgs_arg_load_plugin_cb, "Load a plugin", "NAME"},
+		{NULL}
+	};
+
+	GError *error = NULL;
+	const gchar *psfile = NULL;
+	GList *l;
+
+	g_option_context_add_main_entries(ctxt, entries, NULL);
+	if (!g_option_context_parse(ctxt, &argc, &argv, &error)) {
+		g_print("Option parse error.\n");
+		return 1;
+	}
+
+	HG_MEM_INIT;
+	hg_vm_init();
+
+	vm = hg_vm_new(VM_EMULATION_LEVEL_1);
+	for (l = plugin_list; l != NULL; l = g_list_next(l)) {
+		hg_vm_load_plugin(vm, l->data);
+		g_free(l->data);
+	}
+	g_list_free(plugin_list);
+	plugin_list = NULL;
+
+	if (argc > 1)
+		psfile = argv[1];
+
+	if (!hg_vm_startjob(vm, psfile, TRUE)) {
+		g_print("Failed to start a job.\n");
+		return 1;
+	}
+
+	hg_vm_finalize();
+	g_option_context_free(ctxt);
+
+	return 0;
+}