Initial commit

10 files changed, 930 insertions, 0 deletions

diff --git a/src/.gitignore b/src/.gitignore
new file mode 100644
index 0000000..2f6973f
--- /dev/null
+++ b/src/.gitignore
@@ -0,0 +1,2 @@
+cmdline.h
+eclat
diff --git a/src/Makefile.am b/src/Makefile.am
new file mode 100644
index 0000000..a16aff8
--- /dev/null
+++ b/src/Makefile.am
@@ -0,0 +1,44 @@
+# This file is part of Eclat 
+# Copyright (C) 2012 Sergey Poznyakoff
+#
+# Eclat 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 3, or (at your option)
+# any later version.
+#
+# Eclat 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 General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with Eclat.  If not, see <http://www.gnu.org/licenses/>.
+
+bin_PROGRAMS=eclat
+
+eclat_SOURCES=\
+ accfile.c\
+ cmdline.h\
+ config.c\
+ diag.c\
+ eclat.c\
+ eclat.h\
+ startinst.c
+
+AM_LDFLAGS = $(CURL_LIBS)
+LDADD=../lib/libeclat.a @LIBOBJS@ ../grecs/src/libgrecs.a
+INCLUDES = -I$(top_srcdir)/grecs/src/ -I$(top_srcdir)/lib $(CURL_CFLAGS)
+AM_CPPFLAGS= \
+ -DSYSCONFDIR=\"$(sysconfdir)\"\
+ -DDEFAULT_VERSION_INCLUDE_DIR=\"$(incdir)\"\
+ -DDEFAULT_INCLUDE_DIR=\"$(pkgdatadir)/include\"\
+ -DDEFAULT_PREPROCESSOR="$(DEFAULT_PREPROCESSOR)"
+
+BUILT_SOURCES=cmdline.h
+EXTRA_DIST=cmdline.opt
+
+SUFFIXES=.opt .c .h
+
+.opt.h:
+	m4 -s $(top_srcdir)/grecs/build-aux/getopt.m4 $< | sed '1d' > $@
+
diff --git a/src/accfile.c b/src/accfile.c
new file mode 100644
index 0000000..3fe669d
--- /dev/null
+++ b/src/accfile.c
@@ -0,0 +1,105 @@
+/* This file is part of Eclat.
+   Copyright (C) 2012 Sergey Poznyakoff.
+ 
+   Eclat 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 3, or (at your option)
+   any later version.
+ 
+   Eclat 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 General Public License for more details.
+ 
+   You should have received a copy of the GNU General Public License
+   along with Eclat.  If not, see <http://www.gnu.org/licenses/>. */
+
+#include "eclat.h"
+
+char *access_file_name;
+
+static void
+skipline(FILE *fp)
+{
+	int c;
+
+	while ((c = getc(fp)) != EOF && c != '\n')
+		;
+}
+
+int
+access_file_lookup(const char *id, char **access_key_ptr, char **secret_key_ptr)
+{
+	int rc;
+	int c;
+	FILE *fp;
+	size_t line = 0;
+	struct grecs_txtacc *acc;
+	
+	if (!access_file_name)
+		return 1;
+	fp = fopen(access_file_name, "r");
+	if (!fp) {
+		err("cannot open \"%s\": %s",
+		    access_file_name, strerror(errno));
+		return 1;
+	}
+	
+	while ((c = getc(fp)) != EOF) {
+		line++;
+		while (c != EOF && (c == ' ' || c == '\t'))
+			c = getc(fp);
+		if (c == '\n')
+			continue;
+		if (c == '#') {
+			skipline(fp);
+			continue;
+		}
+		if (c == EOF)
+			break;
+		if (id) {
+			const char *p;
+
+			for (p = id; c != EOF && c != ':' && *p == c; p++)
+				c = getc(fp);
+			if (c == EOF)
+				break;
+			if (c == '\n')
+				continue;
+			if (c != ':') {
+				skipline(fp);
+				continue;
+			}
+		} else {
+			acc = grecs_txtacc_create();
+			while ((c = getc(fp)) != EOF && c != ':') {
+				if (c == '\n') {
+					err("%s:%u: incomplete line",
+					    access_file_name, line);
+					break;
+				}
+				grecs_txtacc_grow_char(acc, c);
+			}
+			if (c == ':') {
+				grecs_txtacc_grow_char(acc, 0);
+				*access_key_ptr = grecs_txtacc_finish(acc, 1);
+			}
+			grecs_txtacc_free(acc);
+		}
+		break;
+	}
+
+	if (c == ':') {
+		acc = grecs_txtacc_create();
+		while ((c = getc(fp)) != EOF && c != '\n')
+			grecs_txtacc_grow_char(acc, c);
+		grecs_txtacc_grow_char(acc, 0);
+		*secret_key_ptr = grecs_txtacc_finish(acc, 1);
+		rc = 0;
+	} else
+		rc = 1;
+
+	fclose(fp);
+
+	return rc;
+}
diff --git a/src/cmdline.opt b/src/cmdline.opt
new file mode 100644
index 0000000..25dc542
--- /dev/null
+++ b/src/cmdline.opt
@@ -0,0 +1,226 @@
+/* This file is part of Eclat.
+   Copyright (C) 2012 Sergey Poznyakoff.
+ 
+   Eclat 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 3, or (at your option)
+   any later version.
+ 
+   Eclat 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 General Public License for more details.
+ 
+   You should have received a copy of the GNU General Public License
+   along with Eclat.  If not, see <http://www.gnu.org/licenses/>. */
+
+#ifdef HAVE_GETOPT_H
+# include <getopt.h>
+#endif
+
+static char *pp_cmd_buffer;
+static size_t pp_cmd_bufsize;
+static size_t pp_cmd_buflevel;
+
+struct replvar {
+	char **s_ptr;
+	char *s_val;
+};
+
+int
+replace_string_var(void *p)
+{
+	struct replvar *rv = p;
+	*rv->s_ptr = rv->s_val;
+	return 0;
+}
+
+OPTIONS_BEGIN("eclat",
+              [<EC2 Command Line Administrator Tool>],[<>],
+	      [<gnu>],
+              [<copyright_year=2012>],
+              [<copyright_holder=Sergey Poznyakoff>])
+
+GROUP(Selecting program mode)
+
+OPTION(lint,t,,
+       [<parse configuration file and exit>])
+BEGIN
+	lint_mode = 1;
+END
+
+OPTION(,E,,
+       [<preprocess config and exit>])
+BEGIN
+	preprocess_only = 1;
+END
+
+OPTION(dry-run,n,,
+       [<do nothing, print almost everything>])
+BEGIN
+	dry_run_mode = 1;
+END
+
+OPTION(config-file,c,FILE,
+       [<use FILE instead of the default configuration>])
+BEGIN
+	conffile = optarg;
+END
+
+GROUP(Commands)
+
+OPTION(start-instances,,,
+       [<Start named instances>])
+BEGIN
+	eclat_command = eclat_command_start_instances;
+END	
+
+OPTION(stop-instances,,,
+       [<Stop named instances>])
+BEGIN
+	eclat_command = eclat_command_stop_instances;
+END	
+
+GROUP(Modifiers)
+
+OPTION(region,,NAME,
+       [<define AWS region>])
+BEGIN
+	struct replvar *rv = grecs_malloc(sizeof(*rv));
+	rv->s_ptr = &region_name;
+	rv->s_val = optarg;
+	add_config_finish_hook(replace_string_var, rv);
+END
+
+OPTION(access-file,a,NAME,
+       [<set access file>])
+BEGIN
+	struct replvar *rv = grecs_malloc(sizeof(*rv));
+	rv->s_ptr = &access_file_name;
+	rv->s_val = optarg;
+	add_config_finish_hook(replace_string_var, rv);
+END
+
+OPTION(access-key,O,KEY,
+       [<set access key to use>])
+BEGIN
+	access_key = optarg;
+END
+
+OPTION(secret-key,W,KEY,
+       [<set secret key to use>])
+BEGIN
+	secret_key = optarg;
+END
+
+OPTION(ssl,,,
+       [<use SSL (HTTPS) connection>])
+BEGIN
+	use_ssl = 1;
+END	
+
+GROUP(Preprocessor control)
+
+OPTION(include-directory,I,DIR,
+       [<add include directory>])
+BEGIN
+	grecs_preproc_add_include_dir(optarg);
+END
+
+OPTION(define,D,SYMBOL[=VALUE],
+       [<define a preprocessor symbol>])
+BEGIN
+	size_t len;
+        char *p;
+
+        len = 4;
+	for (p = optarg; *p; p++) {
+		if (*p == '\\' || *p == '"')
+			len++;
+		len++;
+	}
+
+        if (pp_cmd_buflevel + len + 1 > pp_cmd_bufsize) {
+		pp_cmd_bufsize = pp_cmd_buflevel + len + 1;
+		pp_cmd_buffer = grecs_realloc(pp_cmd_buffer, pp_cmd_bufsize);
+	}
+        memcpy(pp_cmd_buffer + pp_cmd_buflevel, " \"-D", 4);
+        pp_cmd_buflevel += 4;
+
+        p = optarg;
+	do {
+		if (*p == '\\' || *p == '"')
+			pp_cmd_buffer[pp_cmd_buflevel++] = '\\';
+		pp_cmd_buffer[pp_cmd_buflevel++] = *p;
+	} while (*p++);
+END
+
+OPTION(preprocessor,,COMMAND,
+       [<use COMMAND instead of the default preprocessor>])
+BEGIN
+	grecs_preprocessor = optarg;
+END
+
+OPTION(no-preprocessor,,,
+       [<disable preprocessing>])
+BEGIN
+	grecs_preprocessor = NULL;
+END
+
+GROUP(Debugging)
+
+OPTION(dump-grammar-trace,,,
+       [<dump configuration grammar traces>])
+BEGIN
+        grecs_gram_trace (1);
+END
+
+OPTION(dump-lex-trace,,,
+       [<dump lexical analyzer traces>])
+BEGIN
+        grecs_lex_trace (1);
+END
+
+OPTION(debug,d,CAT[.LEVEL],
+       [<set debugging level>])
+BEGIN
+	if (parse_debug_level(optarg)) {
+		die(EX_USAGE, "invalid debugging category or level");
+	}
+END
+
+GROUP([<Additional help>])
+OPTION(config-help,,,
+       [<show configuration file summary>])
+BEGIN
+	config_help();
+	exit(0);
+END
+
+OPTIONS_END
+
+void
+set_program_name(const char *arg)
+{
+	program_name = strrchr(arg, '/');
+	if (!program_name)
+	        program_name = arg;
+	else
+	        program_name++;
+}
+
+void
+parse_options(int argc, char *argv[], int *index)
+{
+        GETOPT(argc, argv, *index, exit(EX_USAGE))
+
+	if (pp_cmd_buffer && grecs_preprocessor) {
+		char *cmd = grecs_malloc(strlen(grecs_preprocessor) +
+					  pp_cmd_buflevel + 1);
+		strcpy(cmd, grecs_preprocessor);
+		strcat(cmd, pp_cmd_buffer);
+		grecs_preprocessor = cmd;
+		free(pp_cmd_buffer);
+	}
+}
+
diff --git a/src/config.c b/src/config.c
new file mode 100644
index 0000000..184b42a
--- /dev/null
+++ b/src/config.c
@@ -0,0 +1,110 @@
+/* This file is part of Eclat.
+   Copyright (C) 2012 Sergey Poznyakoff.
+ 
+   Eclat 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 3, or (at your option)
+   any later version.
+ 
+   Eclat 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 General Public License for more details.
+ 
+   You should have received a copy of the GNU General Public License
+   along with Eclat.  If not, see <http://www.gnu.org/licenses/>. */
+
+#include "eclat.h"
+
+struct config_finish_hook_entry
+{
+	struct config_finish_hook_entry *next;
+	config_finish_hook_t fun;
+	void *data;
+};
+
+static struct config_finish_hook_entry *cfh_head, *cfh_tail;
+	
+void
+add_config_finish_hook(config_finish_hook_t fun, void *data)
+{
+	struct config_finish_hook_entry *ent = grecs_malloc(sizeof(*ent));
+	ent->next = NULL;
+	ent->fun = fun;
+	ent->data = data;
+	if (cfh_tail)
+		cfh_tail->next = ent;
+	else
+		cfh_head = ent;
+	cfh_tail = ent;
+}
+
+int
+run_config_finish_hooks()
+{
+	struct config_finish_hook_entry *p;
+	int rc = 0;
+	
+	for (p = cfh_head; p; p = p->next)
+		rc |= p->fun(p->data);
+	return rc;
+}
+
+static struct grecs_keyword eclat_kw[] = {
+	{ "host", "hostname",
+	  "Send queries to <hostname> instead of the default host",
+	  grecs_type_string, GRECS_DFLT, &default_host },
+	{ "access-file", "file",
+	  "Specify a file containing `accessID:accessKey' pairs",
+	  grecs_type_string, GRECS_DFLT, &access_file_name },
+	{ "region", "name",
+	  "Define default AWS region",
+	  grecs_type_string, GRECS_DFLT, &region_name },
+	
+	{ NULL }
+};
+	
+void
+config_help()
+{
+	static char docstring[] =
+		N_("Configuration file structure for eclat.\n"
+		   "For more information, use `info eclat configuration'.");
+	grecs_print_docstring(docstring, 0, stdout);
+	grecs_print_statement_array(eclat_kw, 1, 0, stdout);
+}
+
+static void
+grecs_print_diag(grecs_locus_t const *locus, int err, int errcode,
+		 const char *msg)
+{
+	diag(locus, err ? NULL : "warning", "%s", msg);
+}
+
+void
+config_init()
+{
+	grecs_include_path_setup(DEFAULT_VERSION_INCLUDE_DIR,
+				 DEFAULT_INCLUDE_DIR, NULL);
+	grecs_preprocessor = DEFAULT_PREPROCESSOR;
+	grecs_log_to_stderr = 1;
+	grecs_adjust_string_locations = 1;
+	grecs_print_diag_fun = grecs_print_diag;
+}
+
+void
+config_finish(struct grecs_node *tree)
+{
+	struct grecs_node *node;
+
+	grecs_tree_reduce(tree, eclat_kw, GRECS_AGGR);
+	if (debug_level[ECLAT_DEBCAT_CONF]) {
+		grecs_print_node(tree, GRECS_NODE_FLAG_DEFAULT, stderr);
+		fputc('\n', stdout);
+	}
+	if (grecs_error_count || run_config_finish_hooks())
+		exit(EX_CONFIG);
+}	
+
+
+
diff --git a/src/diag.c b/src/diag.c
new file mode 100644
index 0000000..30ffa34
--- /dev/null
+++ b/src/diag.c
@@ -0,0 +1,108 @@
+/* This file is part of Eclat.
+   Copyright (C) 2012 Sergey Poznyakoff.
+ 
+   Eclat 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 3, or (at your option)
+   any later version.
+ 
+   Eclat 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 General Public License for more details.
+ 
+   You should have received a copy of the GNU General Public License
+   along with Eclat.  If not, see <http://www.gnu.org/licenses/>. */
+
+#include "eclat.h"
+
+const char *program_name;
+
+void
+vdiag(grecs_locus_t const *locus, const char *qual, const char *fmt, va_list ap)
+{
+	if (program_name)
+		fprintf(stderr, "%s: ", program_name);
+
+	if (locus) {
+		size_t size = 0;
+
+		if (locus->beg.col == 0)
+			fprintf(stderr, "%s:%u",
+				locus->beg.file,
+				locus->beg.line);
+		else if (strcmp(locus->beg.file, locus->end.file))
+			fprintf(stderr, "%s:%u.%u-%s:%u.%u",
+				locus->beg.file,
+				locus->beg.line, locus->beg.col,
+				locus->end.file,
+				locus->end.line, locus->end.col);
+		else if (locus->beg.line != locus->end.line)
+			fprintf(stderr, "%s:%u.%u-%u.%u",
+				locus->beg.file,
+				locus->beg.line, locus->beg.col,
+				locus->end.line, locus->end.col);
+		else
+			fprintf(stderr, "%s:%u.%u-%u",
+				locus->beg.file,
+				locus->beg.line, locus->beg.col,
+				locus->end.col);
+		fprintf(stderr, ": ");
+	}
+	
+	if (qual)
+		fprintf(stderr, "%s: ", qual);
+	vfprintf(stderr, fmt, ap);
+	fputc('\n', stderr);
+}
+
+void
+diag(grecs_locus_t const *locus, const char *qual, const char *fmt, ...)
+{
+	va_list ap;
+	
+	va_start(ap, fmt);
+	vdiag(locus, qual, fmt, ap);
+	va_end(ap);
+}	
+
+void
+die(int status, const char *fmt, ...)
+{
+	va_list ap;
+	
+	va_start(ap, fmt);
+	vdiag(NULL, NULL, fmt, ap);
+	va_end(ap);
+	exit(status);
+}
+
+void
+err(const char *fmt, ...)
+{
+	va_list ap;
+	
+	va_start(ap, fmt);
+	vdiag(NULL, NULL, fmt, ap);
+	va_end(ap);
+}
+
+void
+warn(const char *fmt, ...)
+{
+	va_list ap;
+	
+	va_start(ap, fmt);
+	vdiag(NULL, "warning", fmt, ap);
+	va_end(ap);
+}
+
+void
+debug_printf(const char *fmt, ...)
+{
+	va_list ap;
+	
+	va_start(ap, fmt);
+	vdiag(NULL, "debug", fmt, ap);
+	va_end(ap);
+}	
diff --git a/src/eclat.c b/src/eclat.c
new file mode 100644
index 0000000..3d2572d
--- /dev/null
+++ b/src/eclat.c
@@ -0,0 +1,162 @@
+/* This file is part of Eclat.
+   Copyright (C) 2012 Sergey Poznyakoff.
+ 
+   Eclat 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 3, or (at your option)
+   any later version.
+ 
+   Eclat 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 General Public License for more details.
+ 
+   You should have received a copy of the GNU General Public License
+   along with Eclat.  If not, see <http://www.gnu.org/licenses/>. */
+
+#include "eclat.h"
+
+char *conffile = SYSCONFDIR "/eclat.conf" ;
+int lint_mode;
+int debug_level[ECLAT_DEBCAT_MAX];
+int dry_run_mode;
+int preprocess_only = 0;
+
+char *default_host = "ec2.amazonaws.com";
+int use_ssl;
+char *access_key;
+char *secret_key;
+char *region_name;
+enum eclat_command eclat_command;
+
+char *url_base;
+
+
+struct debug_trans {
+	const char *name;
+	size_t length;
+	int cat;
+};
+
+static struct debug_trans debug_trans[] = {
+#define S(s) #s, sizeof(#s)-1
+	{ S(main), ECLAT_DEBCAT_MAIN },
+	{ S(cfgram), ECLAT_DEBCAT_CFGRAM },
+	{ S(cflex), ECLAT_DEBCAT_CFLEX },
+	{ S(conf), ECLAT_DEBCAT_CONF },
+	{ NULL }
+};
+
+static int
+parse_debug_level(const char *arg)
+{
+	unsigned long cat, lev;
+	char *p;
+
+	if (isascii(*arg) && isdigit(*arg)) {
+		cat = strtoul(arg, &p, 10);
+		if (cat > ECLAT_DEBCAT_MAX)
+			return -1;
+	} else {
+		size_t len = strcspn(arg, ".");
+		struct debug_trans *dp;
+		
+		for (dp = debug_trans; dp->name; dp++)
+			if (dp->length == len &&
+			    memcmp(dp->name, arg, len) == 0)
+				break;
+
+		if (!dp->name)
+			return -1;
+		cat = dp->cat;
+		p = (char*) arg + len;
+	}
+
+	if (*p == 0)
+		lev = 100;
+	else if (*p != '.')
+		return -1;
+	else {
+		lev = strtoul(p + 1, &p, 10);
+		if (*p)
+			return -1;
+	}
+	debug_level[cat] = lev;
+	return 0;
+}
+
+#include "cmdline.h"
+
+eclat_command_handler_t handler_tab[] = {
+	NULL,
+	eclat_start_instance,
+	eclat_stop_instance
+};
+
+int
+main(int argc, char **argv)
+{
+	int index, rc;
+	struct grecs_node *tree;
+	CURL *curl;
+	size_t size;
+	
+	set_program_name(argv[0]);
+	config_init();
+	parse_options(argc, argv, &index);
+	
+	argc -= index;
+	argv += index;
+	
+	grecs_gram_trace(debug_level[ECLAT_DEBCAT_CFGRAM]);
+	grecs_lex_trace(debug_level[ECLAT_DEBCAT_CFLEX]);
+
+	if (preprocess_only)
+		exit(grecs_preproc_run(conffile, grecs_preprocessor) ?
+		     EX_CONFIG : 0);
+
+	if (access(conffile, R_OK) == 0) {
+		tree = grecs_parse(conffile);
+		if (!tree)
+			exit(EX_CONFIG);
+		config_finish(tree);
+		/* Prevent texttab from being freed by grecs_tree_free.
+		   FIXME: A dirty kludge, needed to preserve file names
+		   in locus structures. A proper solution would be to have
+		   our own texttab for that purpose. */
+		tree->v.texttab = NULL;
+		grecs_tree_free(tree);
+	} else if (errno == ENOENT) {
+		warn("no configuration file");
+		run_config_finish_hooks();
+	} else
+		die(EX_OSFILE, "cannot access \"%s\": %s",
+		    conffile, strerror(errno));
+	
+	if (lint_mode)
+		exit(0);
+
+	if (!secret_key) {
+		if (access_file_lookup(access_key, &access_key, &secret_key))
+			die(EX_UNAVAILABLE,
+			    "cannot find authentication credentials");
+	}
+
+	if (eclat_command == eclat_command_unspecified)
+		die(EX_USAGE, "no command given");
+
+	url_base = NULL;
+	size = 0;
+	if (use_ssl)
+		grecs_asprintf(&url_base, &size, "https://%s", default_host);
+	else
+		grecs_asprintf(&url_base, &size, "http://%s", default_host);
+		
+	
+	curl = curl_easy_init();
+	if (!curl)
+		die(EX_UNAVAILABLE, "curl_easy_init failed");
+	rc = handler_tab[eclat_command](curl, argc, argv);
+	curl_easy_cleanup(curl);
+	exit(rc);
+}
diff --git a/src/eclat.h b/src/eclat.h
new file mode 100644
index 0000000..0fb4fd7
--- /dev/null
+++ b/src/eclat.h
@@ -0,0 +1,81 @@
+/* This file is part of Eclat.
+   Copyright (C) 2012 Sergey Poznyakoff.
+ 
+   Eclat 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 3, or (at your option)
+   any later version.
+ 
+   Eclat 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 General Public License for more details.
+ 
+   You should have received a copy of the GNU General Public License
+   along with Eclat.  If not, see <http://www.gnu.org/licenses/>. */
+
+#include <config.h>
+#include <sysexits.h>
+#include <ctype.h>
+#include <stdlib.h>
+#include <stdio.h>
+#include <unistd.h>
+#include <errno.h>
+#include <string.h>
+#include <curl/curl.h>
+#include "grecs.h"
+#include "wordsplit.h"
+#include "libeclat.h"
+
+#define	ECLAT_DEBCAT_MAIN    0
+#define ECLAT_DEBCAT_CFGRAM  1
+#define ECLAT_DEBCAT_CFLEX   2
+#define ECLAT_DEBCAT_CONF    3
+#define ECLAT_DEBCAT_MAX     4
+
+extern const char *program_name;
+extern int debug_level[];
+
+extern char *default_host;
+extern int use_ssl;
+extern char *region_name;
+extern char *access_file_name;
+extern char *access_key;
+extern char *secret_key;
+extern char *url_base;
+
+#define debug(cat, lev, s)				\
+	do {						\
+		if (debug_level[cat] >= (lev))		\
+		       debug_printf s;			\
+	} while(0)
+
+void die(int status, const char *fmt, ...);
+void vdiag(grecs_locus_t const *locus, const char *qual, const char *fmt,
+	   va_list ap);
+void diag(grecs_locus_t const *locus, const char *qual, const char *fmt, ...);
+void err(const char *fmt, ...);
+void warn(const char *fmt, ...);
+void debug_printf(const char *fmt, ...);
+
+typedef int (*config_finish_hook_t) (void*);
+
+void add_config_finish_hook(config_finish_hook_t fun, void *data);
+
+void config_help(void);
+void config_init(void);
+void config_finish(struct grecs_node *tree);
+int run_config_finish_hooks(void);
+
+enum eclat_command {
+	eclat_command_unspecified,
+	eclat_command_start_instances,
+	eclat_command_stop_instances
+};
+
+extern enum eclat_command eclat_command;
+
+typedef int (*eclat_command_handler_t) (CURL *curl, int argc, char **argv);
+
+int eclat_start_instance(CURL *curl, int argc, char **argv);
+int eclat_stop_instance(CURL *curl, int argc, char **argv);
diff --git a/src/error.c b/src/error.c
new file mode 100644
index 0000000..6c86d34
--- /dev/null
+++ b/src/error.c
@@ -0,0 +1,64 @@
+/* This file is part of Eclat.
+   Copyright (C) 2012 Sergey Poznyakoff.
+ 
+   Eclat 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 3, or (at your option)
+   any later version.
+ 
+   Eclat 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 General Public License for more details.
+ 
+   You should have received a copy of the GNU General Public License
+   along with Eclat.  If not, see <http://www.gnu.org/licenses/>. */
+
+#include "eclat.h"
+#include <stdargs.h>
+#include <stdio.h>
+
+char *program_name;
+
+void
+diag(const char *qual, const char *fmt, va_list ap)
+{
+	if (program_name)
+		fprintf(stderr, "%s: ", program_name);
+	if (qual)
+		fprintf(stderr, "%s: ", qual);
+	va_start(ap, fmt);
+	vfprintf(stderr, ftm, ap);
+	va_end(ap);
+	fputc('\n', stderr);
+}
+
+void
+err(const char *fmt, ...)
+{
+	va_list ap;
+	
+	va_start(ap, fmt);
+	diag(NULL, ftm, ap);
+	va_end(ap);
+}
+
+void
+warn(const char *fmt, ...)
+{
+	va_list ap;
+	
+	va_start(ap, fmt);
+	diag("warning", ftm, ap);
+	va_end(ap);
+}
+
+void
+debug_printf(const char *fmt, ...)
+{
+	va_list ap;
+	
+	va_start(ap, fmt);
+	diag("debug", ftm, ap);
+	va_end(ap);
+}	
diff --git a/src/startinst.c b/src/startinst.c
new file mode 100644
index 0000000..f07e50a
--- /dev/null
+++ b/src/startinst.c
@@ -0,0 +1,28 @@
+/* This file is part of Eclat.
+   Copyright (C) 2012 Sergey Poznyakoff.
+ 
+   Eclat 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 3, or (at your option)
+   any later version.
+ 
+   Eclat 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 General Public License for more details.
+ 
+   You should have received a copy of the GNU General Public License
+   along with Eclat.  If not, see <http://www.gnu.org/licenses/>. */
+
+#include "eclat.h"
+
+int
+eclat_start_instance(CURL *curl, int argc, char **argv)
+{
+}
+
+int
+eclat_stop_instance(CURL *curl, int argc, char **argv)
+{
+}
+