Code

wreadln: fix #ifdef for WIN32
[ncmpc.git] / src / wreadln.c
index 08ba991f27dcb0d44de9cdeab93607a5ce3bb924..95267e28d539d28a79b77cf734c23e1a67320fcb 100644 (file)
@@ -1,5 +1,6 @@
-/*
- * (c) 2004 by Kalle Wallin <kaw@linux.se>
+/* ncmpc (Ncurses MPD Client)
+ * (c) 2004-2017 The Music Player Daemon Project
+ * Project homepage: http://musicpd.org
  *
  * 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
  * 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 this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  *
+ * You should have received a copy of the GNU General Public License along
+ * with this program; if not, write to the Free Software Foundation, Inc.,
+ * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
  */
 
 #include "wreadln.h"
@@ -26,7 +27,7 @@
 #include <string.h>
 #include <glib.h>
 
-#ifdef ENABLE_WIDE
+#if (defined(HAVE_CURSES_ENHANCED) || defined(ENABLE_MULTIBYTE)) && !defined(WIN32)
 #include <sys/poll.h>
 #endif
 
@@ -41,6 +42,7 @@
 #define KEY_CTRL_N   14
 #define KEY_CTRL_P   16
 #define KEY_CTRL_U   21
+#define KEY_CTRL_W   23
 #define KEY_CTRL_Z   26
 #define KEY_BCKSPC   8
 #define TAB          9
@@ -72,9 +74,166 @@ struct wreadln {
 /** max items stored in the history list */
 static const guint wrln_max_history_length = 32;
 
+#ifndef NCMPC_MINI
 void *wrln_completion_callback_data = NULL;
 wrln_gcmp_pre_cb_t wrln_pre_completion_callback = NULL;
 wrln_gcmp_post_cb_t wrln_post_completion_callback = NULL;
+#endif
+
+/** converts a byte position to a screen column */
+static unsigned
+byte_to_screen(const gchar *data, size_t x)
+{
+#if defined(HAVE_CURSES_ENHANCED) || defined(ENABLE_MULTIBYTE)
+       assert(x <= strlen(data));
+
+       char *dup = g_strdup(data);
+       dup[x] = 0;
+       char *p = replace_locale_to_utf8(dup);
+
+       unsigned width = utf8_width(p);
+       g_free(p);
+
+       return width;
+#else
+       (void)data;
+
+       return (unsigned)x;
+#endif
+}
+
+/** finds the first character which doesn't fit on the screen */
+static size_t
+screen_to_bytes(const gchar *data, unsigned width)
+{
+#if defined(HAVE_CURSES_ENHANCED) || defined(ENABLE_MULTIBYTE)
+       size_t length = strlen(data);
+       gchar *dup = g_strdup(data);
+
+       while (true) {
+               dup[length] = 0;
+               char *p = locale_to_utf8(dup);
+               unsigned p_width = utf8_width(p);
+               g_free(p);
+               if (p_width <= width)
+                       break;
+
+               --length;
+       }
+
+       g_free(dup);
+
+       return length;
+#else
+       (void)data;
+
+       return (size_t)width;
+#endif
+}
+
+/** returns the screen column where the cursor is located */
+static unsigned
+cursor_column(const struct wreadln *wr)
+{
+       return byte_to_screen(wr->line + wr->start,
+                             wr->cursor - wr->start);
+}
+
+/** returns the offset in the string to align it at the right border
+    of the screen */
+static inline size_t
+right_align_bytes(const gchar *data, size_t right, unsigned width)
+{
+#if defined(HAVE_CURSES_ENHANCED) || defined(ENABLE_MULTIBYTE)
+       gchar *dup;
+       size_t start = 0;
+
+       assert(right <= strlen(data));
+
+       dup = g_strdup(data);
+       dup[right] = 0;
+
+       while (dup[start] != 0) {
+               char *p = locale_to_utf8(dup + start), *q;
+               unsigned p_width = utf8_width(p);
+
+               if (p_width < width) {
+                       g_free(p);
+                       break;
+               }
+
+               gunichar c = g_utf8_get_char(p);
+               p[g_unichar_to_utf8(c, NULL)] = 0;
+               q = utf8_to_locale(p);
+               g_free(p);
+
+               start += strlen(q);
+               g_free(q);
+       }
+
+       g_free(dup);
+
+       return start;
+#else
+       (void)data;
+
+       return right >= width ? right + 1 - width : 0;
+#endif
+}
+
+/** returns the size (in bytes) of the next character */
+static inline size_t
+next_char_size(const gchar *data)
+{
+#if defined(HAVE_CURSES_ENHANCED) || defined(ENABLE_MULTIBYTE)
+       char *p = locale_to_utf8(data), *q;
+
+       gunichar c = g_utf8_get_char(p);
+       p[g_unichar_to_utf8(c, NULL)] = 0;
+       q = utf8_to_locale(p);
+       g_free(p);
+
+       size_t size = strlen(q);
+       g_free(q);
+
+       return size;
+#else
+       (void)data;
+
+       return 1;
+#endif
+}
+
+/** returns the size (in bytes) of the previous character */
+static inline size_t
+prev_char_size(const gchar *data, size_t x)
+{
+#if defined(HAVE_CURSES_ENHANCED) || defined(ENABLE_MULTIBYTE)
+       assert(x > 0);
+
+       char *p = locale_to_utf8(data);
+
+       char *q = p;
+       while (true) {
+               gunichar c = g_utf8_get_char(q);
+               size_t size = g_unichar_to_utf8(c, NULL);
+               if (size > x)
+                       size = x;
+               x -= size;
+               if (x == 0) {
+                       g_free(p);
+                       return size;
+               }
+
+               q += size;
+       }
+#else
+       (void)data;
+       (void)x;
+
+       return 1;
+#endif
+}
 
 /* move the cursor one step to the right */
 static inline void cursor_move_right(struct wreadln *wr)
@@ -82,10 +241,10 @@ static inline void cursor_move_right(struct wreadln *wr)
        if (wr->line[wr->cursor] == 0)
                return;
 
-       ++wr->cursor;
-       if (wr->cursor >= (size_t)wr->width &&
-           wr->start < wr->cursor - wr->width + 1)
-               ++wr->start;
+       size_t size = next_char_size(wr->line + wr->cursor);
+       wr->cursor += size;
+       if (cursor_column(wr) >= wr->width)
+               wr->start = right_align_bytes(wr->line, wr->cursor, wr->width);
 }
 
 /* move the cursor one step to the left */
@@ -94,17 +253,19 @@ static inline void cursor_move_left(struct wreadln *wr)
        if (wr->cursor == 0)
                return;
 
-       if (wr->cursor == wr->start && wr->start > 0)
-               --wr->start;
-       --wr->cursor;
+       size_t size = prev_char_size(wr->line, wr->cursor);
+       assert(wr->cursor >= size);
+       wr->cursor -= size;
+       if (wr->cursor < wr->start)
+               wr->start = wr->cursor;
 }
 
 /* move the cursor to the end of the line */
 static inline void cursor_move_to_eol(struct wreadln *wr)
 {
        wr->cursor = strlen(wr->line);
-       if (wr->cursor >= wr->width)
-               wr->start = wr->cursor - wr->width + 1;
+       if (cursor_column(wr) >= wr->width)
+               wr->start = right_align_bytes(wr->line, wr->cursor, wr->width);
 }
 
 /* draw line buffer and update cursor position */
@@ -115,16 +276,17 @@ static inline void drawline(const struct wreadln *wr)
        whline(wr->w, ' ', wr->width);
        /* print visible part of the line buffer */
        if (wr->masked)
-               whline(wr->w, '*', utf8_width(wr->line) - wr->start);
+               whline(wr->w, '*', utf8_width(wr->line + wr->start));
        else
-               waddnstr(wr->w, wr->line + wr->start, wr->width);
+               waddnstr(wr->w, wr->line + wr->start,
+                        screen_to_bytes(wr->line, wr->width));
        /* move the cursor to the correct position */
-       wmove(wr->w, wr->y, wr->x + wr->cursor - wr->start);
+       wmove(wr->w, wr->y, wr->x + cursor_column(wr));
        /* tell ncurses to redraw the screen */
        doupdate();
 }
 
-#ifdef ENABLE_WIDE
+#if (defined(HAVE_CURSES_ENHANCED) || defined(ENABLE_MULTIBYTE)) && !defined(WIN32)
 static bool
 multibyte_is_complete(const char *p, size_t length)
 {
@@ -145,14 +307,13 @@ static void
 wreadln_insert_byte(struct wreadln *wr, gint key)
 {
        size_t rest = strlen(wr->line + wr->cursor) + 1;
-#ifdef ENABLE_WIDE
+#if (defined(HAVE_CURSES_ENHANCED) || defined(ENABLE_MULTIBYTE)) && !defined (WIN32)
        char buffer[32] = { key };
        size_t length = 1;
        struct pollfd pfd = {
                .fd = 0,
                .events = POLLIN,
        };
-       int ret;
 
        /* wide version: try to complete the multibyte sequence */
 
@@ -163,8 +324,7 @@ wreadln_insert_byte(struct wreadln *wr, gint key)
 
                /* poll for more bytes on stdin, without timeout */
 
-               ret = poll(&pfd, 1, 0);
-               if (ret <= 0)
+               if (poll(&pfd, 1, 0) <= 0)
                        /* no more input from keyboard */
                        break;
 
@@ -185,20 +345,17 @@ wreadln_insert_byte(struct wreadln *wr, gint key)
 #endif
 
        wr->cursor += length;
-       if (wr->cursor >= (size_t)wr->width &&
-           wr->start < wr->cursor - wr->width + 1)
-               wr->start += length;
+       if (cursor_column(wr) >= wr->width)
+               wr->start = right_align_bytes(wr->line, wr->cursor, wr->width);
 }
 
 static void
 wreadln_delete_char(struct wreadln *wr, size_t x)
 {
-       size_t rest;
-       const size_t length = 1;
-
        assert(x < strlen(wr->line));
 
-       rest = strlen(&wr->line[x + length]) + 1;
+       size_t length = next_char_size(&wr->line[x]);
+       size_t rest = strlen(&wr->line[x + length]) + 1;
        memmove(&wr->line[x], &wr->line[x + length], rest);
 }
 
@@ -220,17 +377,21 @@ _wreadln(WINDOW *w,
                .start = 0,
        };
        GList *hlist = NULL, *hcurrent = NULL;
-       gint key = 0;
-       size_t i;
+
+#ifdef NCMPC_MINI
+       (void)gcmp;
+#endif
 
        /* turn off echo */
        noecho();
-       /* make shure the cursor is visible */
+       /* make sure the cursor is visible */
        curs_set(1);
        /* print prompt string */
-       if (prompt)
+       if (prompt) {
                waddstr(w, prompt);
-       /* retrive y and x0 position */
+               waddstr(w, ": ");
+       }
+       /* retrieve y and x0 position */
        getyx(w, wr.y, wr.x);
        /* check the x1 value */
        if (x1 <= wr.x || x1 > (unsigned)COLS)
@@ -267,24 +428,28 @@ _wreadln(WINDOW *w,
                drawline(&wr);
        }
 
+       gint key = 0;
        while (key != 13 && key != '\n') {
                key = wgetch(w);
 
                /* check if key is a function key */
-               for (i = 0; i < 63; i++)
+               for (size_t i = 0; i < 63; i++)
                        if (key == (int)KEY_F(i)) {
                                key = KEY_F(1);
                                i = 64;
                        }
 
                switch (key) {
+                       size_t i;
+
 #ifdef HAVE_GETMOUSE
                case KEY_MOUSE: /* ignore mouse events */
 #endif
-               case ERR: /* ingnore errors */
+               case ERR: /* ignore errors */
                        break;
 
                case TAB:
+#ifndef NCMPC_MINI
                        if (gcmp) {
                                char *prefix = NULL;
                                GList *list;
@@ -304,6 +469,7 @@ _wreadln(WINDOW *w,
                                        wrln_post_completion_callback(gcmp, wr.line, list,
                                                                      wrln_completion_callback_data);
                        }
+#endif
                        break;
 
                case KEY_CTRL_G:
@@ -341,6 +507,20 @@ _wreadln(WINDOW *w,
                                wr.line[i] = '\0';
                        wr.cursor = 0;
                        break;
+               case KEY_CTRL_W:
+                       /* Firstly remove trailing spaces. */
+                       for (i = wr.cursor; i > 0 && wr.line[i-1] == ' '; i--)
+                       {
+                               cursor_move_left(&wr);
+                               wreadln_delete_char(&wr, wr.cursor);
+                       }
+                       /* Then remove word until next space. */
+                       for (; i > 0 && wr.line[i-1] != ' '; i--)
+                       {
+                               cursor_move_left(&wr);
+                               wreadln_delete_char(&wr, wr.cursor);
+                       }
+                       break;
                case 127:
                case KEY_BCKSPC:        /* handle backspace: copy all */
                case KEY_BACKSPACE:     /* chars starting from curpos */
@@ -412,16 +592,21 @@ _wreadln(WINDOW *w,
                        *history = g_list_delete_link(*history, hcurrent);
                }
 
-               while (g_list_length(*history) > wrln_max_history_length) {
+               unsigned history_length = g_list_length(*history);
+               while (history_length > wrln_max_history_length) {
                        GList *first = g_list_first(*history);
 
                        /* remove the oldest history entry  */
                        g_free(first->data);
                        first->data = NULL;
                        *history = g_list_delete_link(*history, first);
+                       --history_length;
                }
        }
 
+       if (wr.line[0] == 0)
+               return NULL;
+
        return g_strdup(wr.line);
 }