![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to main.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSD / contrib / X / xterm|
Return to main.c CVS log | Up to [CSRG BSD Unix] / 43BSD / contrib / X / xterm |
1.1 root 1: #include <X/mit-copyright.h>
2:
3: /* Copyright Massachusetts Institute of Technology 1984, 1985 */
4:
5: /* ptyx.c */
6:
7: #ifndef lint
8: static char *rcsid_ptyx_c = "$Header: main.c,v 10.44 86/05/16 10:17:20 jg Exp $";
9: #endif lint
10:
11: #include <pwd.h>
12: #include <sgtty.h>
13: #include <sys/wait.h>
14: #include <sys/time.h>
15: #include <sys/resource.h>
16: #include <stdio.h>
17: #include <sys/file.h>
18: #include <errno.h>
19: #include <signal.h>
20: #include <strings.h>
21: #include <X/Xlib.h>
22: #include "ptyx.h"
23: #include <grp.h>
24: #include <ttyent.h>
25: #include <utmp.h>
26:
27: char *xterm_name; /* argv[0] */
28: Terminal term; /* master data structure for client */
29: int am_slave = 0; /* set to 1 if running as a slave process */
30: int debug = 0; /* true causes error messages to be displayed */
31:
32: static char *ptydev = "/dev/ptyxx";
33: static char *ttydev = "/dev/ttyxx";
34:
35: #include "../cursors/xterm.cursor"
36: #include "../cursors/xterm_mask.cursor"
37: #include "icon.ic"
38: #include "icon_mask.ic"
39:
40: static int reapchild ();
41:
42: static char **command_to_exec = (char **) NULL;
43: static char *win_name = (char *) 0;
44:
45:
46: static struct sgttyb d_sg = {
47: 0, 0, 0177, CKILL, EVENP|ODDP|ECHO|XTABS|CRMOD
48: };
49: static struct tchars d_tc = {
50: CINTR, CQUIT, CSTART,
51: CSTOP, CEOF, CBRK,
52: };
53: static struct ltchars d_ltc = {
54: CSUSP, CDSUSP, CRPRNT,
55: CFLUSH, CWERASE, CLNEXT
56: };
57: static int d_disipline = NTTYDISC;
58: static int d_lmode = LCRTBS|LCRTERA|LCRTKIL|LCTLECH;
59: static int no_dev_tty = 0;
60: static int loginflag = 0;
61: static int dologinflag = 0;
62: #ifdef sun
63: #ifdef TIOCCONS
64: static int SunConsole = 0;
65: #endif TIOCCONS
66: #endif sun
67:
68:
69: main (argc, argv)
70: int argc;
71: char **argv;
72: {
73: int ind;
74: char *strind, *strind1, *strscan();
75: char *fn = "vtsingle";
76: char *fb = "vtbold";
77: short fnflag = 0; /* True iff -fn option used */
78: short fbflag = 0; /* True iff -fb option used */
79: char *getty = NULL;
80: int reverse = 0, multiscroll = 0;
81: int border = 1, tek = 0;
82: int borderwidth = 2;
83: int bitmapicon = 0;
84: #ifdef JUMPSCROLL
85: int jumpscroll = 0;
86: #endif JUMPSCROLL
87: int slave = 0; /* if non-zero, run as slave */
88: char passedPty[2]; /* name if pty if slave */
89: char *fore_color;
90: char *back_color;
91: char *brdr_color;
92: char *curs_color;
93: char *mous_color;
94: char display[256];
95: char *getenv();
96: char *option;
97: char *geometry, *def = "=80x24+1+1";
98:
99: xterm_name = argv[0];
100:
101: display[0] = '\0';
102: /*
103: * go get options out of default file
104: */
105: if ((option = XGetDefault(argv[0], "BodyFont")) != NULL) {
106: fn = option;
107: fnflag = 1;
108: }
109: if ((option = XGetDefault(argv[0], "BoldFont")) != NULL) {
110: fb = option;
111: fbflag = 1;
112: }
113: if ((option = XGetDefault(argv[0], "InternalBorder")) != NULL) {
114: border = atoi (option);
115: }
116: if ((option = XGetDefault(argv[0], "BorderWidth")) != NULL) {
117: borderwidth = atoi (option);
118: }
119:
120: if ((option = XGetDefault(argv[0], "BitmapIcon")) != NULL)
121: if (strcmp (option, "on") == 0)
122: bitmapicon = 1;
123:
124: if ((option = XGetDefault(argv[0], "ReverseVideo")) != NULL)
125: if (strcmp (option, "on") == 0)
126: reverse = 1;
127:
128: if ((option = XGetDefault(argv[0], "Tektronix")) != NULL)
129: if (strcmp (option, "on") == 0)
130: tek = 1;
131: #ifdef JUMPSCROLL
132: if ((option = XGetDefault(argv[0], "JumpScroll")) != NULL)
133: if (strcmp (option, "on") == 0)
134: jumpscroll = 1;
135: #endif JUMPSCROLL
136:
137: fore_color = XGetDefault(argv[0], "Foreground");
138: back_color = XGetDefault(argv[0], "Background");
139: brdr_color = XGetDefault(argv[0], "Border");
140: curs_color = XGetDefault(argv[0], "Cursor");
141: mous_color = XGetDefault(argv[0], "Mouse");
142:
143: /* parse command line */
144:
145: for (ind = 1; ind < argc; ind++) {
146: if (argv [ind] [0] == '=') {
147: geometry = argv[ind];
148: continue;
149: }
150:
151: strind = index (argv[ind], ':');
152: if(strind != NULL) {
153: strncpy(display,argv[ind],sizeof(display));
154: continue;
155: }
156:
157:
158: strind = (char *) index (argv [ind], '-');
159:
160: if (strind == NULL) Syntax ();
161:
162: if (strcmp (argv [ind], "-L") == 0) {
163: char tt[32];
164: int mode = O_RDWR|O_NDELAY;
165: loginflag = 1;
166: getty = argv[argc-1];
167: argc -= 1;
168: strcpy(tt,"/dev/");
169: strcat(tt, getty);
170: chown(tt, 0, 0);
171: chmod(tt, 0622);
172: if (open(tt, mode, 0) < 0) {
173: consolepr("open failed\n");
174: }
175: signal(SIGHUP, SIG_IGN);
176: vhangup();
177: setpgrp(0,0);
178: signal(SIGHUP, SIG_DFL);
179: open(tt, mode, 0);
180: close(0);
181: dup(1);
182: dup(0);
183: continue;
184: }
185:
186: if (strncmp (argv [ind], "-S", 2) == 0) {
187: sscanf(argv[ind] + 2, "%c%c%d", passedPty, passedPty+1,
188: &slave);
189: if (slave <= 0) Syntax();
190: am_slave = 1;
191: continue;
192: }
193:
194: if (strcmp (argv [ind], "-e") == 0) {
195: if (++ind >= argc) Syntax ();
196: command_to_exec = argv + ind;
197: break;
198: }
199:
200: /* Switch to set up Tektronix-shaped (4096x3128 -> 512x390) window
201: * with characters sized to fit 39 lines of 85 characters each */
202:
203: if (strcmp (argv [ind], "-t") == 0) {
204: tek = 1;
205: if (!fnflag) fn = "6x10";
206: if (!fbflag) fb = "6x10";
207: def = "85x39+1+1";
208: continue;
209: }
210:
211: if (strcmp (argv [ind], "-fn") == 0) {
212: if (++ind >= argc) Syntax ();
213: fn = argv [ind];
214: fnflag = 1;
215: continue;
216: }
217:
218: if (strcmp (argv [ind], "-fb") == 0) {
219: if (++ind >= argc) Syntax ();
220: fb = argv [ind];
221: fbflag = 1;
222: continue;
223: }
224:
225: if (strcmp (argv [ind], "-fg") == 0) {
226: if (++ind >= argc) Syntax ();
227: fore_color = argv [ind];
228: continue;
229: }
230:
231: if (strcmp (argv [ind], "-bg") == 0) {
232: if (++ind >= argc) Syntax ();
233: back_color = argv [ind];
234: continue;
235: }
236:
237: if (strcmp (argv [ind], "-bd") == 0) {
238: if (++ind >= argc) Syntax ();
239: brdr_color = argv [ind];
240: continue;
241: }
242:
243: if (strcmp (argv [ind], "-cr") == 0) {
244: if (++ind >= argc) Syntax ();
245: curs_color = argv [ind];
246: continue;
247: }
248:
249: if (strcmp (argv [ind], "-ms") == 0) {
250: if (++ind >= argc) Syntax ();
251: mous_color = argv [ind];
252: continue;
253: }
254:
255: if (strcmp (argv [ind], "-l") == 0) {
256: dologinflag = 1;
257: continue;
258: }
259:
260: if (strcmp (argv [ind], "-d") == 0) {
261: debug = 1;
262: continue;
263: }
264:
265: if (strcmp (argv [ind], "-b") == 0) {
266: if (++ind >= argc) Syntax ();
267: border = atoi (argv [ind]);
268: continue;
269: }
270:
271: if (strcmp (argv [ind], "-bw") == 0 ||
272: strcmp (argv [ind], "-w") == 0) {
273: if (++ind >= argc) Syntax ();
274: borderwidth = atoi (argv [ind]);
275: continue;
276: }
277:
278: if (strcmp (argv [ind], "-rv") == 0 ||
279: strcmp (argv [ind], "-r") == 0) {
280: reverse = 1; /* backwards from usual definition */
281: continue;
282: }
283:
284: if (strcmp (argv [ind], "-s") == 0) {
285: multiscroll = 1;
286: continue;
287: }
288:
289: if (strcmp (argv [ind], "-i") == 0) {
290: bitmapicon = 1;
291: continue;
292: }
293:
294: #ifdef JUMPSCROLL
295: if (strcmp (argv [ind], "-j") == 0) {
296: jumpscroll = 1;
297: continue;
298: }
299: #endif JUMPSCROLL
300:
301: if (strcmp (argv [ind], "-n") == 0) {
302: if (++ind >= argc) Syntax ();
303: win_name = argv [ind];
304: continue;
305: }
306: #ifdef sun
307: #ifdef TIOCCONS
308: if (strcmp (argv [ind], "-C") == 0) {
309: SunConsole = 1;
310: continue;
311: }
312: #endif TIOCCONS
313: #endif sun
314:
315: Syntax ();
316: }
317:
318: if (fnflag && !fbflag) fb = fn;
319: if (!fnflag && fbflag) fn = fb;
320: #ifdef JUMPSCROLL
321: if(tek)
322: jumpscroll = 0;
323: #endif JUMPSCROLL
324: Serve (display, fn, fb, geometry, def, getty, slave, passedPty,
325: border, borderwidth, tek, reverse, multiscroll, bitmapicon,
326: fore_color, back_color, brdr_color, curs_color, mous_color
327: #ifdef JUMPSCROLL
328: , jumpscroll
329: #endif JUMPSCROLL
330: );
331: }
332:
333: Syntax ()
334: {
335: static char *ustring[] = {
336: "Usage: xterm [-rv] [-fn normal_font] [-fb bold_font]\n",
337: "\t[=[width]x[height][[+-]xoff[[+-]yoff]]] [-bw bdr_width]\n",
338: "\t[-fg color] [-bg color] [-bd color] [-cr color] [-ms color]\n",
339: "\t[[[host]:vs]] [-d] [-s] [-t] [-i] [-j] [-e command_to_exec]\n",
340: "\t[-n window_name]\n\n",
341: "Fonts must be of fixed width and of same size;\n",
342: "If only one font is specified, it will be used for normal and bold text\n",
343: #ifdef JUMPSCROLL
344: "The -j option enables jump scroll\n",
345: #endif
346: "The -s option enables asynchronous scrolling\n",
347: "The -t option enables Tektronics 4010 emulation\n",
348: "The -i option enables bitmap icons\n",
349: "The -d option turns debugging on (error messages printed)\n",
350: "The -n option sets the window name\n",
351: "The -b option specifies the inner padding\n",
352: "Default is: xterm -fn vtsingle -fb vtbold =80x24 :0\n",
353: 0};
354: char **us = ustring;
355: while (*us) fputs(*us++, stderr);
356: exit (1);
357: }
358:
359: char *strscan (search, what)
360: /*
361: Returns pointer to first char ins search which is also in what, else NULL.
362: */
363: char *search, *what;
364: {
365: int i, len = strlen (what);
366: char c;
367:
368: while ((c = *(search++)) != NULL)
369: for (i = 0; i < len; i++)
370: if (c == what [i]) return (--search);
371:
372: return (NULL);
373: }
374:
375: Serve (disp, fn, fb, geometry, def, getty, slave, passedPty,
376: border, borderwidth, tek, reverse, multiscroll, bitmapicon,
377: fore_color, back_color, brdr_color, curs_color, mous_color
378: #ifdef JUMPSCROLL
379: , jumpscroll
380: #endif JUMPSCROLL
381: )
382: char *disp; /* host of display to serve */
383: char *fn; /* fontname of normal characters */
384: char *fb; /* fontname of bold characters */
385: char *getty; /* true iff child should be getty */
386: int slave; /* true if should run as slave (contains file # of pty) */
387: char *passedPty; /* name of pty to use if slave */
388: char *geometry; /* user supplied geometry spec */
389: char *def; /* default geometry spec */
390: int border; /* inner border in pixels */
391: int borderwidth; /* outer border in pixels */
392: int tek; /* true ==> Tektronics emulation */
393: int reverse; /* true ==> black background, white characters */
394: int multiscroll; /* true ==> asynchronous full-screen scrolling */
395: int bitmapicon; /* true ==> bitmap icons rather than text icon */
396: #ifdef JUMPSCROLL
397: int jumpscroll; /* true ==> fast multi-line scrolling */
398: #endif JUMPSCROLL
399: char *fore_color;/* text color */
400: char *back_color;/* background color */
401: char *brdr_color;/* border color */
402: char *curs_color;/* text cursor color */
403: char *mous_color;/* mouse cursor color */
404: {
405: int pty; /* fildes for pty of client */
406: XEvent reply;
407: XEvent *rep = & reply;
408: int aborted = 0;
409: int Select_mask, select_mask = 0;
410: int maxplus1;
411: short toggled = NULL;
412: Screen *screen = &term.screen;
413: int Xsocket;
414: int pty_mask, X_mask;
415: extern int errno;
416: int mode = 1;
417: #ifdef TIOCSWINSZ
418: struct winsize ws;
419: #endif
420:
421: signal (SIGCHLD, reapchild);
422: signal (SIGHUP, SIG_IGN);
423:
424: /* open a terminal for client */
425: get_terminal (disp, &term, fn, fb, geometry, def, border,
426: borderwidth, (int)getty, slave, reverse, multiscroll, bitmapicon,
427: tek, fore_color, back_color, brdr_color, curs_color, mous_color
428: #ifdef JUMPSCROLL
429: , jumpscroll
430: #endif JUMPSCROLL
431: );
432:
433: Xsocket = screen->display->fd;
434:
435: spawn (disp, &pty, Xsocket, screen, getty, slave, passedPty);
436:
437: if (slave) { /* Write window id so master end can read and use */
438: write(pty, &screen->window, sizeof(screen->window));
439: write(pty, "\n", 1);
440: }
441:
442: screen->respond = term.buf.fildes = pty;
443:
444: #ifdef TIOCSWINSZ
445: /* tell tty how big window is */
446: ws.ws_row = screen->max_row + 1;
447: ws.ws_col = screen->max_col + 1;
448: ws.ws_xpixel = screen->width;
449: ws.ws_ypixel = screen->height;
450: ioctl (screen->respond, TIOCSWINSZ, &ws);
451: #endif
452:
453: /* Initialize Tektronix graphics mode parameters */
454: TekErase (&term);
455: screen->TekEmu = tek;
456: screen->cur_x = screen->cur_y = 0;
457: screen->cur_X = screen->cur_Y = 0;
458: screen->TekGMode = 0;
459: screen->TekAMode = 0;
460: screen->TekPMode = 0;
461:
462: if (ioctl (pty, FIONBIO, &mode) == -1) Error ();
463:
464: pty_mask = 1 << pty;
465: X_mask = 1 << Xsocket;
466: Select_mask = pty_mask | X_mask;
467: maxplus1 = (pty < Xsocket) ? (1 + Xsocket) : (1 + pty);
468:
469: if (debug) printf ("debugging on\n");
470:
471: while (1)
472: {
473: if (! aborted)
474: {
475: #ifdef JUMPSCROLL
476: if(screen->scroll_amt)
477: FlushScroll(screen);
478: #endif JUMPSCROLL
479: if (toggled)
480: {
481: CursorToggle (screen, toggled);
482: toggled = NULL;
483: }
484:
485: select_mask = Select_mask;
486: XFlush();
487: while (select (maxplus1, &select_mask, NULL, NULL, 0) <= 0) {
488: if (errno != EINTR) Error();
489: }
490: }
491: else select_mask = NULL;
492:
493: if (select_mask & pty_mask || aborted)
494: {
495: if (!toggled)
496: {
497: CursorToggle (screen, toggled);
498: toggled = 1;
499: }
500: do {
501: aborted = (*screen->mode)(&term);
502: } while (screen->display->qlen==0 && term.buf.cnt>0);
503: }
504:
505: if (select_mask & X_mask || aborted)
506: {
507: #ifdef JUMPSCROLL
508: if(screen->scroll_amt)
509: FlushScroll(screen);
510: #endif JUMPSCROLL
511: XPending ();
512: do {
513: XNextEvent (&reply);
514:
515: switch ((int)reply.type)
516: {
517: case KeyPressed:
518: Input (&term.keyboard, &term.screen,
519: (XKeyPressedEvent *)rep);
520: break;
521:
522: case ExposeWindow:
523: if (bitmapicon) {
524: if (((XExposeWindowEvent *)rep)->window
525: == screen->iconwindow) {
526: RefreshIcon(screen);
527: break;
528: }
529: }
530: toggled = 1;
531: if (ScreenResize (screen,
532: ((XExposeWindowEvent *)rep)->width,
533: ((XExposeWindowEvent *)rep)->height,
534: &term.flags) != -1)
535: {
536: TabReset (term.tabs);
537: XClear (screen->window);
538: ScrnRefresh (screen, 0, 0,
539: screen->max_row + 1,
540: screen->max_col + 1);
541:
542: if (screen->TekEmu) TekRefresh (&term);
543: }
544: break;
545:
546: case ExposeRegion:
547: if (((XExposeWindowEvent *)rep)->detail ==
548: ExposeCopy &&
549: screen->incopy <= 0) {
550: screen->incopy = 1;
551: if (screen->scrolls > 0)
552: screen->scrolls--;
553: }
554: if (HandleExposure (screen, &reply))
555: toggled = 1;
556: break;
557:
558: case ExposeCopy:
559: if (screen->incopy <= 0 && screen->scrolls > 0)
560: screen->scrolls--;
561: if (screen->scrolls)
562: screen->incopy = -1;
563: else
564: screen->incopy = 0;
565: break;
566:
567: case ButtonPressed:
568: case ButtonReleased:
569: if (screen->incopy)
570: CopyWait (screen);
571: if (HandleButtons(&term,&reply,pty))
572: toggled = 1;
573: break;
574: /*
575: * Enter window is being handled just to give xterm
576: * a kick in the pants when the mouse gets in the
577: * window in case it was swapped out. Of course,
578: * one might thrash...
579: */
580: case EnterWindow:
581: break;
582: default:
583: break;
584: }
585: } while (screen->display->qlen > 0);
586: }
587: }
588: }
589:
590: RefreshIcon(screen)
591: register Screen *screen;
592: {
593: XBitmapBitsPut(screen->iconwindow, 0, 0, icon_width, icon_height,
594: icon_bits, screen->foreground, screen->background,
595: screen->iconmask, GXcopy, AllPlanes);
596: }
597:
598: get_pty (pty, pty_name)
599: /*
600: opens a pty, storing fildes in pty
601: and it's identifying character in pty_name.
602: */
603: int *pty;
604: char *pty_name;
605: {
606: int devindex, letter = 0;
607: int fd;
608: extern errno;
609:
610: if (debug) {
611: fd = open ("xterm.debug.log", O_WRONLY | O_CREAT | O_TRUNC, 0666);
612: dup2 (fd, fileno (stderr));
613: }
614:
615: while (letter < 4) {
616: ttydev [8] = ptydev [8] = "pqrs" [letter++];
617: devindex = 0;
618:
619: while (devindex < 16) {
620: ptydev [9] = *pty_name = "0123456789abcdef" [devindex++];
621: if ((*pty = open (ptydev, O_RDWR, 0)) < 0) {
622: if (debug) fprintf (stderr, "pty %d code %d\n",
623: devindex - 1, errno);
624: continue;
625: }
626: goto got_pty;
627: }
628: }
629:
630: fprintf (stderr,"Not enough available pty's\n");
631: exit (11);
632:
633: got_pty:
634: if (debug) {
635: close (fileno (stderr));
636: close (fd);
637: }
638: }
639:
640: get_terminal (disp, term, fn, fb, geometry, def,
641: border, borderwidth, do_warp, slave, reverse, multiscroll, bitmapicon,
642: tek, fore_color, back_color, brdr_color, curs_color, mous_color
643: #ifdef JUMPSCROLL
644: , jumpscroll
645: #endif JUMPSCROLL
646: )
647: /*
648: * sets up X and initializes the terminal structure except for term.buf.fildes.
649: */
650: char *disp;
651: register Terminal *term;
652: char *fn, *fb;
653: char *geometry, *def;
654: int border, borderwidth, do_warp, reverse, multiscroll, bitmapicon;
655: int slave;
656: int tek;
657: #ifdef JUMPSCROLL
658: int jumpscroll;
659: #endif JUMPSCROLL
660: char *fore_color, *back_color, *brdr_color, *curs_color, *mous_color;
661: {
662: int width, height;
663: FontInfo *fInfo;
664: register Keyboard *keyboard;
665: register Screen *screen;
666: Buffer *buf;
667: double scale_x, scale_y;
668: Color cdef;
669: int pixels[2];
670: int try = 10;
671: OpaqueFrame twindow;
672:
673: keyboard = &term->keyboard;
674: screen = &term->screen;
675: buf = &term->buf;
676:
677: term->flags = WRAPAROUND|SMOOTHSCROLL;
678:
679: keyboard->flags = NULL;
680: keyboard->offset = 0;
681:
682: buf->cnt = 0;
683: buf->ptr = &buf->buf[0];
684:
685: TabReset (term->tabs);
686:
687: while (try--)
688: if ((screen->display = XOpenDisplay(disp)) == NULL) {
689: if (loginflag == 0) {
690: fprintf(stderr,"No such display server %s\n", disp);
691: exit(1);
692: }
693: sleep (5);
694: continue;
695: }
696: else break;
697:
698: if (try <= 0) {
699: fprintf (stderr,"Can't connect to display server %s\n",
700: disp);
701: exit (111);
702: }
703:
704: screen->foreground = BlackPixel;
705: screen->background = WhitePixel;
706: screen->cursorcolor = BlackPixel;
707: screen->mousecolor = BlackPixel;
708: screen->xorplane = 1;
709: if (DisplayCells() > 2 && (fore_color || back_color || curs_color)) {
710: if (tek) {
711: if (curs_color && XParseColor(curs_color, &cdef)) {
712: if (XGetColorCells(0, 2, 1, &screen->xorplane,
713: pixels)) {
714: screen->background = pixels[0];
715: screen->foreground = pixels[1];
716: screen->cursorcolor = screen->background |
717: screen->xorplane;
718: cdef.pixel = screen->cursorcolor;
719: XStoreColor(&cdef);
720: }
721: }
722: else if (XGetColorCells(0, 1, 1, &screen->xorplane,
723: &screen->background)) {
724: screen->foreground = screen->background |
725: screen->xorplane;
726: screen->cursorcolor = screen->foreground;
727: }
728: if (screen->background != WhitePixel) {
729: if (back_color == NULL ||
730: !XParseColor(back_color, &cdef)) {
731: cdef.pixel = WhitePixel;
732: XQueryColor(&cdef);
733: }
734: cdef.pixel = screen->background;
735: XStoreColor(&cdef);
736: if(screen->cursorcolor != screen->foreground) {
737: cdef.pixel = screen->foreground |
738: screen->xorplane;
739: XStoreColor(&cdef);
740: }
741: if (fore_color == NULL ||
742: !XParseColor(fore_color, &cdef)) {
743: cdef.pixel = BlackPixel;
744: XQueryColor(&cdef);
745: }
746: cdef.pixel = screen->foreground;
747: XStoreColor(&cdef);
748: }
749: }
750: else {
751: if (fore_color && XParseColor(fore_color, &cdef) &&
752: XGetHardwareColor(&cdef)) {
753: screen->foreground =
754: screen->foreground = cdef.pixel;
755: reverse = 0;
756: }
757: if (back_color && XParseColor(back_color, &cdef) &&
758: XGetHardwareColor(&cdef)) {
759: screen->background = cdef.pixel;
760: reverse = 0;
761: }
762: if (curs_color && XParseColor(curs_color, &cdef) &&
763: XGetHardwareColor(&cdef))
764: screen->cursorcolor = cdef.pixel;
765: else
766: screen->cursorcolor = screen->foreground;
767: }
768: }
769:
770: screen->border = border;
771: screen->borderwidth = borderwidth;
772: screen->fnt_norm = screen->fnt_bold = NULL;
773:
774: if ((fInfo = XOpenFont(fn)) == NULL) {
775: fprintf(stderr, "%s: Could not open font %s!\n",
776: xterm_name, fn);
777: exit(1);
778: }
779: if (fn) screen->fnt_norm = fInfo->id;
780: if (fb) screen->fnt_bold = XOpenFont(fb)->id;
781: screen->f_width = fInfo->width;
782: screen->f_height = fInfo->height;
783:
784: if (brdr_color && DisplayCells() > 2 &&
785: XParseColor(brdr_color, &cdef) && XGetHardwareColor(&cdef))
786: screen->bordertile = XMakeTile(cdef.pixel);
787: else
788: screen->bordertile = BlackPixmap;
789:
790: screen->cursor = XStoreBitmap(xterm_width, xterm_height, xterm_bits);
791: screen->mask = XStoreBitmap(xterm_mask_width, xterm_mask_height,
792: xterm_mask_bits);
793: if (mous_color && DisplayCells() > 2 &&
794: XParseColor(mous_color, &cdef) && XGetHardwareColor(&cdef))
795: screen->mousecolor = cdef.pixel;
796: else
797: screen->mousecolor = screen->cursorcolor;
798: screen->curs = XStoreCursor(screen->cursor, screen->mask, 5, 8,
799: screen->mousecolor, screen->background, GXcopy);
800: screen->rcurs = XStoreCursor(screen->cursor, screen->mask, 5, 8,
801: screen->background, screen->mousecolor, GXcopy);
802:
803: if (reverse) { /* reverse is black background with white chars */
804: term->flags |= REVERSE_VIDEO;
805: screen->cursorcolor = screen->background;
806: screen->background = screen->foreground;
807: screen->foreground = screen->cursorcolor;
808: if (screen->bordertile == BlackPixmap)
809: screen->bordertile = WhitePixmap;
810: }
811: screen->bgndtile = XMakeTile(screen->background);
812:
813: twindow.bdrwidth = screen->borderwidth;
814: twindow.border = screen->bordertile;
815: twindow.background = screen->bgndtile;
816:
817: screen->window = XCreateTerm ("Terminal Emulator", xterm_name,
818: geometry, def, &twindow, 12, 8,
819: screen->border * 2, screen->border * 2,
820: &width, &height,
821: fInfo, fInfo->width, fInfo->height);
822:
823: screen->width = twindow.width - border * 2;
824: screen->height = twindow.height - border * 2;
825:
826: /* Reset variables used by ANSI emulation. */
827:
828: screen->ansi.a_type = 0; /* New sequence. */
829: screen->ansi.a_pintro = 0; /* New sequence. */
830: screen->ansi.a_final = 0; /* New sequence. */
831: screen->gsets[0] = 'B'; /* ASCII_G */
832: screen->gsets[1] = 'B';
833: screen->gsets[2] = '<'; /* DEC supplemental. */
834: screen->gsets[3] = '<';
835: screen->curgl = 0; /* G0 => GL. */
836: screen->curgr = 2; /* G2 => GR. */
837: screen->curss = 0; /* No single shift. */
838: screen->rx8bit = 0; /* 7 bit. */
839: screen->tx8bit = 0; /* 7 bit. */
840: screen->mode = ANSInormal;
841:
842: /* Reset Tektronix alpha mode */
843: screen->TekGMode = 0;
844: screen->TekAMode = 0;
845: screen->cur_x = screen->cur_y = 0;
846: screen->cur_X = screen->cur_Y = 0;
847:
848: scale_x = screen->width / 4096.0;
849: scale_y = screen->height / 3128.0;
850: screen->TekScale = scale_x;
851: if (scale_y < scale_x) screen->TekScale = scale_y;
852:
853: if (bitmapicon) {
854: screen->iconwindow = XCreateWindow (RootWindow,
855: 0, 0, icon_width, icon_height, 0, 0, 0);
856:
857: XTileRelative(screen->iconwindow);
858:
859: XSetIconWindow(screen->window, screen->iconwindow);
860:
861: screen->iconmask = XStoreBitmap(icon_mask_width,
862: icon_mask_height, icon_mask_bits);
863:
864: XSelectInput (screen->iconwindow, ExposeWindow);
865: }
866:
867: if (reverse)
868: XDefineCursor(screen->window, screen->rcurs);
869: else XDefineCursor(screen->window, screen->curs);
870:
871: XStoreName (screen->window, (win_name != (char *) 0 ? win_name:
872: (do_warp ? "login" :
873: (slave ? "xtermslave" :
874: (command_to_exec ? command_to_exec[0] : "xterm")))));
875:
876: XSetResizeHint (screen->window,
877: 2 * border, 2 * border, fInfo->width, fInfo->height);
878:
879: XMapWindow (screen->window);
880:
881: XSelectInput (screen->window, KeyPressed | ExposeWindow | EnterWindow |
882: ButtonPressed | ButtonReleased | ExposeRegion | ExposeCopy);
883:
884:
885: if (do_warp)
886: XWarpMouse (screen->window,
887: screen->width >> 1, screen->height >>1);
888:
889: screen->cur_col = screen->cur_row = 0;
890: screen->max_col = screen->width / fInfo->width - 1;
891: screen->top_marg = 0;
892: screen->bot_marg = screen->max_row = screen->height/ fInfo->height - 1;
893:
894: screen->sc.row = screen->sc.col = screen->sc.flags = NULL;
895:
896:
897: /* allocate memory for screen buffer */
898: screen->buf = (ScrnBuf) Allocate (screen->max_row + 1,
899: screen->max_col +1);
900:
901: screen->do_wrap = NULL;
902: screen->scrolls = screen->incopy = 0;
903: screen->multiscroll = multiscroll;
904: #ifdef JUMPSCROLL
905: if (screen->jumpscroll = jumpscroll)
906: term->flags &= ~SMOOTHSCROLL;
907: #endif JUMPSCROLL
908:
909:
910: /* display initial cursor */
911: CursorToggle (screen, 1);
912: }
913:
914: spawn (display, pty, Xsocket, screen, getty, slave, passedPty)
915: /*
916: * Inits pty and tty and forks a login process. Returns fd for pty in pty.
917: * Does not close fd Xsocket.
918: * If getty, execs getty rather than csh and uses std fd's rather
919: * than opening a pty/tty pair.
920: * If slave, the pty named in passedPty is already open for use
921: */
922: int *pty, Xsocket;
923: Screen *screen;
924: char *getty; /* if true execs /etc/getty - Xwindow */
925: int slave;
926: char *passedPty;
927: char *display;
928: {
929: int index1, tty;
930: char pty_name;
931: int discipline;
932: unsigned lmode;
933: struct tchars tc;
934: struct ltchars ltc;
935: struct sgttyb sg;
936:
937: char termcap [1024];
938: char newtc [1024];
939: char prog [256];
940: char numbuf[10];
941: char *ptr;
942: char *index (), *strindex ();
943: int i = 0;
944: char **envnew; /* new environment */
945: struct passwd *getpwuid();
946: struct passwd *pw;
947: char logindev[32];
948: char *TermName = "xterm";
949: int ldisc = 0;
950:
951: /* be real paranoid about getting some usable entry */
952: if (tgetent (termcap, TermName) == 1
953: || (TermName = "vt102", tgetent(termcap, TermName)) == 1
954: || (TermName = "ansi", tgetent(termcap, TermName)) == 1) {
955: /* update termcap string */
956: /* first do columns */
957: if ((ptr = strindex (termcap, "co#")) == NULL){
958: fprintf(stderr,"Can't find co# in termcap string %s\n",
959: TermName);
960: exit (1);
961: }
962: strncpy (newtc, termcap, ptr - termcap + 3);
963: newtc[ptr-termcap+3] = '\0';
964: sprintf (numbuf, "%d\0", screen->max_col + 1);
965: strcat (newtc, numbuf);
966: ptr = index (ptr, ':');
967: strcat (newtc, ptr);
968: strncpy (termcap, newtc, sizeof(termcap));
969: /* now do lines */
970: if ((ptr = strindex (termcap, "li#")) == NULL) {
971: fprintf(stderr,"Can't find li# in termcap string %s\n",
972: TermName);
973: exit (1);
974: }
975: strncpy (newtc, termcap, ptr - termcap + 3);
976: newtc[ptr-termcap+3] = '\0';
977: sprintf (numbuf, "%d\0", screen->max_row + 1);
978: strcat (newtc, numbuf);
979: ptr = index (ptr, ':');
980: strcat (newtc, ptr);
981: if (strcmp(TermName, "xterm") != 0)
982: fprintf(stderr,
983: "xterm: can't find xterm termcap entry, using %s instead!\n", TermName);
984: }
985: else fprintf(stderr,"xterm: can't find any usable termcap entry!\n");
986:
987: if (getty) {
988: strcpy(logindev,"/dev/");
989: strcat(logindev,getty);
990: logindev [5] = 'p';
991: *pty = open (logindev, O_RDWR, 0);
992: }
993: else if (slave) {
994: *pty = slave;
995: ptydev[8] = ttydev[8] = passedPty[0];
996: ptydev[9] = ttydev[9] = passedPty[1];
997: }
998: else {
999: if ((tty = open ("/dev/tty", O_RDWR, 0)) < 0) {
1000: if (errno != ENXIO) Error();
1001: else {
1002: no_dev_tty = 1;
1003: sg = d_sg;
1004: tc = d_tc;
1005: discipline = d_disipline;
1006: ltc = d_ltc;
1007: lmode = d_lmode;
1008: for (index1 = 0; index1 < 3; index1++)
1009: close (index1);
1010: }
1011: }
1012: else {
1013: /* get a copy of the current terminal's state */
1014:
1015: if ((tty = open ("/dev/tty", O_RDWR, 0)) < 0) Error ();
1016:
1017: if (ioctl (tty, TIOCGETP, &sg) == -1) Error ();
1018: if (ioctl (tty, TIOCGETC, (int *)&tc) == -1) Error ();
1019: if (ioctl (tty, TIOCGETD, &discipline) == -1) Error ();
1020: if (ioctl (tty, TIOCGLTC, (int *)<c) == -1) Error ();
1021: if (ioctl (tty, TIOCLGET, &lmode) == -1) Error ();
1022:
1023: close (tty);
1024:
1025: /* close all std file descriptors */
1026: for (index1 = 0; index1 < 3; index1++)
1027: close (index1);
1028: if ((tty = open ("/dev/tty", O_RDWR, 0)) < 0) Error ();
1029:
1030: if (ioctl (tty, TIOCNOTTY, 0) == -1) Error ();
1031: close (tty);
1032: }
1033:
1034: get_pty (pty, &pty_name);
1035:
1036: if (*pty != Xsocket + 1) {
1037: dup2 (*pty, Xsocket + 1);
1038: close (*pty);
1039: *pty = Xsocket + 1;
1040: }
1041:
1042: ttydev [9] = pty_name;
1043: if ((tty = open (ttydev, O_RDWR, 0)) < 0) Error ();
1044:
1045: /* change ownership of tty to real group and user id */
1046: chown (ttydev, getuid (), tty_gid (getgid()));
1047:
1048: /* change protection of tty */
1049: chmod (ttydev, 0620);
1050:
1051: if (tty != Xsocket + 2) {
1052: dup2 (tty, Xsocket + 2);
1053: close (tty);
1054: tty = Xsocket + 2;
1055: }
1056:
1057: /* set the new terminal's state to be the old one's
1058: with minor modifications for efficiency */
1059:
1060: sg.sg_flags &= ~(ALLDELAY | XTABS | CBREAK | RAW);
1061: sg.sg_flags |= ECHO | CRMOD;
1062: /* make sure speed is set on pty so that editors work right*/
1063: sg.sg_ispeed = B9600;
1064: sg.sg_ospeed = B9600;
1065:
1066: if (ioctl (tty, TIOCSETP, &sg) == -1) Error ();
1067: if (ioctl (tty, TIOCSETC, (int *)&tc) == -1) Error ();
1068: if (ioctl (tty, TIOCSETD, &discipline) == -1) Error ();
1069: if (ioctl (tty, TIOCSLTC, (int *)<c) == -1) Error ();
1070: if (ioctl (tty, TIOCLSET, &lmode) == -1) Error ();
1071: #ifdef sun
1072: #ifdef TIOCCONS
1073: if (SunConsole) {
1074: int on = 1;
1075: if (ioctl (tty, TIOCCONS, &on) == -1) Error();
1076: }
1077: #endif TIOCCONS
1078: #endif sun
1079:
1080: close (open ("/dev/null", O_RDWR, 0));
1081:
1082: for (index1 = 0; index1 < 3; index1++)
1083: dup2 (tty, index1);
1084: }
1085:
1086: if (!slave && (screen->pid = fork ()) == -1) Error ();
1087:
1088: if (!slave && screen->pid == 0) {
1089: extern char **environ;
1090: int pgrp = getpid();
1091:
1092: close (Xsocket);
1093: close (*pty);
1094:
1095: if (getty == NULL) close (tty);
1096:
1097: signal (SIGCHLD, SIG_DFL);
1098: signal (SIGHUP, SIG_IGN);
1099:
1100: /* copy the environment before Setenving */
1101: while (environ [i] != NULL) i++;
1102: envnew = (char **) malloc (sizeof (char *) * (i + 4));
1103: for (; i >= 0; i--) envnew [i] = environ [i];
1104: environ = envnew;
1105: Setenv ("TERM=", TermName);
1106: Setenv ("TERMCAP=", newtc);
1107: /* put the display into the environment of the shell*/
1108: if (display[0] != '\0')
1109: Setenv ("DISPLAY=", screen->display->displayname);
1110:
1111: pw = getpwuid (getuid ());
1112: signal(SIGTERM, SIG_DFL);
1113: ioctl(0, TIOCSPGRP, &pgrp);
1114: setpgrp (0, 0);
1115: close(open(ttyname(0), O_WRONLY, 0));
1116: setpgrp (0, pgrp);
1117: if (dologinflag) /* login */
1118: utrelog(1, pw->pw_name, screen->display->displayname);
1119:
1120: setgid(getgid ());
1121: setuid(getuid ());
1122:
1123: if (command_to_exec) {
1124: execvp(command_to_exec[0], command_to_exec, 0);
1125: }
1126: signal(SIGHUP, SIG_IGN);
1127: if (getty) {
1128: ioctl (0, TIOCNOTTY, 0);
1129: execl ("/etc/getty", "+", "Xwindow", getty, 0);
1130: }
1131: signal(SIGHUP, SIG_DFL);
1132:
1133: if (*pw->pw_shell == '\0') pw->pw_shell = "/bin/sh";
1134:
1135: /* make sure line discipline gets set */
1136: ldisc = 0;
1137: ioctl(0, TIOCSETD, &ldisc);
1138: if (!strcmp(pw->pw_shell, "/bin/csh")) {
1139: ldisc = NTTYDISC;
1140: ioctl(0, TIOCSETD, &ldisc);
1141: }
1142:
1143: ptr = rindex(pw->pw_shell, '/');
1144: if (ptr == NULL)
1145: ptr = pw->pw_shell;
1146: else
1147: ptr++;
1148: if (dologinflag) {
1149: prog[0] = '-';
1150: strcpy(&prog[1], ptr);
1151: } else
1152: strcpy(prog, ptr);
1153: execlp (pw->pw_shell, prog, 0);
1154: fprintf (stderr,"Error: Could not exec %s!\n", pw->pw_shell);
1155: sleep(5);
1156: Cleanup(121);
1157: }
1158:
1159: close (tty);
1160: signal(SIGHUP,SIG_IGN);
1161: signal(SIGTTOU,SIG_IGN); /* so that TIOCSWINSZ doesn't block */
1162:
1163: if ((tty = open (no_dev_tty ? "/dev/null" : "/dev/tty",
1164: O_RDWR, 0)) < 0) Error();
1165: for (index1 = 0; index1 < 3; index1++)
1166: dup2 (tty, index1);
1167: if (tty > 2) close (tty);
1168:
1169: /* set ids to user's */
1170: /*
1171: setgid (getgid ());
1172: setuid (getuid ());
1173: setregid (getegid (), getgid ());
1174: setreuid (geteuid (), getuid ());
1175: */
1176:
1177: }
1178:
1179:
1180: static reapchild ()
1181: {
1182: extern Terminal term;
1183: register long pgrp;
1184: union wait status;
1185: int pid;
1186:
1187: if (debug) printf ("Exiting\n");
1188: pid = wait3 (&status, WNOHANG, NULL);
1189: if (!pid) return;
1190: if (pid != term.screen.pid) return;
1191:
1192: if (dologinflag)
1193: utrelog(0, "", "");
1194: Cleanup(0);
1195: }
1196:
1197: consolepr(string)
1198: char *string;
1199: {
1200: extern int errno;
1201: extern char *sys_errlist[];
1202: int oerrno;
1203: int f;
1204: oerrno = errno;
1205: f = open("/dev/console",O_WRONLY, 0);
1206: write(f, "xterm: ", 7);
1207: write(f, string, strlen(string));
1208: write(f, ": ", 2);
1209: write(f, sys_errlist[oerrno],strlen(sys_errlist[oerrno]));
1210: write(f, "\n", 1);
1211: close(f);
1212: if ((f = open("/dev/tty", 2, 0)) >= 0) {
1213: ioctl(f, TIOCNOTTY, 0);
1214: close(f);
1215: }
1216: }
1217:
1218: #define TTYGRPNAME "tty"
1219:
1220: tty_gid(default_gid)
1221: int default_gid;
1222: {
1223: struct group *getgrnam(), *gr;
1224: int gid = default_gid;
1225:
1226: gr = getgrnam(TTYGRPNAME);
1227: if (gr != (struct group *) 0)
1228: gid = gr->gr_gid;
1229:
1230: endgrent();
1231:
1232: return (gid);
1233: }
1234:
1235: utrelog(io, user, display)
1236: int io;
1237: char *user;
1238: char *display;
1239: {
1240: struct utmp ut;
1241: struct ttyent *ty;
1242: register int s;
1243: long slot;
1244: int ufd;
1245: char *colon;
1246:
1247: if (io == 1) {
1248: strncpy(ut.ut_line, &ttydev[5], sizeof ut.ut_line);
1249: colon = index(display, ':');
1250: if (colon)
1251: *colon = '\0';
1252: strncpy(ut.ut_host, display, sizeof ut.ut_host);
1253: if (colon)
1254: *colon = ':';
1255: strncpy(ut.ut_name, user, sizeof ut.ut_name);
1256: (void) time(&ut.ut_time);
1257: }
1258: else {
1259: strcpy(ut.ut_line, "");
1260: strcpy(ut.ut_name, "");
1261: strcpy(ut.ut_host, "");
1262: ut.ut_time = 0;
1263: chown(ttydev, 0, 0);
1264: chmod(ttydev, 0666);
1265: }
1266:
1267: setttyent();
1268: slot = 0;
1269: s = 0;
1270: while ((ty = getttyent()) != NULL) {
1271: s++;
1272: if (strcmp(ty->ty_name, &ttydev[5]) == 0) {
1273: slot = s;
1274: break;
1275: }
1276: }
1277: endttyent();
1278: if (slot > 0 && (ufd = open("/etc/utmp", O_WRONLY, 0)) >= 0) {
1279: if (lseek(ufd, slot * sizeof ut, 0) < 0L ||
1280: write(ufd, (char *)&ut, sizeof ut) != sizeof ut) {
1281: close(ufd);
1282: return(-1);
1283: }
1284: close(ufd);
1285: }
1286: return(0);
1287: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.