tdv/sdcli.c

275 lines
5.9 KiB
C

/*
* StarDict console UI
*
* Copyright (c) 2013, Přemysl Janouch <p.janouch@gmail.com>
* All rights reserved.
*
* Permission to use, copy, modify, and/or distribute this software for any
* purpose with or without fee is hereby granted, provided that the above
* copyright notice and this permission notice appear in all copies.
*
* THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
* WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
* MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
* SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION
* OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN
* CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
*
*/
#define _XOPEN_SOURCE_EXTENDED /**< Yes, we want ncursesw. */
#include <stdio.h>
#include <stdlib.h>
#include <locale.h>
#include <stdarg.h>
#include <limits.h>
#include <glib.h>
#include <gio/gio.h>
#include <ncurses.h>
#include <unistd.h>
#include <poll.h>
#include <errno.h>
#include <signal.h>
#include "stardict.h"
#define KEY_ESCAPE 27 /**< Curses doesn't define this. */
// --- Utilities ---------------------------------------------------------------
static void
display (const gchar *format, ...)
{
va_list ap;
va_start (ap, format);
vw_printw (stdscr, format, ap);
va_end (ap);
refresh ();
}
static gchar *
wchar_to_mb (wchar_t ch)
{
/* Convert the character back to a multi-byte sequence. */
static gchar buffer[MB_LEN_MAX + 1];
size_t len = wcrtomb (buffer, ch, NULL);
/* This shouldn't happen. It would mean that the user has
* somehow managed to enter something inexpressable in the
* current locale. */
if (len == (size_t) -1)
abort ();
/* Here I hope the buffer doesn't overflow. Who uses
* shift states nowadays, anyway? */
if (wcrtomb (buffer + len, L'\0', NULL) == (size_t) -1)
abort ();
return buffer;
}
static const gchar *
wchar_to_mb_escaped (wchar_t ch)
{
switch (ch)
{
case L'\r': return "\\r";
case L'\n': return "\\n";
case L'\t': return "\\t";
default: return wchar_to_mb (ch);
}
}
static int
poll_restart (struct pollfd *fds, nfds_t nfds, int timeout)
{
int ret;
do
ret = poll (fds, nfds, timeout);
while (ret == -1 && errno == EINTR);
return ret;
}
// --- SIGWINCH ----------------------------------------------------------------
static int g_winch_pipe[2]; /**< SIGWINCH signalling pipe. */
static void (*g_old_winch_handler) (int);
static void
winch_handler (int signum)
{
/* Call the ncurses handler. */
if (g_old_winch_handler)
g_old_winch_handler (signum);
/* And wake up the poll() call. */
write (g_winch_pipe[1], "x", 1);
}
static void
install_winch_handler (void)
{
struct sigaction act, oldact;
act.sa_handler = winch_handler;
act.sa_flags = SA_RESTART;
sigemptyset (&act.sa_mask);
sigaction (SIGWINCH, &act, &oldact);
/* Save the ncurses handler. */
if (oldact.sa_handler != SIG_DFL
&& oldact.sa_handler != SIG_IGN)
g_old_winch_handler = oldact.sa_handler;
}
// --- Event handlers ----------------------------------------------------------
typedef struct
{
wint_t code;
guint is_char : 1;
MEVENT mouse;
}
CursesEvent;
static gboolean
process_curses_event (CursesEvent *event)
{
if (!event->is_char)
{
switch (event->code)
{
case KEY_RESIZE:
display ("Screen has been resized to %u x %u\n",
COLS, LINES);
break;
case KEY_MOUSE:
display ("Mouse event at (%d, %d), state %#lx\n",
event->mouse.x, event->mouse.y, event->mouse.bstate);
break;
default:
display ("Keyboard event: non-character: %u\n",
event->code);
}
return TRUE;
}
display ("Keyboard event: character: '%s'\n",
wchar_to_mb_escaped (event->code));
if (event->code == L'q' || event->code == KEY_ESCAPE)
{
display ("Quitting...\n");
return FALSE;
}
return TRUE;
}
static gboolean
process_stdin_input (void)
{
CursesEvent event;
int sta;
while ((sta = get_wch (&event.code)) != ERR)
{
event.is_char = (sta == OK);
if (sta == KEY_CODE_YES && event.code == KEY_MOUSE
&& getmouse (&event.mouse) == ERR)
abort ();
if (!process_curses_event (&event))
return FALSE;
}
return TRUE;
}
static gboolean
process_winch_input (int fd)
{
char c;
read (fd, &c, 1);
return process_stdin_input ();
}
// --- Main --------------------------------------------------------------------
int
main (int argc, char *argv[])
{
static GOptionEntry entries[] =
{
{ NULL }
};
if (!setlocale (LC_ALL, ""))
abort ();
GError *error = NULL;
GOptionContext *ctx = g_option_context_new ("- StarDict console UI");
g_option_context_add_main_entries (ctx, entries, NULL);
if (!g_option_context_parse (ctx, &argc, &argv, &error))
{
g_print ("option parsing failed: %s\n", error->message);
exit (EXIT_FAILURE);
}
if (!initscr ()
|| cbreak () == ERR
|| noecho () == ERR)
abort ();
keypad (stdscr, TRUE); /* Enable character processing. */
nodelay (stdscr, TRUE); /* Don't block on get_wch(). */
mousemask (ALL_MOUSE_EVENTS, NULL);
display ("Press Q, Escape or ^C to quit\n");
if (pipe (g_winch_pipe) == -1)
abort ();
install_winch_handler ();
// --- Message loop ------------------------------------------------------------
struct pollfd pollfd[2];
pollfd[0].fd = fileno (stdin);
pollfd[0].events = POLLIN;
pollfd[1].fd = g_winch_pipe[0];
pollfd[1].events = POLLIN;
while (TRUE)
{
if (poll_restart (pollfd, 3, -1) == -1)
abort ();
if ((pollfd[0].revents & POLLIN)
&& !process_stdin_input ())
break;
if ((pollfd[1].revents & POLLIN)
&& !process_winch_input (pollfd[2].fd))
break;
}
// --- Cleanup -----------------------------------------------------------------
endwin ();
if (close (g_winch_pipe[0]) == -1
|| close (g_winch_pipe[1]) == -1)
abort ();
return 0;
}