autoconf preparation: move everything into src/ subdir

1 files changed, 0 insertions, 371 deletions

diff --git a/cmdline.cpp b/cmdline.cpp
deleted file mode 100644
index 212722a..0000000
--- a/cmdline.cpp
+++ /dev/null
@@ -1,371 +0,0 @@
-#include <string.h>
-#include <stdlib.h>
-
-#include <glib.h>
-#include <glib/gprintf.h>
-#include <glib/gstdio.h>
-
-#include "sciteco.h"
-#include "interface.h"
-#include "expressions.h"
-#include "parser.h"
-#include "qregisters.h"
-#include "ring.h"
-#include "goto.h"
-#include "undo.h"
-#include "symbols.h"
-
-static inline const gchar *process_edit_cmd(gchar key);
-static gchar *macro_echo(const gchar *macro);
-
-static gchar *filename_complete(const gchar *filename, gchar completed = ' ');
-static gchar *symbol_complete(SymbolList &list, const gchar *symbol,
-			      gchar completed = ' ');
-
-static const gchar *last_occurrence(const gchar *str,
-				    const gchar *chars = " \t\v\r\n\f<>,;@");
-static inline gboolean filename_is_dir(const gchar *filename);
-
-gchar *cmdline = NULL;
-
-bool quit_requested = false;
-
-void
-cmdline_keypress(gchar key)
-{
-	gchar *cmdline_p;
-	const gchar *insert;
-	gchar *echo;
-
-	/*
-	 * Cleanup messages, popups, etc...
-	 */
-	interface.popup_clear();
-	interface.msg_clear();
-
-	/*
-	 * Process immediate editing commands
-	 */
-	insert = process_edit_cmd(key);
-
-	/*
-	 * Parse/execute characters
-	 */
-	if (cmdline) {
-		gint len = strlen(cmdline);
-		cmdline = (gchar *)g_realloc(cmdline, len + strlen(insert) + 1);
-		cmdline_p = cmdline + len;
-	} else {
-		cmdline = (gchar *)g_malloc(strlen(insert) + 1);
-		*cmdline = '\0';
-		cmdline_p = cmdline;
-	}
-
-	/*
-	 * Execute one insertion character, extending cmdline, at a time so
-	 * undo tokens get emitted for the corresponding characters.
-	 */
-	for (const gchar *p = insert; *p; p++) {
-		*cmdline_p++ = *p;
-		*cmdline_p = '\0';
-
-		try {
-			Execute::step(cmdline);
-		} catch (...) {
-			/*
-			 * Undo tokens may have been emitted (or had to be)
-			 * before the exception is thrown. They must be
-			 * executed so as if the character had never been
-			 * inserted.
-			 */
-			undo.pop(cmdline_p - cmdline);
-			cmdline_p[-1] = '\0';
-			break;
-		}
-	}
-
-	/*
-	 * Echo command line
-	 */
-	echo = macro_echo(cmdline);
-	interface.cmdline_update(echo);
-	g_free(echo);
-}
-
-static inline const gchar *
-process_edit_cmd(gchar key)
-{
-	static gchar insert[255];
-	gint cmdline_len = cmdline ? strlen(cmdline) : 0;
-
-	insert[0] = '\0';
-
-	switch (key) {
-	case '\b':
-		if (cmdline_len) {
-			undo.pop(cmdline_len);
-			cmdline[cmdline_len - 1] = '\0';
-			macro_pc--;
-		}
-		break;
-
-	case CTL_KEY('T'): {
-		const gchar *filename = cmdline ? last_occurrence(cmdline) + 1
-						: NULL;
-		gchar *new_chars = filename_complete(filename);
-		if (new_chars)
-			g_stpcpy(insert, new_chars);
-		g_free(new_chars);
-		break;
-	}
-
-	case '\t':
-		if (States::current == &States::editfile ||
-		    States::current == &States::savefile ||
-		    States::current == &States::loadqreg) {
-			gchar complete = escape_char == '{' ? ' ' : escape_char;
-			gchar *new_chars = filename_complete(strings[0],
-							     complete);
-			if (new_chars)
-				g_stpcpy(insert, new_chars);
-			g_free(new_chars);
-		} else if (States::current == &States::scintilla_symbols) {
-			const gchar *symbol = NULL;
-			SymbolList &list = Symbols::scintilla;
-			gchar *new_chars;
-
-			if (strings[0]) {
-				symbol = last_occurrence(strings[0], ",");
-				if (*symbol == ',') {
-					symbol++;
-					list = Symbols::scilexer;
-				}
-			}
-
-			new_chars = symbol_complete(list, symbol, ',');
-			if (new_chars)
-				g_stpcpy(insert, new_chars);
-			g_free(new_chars);
-		} else {
-			insert[0] = key;
-			insert[1] = '\0';
-		}
-		break;
-
-	case '\x1B':
-		if (States::current == &States::start &&
-		    cmdline && cmdline[cmdline_len - 1] == '\x1B') {
-			if (Goto::skip_label) {
-				interface.msg(Interface::MSG_ERROR,
-					      "Label \"%s\" not found",
-					      Goto::skip_label);
-				break;
-			}
-
-			if (quit_requested) {
-				/* FIXME */
-				exit(EXIT_SUCCESS);
-			}
-
-			undo.clear();
-			interface.ssm(SCI_EMPTYUNDOBUFFER);
-			Goto::table->clear();
-			expressions.clear();
-
-			*cmdline = '\0';
-			macro_pc = 0;
-			break;
-		}
-		/* fall through */
-	default:
-		insert[0] = key;
-		insert[1] = '\0';
-	}
-
-	return insert;
-}
-
-static gchar *
-macro_echo(const gchar *macro)
-{
-	gchar *result, *rp;
-
-	if (!macro)
-		return g_strdup("");
-
-	rp = result = (gchar *)g_malloc(strlen(macro)*5 + 1);
-
-	for (const gchar *p = macro; *p; p++) {
-		switch (*p) {
-		case '\x1B':
-			*rp++ = '$';
-			break;
-		case '\r':
-			rp = g_stpcpy(rp, "<CR>");
-			break;
-		case '\n':
-			rp = g_stpcpy(rp, "<LF>");
-			break;
-		case '\t':
-			rp = g_stpcpy(rp, "<TAB>");
-			break;
-		default:
-			if (IS_CTL(*p)) {
-				*rp++ = '^';
-				*rp++ = CTL_ECHO(*p);
-			} else {
-				*rp++ = *p;
-			}
-		}
-	}
-	*rp = '\0';
-
-	return result;
-}
-
-static gchar *
-filename_complete(const gchar *filename, gchar completed)
-{
-	gchar *dirname, *basename;
-	GDir *dir;
-	GList *files = NULL, *matching;
-	GCompletion *completion;
-	gchar *new_prefix;
-	gchar *insert = NULL;
-
-	if (!filename)
-		filename = "";
-
-	if (is_glob_pattern(filename))
-		return NULL;
-
-	dirname = g_path_get_dirname(filename);
-	dir = g_dir_open(dirname, 0, NULL);
-	if (!dir) {
-		g_free(dirname);
-		return NULL;
-	}
-	if (*dirname != *filename)
-		*dirname = '\0';
-
-	while ((basename = (gchar *)g_dir_read_name(dir))) {
-		gchar *filename = g_build_filename(dirname, basename, NULL);
-
-		if (g_file_test(filename, G_FILE_TEST_IS_DIR)) {
-			gchar *new_filename;
-			new_filename = g_strconcat(filename,
-						   G_DIR_SEPARATOR_S, NULL);
-			g_free(filename);
-			filename = new_filename;
-		}
-
-		files = g_list_prepend(files, filename);
-	}
-
-	g_free(dirname);
-	g_dir_close(dir);
-
-	completion = g_completion_new(NULL);
-	g_completion_add_items(completion, files);
-
-	matching = g_completion_complete(completion, filename, &new_prefix);
-	if (new_prefix && strlen(new_prefix) > strlen(filename))
-		insert = g_strdup(new_prefix + strlen(filename));
-	g_free(new_prefix);
-
-	if (!insert && g_list_length(matching) > 1) {
-		matching = g_list_sort(matching, (GCompareFunc)g_strcmp0);
-
-		for (GList *file = g_list_first(matching);
-		     file != NULL;
-		     file = g_list_next(file)) {
-			Interface::PopupEntryType type;
-			bool in_buffer = false;
-
-			if (filename_is_dir((gchar *)file->data)) {
-				type = Interface::POPUP_DIRECTORY;
-			} else {
-				type = Interface::POPUP_FILE;
-				/* FIXME: inefficient */
-				in_buffer = ring.find((gchar *)file->data);
-			}
-
-			interface.popup_add(type, (gchar *)file->data,
-					    in_buffer);
-		}
-
-		interface.popup_show();
-	} else if (g_list_length(matching) == 1 &&
-		   !filename_is_dir((gchar *)g_list_first(matching)->data)) {
-		String::append(insert, completed);
-	}
-
-	g_completion_free(completion);
-
-	for (GList *file = g_list_first(files); file; file = g_list_next(file))
-		g_free(file->data);
-	g_list_free(files);
-
-	return insert;
-}
-
-static gchar *
-symbol_complete(SymbolList &list, const gchar *symbol, gchar completed)
-{
-	GList *glist;
-	GList *matching;
-	GCompletion *completion;
-	gchar *new_prefix;
-	gchar *insert = NULL;
-
-	if (!symbol)
-		symbol = "";
-
-	glist = list.get_glist();
-	if (!glist)
-		return NULL;
-
-	completion = g_completion_new(NULL);
-	g_completion_add_items(completion, glist);
-
-	matching = g_completion_complete(completion, symbol, &new_prefix);
-	if (new_prefix && strlen(new_prefix) > strlen(symbol))
-		insert = g_strdup(new_prefix + strlen(symbol));
-	g_free(new_prefix);
-
-	if (!insert && g_list_length(matching) > 1) {
-		for (GList *entry = g_list_first(matching);
-		     entry != NULL;
-		     entry = g_list_next(entry)) {
-			interface.popup_add(Interface::POPUP_PLAIN,
-					    (gchar *)entry->data);
-		}
-
-		interface.popup_show();
-	} else if (g_list_length(matching) == 1) {
-		String::append(insert, completed);
-	}
-
-	g_completion_free(completion);
-
-	return insert;
-}
-
-/*
- * Auxiliary functions
- */
-
-static const gchar *
-last_occurrence(const gchar *str, const gchar *chars)
-{
-	while (*chars)
-		str = strrchr(str, *chars++) ? : str;
-
-	return str;
-}
-
-static inline gboolean
-filename_is_dir(const gchar *filename)
-{
-	return g_str_has_suffix(filename, G_DIR_SEPARATOR_S);
-}