aboutsummaryrefslogtreecommitdiffhomepage
path: root/cmdline.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'cmdline.cpp')
-rw-r--r--cmdline.cpp371
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);
-}
generated by cgit v1.2.3 (git 2.25.1) at 2025-10-11 20:06:13 +0000