X-Git-Url: https://asedeno.scripts.mit.edu/gitweb/?a=blobdiff_plain;f=misc.c;h=9d71a8d4b1617c3b36162f3a7c81c2ba81876118;hb=162d04d360d8d70269ad17a02d44a983cb8dbfef;hp=1beab5e785c26db828f146fb725599c286dc1abc;hpb=3d012d9bd07efebffadcab368c6695f2e295bb21;p=PuTTY.git

diff --git a/misc.c b/misc.c
index 1beab5e7..9d71a8d4 100644
--- a/misc.c
+++ b/misc.c
@@ -48,11 +48,12 @@ unsigned long parse_blocksize(const char *bs)
  * Returns NULL in `next' if we didn't recognise it as a control character,
  * in which case `c' should be ignored.
  * The precise current parsing is an oddity inherited from the terminal
- * answerback-string parsing code. All sequences are two characters,
- * starting with '^'. The ones that are worth keeping are probably:
+ * answerback-string parsing code. All sequences start with ^; all except
+ * ^<123> are two characters. The ones that are worth keeping are probably:
  *   ^?		    127
  *   ^@A-Z[\]^_	    0-31
  *   a-z	    1-26
+ *   <num>	    specified by number (decimal, 0octal, 0xHEX)
  *   ~		    ^ escape
  */
 char ctrlparse(char *s, char **next)
@@ -60,23 +61,30 @@ char ctrlparse(char *s, char **next)
     char c = 0;
     if (*s != '^') {
 	*next = NULL;
-	return c;
     } else {
 	s++;
 	if (*s == '\0') {
 	    *next = NULL;
-	    return c;
+	} else if (*s == '<') {
+	    s++;
+	    c = (char)strtol(s, next, 0);
+	    if ((*next == s) || (**next != '>')) {
+		c = 0;
+		*next = NULL;
+	    } else
+		(*next)++;
 	} else if (*s >= 'a' && *s <= 'z') {
 	    c = (*s - ('a' - 1));
+	    *next = s+1;
 	} else if ((*s >= '@' && *s <= '_') || *s == '?' || (*s & 0x80)) {
 	    c = ('@' ^ *s);
+	    *next = s+1;
 	} else if (*s == '~') {
 	    c = '^';
+	    *next = s+1;
 	}
-	s++;
-	*next = s;
-	return c;
     }
+    return c;
 }
 
 /* ----------------------------------------------------------------------