date and time created 83/03/09 16:22:41 by ralph

SCCS-vsn: old/lib2648/escseq.c 4.1

diff --git a/usr/src/old/lib2648/escseq.c b/usr/src/old/lib2648/escseq.c
new file mode 100644 (file)
index 0000000..3177084
--- /dev/null
+++ b/usr/src/old/lib2648/escseq.c
@@ -0,0 +1,49 @@
+/*     escseq.c        4.1     83/03/09        */
+/*
+ * escseq: get us out of any escape sequence we are in the middle of
+ * and put us into the requested kind of escape sequence.
+ */
+
+#include "2648.h"
+
+escseq(mode)
+int mode;
+{
+       if (mode == _escmode)
+               return;
+       /* Get out of previous mode */
+       switch (_escmode) {
+       case NONE:
+               break;
+       case ESCD:
+               if (mode == TEXT) {
+                       outchar('s');
+                       _escmode = mode;
+                       return;
+               }
+       case ESCP:
+       case ESCM:
+               outchar('Z');   /* no-op */
+               break;
+       case TEXT:
+               outstr("\33*dT");
+               break;
+       }
+       /* Get into new mode */
+       switch (_escmode = mode) {
+       case NONE:
+               break;
+       case ESCD:
+               outstr("\33*d");
+               break;
+       case ESCP:
+               outstr("\33*p");
+               break;
+       case ESCM:
+               outstr("\33*m");
+               break;
+       case TEXT:
+               outstr("\33*dS");
+               break;
+       }
+}