From 0c3ac4babb6a6e9f963af20c96aa6fce69139d12 Mon Sep 17 00:00:00 2001
From: John Kohl <jtkohl@mit.edu>
Date: Wed, 15 Nov 1989 07:15:26 +0000
Subject: add -ttymode support

---
 zwgc/standard_ports.c | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'zwgc/standard_ports.c')

diff --git a/zwgc/standard_ports.c b/zwgc/standard_ports.c
index 86edc87..7be6bb0 100644
--- a/zwgc/standard_ports.c
+++ b/zwgc/standard_ports.c
@@ -160,7 +160,7 @@ void init_standard_ports(pargc, argv)
 
     /*
      * Process argument list handling "-disable <port>" and
-     * "-default <output port>" arguments:
+     * "-default <output port>" arguments, as well as "-ttymode"
      */
     for (new=current=argv+1; *current; current++) {
         if (string_Eq((string) *current, "-disable")) {
@@ -174,7 +174,10 @@ void init_standard_ports(pargc, argv)
             if (!*current)
               usage();
             default_port = (string) *current;
-        } else
+        } else if (string_Eq((string) *current, "-ttymode")) {
+	    default_port = (string) "tty";
+	    (*pargc)--;
+	} else
           *(new++) = *current;
     }
     *new = *current;
-- 
cgit v1.2.3