17 #define MODE_CURSOR 0x01
18 #define MODE_WRAP 0x02
19 #define MODE_ORIGIN 0x04
20 #define MODE_AUTOCR 0x08
21 #define MODE_DEFAULT (MODE_CURSOR | MODE_WRAP)
22 #define ATTR_BOLD 0x10
23 #define ATTR_ITALIC 0x20
25 #define ATTR_ALL (ATTR_BOLD | ATTR_ITALIC | ATTR_REV)
26 #define MODE_INSERT 0x100
27 #define MODE_WRAPREADY 0x200
29 #define BIT_SET(i, b, val) ((val) ? ((i) | (b)) : ((i) & ~(b)))
30 #define OFFSET(r, c) ((r) * pad_cols() + (c))
32 static struct term
*term
;
34 static char *fgs
, *bgs
;
41 /* low level drawing and lazy updating */
43 #define MAXLINES (1 << 8)
44 static int dirty
[MAXLINES
];
47 static char fgcolor(void)
49 int c
= mode
& ATTR_REV
? bg
: fg
;
52 if (mode
& ATTR_ITALIC
)
57 static char bgcolor(void)
59 return mode
& ATTR_REV
? fg
: bg
;
62 static void _draw_pos(int r
, int c
, int cursor
)
64 int rev
= cursor
&& mode
& MODE_CURSOR
;
66 char fg
= rev
? bgs
[i
] : fgs
[i
];
67 char bg
= rev
? fgs
[i
] : bgs
[i
];
69 pad_put(screen
[i
], r
, c
, fg
, bg
);
72 static void _draw_row(int r
)
75 pad_blankrow(r
, bgcolor());
76 for (i
= 0; i
< pad_cols(); i
++) {
77 int c
= screen
[OFFSET(r
, i
)];
78 if ((c
&& c
!= ' ') || bgs
[OFFSET(r
, i
)] != bgcolor())
83 static int candraw(int sr
, int er
)
89 for (i
= sr
; i
< er
; i
++)
94 static void draw_rows(int sr
, int er
)
98 for (i
= sr
; i
< er
; i
++)
102 static void draw_cols(int r
, int sc
, int ec
)
105 if (candraw(r
, r
+ 1))
106 for (i
= sc
; i
< ec
; i
++)
110 static void draw_char(int ch
, int r
, int c
)
112 int i
= OFFSET(r
, c
);
116 if (candraw(r
, r
+ 1))
120 static void draw_cursor(int put
)
122 if (candraw(row
, row
+ 1))
123 _draw_pos(row
, col
, put
);
126 static void lazy_start(void)
128 memset(dirty
, 0, sizeof(dirty
));
132 static void lazy_flush(void)
137 _draw_pos(row
, col
, 0);
138 for (i
= 0; i
< pad_rows(); i
++)
141 _draw_pos(row
, col
, 1);
144 static void screen_reset(int i
, int n
)
146 memset(screen
+ i
, 0, n
* sizeof(*screen
));
147 memset(fgs
+ i
, fg
, n
);
148 memset(bgs
+ i
, bg
, n
);
151 static void screen_move(int dst
, int src
, int n
)
153 memmove(screen
+ dst
, screen
+ src
, n
* sizeof(*screen
));
154 memmove(fgs
+ dst
, fgs
+ src
, n
);
155 memmove(bgs
+ dst
, bgs
+ src
, n
);
158 /* terminal input buffering */
160 #define PTYBUFSIZE (1 << 13)
162 static char ptybuf
[PTYBUFSIZE
]; /* always emptied in term_read() */
163 static int ptylen
; /* buffer length */
164 static int ptycur
; /* current offset */
166 static void waitpty(void)
168 struct pollfd ufds
[1];
169 ufds
[0].fd
= term
->fd
;
170 ufds
[0].events
= POLLIN
;
174 static int readpty(void)
177 return ptybuf
[ptycur
++];
180 ptylen
= read(term
->fd
, ptybuf
, PTYBUFSIZE
);
181 if (ptylen
== -1 && errno
== EAGAIN
) {
183 ptylen
= read(term
->fd
, ptybuf
, PTYBUFSIZE
);
192 /* term interface functions */
194 void term_send(int c
)
198 write(term
->fd
, &b
, 1);
201 static void term_sendstr(char *s
)
204 write(term
->fd
, s
, strlen(s
));
207 static void term_blank(void)
209 screen_reset(0, pad_rows() * pad_cols());
211 pad_blank(bgcolor());
214 static void ctlseq(void);
218 while (ptycur
< ptylen
) {
219 if (!lazy
&& ptylen
- ptycur
> 15)
228 static void term_reset(void)
239 static int _openpty(int *master
, int *slave
)
244 if ((*master
= open("/dev/ptmx", O_RDWR
)) == -1)
246 if (ioctl(*master
, TIOCSPTLCK
, &unlock
) == -1)
248 if (ioctl(*master
, TIOCGPTN
, &ptyno
) == -1)
250 sprintf(name
, "/dev/pts/%d", ptyno
);
251 *slave
= open(name
, O_RDWR
| O_NOCTTY
);
255 static void _login(int fd
)
258 winp
.ws_col
= pad_cols();
259 winp
.ws_row
= pad_rows();
263 ioctl(fd
, TIOCSCTTY
, NULL
);
264 ioctl(fd
, TIOCSWINSZ
, &winp
);
272 #define MAXENV (1 << 8)
274 static void envcpy(char **d
, char **s
)
281 static void execvep(char *cmd
, char **argv
, char **envp
)
284 char *p
= getenv("PATH");
285 execve(cmd
, argv
, envp
);
288 while (*p
&& *p
!= ':')
292 execve(path
, argv
, envp
);
298 extern char **environ
;
299 void term_exec(char *cmd
)
302 memset(term
, 0, sizeof(*term
));
303 if (_openpty(&master
, &slave
) == -1)
305 if ((term
->pid
= fork()) == -1)
308 char *envp
[MAXENV
] = {"TERM=linux"};
309 char *argv
[2] = {cmd
};
310 envcpy(envp
+ 1, environ
);
313 execvep(cmd
, argv
, envp
);
318 fcntl(term
->fd
, F_SETFD
, fcntl(term
->fd
, F_GETFD
) | FD_CLOEXEC
);
319 fcntl(term
->fd
, F_SETFL
, fcntl(term
->fd
, F_GETFL
) | O_NONBLOCK
);
323 static void misc_save(struct term_state
*state
)
332 static void misc_load(struct term_state
*state
)
341 void term_save(struct term
*term
)
344 misc_save(&term
->cur
);
349 static void term_redraw(void)
352 for (i
= 0; i
< pad_rows(); i
++)
354 _draw_pos(row
, col
, 1);
357 void term_load(struct term
*t
, int flags
)
360 misc_load(&term
->cur
);
361 screen
= term
->screen
;
367 if (flags
== TERM_REDRAW
) {
379 memset(term
, 0, sizeof(*term
));
380 term_load(term
, visible
? TERM_REDRAW
: TERM_HIDDEN
);
383 static int writeutf8(char *dst
, int c
)
388 *d
++ = 0xf0 | (c
>> 18);
390 } else if (c
> 0x7ff) {
391 *d
++ = 0xe0 | (c
>> 12);
393 } else if (c
> 0x7f) {
394 *d
++ = 0xc0 | (c
>> 6);
397 *d
++ = c
> 0 ? c
: ' ';
401 *d
++ = 0x80 | ((c
>> (l
* 6)) & 0x3f);
405 void term_screenshot(void)
408 int fd
= open(SCRSHOT
, O_CREAT
| O_TRUNC
| O_WRONLY
, 0600);
410 for (i
= 0; i
< pad_rows(); i
++) {
412 for (j
= 0; j
< pad_cols(); j
++)
413 s
+= writeutf8(s
, screen
[OFFSET(i
, j
)]);
415 write(fd
, buf
, s
- buf
);
420 /* high-level drawing functions */
422 static void empty_rows(int sr
, int er
)
424 screen_reset(OFFSET(sr
, 0), (er
- sr
) * pad_cols());
427 static void blank_rows(int sr
, int er
)
434 static void scroll_screen(int sr
, int nr
, int n
)
437 screen_move(OFFSET(sr
+ n
, 0), OFFSET(sr
, 0), nr
* pad_cols());
439 empty_rows(sr
, sr
+ n
);
441 empty_rows(sr
+ nr
+ n
, sr
+ nr
);
442 draw_rows(MIN(sr
, sr
+ n
), MAX(sr
+ nr
, sr
+ nr
+ n
));
446 static void insert_lines(int n
)
448 int sr
= MAX(top
, row
);
449 int nr
= bot
- row
- n
;
451 scroll_screen(sr
, nr
, n
);
454 static void delete_lines(int n
)
456 int r
= MAX(top
, row
);
458 int nr
= bot
- r
- n
;
460 scroll_screen(sr
, nr
, -n
);
463 static int origin(void)
465 return mode
& MODE_ORIGIN
;
468 static void move_cursor(int r
, int c
)
472 t
= origin() ? top
: 0;
473 b
= origin() ? bot
: pad_rows();
474 row
= LIMIT(r
, t
, b
- 1);
475 col
= LIMIT(c
, 0, pad_cols() - 1);
477 mode
= BIT_SET(mode
, MODE_WRAPREADY
, 0);
480 static void set_region(int t
, int b
)
482 top
= LIMIT(t
- 1, 0, pad_rows() - 1);
483 bot
= LIMIT(b
? b
: pad_rows(), top
+ 1, pad_rows());
488 static void setattr(int m
)
509 mode
&= ~ATTR_ITALIC
;
516 fg
= m
> 37 ? FGCOLOR
: m
- 30;
518 bg
= m
> 47 ? BGCOLOR
: m
- 40;
522 static void kill_chars(int sc
, int ec
)
525 for (i
= sc
; i
< ec
; i
++)
526 draw_char(' ', row
, i
);
530 static void move_chars(int sc
, int nc
, int n
)
533 screen_move(OFFSET(row
, sc
+ n
), OFFSET(row
, sc
), nc
);
535 screen_reset(OFFSET(row
, sc
), n
);
537 screen_reset(OFFSET(row
, pad_cols() + n
), -n
);
538 draw_cols(row
, MIN(sc
, sc
+ n
), pad_cols());
542 static void delete_chars(int n
)
545 int nc
= pad_cols() - sc
;
546 move_chars(sc
, nc
, -n
);
549 static void insert_chars(int n
)
551 int nc
= pad_cols() - col
- n
;
552 move_chars(col
, nc
, n
);
555 static void advance(int dr
, int dc
, int scrl
)
559 if (dr
&& r
>= bot
&& scrl
) {
561 int nr
= (bot
- top
) + n
;
562 scroll_screen(top
+ -n
, nr
, n
);
564 if (dr
&& r
< top
&& scrl
) {
566 int nr
= (bot
- top
) - n
;
567 scroll_screen(top
, nr
, n
);
569 r
= dr
? LIMIT(r
, top
, bot
- 1) : r
;
570 c
= LIMIT(c
, 0, pad_cols() - 1);
574 static void insertchar(int c
)
577 if (mode
& MODE_WRAPREADY
)
579 if (mode
& MODE_INSERT
)
581 draw_char(c
, row
, col
);
582 wrapready
= col
== pad_cols() - 1;
585 mode
= BIT_SET(mode
, MODE_WRAPREADY
, 1);
589 /* partial vt102 implementation */
591 static void escseq(void);
592 static void escseq_cs(void);
593 static void escseq_g0(void);
594 static void escseq_g1(void);
595 static void escseq_g2(void);
596 static void escseq_g3(void);
597 static void csiseq(void);
598 static void csiseq_da(int c
);
599 static void csiseq_dsr(int c
);
600 static void modeseq(int c
, int set
);
602 /* comments taken from: http://www.ivarch.com/programs/termvt102.shtml */
604 static int readutf8(int c
)
610 while (l
< 6 && c
& (0x40 >> l
))
612 result
= (0x3f >> l
) & c
;
614 result
= (result
<< 6) | (readpty() & 0x3f);
618 #define unknown(ctl, c)
620 /* control sequences */
621 static void ctlseq(void)
625 case 0x09: /* HT horizontal tab to next tab stop */
626 advance(0, 8 - col
% 8, 0);
628 case 0x0a: /* LF line feed */
629 case 0x0b: /* VT line feed */
630 case 0x0c: /* FF line feed */
631 advance(1, (mode
& MODE_AUTOCR
) ? -col
: 0, 1);
633 case 0x08: /* BS backspace one column */
636 case 0x1b: /* ESC start escape sequence */
639 case 0x0d: /* CR carriage return */
642 case 0x00: /* NUL ignored */
643 case 0x07: /* BEL beep */
644 case 0x7f: /* DEL ignored */
646 case 0x05: /* ENQ trigger answerback message */
647 case 0x0e: /* SO activate G1 character set & newline */
648 case 0x0f: /* SI activate G0 character set */
649 case 0x11: /* XON resume transmission */
650 case 0x13: /* XOFF stop transmission, ignore characters */
651 case 0x18: /* CAN interrupt escape sequence */
652 case 0x1a: /* SUB interrupt escape sequence */
653 case 0x9b: /* CSI equivalent to ESC [ */
654 unknown("ctlseq", c
);
657 insertchar(readutf8(c
));
662 #define ESCM(c) (((c) & 0xf0) == 0x20)
663 #define ESCF(c) ((c) > 0x30 && (c) < 0x7f)
665 /* escape sequences */
666 static void escseq(void)
672 case '[': /* CSI control sequence introducer */
675 case '%': /* CS... escseq_cs table */
678 case '(': /* G0... escseq_g0 table */
681 case ')': /* G1... escseq_g1 table */
684 case '*': /* G2... escseq_g2 table */
687 case '+': /* G3... escseq_g3 table */
690 case '7': /* DECSC save state (position, charset, attributes) */
691 misc_save(&term
->sav
);
693 case '8': /* DECRC restore most recently saved state */
694 misc_load(&term
->sav
);
696 case 'M': /* RI reverse line feed */
699 case 'D': /* IND line feed */
702 case 'E': /* NEL newline */
705 case 'c': /* RIS reset */
708 case 'H': /* HTS set tab stop at current column */
709 case 'Z': /* DECID DEC private ID; return ESC [ ? 6 c (VT102) */
710 case '#': /* DECALN ("#8") DEC alignment test - fill screen with E's */
711 case '>': /* DECPNM set numeric keypad mode */
712 case '=': /* DECPAM set application keypad mode */
713 case 'N': /* SS2 select G2 charset for next char only */
714 case 'O': /* SS3 select G3 charset for next char only */
715 case 'P': /* DCS device control string (ended by ST) */
716 case 'X': /* SOS start of string */
717 case '^': /* PM privacy message (ended by ST) */
718 case '_': /* APC application program command (ended by ST) */
719 case '\\': /* ST string terminator */
720 case 'n': /* LS2 invoke G2 charset */
721 case 'o': /* LS3 invoke G3 charset */
722 case '|': /* LS3R invoke G3 charset as GR */
723 case '}': /* LS2R invoke G2 charset as GR */
724 case '~': /* LS1R invoke G1 charset as GR */
725 case ']': /* OSC operating system command */
726 case 'g': /* BEL alternate BEL */
728 unknown("escseq", c
);
733 static void escseq_cs(void)
737 case '@': /* CSDFL select default charset (ISO646/8859-1) */
738 case 'G': /* CSUTF8 select UTF-8 */
739 case '8': /* CSUTF8 select UTF-8 (obsolete) */
741 unknown("escseq_cs", c
);
746 static void escseq_g0(void)
750 case '8': /* G0DFL G0 charset = default mapping (ISO8859-1) */
751 case '0': /* G0GFX G0 charset = VT100 graphics mapping */
752 case 'U': /* G0ROM G0 charset = null mapping (straight to ROM) */
753 case 'K': /* G0USR G0 charset = user defined mapping */
754 case 'B': /* G0TXT G0 charset = ASCII mapping */
756 unknown("escseq_g0", c
);
761 static void escseq_g1(void)
765 case '8': /* G1DFL G1 charset = default mapping (ISO8859-1) */
766 case '0': /* G1GFX G1 charset = VT100 graphics mapping */
767 case 'U': /* G1ROM G1 charset = null mapping (straight to ROM) */
768 case 'K': /* G1USR G1 charset = user defined mapping */
769 case 'B': /* G1TXT G1 charset = ASCII mapping */
771 unknown("escseq_g1", c
);
776 static void escseq_g2(void)
780 case '8': /* G2DFL G2 charset = default mapping (ISO8859-1) */
781 case '0': /* G2GFX G2 charset = VT100 graphics mapping */
782 case 'U': /* G2ROM G2 charset = null mapping (straight to ROM) */
783 case 'K': /* G2USR G2 charset = user defined mapping */
785 unknown("escseq_g2", c
);
790 static void escseq_g3(void)
794 case '8': /* G3DFL G3 charset = default mapping (ISO8859-1) */
795 case '0': /* G3GFX G3 charset = VT100 graphics mapping */
796 case 'U': /* G3ROM G3 charset = null mapping (straight to ROM) */
797 case 'K': /* G3USR G3 charset = user defined mapping */
799 unknown("escseq_g3", c
);
804 static int absrow(int r
)
806 return origin() ? top
+ r
: r
;
809 #define CSIP(c) (((c) & 0xf0) == 0x30)
810 #define CSII(c) (((c) & 0xf0) == 0x20)
811 #define CSIF(c) ((c) >= 0x40 && (c) < 0x80)
813 #define MAXCSIARGS 32
814 /* ECMA-48 CSI sequences */
815 static void csiseq(void)
817 int args
[MAXCSIARGS
] = {0};
823 if (strchr("<=>?", c
)) {
830 arg
= arg
* 10 + (c
- '0');
835 if (n
< ARRAY_SIZE(args
))
841 case 'H': /* CUP move cursor to row, column */
842 case 'f': /* HVP move cursor to row, column */
843 move_cursor(absrow(MAX(0, args
[0] - 1)), MAX(0, args
[1] - 1));
845 case 'J': /* ED erase display */
848 kill_chars(col
, pad_cols());
849 blank_rows(row
+ 1, pad_rows());
852 kill_chars(0, col
+ 1);
853 blank_rows(0, row
- 1);
860 case 'A': /* CUU move cursor up */
861 advance(-MAX(1, args
[0]), 0, 0);
863 case 'e': /* VPR move cursor down */
864 case 'B': /* CUD move cursor down */
865 advance(MAX(1, args
[0]), 0, 0);
867 case 'a': /* HPR move cursor right */
868 case 'C': /* CUF move cursor right */
869 advance(0, MAX(1, args
[0]), 0);
871 case 'D': /* CUB move cursor left */
872 advance(0, -MAX(1, args
[0]), 0);
874 case 'K': /* EL erase line */
877 kill_chars(col
, pad_cols());
880 kill_chars(0, col
+ 1);
883 kill_chars(0, pad_cols());
887 case 'L': /* IL insert blank lines */
888 if (row
>= top
&& row
< bot
)
889 insert_lines(MAX(1, args
[0]));
891 case 'M': /* DL delete lines */
892 if (row
>= top
&& row
< bot
)
893 delete_lines(MAX(1, args
[0]));
895 case 'd': /* VPA move to row (current column) */
896 move_cursor(absrow(MAX(1, args
[0]) - 1), col
);
898 case 'm': /* SGR set graphic rendition */
901 for (i
= 0; i
< n
; i
++)
904 case 'r': /* DECSTBM set scrolling region to (top, bottom) rows */
905 set_region(args
[0], args
[1]);
907 case 'c': /* DA return ESC [ ? 6 c (VT102) */
908 csiseq_da(priv
== '?' ? args
[0] | 0x80 : args
[0]);
910 case 'h': /* SM set mode */
911 for (i
= 0; i
< n
; i
++)
912 modeseq(priv
== '?' ? args
[i
] | 0x80 : args
[i
], 1);
914 case 'l': /* RM reset mode */
915 for (i
= 0; i
< n
; i
++)
916 modeseq(priv
== '?' ? args
[i
] | 0x80 : args
[i
], 0);
918 case 'P': /* DCH delete characters on current line */
919 delete_chars(LIMIT(args
[0], 1, pad_cols() - col
));
921 case '@': /* ICH insert blank characters */
922 insert_chars(LIMIT(args
[0], 1, pad_cols() - col
));
924 case 'n': /* DSR device status report */
927 case 'G': /* CHA move cursor to column in current row */
928 advance(0, MAX(0, args
[0] - 1) - col
, 0);
930 case 'X': /* ECH erase characters on current line */
931 kill_chars(col
, MIN(col
+ MAX(1, args
[0]), pad_cols()));
933 case '[': /* IGN ignored control sequence */
934 case 'E': /* CNL move cursor down and to column 1 */
935 case 'F': /* CPL move cursor up and to column 1 */
936 case 'g': /* TBC clear tab stop (CSI 3 g = clear all stops) */
937 case 'q': /* DECLL set keyboard LEDs */
938 case 's': /* CUPSV save cursor position */
939 case 'u': /* CUPRS restore cursor position */
940 case '`': /* HPA move cursor to column in current row */
942 unknown("csiseq", c
);
947 static void csiseq_da(int c
)
951 term_sendstr("\x1b[?6c");
954 /* we don't care much about cursor shape */
955 /* printf("csiseq_da <0x%x>\n", c); */
960 static void csiseq_dsr(int c
)
965 term_sendstr("\x1b[0n");
968 sprintf(status
, "\x1b[%d;%dR",
969 (origin() ? row
- top
: row
) + 1, col
+ 1);
970 term_sendstr(status
);
973 unknown("csiseq_dsr", c
);
978 /* ANSI/DEC specified modes for SM/RM ANSI Specified Modes */
979 static void modeseq(int c
, int set
)
982 case 0x87: /* DECAWM Auto Wrap */
983 mode
= BIT_SET(mode
, MODE_WRAP
, set
);
985 case 0x99: /* DECTCEM Cursor on (set); Cursor off (reset) */
986 mode
= BIT_SET(mode
, MODE_CURSOR
, set
);
988 case 0x86: /* DECOM Sets relative coordinates (set); Sets absolute coordinates (reset) */
989 mode
= BIT_SET(mode
, MODE_ORIGIN
, set
);
991 case 0x14: /* LNM Line Feed / New Line Mode */
992 mode
= BIT_SET(mode
, MODE_AUTOCR
, set
);
994 case 0x04: /* IRM insertion/replacement mode (always reset) */
995 mode
= BIT_SET(mode
, MODE_INSERT
, set
);
997 case 0x00: /* IGN Error (Ignored) */
998 case 0x01: /* GATM guarded-area transfer mode (ignored) */
999 case 0x02: /* KAM keyboard action mode (always reset) */
1000 case 0x03: /* CRM control representation mode (always reset) */
1001 case 0x05: /* SRTM status-reporting transfer mode */
1002 case 0x06: /* ERM erasure mode (always set) */
1003 case 0x07: /* VEM vertical editing mode (ignored) */
1004 case 0x0a: /* HEM horizontal editing mode */
1005 case 0x0b: /* PUM positioning unit mode */
1006 case 0x0c: /* SRM send/receive mode (echo on/off) */
1007 case 0x0d: /* FEAM format effector action mode */
1008 case 0x0e: /* FETM format effector transfer mode */
1009 case 0x0f: /* MATM multiple area transfer mode */
1010 case 0x10: /* TTM transfer termination mode */
1011 case 0x11: /* SATM selected area transfer mode */
1012 case 0x12: /* TSM tabulation stop mode */
1013 case 0x13: /* EBM editing boundary mode */
1014 /* DEC Private Modes: "?NUM" -> (NUM | 0x80) */
1015 case 0x80: /* IGN Error (Ignored) */
1016 case 0x81: /* DECCKM Cursorkeys application (set); Cursorkeys normal (reset) */
1017 case 0x82: /* DECANM ANSI (set); VT52 (reset) */
1018 case 0x83: /* DECCOLM 132 columns (set); 80 columns (reset) */
1019 case 0x84: /* DECSCLM Jump scroll (set); Smooth scroll (reset) */
1020 case 0x85: /* DECSCNM Reverse screen (set); Normal screen (reset) */
1021 case 0x88: /* DECARM Auto Repeat */
1022 case 0x89: /* DECINLM Interlace */
1023 case 0x92: /* DECPFF Send FF to printer after print screen (set); No char after PS (reset) */
1024 case 0x93: /* DECPEX Print screen: prints full screen (set); prints scroll region (reset) */
1026 unknown("modeseq", c
);