From 994c5948e139c4827b2a5b8c6600ceec5821db79 Mon Sep 17 00:00:00 2001 From: Elliot Glaysher Date: Tue, 27 Aug 2019 16:22:01 -0700 Subject: [PATCH] Construct the %blew and %hail initalEvents correctly. --- pkg/king/lib/Vere/Term.hs | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/pkg/king/lib/Vere/Term.hs b/pkg/king/lib/Vere/Term.hs index fb742751d0..aa599e0381 100644 --- a/pkg/king/lib/Vere/Term.hs +++ b/pkg/king/lib/Vere/Term.hs @@ -38,9 +38,13 @@ disabledFlags = [ -- TODO: We lie about terminal size for now because getting it is a call to -- ioctl(). -initialBlew = EvBlip $ BlipEvTerm $ TermEvBlew (1, ()) 80 24 -initialHail = EvBlip $ BlipEvTerm $ TermEvHail (1, ()) () +-- TODO: 49 is the string "1", which is what we need to pass to dill as the +-- hard-coded terminal "1" session. Figure out how to turn this into "1" later. +initialBlew = EvBlip $ BlipEvTerm $ TermEvBlew (49, ()) 80 24 + +initialHail = EvBlip $ BlipEvTerm $ TermEvHail (49, ()) () + -- What we need is an equivalent to _term_io_suck_char(). That's a manual, hand -- rolled parser to deal with the escape state.