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 #define ESC_TITLE_SIZ 256
33 #define ESC_BUF_SIZ 256
34 #define ESC_ARG_SIZ 16
35 #define DRAW_BUF_SIZ 1024
37 #define SERRNO strerror(errno)
38 #define MIN(a, b) ((a) < (b) ? (a) : (b))
39 #define MAX(a, b) ((a) < (b) ? (b) : (a))
40 #define LEN(a) (sizeof(a) / sizeof(a[0]))
41 #define DEFAULT(a, b) (a) = (a) ? (a) : (b)
42 #define BETWEEN(x, a, b) ((a) <= (x) && (x) <= (b))
43 #define LIMIT(x, a, b) (x) = (x) < (a) ? (a) : (x) > (b) ? (b) : (x)
44 #define ATTRCMP(a, b) ((a).mode != (b).mode || (a).fg != (b).fg || (a).bg != (b).bg)
45 #define IS_SET(flag) (term.mode & (flag))
47 /* Attribute, Cursor, Character state, Terminal mode, Screen draw mode */
48 enum { ATTR_NULL
=0 , ATTR_REVERSE
=1 , ATTR_UNDERLINE
=2, ATTR_BOLD
=4, ATTR_GFX
=8 };
49 enum { CURSOR_UP
, CURSOR_DOWN
, CURSOR_LEFT
, CURSOR_RIGHT
,
50 CURSOR_SAVE
, CURSOR_LOAD
};
51 enum { CURSOR_DEFAULT
= 0, CURSOR_HIDE
= 1, CURSOR_WRAPNEXT
= 2 };
52 enum { GLYPH_SET
=1, GLYPH_DIRTY
=2 };
53 enum { MODE_WRAP
=1, MODE_INSERT
=2, MODE_APPKEYPAD
=4, MODE_ALTSCREEN
=8 };
54 enum { ESC_START
=1, ESC_CSI
=2, ESC_OSC
=4, ESC_TITLE
=8, ESC_ALTCHARSET
=16 };
55 enum { SCREEN_UPDATE
, SCREEN_REDRAW
};
58 char c
; /* character code */
59 char mode
; /* attribute flags */
60 int fg
; /* foreground */
61 int bg
; /* background */
62 char state
; /* state flags */
68 Glyph attr
; /* current char attributes */
74 /* CSI Escape sequence structs */
75 /* ESC '[' [[ [<priv>] <arg> [;]] <mode>] */
77 char buf
[ESC_BUF_SIZ
]; /* raw string */
78 int len
; /* raw string length */
81 int narg
; /* nb of args */
85 /* Internal representation of the screen */
89 Line
* line
; /* screen */
90 Line
* alt
; /* alternate screen */
91 TCursor c
; /* cursor */
92 int top
; /* top scroll limit */
93 int bot
; /* bottom scroll limit */
94 int mode
; /* terminal mode flags */
95 int esc
; /* escape state flags */
96 char title
[ESC_TITLE_SIZ
];
100 /* Purely graphic info */
106 int w
; /* window width */
107 int h
; /* window height */
108 int bufw
; /* pixmap width */
109 int bufh
; /* pixmap height */
110 int ch
; /* char height */
111 int cw
; /* char width */
120 /* Drawing Context */
122 unsigned long col
[256];
128 /* TODO: use better name for vars... */
133 struct {int x
, y
;} b
, e
;
139 static void die(const char *errstr
, ...);
140 static void draw(int);
141 static void execsh(void);
142 static void sigchld(int);
143 static void run(void);
145 static void csidump(void);
146 static void csihandle(void);
147 static void csiparse(void);
148 static void csireset(void);
150 static void tclearregion(int, int, int, int);
151 static void tcursor(int);
152 static void tdeletechar(int);
153 static void tdeleteline(int);
154 static void tinsertblank(int);
155 static void tinsertblankline(int);
156 static void tmoveto(int, int);
157 static void tnew(int, int);
158 static void tnewline(void);
159 static void tputtab(void);
160 static void tputc(char);
161 static void tputs(char*, int);
162 static void treset(void);
163 static void tresize(int, int);
164 static void tscrollup(int, int);
165 static void tscrolldown(int, int);
166 static void tsetattr(int*, int);
167 static void tsetchar(char);
168 static void tsetscroll(int, int);
169 static void tswapscreen(void);
171 static void ttynew(void);
172 static void ttyread(void);
173 static void ttyresize(int, int);
174 static void ttywrite(const char *, size_t);
176 static void xdraws(char *, Glyph
, int, int, int);
177 static void xhints(void);
178 static void xclear(int, int, int, int);
179 static void xdrawcursor(void);
180 static void xinit(void);
181 static void xloadcols(void);
182 static void xseturgency(int);
184 static void expose(XEvent
*);
185 static char* kmap(KeySym
);
186 static void kpress(XEvent
*);
187 static void resize(XEvent
*);
188 static void focus(XEvent
*);
189 static void brelease(XEvent
*);
190 static void bpress(XEvent
*);
191 static void bmotion(XEvent
*);
194 static void (*handler
[LASTEvent
])(XEvent
*) = {
197 [ConfigureNotify
] = resize
,
200 [MotionNotify
] = bmotion
,
201 [ButtonPress
] = bpress
,
202 [ButtonRelease
] = brelease
,
209 static CSIEscape escseq
;
212 static Selection sel
;
221 static inline int selected(int x
, int y
) {
222 if(sel
.ey
== y
&& sel
.by
== y
) {
223 int bx
= MIN(sel
.bx
, sel
.ex
);
224 int ex
= MAX(sel
.bx
, sel
.ex
);
225 return BETWEEN(x
, bx
, ex
);
227 return ((sel
.b
.y
< y
&&y
< sel
.e
.y
) || (y
==sel
.e
.y
&& x
<=sel
.e
.x
))
228 || (y
==sel
.b
.y
&& x
>=sel
.b
.x
&& (x
<=sel
.e
.x
|| sel
.b
.y
!=sel
.e
.y
));
231 static void getbuttoninfo(XEvent
*e
, int *b
, int *x
, int *y
) {
232 if(b
) *b
= e
->xbutton
.state
,
233 *b
=*b
==4096?5:*b
==2048?4:*b
==1024?3:*b
==512?2:*b
==256?1:-1;
234 *x
= e
->xbutton
.x
/xw
.cw
;
235 *y
= e
->xbutton
.y
/xw
.ch
;
236 sel
.b
.x
= sel
.by
< sel
.ey
? sel
.bx
: sel
.ex
;
237 sel
.b
.y
= MIN(sel
.by
, sel
.ey
);
238 sel
.e
.x
= sel
.by
< sel
.ey
? sel
.ex
: sel
.bx
;
239 sel
.e
.y
= MAX(sel
.by
, sel
.ey
);
242 static void bpress(XEvent
*e
) {
244 sel
.ex
= sel
.bx
= e
->xbutton
.x
/xw
.cw
;
245 sel
.ey
= sel
.by
= e
->xbutton
.y
/xw
.ch
;
248 static char *getseltext() {
253 sz
= (term
.col
+1) * (sel
.e
.y
-sel
.b
.y
+1);
254 ptr
= str
= malloc(sz
);
255 for(y
= 0; y
< term
.row
; y
++) {
256 for(x
= 0; x
< term
.col
; x
++)
257 if(term
.line
[y
][x
].state
& GLYPH_SET
&& (ls
= selected(x
, y
)))
258 *ptr
= term
.line
[y
][x
].c
, ptr
++;
266 /* TODO: use X11 clipboard */
267 static void selcopy(char *str
) {
272 static void selpaste() {
274 ttywrite(sel
.clip
, strlen(sel
.clip
));
277 /* TODO: doubleclick to select word */
278 static void brelease(XEvent
*e
) {
281 getbuttoninfo(e
, &b
, &sel
.ex
, &sel
.ey
);
282 if(sel
.bx
==sel
.ex
&& sel
.by
==sel
.ey
) {
288 selcopy(getseltext());
293 static void bmotion(XEvent
*e
) {
295 getbuttoninfo(e
, NULL
, &sel
.ex
, &sel
.ey
);
306 for(row
= 0; row
< term
.row
; row
++) {
307 for(col
= 0; col
< term
.col
; col
++) {
308 if(col
== term
.c
.x
&& row
== term
.c
.y
)
311 c
= term
.line
[row
][col
];
312 putchar(c
.state
& GLYPH_SET
? c
.c
: '.');
321 die(const char *errstr
, ...) {
324 va_start(ap
, errstr
);
325 vfprintf(stderr
, errstr
, ap
);
332 char *args
[3] = {getenv("SHELL"), "-i", NULL
};
333 DEFAULT(args
[0], SHELL
); /* if getenv() failed */
334 putenv("TERM=" TNAME
);
335 execvp(args
[0], args
);
341 if(waitpid(pid
, &stat
, 0) < 0)
342 die("Waiting for pid %hd failed: %s\n", pid
, SERRNO
);
344 exit(WEXITSTATUS(stat
));
353 /* seems to work fine on linux, openbsd and freebsd */
354 struct winsize w
= {term
.row
, term
.col
, 0, 0};
355 if(openpty(&m
, &s
, NULL
, NULL
, &w
) < 0)
356 die("openpty failed: %s\n", SERRNO
);
358 switch(pid
= fork()) {
360 die("fork failed\n");
363 setsid(); /* create a new process group */
364 dup2(s
, STDIN_FILENO
);
365 dup2(s
, STDOUT_FILENO
);
366 dup2(s
, STDERR_FILENO
);
367 if(ioctl(s
, TIOCSCTTY
, NULL
) < 0)
368 die("ioctl TIOCSCTTY failed: %s\n", SERRNO
);
376 signal(SIGCHLD
, sigchld
);
383 fprintf(stderr
, " %02x '%c' ", c
, isprint(c
)?c
:'.');
385 fprintf(stderr
, "\n");
393 if((ret
= read(cmdfd
, buf
, LEN(buf
))) < 0)
394 die("Couldn't read from shell: %s\n", SERRNO
);
400 ttywrite(const char *s
, size_t n
) {
401 if(write(cmdfd
, s
, n
) == -1)
402 die("write error on tty: %s\n", SERRNO
);
406 ttyresize(int x
, int y
) {
411 w
.ws_xpixel
= w
.ws_ypixel
= 0;
412 if(ioctl(cmdfd
, TIOCSWINSZ
, &w
) < 0)
413 fprintf(stderr
, "Couldn't set window size: %s\n", SERRNO
);
420 if(mode
== CURSOR_SAVE
)
422 else if(mode
== CURSOR_LOAD
)
423 term
.c
= c
, tmoveto(c
.x
, c
.y
);
432 }, .x
= 0, .y
= 0, .state
= CURSOR_DEFAULT
};
434 term
.top
= 0, term
.bot
= term
.row
- 1;
435 term
.mode
= MODE_WRAP
;
436 tclearregion(0, 0, term
.col
-1, term
.row
-1);
440 tnew(int col
, int row
) {
441 /* set screen size */
442 term
.row
= row
, term
.col
= col
;
443 term
.line
= malloc(term
.row
* sizeof(Line
));
444 term
.alt
= malloc(term
.row
* sizeof(Line
));
445 for(row
= 0 ; row
< term
.row
; row
++) {
446 term
.line
[row
] = malloc(term
.col
* sizeof(Glyph
));
447 term
.alt
[row
] = malloc(term
.col
* sizeof(Glyph
));
455 Line
* tmp
= term
.line
;
456 term
.line
= term
.alt
;
458 term
.mode
^= MODE_ALTSCREEN
;
462 tscrolldown(int orig
, int n
) {
466 LIMIT(n
, 0, term
.bot
-orig
+1);
468 tclearregion(0, term
.bot
-n
+1, term
.col
-1, term
.bot
);
470 for(i
= term
.bot
; i
>= orig
+n
; i
--) {
472 term
.line
[i
] = term
.line
[i
-n
];
473 term
.line
[i
-n
] = temp
;
478 tscrollup(int orig
, int n
) {
481 LIMIT(n
, 0, term
.bot
-orig
+1);
483 tclearregion(0, orig
, term
.col
-1, orig
+n
-1);
485 for(i
= orig
; i
<= term
.bot
-n
; i
++) {
487 term
.line
[i
] = term
.line
[i
+n
];
488 term
.line
[i
+n
] = temp
;
495 if(term
.c
.y
== term
.bot
)
496 tscrollup(term
.top
, 1);
505 char *p
= escseq
.buf
;
509 escseq
.priv
= 1, p
++;
511 while(p
< escseq
.buf
+escseq
.len
) {
513 escseq
.arg
[escseq
.narg
] *= 10;
514 escseq
.arg
[escseq
.narg
] += *p
++ - '0'/*, noarg = 0 */;
516 if(*p
== ';' && escseq
.narg
+1 < ESC_ARG_SIZ
)
527 tmoveto(int x
, int y
) {
528 LIMIT(x
, 0, term
.col
-1);
529 LIMIT(y
, 0, term
.row
-1);
530 term
.c
.state
&= ~CURSOR_WRAPNEXT
;
537 term
.line
[term
.c
.y
][term
.c
.x
] = term
.c
.attr
;
538 term
.line
[term
.c
.y
][term
.c
.x
].c
= c
;
539 term
.line
[term
.c
.y
][term
.c
.x
].state
|= GLYPH_SET
;
543 tclearregion(int x1
, int y1
, int x2
, int y2
) {
547 temp
= x1
, x1
= x2
, x2
= temp
;
549 temp
= y1
, y1
= y2
, y2
= temp
;
551 LIMIT(x1
, 0, term
.col
-1);
552 LIMIT(x2
, 0, term
.col
-1);
553 LIMIT(y1
, 0, term
.row
-1);
554 LIMIT(y2
, 0, term
.row
-1);
556 for(y
= y1
; y
<= y2
; y
++)
557 memset(&term
.line
[y
][x1
], 0, sizeof(Glyph
)*(x2
-x1
+1));
562 int src
= term
.c
.x
+ n
;
564 int size
= term
.col
- src
;
566 if(src
>= term
.col
) {
567 tclearregion(term
.c
.x
, term
.c
.y
, term
.col
-1, term
.c
.y
);
570 memmove(&term
.line
[term
.c
.y
][dst
], &term
.line
[term
.c
.y
][src
], size
* sizeof(Glyph
));
571 tclearregion(term
.col
-n
, term
.c
.y
, term
.col
-1, term
.c
.y
);
575 tinsertblank(int n
) {
578 int size
= term
.col
- dst
;
580 if(dst
>= term
.col
) {
581 tclearregion(term
.c
.x
, term
.c
.y
, term
.col
-1, term
.c
.y
);
584 memmove(&term
.line
[term
.c
.y
][dst
], &term
.line
[term
.c
.y
][src
], size
* sizeof(Glyph
));
585 tclearregion(src
, term
.c
.y
, dst
- 1, term
.c
.y
);
589 tinsertblankline(int n
) {
590 if(term
.c
.y
< term
.top
|| term
.c
.y
> term
.bot
)
593 tscrolldown(term
.c
.y
, n
);
598 if(term
.c
.y
< term
.top
|| term
.c
.y
> term
.bot
)
601 tscrollup(term
.c
.y
, n
);
605 tsetattr(int *attr
, int l
) {
608 for(i
= 0; i
< l
; i
++) {
611 term
.c
.attr
.mode
&= ~(ATTR_REVERSE
| ATTR_UNDERLINE
| ATTR_BOLD
);
612 term
.c
.attr
.fg
= DefaultFG
;
613 term
.c
.attr
.bg
= DefaultBG
;
616 term
.c
.attr
.mode
|= ATTR_BOLD
;
619 term
.c
.attr
.mode
|= ATTR_UNDERLINE
;
622 term
.c
.attr
.mode
|= ATTR_REVERSE
;
625 term
.c
.attr
.mode
&= ~ATTR_BOLD
;
628 term
.c
.attr
.mode
&= ~ATTR_UNDERLINE
;
631 term
.c
.attr
.mode
&= ~ATTR_REVERSE
;
634 if (i
+ 2 < l
&& attr
[i
+ 1] == 5) {
636 if (BETWEEN(attr
[i
], 0, 255))
637 term
.c
.attr
.fg
= attr
[i
];
639 fprintf(stderr
, "erresc: bad fgcolor %d\n", attr
[i
]);
642 fprintf(stderr
, "erresc: gfx attr %d unknown\n", attr
[i
]);
645 term
.c
.attr
.fg
= DefaultFG
;
648 if (i
+ 2 < l
&& attr
[i
+ 1] == 5) {
650 if (BETWEEN(attr
[i
], 0, 255))
651 term
.c
.attr
.bg
= attr
[i
];
653 fprintf(stderr
, "erresc: bad bgcolor %d\n", attr
[i
]);
656 fprintf(stderr
, "erresc: gfx attr %d unknown\n", attr
[i
]);
659 term
.c
.attr
.bg
= DefaultBG
;
662 if(BETWEEN(attr
[i
], 30, 37))
663 term
.c
.attr
.fg
= attr
[i
] - 30;
664 else if(BETWEEN(attr
[i
], 40, 47))
665 term
.c
.attr
.bg
= attr
[i
] - 40;
666 else if(BETWEEN(attr
[i
], 90, 97))
667 term
.c
.attr
.fg
= attr
[i
] - 90 + 8;
668 else if(BETWEEN(attr
[i
], 100, 107))
669 term
.c
.attr
.fg
= attr
[i
] - 100 + 8;
671 fprintf(stderr
, "erresc: gfx attr %d unknown\n", attr
[i
]);
678 tsetscroll(int t
, int b
) {
681 LIMIT(t
, 0, term
.row
-1);
682 LIMIT(b
, 0, term
.row
-1);
694 switch(escseq
.mode
) {
697 printf("erresc: unknown csi ");
701 case '@': /* ICH -- Insert <n> blank char */
702 DEFAULT(escseq
.arg
[0], 1);
703 tinsertblank(escseq
.arg
[0]);
705 case 'A': /* CUU -- Cursor <n> Up */
707 DEFAULT(escseq
.arg
[0], 1);
708 tmoveto(term
.c
.x
, term
.c
.y
-escseq
.arg
[0]);
710 case 'B': /* CUD -- Cursor <n> Down */
711 DEFAULT(escseq
.arg
[0], 1);
712 tmoveto(term
.c
.x
, term
.c
.y
+escseq
.arg
[0]);
714 case 'C': /* CUF -- Cursor <n> Forward */
716 DEFAULT(escseq
.arg
[0], 1);
717 tmoveto(term
.c
.x
+escseq
.arg
[0], term
.c
.y
);
719 case 'D': /* CUB -- Cursor <n> Backward */
720 DEFAULT(escseq
.arg
[0], 1);
721 tmoveto(term
.c
.x
-escseq
.arg
[0], term
.c
.y
);
723 case 'E': /* CNL -- Cursor <n> Down and first col */
724 DEFAULT(escseq
.arg
[0], 1);
725 tmoveto(0, term
.c
.y
+escseq
.arg
[0]);
727 case 'F': /* CPL -- Cursor <n> Up and first col */
728 DEFAULT(escseq
.arg
[0], 1);
729 tmoveto(0, term
.c
.y
-escseq
.arg
[0]);
731 case 'G': /* CHA -- Move to <col> */
732 case '`': /* XXX: HPA -- same? */
733 DEFAULT(escseq
.arg
[0], 1);
734 tmoveto(escseq
.arg
[0]-1, term
.c
.y
);
736 case 'H': /* CUP -- Move to <row> <col> */
737 case 'f': /* XXX: HVP -- same? */
738 DEFAULT(escseq
.arg
[0], 1);
739 DEFAULT(escseq
.arg
[1], 1);
740 tmoveto(escseq
.arg
[1]-1, escseq
.arg
[0]-1);
742 /* XXX: (CSI n I) CHT -- Cursor Forward Tabulation <n> tab stops */
743 case 'J': /* ED -- Clear screen */
744 switch(escseq
.arg
[0]) {
746 tclearregion(term
.c
.x
, term
.c
.y
, term
.col
-1, term
.row
-1);
749 tclearregion(0, 0, term
.c
.x
, term
.c
.y
);
752 tclearregion(0, 0, term
.col
-1, term
.row
-1);
758 case 'K': /* EL -- Clear line */
759 switch(escseq
.arg
[0]) {
761 tclearregion(term
.c
.x
, term
.c
.y
, term
.col
-1, term
.c
.y
);
764 tclearregion(0, term
.c
.y
, term
.c
.x
, term
.c
.y
);
767 tclearregion(0, term
.c
.y
, term
.col
-1, term
.c
.y
);
771 case 'S': /* SU -- Scroll <n> line up */
772 DEFAULT(escseq
.arg
[0], 1);
773 tscrollup(term
.top
, escseq
.arg
[0]);
775 case 'T': /* SD -- Scroll <n> line down */
776 DEFAULT(escseq
.arg
[0], 1);
777 tscrolldown(term
.top
, escseq
.arg
[0]);
779 case 'L': /* IL -- Insert <n> blank lines */
780 DEFAULT(escseq
.arg
[0], 1);
781 tinsertblankline(escseq
.arg
[0]);
783 case 'l': /* RM -- Reset Mode */
785 switch(escseq
.arg
[0]) {
787 term
.mode
&= ~MODE_APPKEYPAD
;
790 term
.mode
&= ~MODE_WRAP
;
792 case 12: /* att610 -- Stop blinking cursor (IGNORED) */
795 term
.c
.state
|= CURSOR_HIDE
;
797 case 1049: /* = 1047 and 1048 */
799 if(IS_SET(MODE_ALTSCREEN
)) {
800 tclearregion(0, 0, term
.col
-1, term
.row
-1);
803 if(escseq
.arg
[0] == 1047)
806 tcursor(CURSOR_LOAD
);
812 switch(escseq
.arg
[0]) {
814 term
.mode
&= ~MODE_INSERT
;
821 case 'M': /* DL -- Delete <n> lines */
822 DEFAULT(escseq
.arg
[0], 1);
823 tdeleteline(escseq
.arg
[0]);
825 case 'X': /* ECH -- Erase <n> char */
826 DEFAULT(escseq
.arg
[0], 1);
827 tclearregion(term
.c
.x
, term
.c
.y
, term
.c
.x
+ escseq
.arg
[0], term
.c
.y
);
829 case 'P': /* DCH -- Delete <n> char */
830 DEFAULT(escseq
.arg
[0], 1);
831 tdeletechar(escseq
.arg
[0]);
833 /* XXX: (CSI n Z) CBT -- Cursor Backward Tabulation <n> tab stops */
834 case 'd': /* VPA -- Move to <row> */
835 DEFAULT(escseq
.arg
[0], 1);
836 tmoveto(term
.c
.x
, escseq
.arg
[0]-1);
838 case 'h': /* SM -- Set terminal mode */
840 switch(escseq
.arg
[0]) {
842 term
.mode
|= MODE_APPKEYPAD
;
845 term
.mode
|= MODE_WRAP
;
847 case 12: /* att610 -- Start blinking cursor (IGNORED) */
850 term
.c
.state
&= ~CURSOR_HIDE
;
852 case 1049: /* = 1047 and 1048 */
854 if(IS_SET(MODE_ALTSCREEN
))
855 tclearregion(0, 0, term
.col
-1, term
.row
-1);
858 if(escseq
.arg
[0] == 1047)
861 tcursor(CURSOR_SAVE
);
863 default: goto unknown
;
866 switch(escseq
.arg
[0]) {
868 term
.mode
|= MODE_INSERT
;
870 default: goto unknown
;
874 case 'm': /* SGR -- Terminal attribute (color) */
875 tsetattr(escseq
.arg
, escseq
.narg
);
877 case 'r': /* DECSTBM -- Set Scrolling Region */
881 DEFAULT(escseq
.arg
[0], 1);
882 DEFAULT(escseq
.arg
[1], term
.row
);
883 tsetscroll(escseq
.arg
[0]-1, escseq
.arg
[1]-1);
887 case 's': /* DECSC -- Save cursor position (ANSI.SYS) */
888 tcursor(CURSOR_SAVE
);
890 case 'u': /* DECRC -- Restore cursor position (ANSI.SYS) */
891 tcursor(CURSOR_LOAD
);
899 printf("ESC [ %s", escseq
.priv
? "? " : "");
901 for(i
= 0; i
< escseq
.narg
; i
++)
902 printf("%d ", escseq
.arg
[i
]);
904 putchar(escseq
.mode
);
910 memset(&escseq
, 0, sizeof(escseq
));
915 int space
= TAB
- term
.c
.x
% TAB
;
916 tmoveto(term
.c
.x
+ space
, term
.c
.y
);
921 if(term
.esc
& ESC_START
) {
922 if(term
.esc
& ESC_CSI
) {
923 escseq
.buf
[escseq
.len
++] = c
;
924 if(BETWEEN(c
, 0x40, 0x7E) || escseq
.len
>= ESC_BUF_SIZ
) {
926 csiparse(), csihandle();
928 /* TODO: handle other OSC */
929 } else if(term
.esc
& ESC_OSC
) {
932 term
.esc
= ESC_START
| ESC_TITLE
;
934 } else if(term
.esc
& ESC_TITLE
) {
935 if(c
== '\a' || term
.titlelen
+1 >= ESC_TITLE_SIZ
) {
937 term
.title
[term
.titlelen
] = '\0';
938 XStoreName(xw
.dis
, xw
.win
, term
.title
);
940 term
.title
[term
.titlelen
++] = c
;
942 } else if(term
.esc
& ESC_ALTCHARSET
) {
944 case '0': /* Line drawing crap */
945 term
.c
.attr
.mode
|= ATTR_GFX
;
947 case 'B': /* Back to regular text */
948 term
.c
.attr
.mode
&= ~ATTR_GFX
;
951 printf("esc unhandled charset: ESC ( %c\n", c
);
963 term
.esc
|= ESC_ALTCHARSET
;
965 case 'D': /* IND -- Linefeed */
966 if(term
.c
.y
== term
.bot
)
967 tscrollup(term
.top
, 1);
969 tmoveto(term
.c
.x
, term
.c
.y
+1);
972 case 'E': /* NEL -- Next line */
976 case 'M': /* RI -- Reverse index */
977 if(term
.c
.y
== term
.top
)
978 tscrolldown(term
.top
, 1);
980 tmoveto(term
.c
.x
, term
.c
.y
-1);
983 case 'c': /* RIS -- Reset to inital state */
987 case '=': /* DECPAM -- Application keypad */
988 term
.mode
|= MODE_APPKEYPAD
;
991 case '>': /* DECPNM -- Normal keypad */
992 term
.mode
&= ~MODE_APPKEYPAD
;
995 case '7': /* DECSC -- Save Cursor */
996 tcursor(CURSOR_SAVE
);
999 case '8': /* DECRC -- Restore Cursor */
1000 tcursor(CURSOR_LOAD
);
1004 fprintf(stderr
, "erresc: unknown sequence ESC 0x%02X '%c'\n", c
, isprint(c
)?c
:'.');
1014 tmoveto(term
.c
.x
-1, term
.c
.y
);
1017 tmoveto(0, term
.c
.y
);
1028 term
.esc
= ESC_START
;
1031 if(IS_SET(MODE_WRAP
) && term
.c
.state
& CURSOR_WRAPNEXT
)
1034 if(term
.c
.x
+1 < term
.col
)
1035 tmoveto(term
.c
.x
+1, term
.c
.y
);
1037 term
.c
.state
|= CURSOR_WRAPNEXT
;
1044 tputs(char *s
, int len
) {
1045 for(; len
> 0; len
--)
1050 tresize(int col
, int row
) {
1052 int minrow
= MIN(row
, term
.row
);
1053 int mincol
= MIN(col
, term
.col
);
1055 if(col
< 1 || row
< 1)
1058 /* free uneeded rows */
1059 for(i
= row
; i
< term
.row
; i
++) {
1064 /* resize to new height */
1065 term
.line
= realloc(term
.line
, row
* sizeof(Line
));
1066 term
.alt
= realloc(term
.alt
, row
* sizeof(Line
));
1068 /* resize each row to new width, zero-pad if needed */
1069 for(i
= 0; i
< minrow
; i
++) {
1070 term
.line
[i
] = realloc(term
.line
[i
], col
* sizeof(Glyph
));
1071 term
.alt
[i
] = realloc(term
.alt
[i
], col
* sizeof(Glyph
));
1072 memset(term
.line
[i
] + mincol
, 0, (col
- mincol
) * sizeof(Glyph
));
1073 memset(term
.alt
[i
] + mincol
, 0, (col
- mincol
) * sizeof(Glyph
));
1076 /* allocate any new rows */
1077 for(/* i == minrow */; i
< row
; i
++) {
1078 term
.line
[i
] = calloc(col
, sizeof(Glyph
));
1079 term
.alt
[i
] = calloc(col
, sizeof(Glyph
));
1082 /* update terminal size */
1083 term
.col
= col
, term
.row
= row
;
1084 /* make use of the LIMIT in tmoveto */
1085 tmoveto(term
.c
.x
, term
.c
.y
);
1086 /* reset scrolling region */
1087 tsetscroll(0, row
-1);
1094 Colormap cmap
= DefaultColormap(xw
.dis
, xw
.scr
);
1095 unsigned long white
= WhitePixel(xw
.dis
, xw
.scr
);
1097 for(i
= 0; i
< 16; i
++) {
1098 if (!XAllocNamedColor(xw
.dis
, cmap
, colorname
[i
], &color
, &color
)) {
1100 fprintf(stderr
, "Could not allocate color '%s'\n", colorname
[i
]);
1102 dc
.col
[i
] = color
.pixel
;
1105 /* same colors as xterm */
1106 for(r
= 0; r
< 6; r
++)
1107 for(g
= 0; g
< 6; g
++)
1108 for(b
= 0; b
< 6; b
++) {
1109 color
.red
= r
== 0 ? 0 : 0x3737 + 0x2828 * r
;
1110 color
.green
= g
== 0 ? 0 : 0x3737 + 0x2828 * g
;
1111 color
.blue
= b
== 0 ? 0 : 0x3737 + 0x2828 * b
;
1112 if (!XAllocColor(xw
.dis
, cmap
, &color
)) {
1114 fprintf(stderr
, "Could not allocate color %d\n", i
);
1116 dc
.col
[i
] = color
.pixel
;
1120 for(r
= 0; r
< 24; r
++, i
++) {
1121 color
.red
= color
.green
= color
.blue
= 0x0808 + 0x0a0a * r
;
1122 if (!XAllocColor(xw
.dis
, cmap
, &color
)) {
1124 fprintf(stderr
, "Could not allocate color %d\n", i
);
1126 dc
.col
[i
] = color
.pixel
;
1131 xclear(int x1
, int y1
, int x2
, int y2
) {
1132 XSetForeground(xw
.dis
, dc
.gc
, dc
.col
[DefaultBG
]);
1133 XFillRectangle(xw
.dis
, xw
.buf
, dc
.gc
,
1134 x1
* xw
.cw
, y1
* xw
.ch
,
1135 (x2
-x1
+1) * xw
.cw
, (y2
-y1
+1) * xw
.ch
);
1141 XClassHint
class = {TNAME
, TNAME
};
1142 XWMHints wm
= {.flags
= InputHint
, .input
= 1};
1144 .flags
= PSize
| PResizeInc
| PBaseSize
,
1147 .height_inc
= xw
.ch
,
1149 .base_height
= 2*BORDER
,
1150 .base_width
= 2*BORDER
,
1152 XSetWMProperties(xw
.dis
, xw
.win
, NULL
, NULL
, NULL
, 0, &size
, &wm
, &class);
1157 if(!(xw
.dis
= XOpenDisplay(NULL
)))
1158 die("Can't open display\n");
1159 xw
.scr
= XDefaultScreen(xw
.dis
);
1162 if(!(dc
.font
= XLoadQueryFont(xw
.dis
, FONT
)) || !(dc
.bfont
= XLoadQueryFont(xw
.dis
, BOLDFONT
)))
1163 die("Can't load font %s\n", dc
.font
? BOLDFONT
: FONT
);
1165 /* XXX: Assuming same size for bold font */
1166 xw
.cw
= dc
.font
->max_bounds
.rbearing
- dc
.font
->min_bounds
.lbearing
;
1167 xw
.ch
= dc
.font
->ascent
+ dc
.font
->descent
;
1173 xw
.bufh
= term
.row
* xw
.ch
;
1174 xw
.bufw
= term
.col
* xw
.cw
;
1175 xw
.h
= xw
.bufh
+ 2*BORDER
;
1176 xw
.w
= xw
.bufw
+ 2*BORDER
;
1177 xw
.win
= XCreateSimpleWindow(xw
.dis
, XRootWindow(xw
.dis
, xw
.scr
), 0, 0,
1181 xw
.buf
= XCreatePixmap(xw
.dis
, xw
.win
, xw
.bufw
, xw
.bufh
, XDefaultDepth(xw
.dis
, xw
.scr
));
1183 dc
.gc
= XCreateGC(xw
.dis
, xw
.win
, 0, NULL
);
1186 XSelectInput(xw
.dis
, xw
.win
, ExposureMask
| KeyPressMask
1187 | StructureNotifyMask
| FocusChangeMask
| PointerMotionMask
1188 | ButtonPressMask
| ButtonReleaseMask
);
1190 XMapWindow(xw
.dis
, xw
.win
);
1192 XStoreName(xw
.dis
, xw
.win
, "st");
1197 xdraws(char *s
, Glyph base
, int x
, int y
, int len
) {
1198 unsigned long xfg
, xbg
;
1199 int winx
= x
*xw
.cw
, winy
= y
*xw
.ch
+ dc
.font
->ascent
, width
= len
*xw
.cw
;
1202 if(base
.mode
& ATTR_REVERSE
)
1203 xfg
= dc
.col
[base
.bg
], xbg
= dc
.col
[base
.fg
];
1205 xfg
= dc
.col
[base
.fg
], xbg
= dc
.col
[base
.bg
];
1207 XSetBackground(xw
.dis
, dc
.gc
, xbg
);
1208 XSetForeground(xw
.dis
, dc
.gc
, xfg
);
1210 if(base
.mode
& ATTR_GFX
)
1211 for(i
= 0; i
< len
; i
++)
1212 s
[i
] = gfx
[(int)s
[i
]];
1214 XSetFont(xw
.dis
, dc
.gc
, base
.mode
& ATTR_BOLD
? dc
.bfont
->fid
: dc
.font
->fid
);
1215 XDrawImageString(xw
.dis
, xw
.buf
, dc
.gc
, winx
, winy
, s
, len
);
1217 if(base
.mode
& ATTR_UNDERLINE
)
1218 XDrawLine(xw
.dis
, xw
.buf
, dc
.gc
, winx
, winy
+1, winx
+width
-1, winy
+1);
1223 static int oldx
= 0;
1224 static int oldy
= 0;
1225 Glyph g
= {' ', ATTR_NULL
, DefaultBG
, DefaultCS
, 0};
1227 LIMIT(oldx
, 0, term
.col
-1);
1228 LIMIT(oldy
, 0, term
.row
-1);
1230 if(term
.line
[term
.c
.y
][term
.c
.x
].state
& GLYPH_SET
)
1231 g
.c
= term
.line
[term
.c
.y
][term
.c
.x
].c
;
1233 /* remove the old cursor */
1234 if(term
.line
[oldy
][oldx
].state
& GLYPH_SET
)
1235 xdraws(&term
.line
[oldy
][oldx
].c
, term
.line
[oldy
][oldx
], oldx
, oldy
, 1);
1237 xclear(oldx
, oldy
, oldx
, oldy
);
1239 /* draw the new one */
1240 if(!(term
.c
.state
& CURSOR_HIDE
) && xw
.hasfocus
) {
1241 xdraws(&g
.c
, g
, term
.c
.x
, term
.c
.y
, 1);
1242 oldx
= term
.c
.x
, oldy
= term
.c
.y
;
1247 /* basic drawing routines */
1249 xdrawc(int x
, int y
, Glyph g
) {
1250 XRectangle r
= { x
* xw
.cw
, y
* xw
.ch
, xw
.cw
, xw
.ch
};
1251 XSetBackground(xw
.dis
, dc
.gc
, dc
.col
[g
.bg
]);
1252 XSetForeground(xw
.dis
, dc
.gc
, dc
.col
[g
.fg
]);
1253 XSetFont(xw
.dis
, dc
.gc
, g
.mode
& ATTR_BOLD
? dc
.bfont
->fid
: dc
.font
->fid
);
1254 XDrawImageString(xw
.dis
, xw
.buf
, dc
.gc
, r
.x
, r
.y
+dc
.font
->ascent
, &g
.c
, 1);
1261 xclear(0, 0, term
.col
-1, term
.row
-1);
1262 for(y
= 0; y
< term
.row
; y
++)
1263 for(x
= 0; x
< term
.col
; x
++)
1264 if(term
.line
[y
][x
].state
& GLYPH_SET
)
1265 xdrawc(x
, y
, term
.line
[y
][x
]);
1268 XCopyArea(xw
.dis
, xw
.buf
, xw
.win
, dc
.gc
, 0, 0, xw
.bufw
, xw
.bufh
, BORDER
, BORDER
);
1273 /* optimized drawing routine */
1275 draw(int redraw_all
) {
1278 char buf
[DRAW_BUF_SIZ
];
1280 XSetForeground(xw
.dis
, dc
.gc
, dc
.col
[DefaultBG
]);
1281 XFillRectangle(xw
.dis
, xw
.buf
, dc
.gc
, 0, 0, xw
.bufw
, xw
.bufh
);
1282 for(y
= 0; y
< term
.row
; y
++) {
1283 base
= term
.line
[y
][0];
1285 for(x
= 0; x
< term
.col
; x
++) {
1286 new = term
.line
[y
][x
];
1287 if(sel
.bx
!=-1 && new.c
&& selected(x
, y
))
1288 new.mode
^= ATTR_REVERSE
;
1289 if(i
> 0 && (!(new.state
& GLYPH_SET
) || ATTRCMP(base
, new) ||
1290 i
>= DRAW_BUF_SIZ
)) {
1291 xdraws(buf
, base
, ox
, y
, i
);
1294 if(new.state
& GLYPH_SET
) {
1303 xdraws(buf
, base
, ox
, y
, i
);
1306 XCopyArea(xw
.dis
, xw
.buf
, xw
.win
, dc
.gc
, 0, 0, xw
.bufw
, xw
.bufh
, BORDER
, BORDER
);
1313 expose(XEvent
*ev
) {
1314 draw(SCREEN_REDRAW
);
1318 xseturgency(int add
) {
1319 XWMHints
*h
= XGetWMHints(xw
.dis
, xw
.win
);
1320 h
->flags
= add
? (h
->flags
| XUrgencyHint
) : (h
->flags
& ~XUrgencyHint
);
1321 XSetWMHints(xw
.dis
, xw
.win
, h
);
1327 if((xw
.hasfocus
= ev
->type
== FocusIn
))
1329 draw(SCREEN_UPDATE
);
1335 for(i
= 0; i
< LEN(key
); i
++)
1337 return (char*)key
[i
].s
;
1342 kpress(XEvent
*ev
) {
1343 XKeyEvent
*e
= &ev
->xkey
;
1351 meta
= e
->state
& Mod1Mask
;
1352 shift
= e
->state
& ShiftMask
;
1353 len
= XLookupString(e
, buf
, sizeof(buf
), &ksym
, NULL
);
1355 if((customkey
= kmap(ksym
)))
1356 ttywrite(customkey
, strlen(customkey
));
1358 buf
[sizeof(buf
)-1] = '\0';
1359 if(meta
&& len
== 1)
1360 ttywrite("\033", 1);
1368 sprintf(buf
, "\033%c%c", IS_SET(MODE_APPKEYPAD
) ? 'O' : '[', "DACB"[ksym
- XK_Left
]);
1373 selpaste(), draw(1);
1376 fprintf(stderr
, "errkey: %d\n", (int)ksym
);
1385 if(e
->xconfigure
.width
== xw
.w
&& e
->xconfigure
.height
== xw
.h
)
1388 xw
.w
= e
->xconfigure
.width
;
1389 xw
.h
= e
->xconfigure
.height
;
1390 xw
.bufw
= xw
.w
- 2*BORDER
;
1391 xw
.bufh
= xw
.h
- 2*BORDER
;
1392 col
= xw
.bufw
/ xw
.cw
;
1393 row
= xw
.bufh
/ xw
.ch
;
1395 ttyresize(col
, row
);
1396 xw
.bufh
= MAX(1, xw
.bufh
);
1397 xw
.bufw
= MAX(1, xw
.bufw
);
1398 XFreePixmap(xw
.dis
, xw
.buf
);
1399 xw
.buf
= XCreatePixmap(xw
.dis
, xw
.win
, xw
.bufw
, xw
.bufh
, XDefaultDepth(xw
.dis
, xw
.scr
));
1400 draw(SCREEN_REDRAW
);
1407 int xfd
= XConnectionNumber(xw
.dis
);
1411 FD_SET(cmdfd
, &rfd
);
1413 if(select(MAX(xfd
, cmdfd
)+1, &rfd
, NULL
, NULL
, NULL
) < 0) {
1416 die("select failed: %s\n", SERRNO
);
1418 if(FD_ISSET(cmdfd
, &rfd
)) {
1420 draw(SCREEN_UPDATE
);
1422 while(XPending(xw
.dis
)) {
1423 XNextEvent(xw
.dis
, &ev
);
1424 if(handler
[ev
.type
])
1425 (handler
[ev
.type
])(&ev
);
1431 main(int argc
, char *argv
[]) {
1432 if(argc
== 2 && !strncmp("-v", argv
[1], 3))
1433 die("st-" VERSION
", (c) 2010 st engineers\n");
1435 die("usage: st [-v]\n");
1436 setlocale(LC_CTYPE
, "");