Xinqi Bao's Git
1 /* See LICENSE for licence details. */
2 #define _XOPEN_SOURCE 600
13 #include <sys/ioctl.h>
14 #include <sys/select.h>
16 #include <sys/types.h>
20 #include <X11/keysym.h>
21 #include <X11/Xutil.h>
25 #elif defined(__OpenBSD__) || defined(__NetBSD__)
27 #elif defined(__FreeBSD__) || defined(__DragonFly__)
32 "st-" VERSION ", (c) 2010 st engineers\n" \
33 "usage: st [-t title] [-e cmd] [-v]\n"
36 #define ESC_TITLE_SIZ 256
37 #define ESC_BUF_SIZ 256
38 #define ESC_ARG_SIZ 16
39 #define DRAW_BUF_SIZ 1024
41 #define SERRNO strerror(errno)
42 #define MIN(a, b) ((a) < (b) ? (a) : (b))
43 #define MAX(a, b) ((a) < (b) ? (b) : (a))
44 #define LEN(a) (sizeof(a) / sizeof(a[0]))
45 #define DEFAULT(a, b) (a) = (a) ? (a) : (b)
46 #define BETWEEN(x, a, b) ((a) <= (x) && (x) <= (b))
47 #define LIMIT(x, a, b) (x) = (x) < (a) ? (a) : (x) > (b) ? (b) : (x)
48 #define ATTRCMP(a, b) ((a).mode != (b).mode || (a).fg != (b).fg || (a).bg != (b).bg)
49 #define IS_SET(flag) (term.mode & (flag))
51 /* Attribute, Cursor, Character state, Terminal mode, Screen draw mode */
52 enum { ATTR_NULL
=0 , ATTR_REVERSE
=1 , ATTR_UNDERLINE
=2, ATTR_BOLD
=4, ATTR_GFX
=8 };
53 enum { CURSOR_UP
, CURSOR_DOWN
, CURSOR_LEFT
, CURSOR_RIGHT
,
54 CURSOR_SAVE
, CURSOR_LOAD
};
55 enum { CURSOR_DEFAULT
= 0, CURSOR_HIDE
= 1, CURSOR_WRAPNEXT
= 2 };
56 enum { GLYPH_SET
=1, GLYPH_DIRTY
=2 };
57 enum { MODE_WRAP
=1, MODE_INSERT
=2, MODE_APPKEYPAD
=4, MODE_ALTSCREEN
=8 };
58 enum { ESC_START
=1, ESC_CSI
=2, ESC_OSC
=4, ESC_TITLE
=8, ESC_ALTCHARSET
=16 };
59 enum { SCREEN_UPDATE
, SCREEN_REDRAW
};
62 char c
; /* character code */
63 char mode
; /* attribute flags */
64 int fg
; /* foreground */
65 int bg
; /* background */
66 char state
; /* state flags */
72 Glyph attr
; /* current char attributes */
78 /* CSI Escape sequence structs */
79 /* ESC '[' [[ [<priv>] <arg> [;]] <mode>] */
81 char buf
[ESC_BUF_SIZ
]; /* raw string */
82 int len
; /* raw string length */
85 int narg
; /* nb of args */
89 /* Internal representation of the screen */
93 Line
* line
; /* screen */
94 Line
* alt
; /* alternate screen */
95 TCursor c
; /* cursor */
96 int top
; /* top scroll limit */
97 int bot
; /* bottom scroll limit */
98 int mode
; /* terminal mode flags */
99 int esc
; /* escape state flags */
100 char title
[ESC_TITLE_SIZ
];
104 /* Purely graphic info */
110 int w
; /* window width */
111 int h
; /* window height */
112 int bufw
; /* pixmap width */
113 int bufh
; /* pixmap height */
114 int ch
; /* char height */
115 int cw
; /* char width */
124 /* Drawing Context */
126 unsigned long col
[256];
132 /* TODO: use better name for vars... */
137 struct {int x
, y
;} b
, e
;
143 static void die(const char *errstr
, ...);
144 static void draw(int);
145 static void execsh(void);
146 static void sigchld(int);
147 static void run(void);
149 static void csidump(void);
150 static void csihandle(void);
151 static void csiparse(void);
152 static void csireset(void);
154 static void tclearregion(int, int, int, int);
155 static void tcursor(int);
156 static void tdeletechar(int);
157 static void tdeleteline(int);
158 static void tinsertblank(int);
159 static void tinsertblankline(int);
160 static void tmoveto(int, int);
161 static void tnew(int, int);
162 static void tnewline(void);
163 static void tputtab(void);
164 static void tputc(char);
165 static void tputs(char*, int);
166 static void treset(void);
167 static void tresize(int, int);
168 static void tscrollup(int, int);
169 static void tscrolldown(int, int);
170 static void tsetattr(int*, int);
171 static void tsetchar(char);
172 static void tsetscroll(int, int);
173 static void tswapscreen(void);
175 static void ttynew(void);
176 static void ttyread(void);
177 static void ttyresize(int, int);
178 static void ttywrite(const char *, size_t);
180 static void xdraws(char *, Glyph
, int, int, int);
181 static void xhints(void);
182 static void xclear(int, int, int, int);
183 static void xdrawcursor(void);
184 static void xinit(void);
185 static void xloadcols(void);
186 static void xseturgency(int);
188 static void expose(XEvent
*);
189 static char* kmap(KeySym
);
190 static void kpress(XEvent
*);
191 static void resize(XEvent
*);
192 static void focus(XEvent
*);
193 static void brelease(XEvent
*);
194 static void bpress(XEvent
*);
195 static void bmotion(XEvent
*);
198 static void (*handler
[LASTEvent
])(XEvent
*) = {
201 [ConfigureNotify
] = resize
,
204 [MotionNotify
] = bmotion
,
205 [ButtonPress
] = bpress
,
206 [ButtonRelease
] = brelease
,
213 static CSIEscape escseq
;
216 static Selection sel
;
217 static char *opt_cmd
= NULL
;
218 static char *opt_title
= NULL
;
227 static inline int selected(int x
, int y
) {
228 if(sel
.ey
== y
&& sel
.by
== y
) {
229 int bx
= MIN(sel
.bx
, sel
.ex
);
230 int ex
= MAX(sel
.bx
, sel
.ex
);
231 return BETWEEN(x
, bx
, ex
);
233 return ((sel
.b
.y
< y
&&y
< sel
.e
.y
) || (y
==sel
.e
.y
&& x
<=sel
.e
.x
))
234 || (y
==sel
.b
.y
&& x
>=sel
.b
.x
&& (x
<=sel
.e
.x
|| sel
.b
.y
!=sel
.e
.y
));
237 static void getbuttoninfo(XEvent
*e
, int *b
, int *x
, int *y
) {
238 if(b
) *b
= e
->xbutton
.state
,
239 *b
=*b
==4096?5:*b
==2048?4:*b
==1024?3:*b
==512?2:*b
==256?1:-1;
240 *x
= e
->xbutton
.x
/xw
.cw
;
241 *y
= e
->xbutton
.y
/xw
.ch
;
242 sel
.b
.x
= sel
.by
< sel
.ey
? sel
.bx
: sel
.ex
;
243 sel
.b
.y
= MIN(sel
.by
, sel
.ey
);
244 sel
.e
.x
= sel
.by
< sel
.ey
? sel
.ex
: sel
.bx
;
245 sel
.e
.y
= MAX(sel
.by
, sel
.ey
);
248 static void bpress(XEvent
*e
) {
250 sel
.ex
= sel
.bx
= e
->xbutton
.x
/xw
.cw
;
251 sel
.ey
= sel
.by
= e
->xbutton
.y
/xw
.ch
;
254 static char *getseltext() {
259 sz
= (term
.col
+1) * (sel
.e
.y
-sel
.b
.y
+1);
260 ptr
= str
= malloc(sz
);
261 for(y
= 0; y
< term
.row
; y
++) {
262 for(x
= 0; x
< term
.col
; x
++)
263 if(term
.line
[y
][x
].state
& GLYPH_SET
&& (ls
= selected(x
, y
)))
264 *ptr
= term
.line
[y
][x
].c
, ptr
++;
272 /* TODO: use X11 clipboard */
273 static void selcopy(char *str
) {
278 static void selpaste() {
280 ttywrite(sel
.clip
, strlen(sel
.clip
));
283 /* TODO: doubleclick to select word */
284 static void brelease(XEvent
*e
) {
287 getbuttoninfo(e
, &b
, &sel
.ex
, &sel
.ey
);
288 if(sel
.bx
==sel
.ex
&& sel
.by
==sel
.ey
) {
294 selcopy(getseltext());
299 static void bmotion(XEvent
*e
) {
301 getbuttoninfo(e
, NULL
, &sel
.ex
, &sel
.ey
);
312 for(row
= 0; row
< term
.row
; row
++) {
313 for(col
= 0; col
< term
.col
; col
++) {
314 if(col
== term
.c
.x
&& row
== term
.c
.y
)
317 c
= term
.line
[row
][col
];
318 putchar(c
.state
& GLYPH_SET
? c
.c
: '.');
327 die(const char *errstr
, ...) {
330 va_start(ap
, errstr
);
331 vfprintf(stderr
, errstr
, ap
);
338 char *args
[] = {getenv("SHELL"), "-i", NULL
};
340 args
[0] = opt_cmd
, args
[1] = NULL
;
342 DEFAULT(args
[0], SHELL
);
343 putenv("TERM="TNAME
);
344 execvp(args
[0], args
);
350 if(waitpid(pid
, &stat
, 0) < 0)
351 die("Waiting for pid %hd failed: %s\n", pid
, SERRNO
);
353 exit(WEXITSTATUS(stat
));
362 /* seems to work fine on linux, openbsd and freebsd */
363 struct winsize w
= {term
.row
, term
.col
, 0, 0};
364 if(openpty(&m
, &s
, NULL
, NULL
, &w
) < 0)
365 die("openpty failed: %s\n", SERRNO
);
367 switch(pid
= fork()) {
369 die("fork failed\n");
372 setsid(); /* create a new process group */
373 dup2(s
, STDIN_FILENO
);
374 dup2(s
, STDOUT_FILENO
);
375 dup2(s
, STDERR_FILENO
);
376 if(ioctl(s
, TIOCSCTTY
, NULL
) < 0)
377 die("ioctl TIOCSCTTY failed: %s\n", SERRNO
);
385 signal(SIGCHLD
, sigchld
);
392 fprintf(stderr
, " %02x '%c' ", c
, isprint(c
)?c
:'.');
394 fprintf(stderr
, "\n");
402 if((ret
= read(cmdfd
, buf
, LEN(buf
))) < 0)
403 die("Couldn't read from shell: %s\n", SERRNO
);
409 ttywrite(const char *s
, size_t n
) {
410 if(write(cmdfd
, s
, n
) == -1)
411 die("write error on tty: %s\n", SERRNO
);
415 ttyresize(int x
, int y
) {
420 w
.ws_xpixel
= w
.ws_ypixel
= 0;
421 if(ioctl(cmdfd
, TIOCSWINSZ
, &w
) < 0)
422 fprintf(stderr
, "Couldn't set window size: %s\n", SERRNO
);
429 if(mode
== CURSOR_SAVE
)
431 else if(mode
== CURSOR_LOAD
)
432 term
.c
= c
, tmoveto(c
.x
, c
.y
);
441 }, .x
= 0, .y
= 0, .state
= CURSOR_DEFAULT
};
443 term
.top
= 0, term
.bot
= term
.row
- 1;
444 term
.mode
= MODE_WRAP
;
445 tclearregion(0, 0, term
.col
-1, term
.row
-1);
449 tnew(int col
, int row
) {
450 /* set screen size */
451 term
.row
= row
, term
.col
= col
;
452 term
.line
= malloc(term
.row
* sizeof(Line
));
453 term
.alt
= malloc(term
.row
* sizeof(Line
));
454 for(row
= 0 ; row
< term
.row
; row
++) {
455 term
.line
[row
] = malloc(term
.col
* sizeof(Glyph
));
456 term
.alt
[row
] = malloc(term
.col
* sizeof(Glyph
));
464 Line
* tmp
= term
.line
;
465 term
.line
= term
.alt
;
467 term
.mode
^= MODE_ALTSCREEN
;
471 tscrolldown(int orig
, int n
) {
475 LIMIT(n
, 0, term
.bot
-orig
+1);
477 tclearregion(0, term
.bot
-n
+1, term
.col
-1, term
.bot
);
479 for(i
= term
.bot
; i
>= orig
+n
; i
--) {
481 term
.line
[i
] = term
.line
[i
-n
];
482 term
.line
[i
-n
] = temp
;
487 tscrollup(int orig
, int n
) {
490 LIMIT(n
, 0, term
.bot
-orig
+1);
492 tclearregion(0, orig
, term
.col
-1, orig
+n
-1);
494 for(i
= orig
; i
<= term
.bot
-n
; i
++) {
496 term
.line
[i
] = term
.line
[i
+n
];
497 term
.line
[i
+n
] = temp
;
504 if(term
.c
.y
== term
.bot
)
505 tscrollup(term
.top
, 1);
514 char *p
= escseq
.buf
;
518 escseq
.priv
= 1, p
++;
520 while(p
< escseq
.buf
+escseq
.len
) {
522 escseq
.arg
[escseq
.narg
] *= 10;
523 escseq
.arg
[escseq
.narg
] += *p
++ - '0'/*, noarg = 0 */;
525 if(*p
== ';' && escseq
.narg
+1 < ESC_ARG_SIZ
)
536 tmoveto(int x
, int y
) {
537 LIMIT(x
, 0, term
.col
-1);
538 LIMIT(y
, 0, term
.row
-1);
539 term
.c
.state
&= ~CURSOR_WRAPNEXT
;
546 term
.line
[term
.c
.y
][term
.c
.x
] = term
.c
.attr
;
547 term
.line
[term
.c
.y
][term
.c
.x
].c
= c
;
548 term
.line
[term
.c
.y
][term
.c
.x
].state
|= GLYPH_SET
;
552 tclearregion(int x1
, int y1
, int x2
, int y2
) {
556 temp
= x1
, x1
= x2
, x2
= temp
;
558 temp
= y1
, y1
= y2
, y2
= temp
;
560 LIMIT(x1
, 0, term
.col
-1);
561 LIMIT(x2
, 0, term
.col
-1);
562 LIMIT(y1
, 0, term
.row
-1);
563 LIMIT(y2
, 0, term
.row
-1);
565 for(y
= y1
; y
<= y2
; y
++)
566 memset(&term
.line
[y
][x1
], 0, sizeof(Glyph
)*(x2
-x1
+1));
571 int src
= term
.c
.x
+ n
;
573 int size
= term
.col
- src
;
575 if(src
>= term
.col
) {
576 tclearregion(term
.c
.x
, term
.c
.y
, term
.col
-1, term
.c
.y
);
579 memmove(&term
.line
[term
.c
.y
][dst
], &term
.line
[term
.c
.y
][src
], size
* sizeof(Glyph
));
580 tclearregion(term
.col
-n
, term
.c
.y
, term
.col
-1, term
.c
.y
);
584 tinsertblank(int n
) {
587 int size
= term
.col
- dst
;
589 if(dst
>= term
.col
) {
590 tclearregion(term
.c
.x
, term
.c
.y
, term
.col
-1, term
.c
.y
);
593 memmove(&term
.line
[term
.c
.y
][dst
], &term
.line
[term
.c
.y
][src
], size
* sizeof(Glyph
));
594 tclearregion(src
, term
.c
.y
, dst
- 1, term
.c
.y
);
598 tinsertblankline(int n
) {
599 if(term
.c
.y
< term
.top
|| term
.c
.y
> term
.bot
)
602 tscrolldown(term
.c
.y
, n
);
607 if(term
.c
.y
< term
.top
|| term
.c
.y
> term
.bot
)
610 tscrollup(term
.c
.y
, n
);
614 tsetattr(int *attr
, int l
) {
617 for(i
= 0; i
< l
; i
++) {
620 term
.c
.attr
.mode
&= ~(ATTR_REVERSE
| ATTR_UNDERLINE
| ATTR_BOLD
);
621 term
.c
.attr
.fg
= DefaultFG
;
622 term
.c
.attr
.bg
= DefaultBG
;
625 term
.c
.attr
.mode
|= ATTR_BOLD
;
628 term
.c
.attr
.mode
|= ATTR_UNDERLINE
;
631 term
.c
.attr
.mode
|= ATTR_REVERSE
;
634 term
.c
.attr
.mode
&= ~ATTR_BOLD
;
637 term
.c
.attr
.mode
&= ~ATTR_UNDERLINE
;
640 term
.c
.attr
.mode
&= ~ATTR_REVERSE
;
643 if (i
+ 2 < l
&& attr
[i
+ 1] == 5) {
645 if (BETWEEN(attr
[i
], 0, 255))
646 term
.c
.attr
.fg
= attr
[i
];
648 fprintf(stderr
, "erresc: bad fgcolor %d\n", attr
[i
]);
651 fprintf(stderr
, "erresc: gfx attr %d unknown\n", attr
[i
]);
654 term
.c
.attr
.fg
= DefaultFG
;
657 if (i
+ 2 < l
&& attr
[i
+ 1] == 5) {
659 if (BETWEEN(attr
[i
], 0, 255))
660 term
.c
.attr
.bg
= attr
[i
];
662 fprintf(stderr
, "erresc: bad bgcolor %d\n", attr
[i
]);
665 fprintf(stderr
, "erresc: gfx attr %d unknown\n", attr
[i
]);
668 term
.c
.attr
.bg
= DefaultBG
;
671 if(BETWEEN(attr
[i
], 30, 37))
672 term
.c
.attr
.fg
= attr
[i
] - 30;
673 else if(BETWEEN(attr
[i
], 40, 47))
674 term
.c
.attr
.bg
= attr
[i
] - 40;
675 else if(BETWEEN(attr
[i
], 90, 97))
676 term
.c
.attr
.fg
= attr
[i
] - 90 + 8;
677 else if(BETWEEN(attr
[i
], 100, 107))
678 term
.c
.attr
.fg
= attr
[i
] - 100 + 8;
680 fprintf(stderr
, "erresc: gfx attr %d unknown\n", attr
[i
]);
687 tsetscroll(int t
, int b
) {
690 LIMIT(t
, 0, term
.row
-1);
691 LIMIT(b
, 0, term
.row
-1);
703 switch(escseq
.mode
) {
706 printf("erresc: unknown csi ");
710 case '@': /* ICH -- Insert <n> blank char */
711 DEFAULT(escseq
.arg
[0], 1);
712 tinsertblank(escseq
.arg
[0]);
714 case 'A': /* CUU -- Cursor <n> Up */
716 DEFAULT(escseq
.arg
[0], 1);
717 tmoveto(term
.c
.x
, term
.c
.y
-escseq
.arg
[0]);
719 case 'B': /* CUD -- Cursor <n> Down */
720 DEFAULT(escseq
.arg
[0], 1);
721 tmoveto(term
.c
.x
, term
.c
.y
+escseq
.arg
[0]);
723 case 'C': /* CUF -- Cursor <n> Forward */
725 DEFAULT(escseq
.arg
[0], 1);
726 tmoveto(term
.c
.x
+escseq
.arg
[0], term
.c
.y
);
728 case 'D': /* CUB -- Cursor <n> Backward */
729 DEFAULT(escseq
.arg
[0], 1);
730 tmoveto(term
.c
.x
-escseq
.arg
[0], term
.c
.y
);
732 case 'E': /* CNL -- Cursor <n> Down and first col */
733 DEFAULT(escseq
.arg
[0], 1);
734 tmoveto(0, term
.c
.y
+escseq
.arg
[0]);
736 case 'F': /* CPL -- Cursor <n> Up and first col */
737 DEFAULT(escseq
.arg
[0], 1);
738 tmoveto(0, term
.c
.y
-escseq
.arg
[0]);
740 case 'G': /* CHA -- Move to <col> */
741 case '`': /* XXX: HPA -- same? */
742 DEFAULT(escseq
.arg
[0], 1);
743 tmoveto(escseq
.arg
[0]-1, term
.c
.y
);
745 case 'H': /* CUP -- Move to <row> <col> */
746 case 'f': /* XXX: HVP -- same? */
747 DEFAULT(escseq
.arg
[0], 1);
748 DEFAULT(escseq
.arg
[1], 1);
749 tmoveto(escseq
.arg
[1]-1, escseq
.arg
[0]-1);
751 /* XXX: (CSI n I) CHT -- Cursor Forward Tabulation <n> tab stops */
752 case 'J': /* ED -- Clear screen */
753 switch(escseq
.arg
[0]) {
755 tclearregion(term
.c
.x
, term
.c
.y
, term
.col
-1, term
.row
-1);
758 tclearregion(0, 0, term
.c
.x
, term
.c
.y
);
761 tclearregion(0, 0, term
.col
-1, term
.row
-1);
767 case 'K': /* EL -- Clear line */
768 switch(escseq
.arg
[0]) {
770 tclearregion(term
.c
.x
, term
.c
.y
, term
.col
-1, term
.c
.y
);
773 tclearregion(0, term
.c
.y
, term
.c
.x
, term
.c
.y
);
776 tclearregion(0, term
.c
.y
, term
.col
-1, term
.c
.y
);
780 case 'S': /* SU -- Scroll <n> line up */
781 DEFAULT(escseq
.arg
[0], 1);
782 tscrollup(term
.top
, escseq
.arg
[0]);
784 case 'T': /* SD -- Scroll <n> line down */
785 DEFAULT(escseq
.arg
[0], 1);
786 tscrolldown(term
.top
, escseq
.arg
[0]);
788 case 'L': /* IL -- Insert <n> blank lines */
789 DEFAULT(escseq
.arg
[0], 1);
790 tinsertblankline(escseq
.arg
[0]);
792 case 'l': /* RM -- Reset Mode */
794 switch(escseq
.arg
[0]) {
796 term
.mode
&= ~MODE_APPKEYPAD
;
799 term
.mode
&= ~MODE_WRAP
;
801 case 12: /* att610 -- Stop blinking cursor (IGNORED) */
804 term
.c
.state
|= CURSOR_HIDE
;
806 case 1049: /* = 1047 and 1048 */
808 if(IS_SET(MODE_ALTSCREEN
)) {
809 tclearregion(0, 0, term
.col
-1, term
.row
-1);
812 if(escseq
.arg
[0] == 1047)
815 tcursor(CURSOR_LOAD
);
821 switch(escseq
.arg
[0]) {
823 term
.mode
&= ~MODE_INSERT
;
830 case 'M': /* DL -- Delete <n> lines */
831 DEFAULT(escseq
.arg
[0], 1);
832 tdeleteline(escseq
.arg
[0]);
834 case 'X': /* ECH -- Erase <n> char */
835 DEFAULT(escseq
.arg
[0], 1);
836 tclearregion(term
.c
.x
, term
.c
.y
, term
.c
.x
+ escseq
.arg
[0], term
.c
.y
);
838 case 'P': /* DCH -- Delete <n> char */
839 DEFAULT(escseq
.arg
[0], 1);
840 tdeletechar(escseq
.arg
[0]);
842 /* XXX: (CSI n Z) CBT -- Cursor Backward Tabulation <n> tab stops */
843 case 'd': /* VPA -- Move to <row> */
844 DEFAULT(escseq
.arg
[0], 1);
845 tmoveto(term
.c
.x
, escseq
.arg
[0]-1);
847 case 'h': /* SM -- Set terminal mode */
849 switch(escseq
.arg
[0]) {
851 term
.mode
|= MODE_APPKEYPAD
;
854 term
.mode
|= MODE_WRAP
;
856 case 12: /* att610 -- Start blinking cursor (IGNORED) */
859 term
.c
.state
&= ~CURSOR_HIDE
;
861 case 1049: /* = 1047 and 1048 */
863 if(IS_SET(MODE_ALTSCREEN
))
864 tclearregion(0, 0, term
.col
-1, term
.row
-1);
867 if(escseq
.arg
[0] == 1047)
870 tcursor(CURSOR_SAVE
);
872 default: goto unknown
;
875 switch(escseq
.arg
[0]) {
877 term
.mode
|= MODE_INSERT
;
879 default: goto unknown
;
883 case 'm': /* SGR -- Terminal attribute (color) */
884 tsetattr(escseq
.arg
, escseq
.narg
);
886 case 'r': /* DECSTBM -- Set Scrolling Region */
890 DEFAULT(escseq
.arg
[0], 1);
891 DEFAULT(escseq
.arg
[1], term
.row
);
892 tsetscroll(escseq
.arg
[0]-1, escseq
.arg
[1]-1);
896 case 's': /* DECSC -- Save cursor position (ANSI.SYS) */
897 tcursor(CURSOR_SAVE
);
899 case 'u': /* DECRC -- Restore cursor position (ANSI.SYS) */
900 tcursor(CURSOR_LOAD
);
908 printf("ESC [ %s", escseq
.priv
? "? " : "");
910 for(i
= 0; i
< escseq
.narg
; i
++)
911 printf("%d ", escseq
.arg
[i
]);
913 putchar(escseq
.mode
);
919 memset(&escseq
, 0, sizeof(escseq
));
924 int space
= TAB
- term
.c
.x
% TAB
;
925 tmoveto(term
.c
.x
+ space
, term
.c
.y
);
930 if(term
.esc
& ESC_START
) {
931 if(term
.esc
& ESC_CSI
) {
932 escseq
.buf
[escseq
.len
++] = c
;
933 if(BETWEEN(c
, 0x40, 0x7E) || escseq
.len
>= ESC_BUF_SIZ
) {
935 csiparse(), csihandle();
937 /* TODO: handle other OSC */
938 } else if(term
.esc
& ESC_OSC
) {
941 term
.esc
= ESC_START
| ESC_TITLE
;
943 } else if(term
.esc
& ESC_TITLE
) {
944 if(c
== '\a' || term
.titlelen
+1 >= ESC_TITLE_SIZ
) {
946 term
.title
[term
.titlelen
] = '\0';
947 XStoreName(xw
.dis
, xw
.win
, term
.title
);
949 term
.title
[term
.titlelen
++] = c
;
951 } else if(term
.esc
& ESC_ALTCHARSET
) {
953 case '0': /* Line drawing crap */
954 term
.c
.attr
.mode
|= ATTR_GFX
;
956 case 'B': /* Back to regular text */
957 term
.c
.attr
.mode
&= ~ATTR_GFX
;
960 printf("esc unhandled charset: ESC ( %c\n", c
);
972 term
.esc
|= ESC_ALTCHARSET
;
974 case 'D': /* IND -- Linefeed */
975 if(term
.c
.y
== term
.bot
)
976 tscrollup(term
.top
, 1);
978 tmoveto(term
.c
.x
, term
.c
.y
+1);
981 case 'E': /* NEL -- Next line */
985 case 'M': /* RI -- Reverse index */
986 if(term
.c
.y
== term
.top
)
987 tscrolldown(term
.top
, 1);
989 tmoveto(term
.c
.x
, term
.c
.y
-1);
992 case 'c': /* RIS -- Reset to inital state */
996 case '=': /* DECPAM -- Application keypad */
997 term
.mode
|= MODE_APPKEYPAD
;
1000 case '>': /* DECPNM -- Normal keypad */
1001 term
.mode
&= ~MODE_APPKEYPAD
;
1004 case '7': /* DECSC -- Save Cursor */
1005 tcursor(CURSOR_SAVE
);
1008 case '8': /* DECRC -- Restore Cursor */
1009 tcursor(CURSOR_LOAD
);
1013 fprintf(stderr
, "erresc: unknown sequence ESC 0x%02X '%c'\n", c
, isprint(c
)?c
:'.');
1023 tmoveto(term
.c
.x
-1, term
.c
.y
);
1026 tmoveto(0, term
.c
.y
);
1037 term
.esc
= ESC_START
;
1040 if(IS_SET(MODE_WRAP
) && term
.c
.state
& CURSOR_WRAPNEXT
)
1043 if(term
.c
.x
+1 < term
.col
)
1044 tmoveto(term
.c
.x
+1, term
.c
.y
);
1046 term
.c
.state
|= CURSOR_WRAPNEXT
;
1053 tputs(char *s
, int len
) {
1054 for(; len
> 0; len
--)
1059 tresize(int col
, int row
) {
1061 int minrow
= MIN(row
, term
.row
);
1062 int mincol
= MIN(col
, term
.col
);
1063 int slide
= term
.c
.y
- row
+ 1;
1065 if(col
< 1 || row
< 1)
1068 /* free unneeded rows */
1071 /* slide screen to keep cursor where we expect it -
1072 * tscrollup would work here, but we can optimize to
1073 * memmove because we're freeing the earlier lines */
1074 for(/* i = 0 */; i
< slide
; i
++) {
1078 memmove(term
.line
, term
.line
+ slide
, row
* sizeof(Line
));
1079 memmove(term
.alt
, term
.alt
+ slide
, row
* sizeof(Line
));
1081 for(i
+= row
; i
< term
.row
; i
++) {
1086 /* resize to new height */
1087 term
.line
= realloc(term
.line
, row
* sizeof(Line
));
1088 term
.alt
= realloc(term
.alt
, row
* sizeof(Line
));
1090 /* resize each row to new width, zero-pad if needed */
1091 for(i
= 0; i
< minrow
; i
++) {
1092 term
.line
[i
] = realloc(term
.line
[i
], col
* sizeof(Glyph
));
1093 term
.alt
[i
] = realloc(term
.alt
[i
], col
* sizeof(Glyph
));
1094 memset(term
.line
[i
] + mincol
, 0, (col
- mincol
) * sizeof(Glyph
));
1095 memset(term
.alt
[i
] + mincol
, 0, (col
- mincol
) * sizeof(Glyph
));
1098 /* allocate any new rows */
1099 for(/* i == minrow */; i
< row
; i
++) {
1100 term
.line
[i
] = calloc(col
, sizeof(Glyph
));
1101 term
.alt
[i
] = calloc(col
, sizeof(Glyph
));
1104 /* update terminal size */
1105 term
.col
= col
, term
.row
= row
;
1106 /* make use of the LIMIT in tmoveto */
1107 tmoveto(term
.c
.x
, term
.c
.y
);
1108 /* reset scrolling region */
1109 tsetscroll(0, row
-1);
1116 Colormap cmap
= DefaultColormap(xw
.dis
, xw
.scr
);
1117 unsigned long white
= WhitePixel(xw
.dis
, xw
.scr
);
1119 for(i
= 0; i
< 16; i
++) {
1120 if (!XAllocNamedColor(xw
.dis
, cmap
, colorname
[i
], &color
, &color
)) {
1122 fprintf(stderr
, "Could not allocate color '%s'\n", colorname
[i
]);
1124 dc
.col
[i
] = color
.pixel
;
1127 /* same colors as xterm */
1128 for(r
= 0; r
< 6; r
++)
1129 for(g
= 0; g
< 6; g
++)
1130 for(b
= 0; b
< 6; b
++) {
1131 color
.red
= r
== 0 ? 0 : 0x3737 + 0x2828 * r
;
1132 color
.green
= g
== 0 ? 0 : 0x3737 + 0x2828 * g
;
1133 color
.blue
= b
== 0 ? 0 : 0x3737 + 0x2828 * b
;
1134 if (!XAllocColor(xw
.dis
, cmap
, &color
)) {
1136 fprintf(stderr
, "Could not allocate color %d\n", i
);
1138 dc
.col
[i
] = color
.pixel
;
1142 for(r
= 0; r
< 24; r
++, i
++) {
1143 color
.red
= color
.green
= color
.blue
= 0x0808 + 0x0a0a * r
;
1144 if (!XAllocColor(xw
.dis
, cmap
, &color
)) {
1146 fprintf(stderr
, "Could not allocate color %d\n", i
);
1148 dc
.col
[i
] = color
.pixel
;
1153 xclear(int x1
, int y1
, int x2
, int y2
) {
1154 XSetForeground(xw
.dis
, dc
.gc
, dc
.col
[DefaultBG
]);
1155 XFillRectangle(xw
.dis
, xw
.buf
, dc
.gc
,
1156 x1
* xw
.cw
, y1
* xw
.ch
,
1157 (x2
-x1
+1) * xw
.cw
, (y2
-y1
+1) * xw
.ch
);
1163 XClassHint
class = {TNAME
, TNAME
};
1164 XWMHints wm
= {.flags
= InputHint
, .input
= 1};
1166 .flags
= PSize
| PResizeInc
| PBaseSize
,
1169 .height_inc
= xw
.ch
,
1171 .base_height
= 2*BORDER
,
1172 .base_width
= 2*BORDER
,
1174 XSetWMProperties(xw
.dis
, xw
.win
, NULL
, NULL
, NULL
, 0, &size
, &wm
, &class);
1179 if(!(xw
.dis
= XOpenDisplay(NULL
)))
1180 die("Can't open display\n");
1181 xw
.scr
= XDefaultScreen(xw
.dis
);
1184 if(!(dc
.font
= XLoadQueryFont(xw
.dis
, FONT
)) || !(dc
.bfont
= XLoadQueryFont(xw
.dis
, BOLDFONT
)))
1185 die("Can't load font %s\n", dc
.font
? BOLDFONT
: FONT
);
1187 /* XXX: Assuming same size for bold font */
1188 xw
.cw
= dc
.font
->max_bounds
.rbearing
- dc
.font
->min_bounds
.lbearing
;
1189 xw
.ch
= dc
.font
->ascent
+ dc
.font
->descent
;
1195 xw
.bufh
= term
.row
* xw
.ch
;
1196 xw
.bufw
= term
.col
* xw
.cw
;
1197 xw
.h
= xw
.bufh
+ 2*BORDER
;
1198 xw
.w
= xw
.bufw
+ 2*BORDER
;
1199 xw
.win
= XCreateSimpleWindow(xw
.dis
, XRootWindow(xw
.dis
, xw
.scr
), 0, 0,
1203 xw
.buf
= XCreatePixmap(xw
.dis
, xw
.win
, xw
.bufw
, xw
.bufh
, XDefaultDepth(xw
.dis
, xw
.scr
));
1205 dc
.gc
= XCreateGC(xw
.dis
, xw
.win
, 0, NULL
);
1208 XSelectInput(xw
.dis
, xw
.win
, ExposureMask
| KeyPressMask
1209 | StructureNotifyMask
| FocusChangeMask
| PointerMotionMask
1210 | ButtonPressMask
| ButtonReleaseMask
);
1212 XMapWindow(xw
.dis
, xw
.win
);
1214 XStoreName(xw
.dis
, xw
.win
, opt_title
? opt_title
: "st");
1219 xdraws(char *s
, Glyph base
, int x
, int y
, int len
) {
1220 unsigned long xfg
, xbg
;
1221 int winx
= x
*xw
.cw
, winy
= y
*xw
.ch
+ dc
.font
->ascent
, width
= len
*xw
.cw
;
1224 if(base
.mode
& ATTR_REVERSE
)
1225 xfg
= dc
.col
[base
.bg
], xbg
= dc
.col
[base
.fg
];
1227 xfg
= dc
.col
[base
.fg
], xbg
= dc
.col
[base
.bg
];
1229 XSetBackground(xw
.dis
, dc
.gc
, xbg
);
1230 XSetForeground(xw
.dis
, dc
.gc
, xfg
);
1232 if(base
.mode
& ATTR_GFX
)
1233 for(i
= 0; i
< len
; i
++)
1234 s
[i
] = gfx
[(int)s
[i
]];
1236 XSetFont(xw
.dis
, dc
.gc
, base
.mode
& ATTR_BOLD
? dc
.bfont
->fid
: dc
.font
->fid
);
1237 XDrawImageString(xw
.dis
, xw
.buf
, dc
.gc
, winx
, winy
, s
, len
);
1239 if(base
.mode
& ATTR_UNDERLINE
)
1240 XDrawLine(xw
.dis
, xw
.buf
, dc
.gc
, winx
, winy
+1, winx
+width
-1, winy
+1);
1245 static int oldx
= 0;
1246 static int oldy
= 0;
1247 Glyph g
= {' ', ATTR_NULL
, DefaultBG
, DefaultCS
, 0};
1249 LIMIT(oldx
, 0, term
.col
-1);
1250 LIMIT(oldy
, 0, term
.row
-1);
1252 if(term
.line
[term
.c
.y
][term
.c
.x
].state
& GLYPH_SET
)
1253 g
.c
= term
.line
[term
.c
.y
][term
.c
.x
].c
;
1255 /* remove the old cursor */
1256 if(term
.line
[oldy
][oldx
].state
& GLYPH_SET
)
1257 xdraws(&term
.line
[oldy
][oldx
].c
, term
.line
[oldy
][oldx
], oldx
, oldy
, 1);
1259 xclear(oldx
, oldy
, oldx
, oldy
);
1261 /* draw the new one */
1262 if(!(term
.c
.state
& CURSOR_HIDE
) && xw
.hasfocus
) {
1263 xdraws(&g
.c
, g
, term
.c
.x
, term
.c
.y
, 1);
1264 oldx
= term
.c
.x
, oldy
= term
.c
.y
;
1269 /* basic drawing routines */
1271 xdrawc(int x
, int y
, Glyph g
) {
1272 XRectangle r
= { x
* xw
.cw
, y
* xw
.ch
, xw
.cw
, xw
.ch
};
1273 XSetBackground(xw
.dis
, dc
.gc
, dc
.col
[g
.bg
]);
1274 XSetForeground(xw
.dis
, dc
.gc
, dc
.col
[g
.fg
]);
1275 XSetFont(xw
.dis
, dc
.gc
, g
.mode
& ATTR_BOLD
? dc
.bfont
->fid
: dc
.font
->fid
);
1276 XDrawImageString(xw
.dis
, xw
.buf
, dc
.gc
, r
.x
, r
.y
+dc
.font
->ascent
, &g
.c
, 1);
1283 xclear(0, 0, term
.col
-1, term
.row
-1);
1284 for(y
= 0; y
< term
.row
; y
++)
1285 for(x
= 0; x
< term
.col
; x
++)
1286 if(term
.line
[y
][x
].state
& GLYPH_SET
)
1287 xdrawc(x
, y
, term
.line
[y
][x
]);
1290 XCopyArea(xw
.dis
, xw
.buf
, xw
.win
, dc
.gc
, 0, 0, xw
.bufw
, xw
.bufh
, BORDER
, BORDER
);
1295 /* optimized drawing routine */
1297 draw(int redraw_all
) {
1300 char buf
[DRAW_BUF_SIZ
];
1302 XSetForeground(xw
.dis
, dc
.gc
, dc
.col
[DefaultBG
]);
1303 XFillRectangle(xw
.dis
, xw
.buf
, dc
.gc
, 0, 0, xw
.bufw
, xw
.bufh
);
1304 for(y
= 0; y
< term
.row
; y
++) {
1305 base
= term
.line
[y
][0];
1307 for(x
= 0; x
< term
.col
; x
++) {
1308 new = term
.line
[y
][x
];
1309 if(sel
.bx
!=-1 && new.c
&& selected(x
, y
))
1310 new.mode
^= ATTR_REVERSE
;
1311 if(i
> 0 && (!(new.state
& GLYPH_SET
) || ATTRCMP(base
, new) ||
1312 i
>= DRAW_BUF_SIZ
)) {
1313 xdraws(buf
, base
, ox
, y
, i
);
1316 if(new.state
& GLYPH_SET
) {
1325 xdraws(buf
, base
, ox
, y
, i
);
1328 XCopyArea(xw
.dis
, xw
.buf
, xw
.win
, dc
.gc
, 0, 0, xw
.bufw
, xw
.bufh
, BORDER
, BORDER
);
1335 expose(XEvent
*ev
) {
1336 draw(SCREEN_REDRAW
);
1340 xseturgency(int add
) {
1341 XWMHints
*h
= XGetWMHints(xw
.dis
, xw
.win
);
1342 h
->flags
= add
? (h
->flags
| XUrgencyHint
) : (h
->flags
& ~XUrgencyHint
);
1343 XSetWMHints(xw
.dis
, xw
.win
, h
);
1349 if((xw
.hasfocus
= ev
->type
== FocusIn
))
1351 draw(SCREEN_UPDATE
);
1357 for(i
= 0; i
< LEN(key
); i
++)
1359 return (char*)key
[i
].s
;
1364 kpress(XEvent
*ev
) {
1365 XKeyEvent
*e
= &ev
->xkey
;
1373 meta
= e
->state
& Mod1Mask
;
1374 shift
= e
->state
& ShiftMask
;
1375 len
= XLookupString(e
, buf
, sizeof(buf
), &ksym
, NULL
);
1377 if((customkey
= kmap(ksym
)))
1378 ttywrite(customkey
, strlen(customkey
));
1380 buf
[sizeof(buf
)-1] = '\0';
1381 if(meta
&& len
== 1)
1382 ttywrite("\033", 1);
1390 sprintf(buf
, "\033%c%c", IS_SET(MODE_APPKEYPAD
) ? 'O' : '[', "DACB"[ksym
- XK_Left
]);
1395 selpaste(), draw(1);
1398 fprintf(stderr
, "errkey: %d\n", (int)ksym
);
1407 if(e
->xconfigure
.width
== xw
.w
&& e
->xconfigure
.height
== xw
.h
)
1410 xw
.w
= e
->xconfigure
.width
;
1411 xw
.h
= e
->xconfigure
.height
;
1412 xw
.bufw
= xw
.w
- 2*BORDER
;
1413 xw
.bufh
= xw
.h
- 2*BORDER
;
1414 col
= xw
.bufw
/ xw
.cw
;
1415 row
= xw
.bufh
/ xw
.ch
;
1417 ttyresize(col
, row
);
1418 xw
.bufh
= MAX(1, xw
.bufh
);
1419 xw
.bufw
= MAX(1, xw
.bufw
);
1420 XFreePixmap(xw
.dis
, xw
.buf
);
1421 xw
.buf
= XCreatePixmap(xw
.dis
, xw
.win
, xw
.bufw
, xw
.bufh
, XDefaultDepth(xw
.dis
, xw
.scr
));
1422 draw(SCREEN_REDRAW
);
1429 int xfd
= XConnectionNumber(xw
.dis
);
1433 FD_SET(cmdfd
, &rfd
);
1435 if(select(MAX(xfd
, cmdfd
)+1, &rfd
, NULL
, NULL
, NULL
) < 0) {
1438 die("select failed: %s\n", SERRNO
);
1440 if(FD_ISSET(cmdfd
, &rfd
)) {
1442 draw(SCREEN_UPDATE
);
1444 while(XPending(xw
.dis
)) {
1445 XNextEvent(xw
.dis
, &ev
);
1446 if(handler
[ev
.type
])
1447 (handler
[ev
.type
])(&ev
);
1453 main(int argc
, char *argv
[]) {
1456 for(i
= 1; i
< argc
; i
++) {
1457 switch(argv
[i
][0] != '-' || argv
[i
][2] ? -1 : argv
[i
][1]) {
1459 if(++i
< argc
) opt_title
= argv
[i
];
1462 if(++i
< argc
) opt_cmd
= argv
[i
];
1469 setlocale(LC_CTYPE
, "");