Add 8 bit version of HTS

[st.git] / st.c

diff --git a/st.c b/st.c
index 69ec122..6ec4858 100644 (file)
--- a/st.c
+++ b/st.c
@@ -2401,14 +2401,22 @@ tcontrolcode(uchar ascii) {
        case 0177:   /* DEL (IGNORED) */
                return;
        case 0x84:   /* TODO: IND */
-       case 0x85:   /* TODO: NEL */
-       case 0x88:   /* TODO: HTS */
+               break;
+       case 0x85:   /* NEL -- Next line */
+               tnewline(1); /* always go to first col */
+               break;
+       case 0x88:   /* HTS -- Horizontal tab stop */
+               term.tabs[term.c.x] = 1;
+               break;
        case 0x8d:   /* TODO: RI */
        case 0x8e:   /* TODO: SS2 */
        case 0x8f:   /* TODO: SS3 */
        case 0x90:   /* TODO: DCS */
        case 0x98:   /* TODO: SOS */
-       case 0x9a:   /* TODO: DECID */
+               break;
+       case 0x9a:   /* DECID -- Identify Terminal */
+               ttywrite(VT102ID, sizeof(VT102ID) - 1);
+               break;
        case 0x9b:   /* TODO: CSI */
        case 0x9c:   /* TODO: ST */
        case 0x9d:   /* TODO: OSC */