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.16  2008/02/28 16:57:52  james
  14  * *** empty log message ***
  15  *
  16  * Revision 1.15  2008/02/27 09:42:53  james
  17  * *** empty log message ***
  18  *
  19  * Revision 1.14  2008/02/27 09:42:22  james
  20  * *** empty log message ***
  21  *
  22  * Revision 1.13  2008/02/27 01:31:38  james
  23  * *** empty log message ***
  24  *
  25  * Revision 1.12  2008/02/27 01:31:14  james
  26  * *** empty log message ***
  27  *
  28  * Revision 1.11  2008/02/26 23:23:17  james
  29  * *** empty log message ***
  30  *
  31  * Revision 1.10  2008/02/24 00:42:53  james
  32  * *** empty log message ***
  33  *
  34  * Revision 1.9  2008/02/23 13:05:58  staffcvs
  35  * *** empty log message ***
  36  *
  37  * Revision 1.8  2008/02/23 11:48:37  james
  38  * *** empty log message ***
  39  *
  40  * Revision 1.7  2008/02/22 17:07:00  james
  41  * *** empty log message ***
  42  *
  43  * Revision 1.6  2008/02/22 14:51:54  james
  44  * *** empty log message ***
  45  *
  46  * Revision 1.5  2008/02/15 23:52:12  james
  47  * *** empty log message ***
  48  *
  49  * Revision 1.4  2008/02/14 10:39:14  james
  50  * *** empty log message ***
  51  *
  52  * Revision 1.3  2008/02/13 09:12:21  james
  53  * *** empty log message ***
  54  *
  55  * Revision 1.2  2008/02/12 22:36:46  james
  56  * *** empty log message ***
  57  *
  58  * Revision 1.1  2008/02/09 15:47:28  james
  59  * *** empty log message ***
  60  *
  61  * Revision 1.2  2008/02/07 11:11:14  staffcvs
  62  * *** empty log message ***
  63  *
  64  * Revision 1.1  2008/02/07 01:02:52  james
  65  * *** empty log message ***
  66  *
  67  * Revision 1.3  2008/02/06 17:53:28  james
  68  * *** empty log message ***
  69  *
  70  * Revision 1.2  2008/02/04 02:05:06  james
  71  * *** empty log message ***
  72  *
  73  * Revision 1.1  2008/02/04 01:32:39  james
  74  * *** empty log message ***
  75  *
  76  */
  77
  78 #include "project.h"
  79
  80
  81 typedef struct
  82 {
  83   TTY_SIGNATURE;
  84   int fd;
  85   pid_t child;
  86 } PTTY;
  87
  88
  89 static void
  90 ptty_close (TTY * _t)
  91 {
  92   PTTY *t = (PTTY *) _t;
  93
  94   if (!t)
  95     return;
  96
  97   close (t->fd);
  98   free (t);
  99 }
 100
 101
 102
 103 static int
 104 ptty_read (TTY * _t, void *buf, int len)
 105 {
 106   PTTY *t = (PTTY *) _t;
 107   int red, done = 0;
 108
 109   do
 110     {
 111
 112       red = wrap_read (t->fd, buf, len);
 113       if (red < 0)
 114         return -1;
 115       if (!red)
 116         return done;
 117
 118       buf += red;
 119       len -= red;
 120       done += red;
 121     }
 122   while (len);
 123
 124
 125   return done;
 126 }
 127
 128
 129 static int
 130 ptty_write (TTY * _t, void *buf, int len)
 131 {
 132   int writ, done = 0;
 133   PTTY *t = (PTTY *) _t;
 134
 135   do
 136     {
 137
 138       writ = wrap_write (t->fd, buf, len);
 139       if (writ < 0)
 140         return -1;
 141       if (!writ)
 142         sleep (1);
 143
 144       buf += writ;
 145       len -= writ;
 146       done += writ;
 147     }
 148   while (len);
 149
 150
 151   return done;
 152 }
 153
 154 TTY *
 155 ptty_open (char *path, char *argv[], CRT_Pos * size)
 156 {
 157   PTTY *t;
 158   pid_t child;
 159   char name[1024];
 160   struct winsize winsize = { 0 };
 161   struct termios ctermios = { 0 };
 162   int fd;
 163   char *default_argv[] = { "-", (char *) 0 };
 164
 165
 166   client_termios (&ctermios);
 167   winsize.ws_row = size ? size->y : VT102_ROWS_24;
 168   winsize.ws_col = size ? size->x : VT102_COLS_80;
 169
 170   child = forkpty (&fd, name, &ctermios, &winsize);
 171
 172   switch (child)
 173     {
 174     case -1:                   /*boo hiss */
 175       return NULL;
 176     case 0:                    /*waaah */
 177       setenv ("TERM", "xterm", 1);
 178       if (!path)
 179         path = "/bin/sh";
 180
 181       if (!argv)
 182         argv = default_argv;
 183
 184       execv (path, argv);
 185       _exit (-1);
 186     }
 187
 188   set_nonblocking (fd);
 189
 190 #if 0
 191   {
 192     struct termios termios = { 0 };
 193
 194     tcgetattr (fd, &termios);
 195     default_termios (&termios);
 196     tcsetattr (fd, TCSANOW, &termios);
 197   }
 198 #endif
 199
 200   t = (PTTY *) malloc (sizeof (PTTY));
 201
 202   strncpy (t->name, name, sizeof (t->name));
 203   t->name[sizeof (t->name) - 1] = 0;
 204
 205   t->recv = ptty_read;
 206   t->xmit = ptty_write;
 207   t->close = ptty_close;
 208   t->fd = fd;
 209   t->child = child;
 210   t->rfd = t->fd;
 211   t->wfd = t->fd;
 212   t->size.x = winsize.ws_row;
 213   t->size.y = winsize.ws_col;
 214   t->blocked = 0;
 215   t->hanging_up = 0;
 216
 217   return (TTY *) t;
 218 }