From 656fa24481da0ce15dc352c70c5b79815b00a930 Mon Sep 17 00:00:00 2001
From: simon <simon@cda61777-01e9-0310-a592-d414129be87e>
Date: Thu, 19 Dec 2002 14:22:16 +0000
Subject: [PATCH] First crack at an implementation of TELOPT_BINARY, which
 apparently RFC 1123 (host requirements) says is compulsory.

git-svn-id: svn://svn.tartarus.org/sgt/putty@2358 cda61777-01e9-0310-a592-d414129be87e
---
 telnet.c | 20 ++++++++++++++++----
 1 file changed, 16 insertions(+), 4 deletions(-)

diff --git a/telnet.c b/telnet.c
index ad0ffeb8..9d825095 100644
--- a/telnet.c
+++ b/telnet.c
@@ -86,7 +86,9 @@
 #define LF 10
 #define NUL 0
 
-#define iswritable(x) ( (x) != IAC && (x) != CR )
+#define iswritable(x) \
+	( (x) != IAC && \
+	      (telnet->opt_states[o_we_bin.index] == ACTIVE || (x) != CR))
 
 static char *telopt(int opt)
 {
@@ -157,6 +159,8 @@ enum {
     OPTINDEX_ECHO,
     OPTINDEX_WE_SGA,
     OPTINDEX_THEY_SGA,
+    OPTINDEX_WE_BIN,
+    OPTINDEX_THEY_BIN,
     NUM_OPTS
 };
 
@@ -178,10 +182,14 @@ static const struct Opt o_we_sga =
     { WILL, WONT, DO, DONT, TELOPT_SGA, OPTINDEX_WE_SGA, REQUESTED };
 static const struct Opt o_they_sga =
     { DO, DONT, WILL, WONT, TELOPT_SGA, OPTINDEX_THEY_SGA, REQUESTED };
+static const struct Opt o_we_bin =
+    { WILL, WONT, DO, DONT, TELOPT_BINARY, OPTINDEX_WE_BIN, INACTIVE };
+static const struct Opt o_they_bin =
+    { DO, DONT, WILL, WONT, TELOPT_BINARY, OPTINDEX_THEY_BIN, INACTIVE };
 
 static const struct Opt *const opts[] = {
     &o_naws, &o_tspeed, &o_ttype, &o_oenv, &o_nenv, &o_echo,
-    &o_we_sga, &o_they_sga, NULL
+    &o_we_sga, &o_they_sga, &o_we_bin, &o_they_bin, NULL
 };
 
 typedef struct telnet_tag {
@@ -521,7 +529,7 @@ static void do_telnet_read(Telnet telnet, char *buf, int len)
 		else if (c == DM)
 		    telnet->in_synch = 0;
 #endif
-		if (c == CR)
+		if (c == CR && telnet->opt_states[o_they_bin.index] != ACTIVE)
 		    telnet->state = SEENCR;
 		else
 		    telnet->state = TOP_LEVEL;
@@ -865,7 +873,11 @@ static void telnet_special(void *handle, Telnet_Special code)
 	telnet->bufsize = sk_write(telnet->s, b, 2);
 	break;
       case TS_EOL:
-	telnet->bufsize = sk_write(telnet->s, "\r\n", 2);
+	/* In BINARY mode, CR-LF becomes just CR. */
+	if (telnet->opt_states[o_we_bin.index] == ACTIVE)
+	    telnet->bufsize = sk_write(telnet->s, "\r", 2);
+	else
+	    telnet->bufsize = sk_write(telnet->s, "\r\n", 2);
 	break;
       case TS_SYNCH:
 	b[1] = DM;
-- 
2.11.0