Kill some spurious warnings. Track @msg@ interface change.

[xtoys] / xcatch.c

/* -*-c-*-
 *
 * $Id: xcatch.c,v 1.9 2002/01/13 14:43:27 mdw Exp $
 *
 * Catch input and trap it in an X window
 *
 * (c) 1998 Straylight/Edgeware
 */

/*----- Licensing notice --------------------------------------------------* 
 *
 * This file is part of the Edgeware X tools collection.
 *
 * X tools 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 2 of the License, or
 * (at your option) any later version.
 * 
 * X tools 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 X tools; if not, write to the Free Software Foundation,
 * Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 */

/*----- Revision history --------------------------------------------------* 
 *
 * $Log: xcatch.c,v $
 * Revision 1.9  2002/01/13 14:43:27  mdw
 * Kill some spurious warnings.  Track @msg@ interface change.
 *
 * Revision 1.8  1999/06/19 23:42:55  mdw
 * Improve signal handling.  Fix options parsing to POSIX order only.
 *
 * Revision 1.7  1999/05/21 22:09:19  mdw
 * Take advantage of new dynamic string macros.
 *
 * Revision 1.6  1999/05/19 20:41:15  mdw
 * Track gratuitous change in mdwopt interface.
 *
 * Revision 1.5  1999/05/05 18:55:18  mdw
 * Block SIGCHLD around the `fork' call to prevent a race.
 *
 * Revision 1.4  1999/03/24 22:23:57  mdw
 * Improve display for large files.  Keep newly added material in view if
 * scrolled to bottom of window.
 *
 * Revision 1.3  1998/12/20 17:19:16  mdw
 * Return exit status of child process, rather than always returning
 * success.
 *
 * Revision 1.2  1998/12/16 00:10:58  mdw
 * Fix tabbing in help text.
 *
 * Revision 1.1  1998/12/15 23:46:50  mdw
 * New program: captures input and puts it in a window.
 *
 */

/*----- Header files ------------------------------------------------------*/

#include <errno.h>
#include <signal.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#include <sys/types.h>
#include <sys/wait.h>

#include <fcntl.h>
#include <unistd.h>

#include <gtk/gtk.h>

#include <mLib/dstr.h>
#include <mLib/mdwopt.h>
#include <mLib/report.h>
#include <mLib/quis.h>

#include <mgLib/cancel.h>
#include <mgLib/msg.h>

/*----- Inportant state ---------------------------------------------------*/

static unsigned int flags;

#define f_closed 1u
#define f_bogus 2u

static GtkWidget *textbox = 0;
static GdkFont *font;

static pid_t kid = -1;
static int status;

/*----- Main code ---------------------------------------------------------*/

/* --- The window's closed --- */

static void killwin(GtkWidget *w, gpointer p)
{
  if (flags & f_closed)
    gtk_main_quit();
  else
    textbox = 0;
}

/* --- Some input has arrived --- */

static void ready(gpointer data, gint fd, GdkInputCondition c)
{
  char buf[1024];
  int doscroll = 1;
  GtkText *t = 0;
  GtkAdjustment *va = 0;

  /* --- If not ready to read then go away --- */

  if (!(c & GDK_INPUT_READ))
    return;

  /* --- Decide whether to scroll the window --- */

  if (textbox) {
    t = GTK_TEXT(textbox);
    va = t->vadj;
    if (va->value + va->page_size < va->upper)
      doscroll = 0;
    gtk_text_freeze(t);
  }

  /* --- Read data into the buffer --- *
   *
   * This is a bit of a mess.
   */

  for (;;) {
    int r = read(fd, buf, sizeof(buf));

    /* --- The read failed --- *
     *
     * Maybe there's no more data to read.  In this case, we get
     * @EWOULDBLOCK@, indicating it's time to stop and do something else.
     * Otherwise something serious has happened.
     */

    if (r < 0) {
      if (errno == EWOULDBLOCK)
	break;
      msg(QUIS, ":~OK", "error reading data: %s", strerror(errno));
      exit(EXIT_FAILURE);
    }

    /* --- End of file --- *
     *
     * If the box is closed, then exit quiety; otherwise wait for it to
     * go away.
     */

    if (r == 0) {
      close(fd);
      if (textbox)
	flags |= f_closed;
      else
	gtk_main_quit();
      break;
    }

    /* --- If there's no output window, create one --- */

    if (!textbox) {
      GtkWidget *win;
      GtkWidget *tbl;
      GtkWidget *w;

      win = gtk_dialog_new();
      gtk_window_set_policy(GTK_WINDOW(win), 1, 1, 0);
      gtk_signal_connect(GTK_OBJECT(win), "destroy",
			 GTK_SIGNAL_FUNC(killwin), 0);

      tbl = gtk_table_new(2, 2, 0);
      gtk_container_border_width(GTK_CONTAINER(tbl), 8);
      gtk_box_pack_start(GTK_BOX(GTK_DIALOG(win)->vbox), tbl, 1, 1, 1);
      gtk_widget_show(tbl);

      textbox = gtk_text_new(0, 0);
      t = GTK_TEXT(textbox);
      va = t->vadj;
      gtk_table_attach(GTK_TABLE(tbl), textbox, 0, 1, 0, 1,
		       GTK_EXPAND | GTK_SHRINK | GTK_FILL,
		       GTK_EXPAND | GTK_SHRINK | GTK_FILL,
		       0, 0);
      gtk_text_set_editable(t, 0);
      gtk_widget_set_usize(textbox, 500, 300);
      gtk_text_freeze(t);
      gtk_widget_show(textbox);

      w = gtk_vscrollbar_new(va);
      gtk_table_attach(GTK_TABLE(tbl), w, 1, 2, 0, 1,
		       0, GTK_EXPAND | GTK_SHRINK | GTK_FILL, 0, 0);
      gtk_widget_show(w);

      w = gtk_hscrollbar_new(t->hadj);
      gtk_table_attach(GTK_TABLE(tbl), w, 0, 1, 1, 2,
		       GTK_EXPAND | GTK_SHRINK | GTK_FILL, 0, 0, 0);
      gtk_widget_show(w);

      gtk_box_set_homogeneous(GTK_BOX(GTK_DIALOG(win)->action_area), 0);
      w = gtk_button_new_with_label("Dismiss");
      gtk_signal_connect_object(GTK_OBJECT(w), "clicked",
				GTK_SIGNAL_FUNC(gtk_object_destroy),
				GTK_OBJECT(win));
      gtk_box_pack_end(GTK_BOX(GTK_DIALOG(win)->action_area), w, 0, 0, 0);
      GTK_WIDGET_SET_FLAGS(w, GTK_CAN_DEFAULT);
      gtk_widget_grab_default(w);
      cancel(GTK_WINDOW(win), w);
      gtk_widget_show(w);

      gtk_widget_show(win);
    }

    gtk_text_insert(t, font, 0, 0, buf, r);
  }

  if (textbox) {
    gtk_text_thaw(t);
    if (doscroll)
      gtk_adjustment_set_value(va, va->upper - va->page_size);
  }
}

/* --- Signal handler --- */

static void reap(int sig)
{
  pid_t k;
  int s;
  int e = errno;

  for (;;) {
    k = waitpid(-1, &s, WNOHANG);
    if (k <= 0)
      break;
    if (k == kid) {
      if (WIFEXITED(s))
	status = WEXITSTATUS(s);
      else
	status = 127;
    }
  }
  errno = e;
}

/* --- Main program --- */

static void version(FILE *fp)
{
  fprintf(fp, "%s (xtoys version " VERSION ")\n", QUIS);
}

static void usage(FILE *fp)
{
  fprintf(fp, "Usage: %s [-f file] [-F font] [command [args...]]\n", QUIS);
}

int main(int argc, char *argv[])
{
  int fd = -1;

  ego(argv[0]);

  gtk_init(&argc, &argv);

  for (;;) {
    static struct option opt[] = {
      { "help",		0,		0,	'h' },
      { "usage",	0,		0,	'u' },
      { "version",	0,		0,	'v' },
      { "file",		OPTF_ARGREQ,	0,	'f' },
      { "font",		OPTF_ARGREQ,	0,	'F' },
      { 0,		0,		0,	0 }
    };
    int i = mdwopt(argc, argv, "+huvf:F:", opt, 0, 0, 0);

    if (i < 0)
      break;

    switch (i) {
      case 'h':
	version(stdout);
	fputc('\n', stdout);
	usage(stdout);
	fputs(
"\n"
"Catches input from a pipe or other source, and captures it in a window.\n"
"Nothing is displayed if there's no input.\n"
"\n"
"Options provided:\n"
"\n"
"-h, --help		Display this help text\n"
"-u, --usage		Display a quick usage summary\n"
"-v, --version		Display the version number\n"
"-f, --file=FILE\t	Read input from the named file\n"
"-F, --font=FONT\t	Display output in the named font\n",
          stdout);
	exit(0);
	break;
      case 'u':
	usage(stdout);
	exit(0);
	break;
      case 'v':
	version(stdout);
	exit(0);
	break;
      case 'f':
	if ((fd = open(optarg, O_RDONLY)) < 0) {
	  die(1, "couldn't open file: %s", strerror(errno));
	  exit(1);
	}
	break;
      case 'F':
	font = gdk_font_load(optarg);
	break;
      default:
	flags |= f_bogus;
	break;
    }
  }

  if (flags & f_bogus) {
    usage(stderr);
    exit(1);
  }

  if (fd == -1) {
    if (optind == argc)
      fd = STDIN_FILENO;
    else {
      int pfd[2];
      struct sigaction sa;
      sigset_t newmask, oldmask;

      /* --- Set up a signal handler --- */

      sa.sa_handler = reap;
      sigemptyset(&sa.sa_mask);
      sa.sa_flags = SA_NOCLDSTOP;
#ifdef SA_RESTART
      sa.sa_flags |= SA_RESTART;
#endif
      sigaction(SIGCHLD, &sa, 0);

      /* --- Start a child program --- */

      if (pipe(pfd))
	die(1, "couldn't open pipe: %s", strerror(errno));

      sigemptyset(&newmask);
      sigaddset(&newmask, SIGCHLD);
      sigprocmask(SIG_BLOCK, &newmask, &oldmask);

      kid = fork();
      if (kid < 0)
	die(1, "couldn't fork: %s", strerror(errno));
      if (kid == 0) {
	dstr d = DSTR_INIT;

	close(pfd[0]);
	if (pfd[1] != STDOUT_FILENO)
	  dup2(pfd[1], STDOUT_FILENO);
	if (pfd[1] != STDERR_FILENO)
	  dup2(pfd[1], STDERR_FILENO);
	if (pfd[1] != STDOUT_FILENO && pfd[1] != STDERR_FILENO)
	  close(pfd[1]);
	execvp(argv[optind], argv + optind);

	dstr_putf(&d, "%s: couldn't run `%s': %s\n",
		  QUIS, argv[optind], strerror(errno));
	write(STDERR_FILENO, d.buf, d.len);
	dstr_destroy(&d);
	_exit(127);
      }

      sigprocmask(SIG_SETMASK, &oldmask, 0);
      fd = pfd[0];
      close(pfd[1]);
    }
  }

  {
    int f = fcntl(fd, F_GETFL);
    fcntl(fd, F_SETFL, f | O_NONBLOCK);
  }

  gdk_input_add(fd, GDK_INPUT_READ, ready, 0);
  gtk_main();
  return (status);
}

/*----- That's all, folks -------------------------------------------------*/