src/ptty.c

   1 /*
   2  * ptty.c:
   3  *
   4  * Copyright (c) 2008 James McKenzie <james@fishsoup.dhs.org>,
   5  * All rights reserved.
   6  *
   7  */
   8
   9 static char rcsid[] = "$Id$";
  10
  11 /*
  12  * $Log$
  13  * Revision 1.9  2008/02/23 13:05:58  staffcvs
  14  * *** empty log message ***
  15  *
  16  * Revision 1.8  2008/02/23 11:48:37  james
  17  * *** empty log message ***
  18  *
  19  * Revision 1.7  2008/02/22 17:07:00  james
  20  * *** empty log message ***
  21  *
  22  * Revision 1.6  2008/02/22 14:51:54  james
  23  * *** empty log message ***
  24  *
  25  * Revision 1.5  2008/02/15 23:52:12  james
  26  * *** empty log message ***
  27  *
  28  * Revision 1.4  2008/02/14 10:39:14  james
  29  * *** empty log message ***
  30  *
  31  * Revision 1.3  2008/02/13 09:12:21  james
  32  * *** empty log message ***
  33  *
  34  * Revision 1.2  2008/02/12 22:36:46  james
  35  * *** empty log message ***
  36  *
  37  * Revision 1.1  2008/02/09 15:47:28  james
  38  * *** empty log message ***
  39  *
  40  * Revision 1.2  2008/02/07 11:11:14  staffcvs
  41  * *** empty log message ***
  42  *
  43  * Revision 1.1  2008/02/07 01:02:52  james
  44  * *** empty log message ***
  45  *
  46  * Revision 1.3  2008/02/06 17:53:28  james
  47  * *** empty log message ***
  48  *
  49  * Revision 1.2  2008/02/04 02:05:06  james
  50  * *** empty log message ***
  51  *
  52  * Revision 1.1  2008/02/04 01:32:39  james
  53  * *** empty log message ***
  54  *
  55  */
  56
  57 #include "project.h"
  58
  59
  60 typedef struct
  61 {
  62   TTY_SIGNATURE;
  63   int fd;
  64   pid_t child;
  65 } PTTY;
  66
  67
  68 static void
  69 ptty_close (TTY * _t)
  70 {
  71   PTTY *t = (PTTY *) _t;
  72
  73   if (!t)
  74     return;
  75
  76   close (t->fd);
  77   free (t);
  78 }
  79
  80
  81
  82 static int
  83 ptty_read (TTY * _t, void *buf, int len)
  84 {
  85   PTTY *t = (PTTY *) _t;
  86   int red, done = 0;
  87
  88   do
  89     {
  90
  91       red = wrap_read (t->fd, buf, len);
  92       if (red < 0)
  93         return -1;
  94       if (!red)
  95         return done;
  96
  97       buf += red;
  98       len -= red;
  99       done += red;
 100     }
 101   while (len);
 102
 103
 104   return done;
 105 }
 106
 107
 108 static int
 109 ptty_write (TTY * _t, void *buf, int len)
 110 {
 111   int writ, done = 0;
 112   PTTY *t = (PTTY *) _t;
 113
 114   do
 115     {
 116
 117       writ = wrap_write (t->fd, buf, len);
 118       if (writ < 0)
 119         return -1;
 120       if (!writ)
 121         sleep (1);
 122
 123       buf += writ;
 124       len -= writ;
 125       done += writ;
 126     }
 127   while (len);
 128
 129
 130   return done;
 131 }
 132
 133 TTY *
 134 ptty_open (char *path, char *argv[])
 135 {
 136   PTTY *t;
 137   pid_t child;
 138   char name[1024];
 139   struct winsize winsize = { 0 };
 140   struct termios termios = { 0 };
 141   int fd;
 142   char *default_argv[] = { "-", (char *) 0 };
 143
 144
 145   default_termios (&termios);
 146   cfsetispeed (&termios, B9600);
 147   cfsetospeed (&termios, B9600);
 148
 149   winsize.ws_row = VT102_ROWS;
 150   winsize.ws_col = VT102_COLS;
 151
 152   child = forkpty (&fd, name, &termios, &winsize);
 153
 154   switch (child)
 155     {
 156     case -1:                   /*boo hiss */
 157       return NULL;
 158     case 0:                    /*waaah */
 159       setenv ("TERM", "xterm", 1);
 160       if (!path)
 161         path = "/bin/sh";
 162
 163       if (!argv)
 164         argv = default_argv;
 165
 166       execv (path, argv);
 167       _exit (-1);
 168     }
 169
 170   set_nonblocking (fd);
 171
 172   t = (PTTY *) malloc (sizeof (PTTY));
 173
 174   strncpy (t->name, name, sizeof (t->name));
 175   t->name[sizeof (t->name) - 1] = 0;
 176
 177   t->recv = ptty_read;
 178   t->xmit = ptty_write;
 179   t->close = ptty_close;
 180   t->fd = fd;
 181   t->child = child;
 182   t->rfd = t->fd;
 183   t->wfd = t->fd;
 184   t->size.x = winsize.ws_row;
 185   t->size.y = winsize.ws_col;
 186   t->blocked = 0;
 187   t->hanging_up = 0;
 188
 189   return (TTY *) t;
 190 }