diff options
Diffstat (limited to 'appl')
| -rw-r--r-- | appl/examples/minitel/miniterm.b | 3 | ||||
| -rw-r--r-- | appl/examples/minitel/modem.b | 6 |
2 files changed, 6 insertions, 3 deletions
diff --git a/appl/examples/minitel/miniterm.b b/appl/examples/minitel/miniterm.b index 1c6ff759..38fedefd 100644 --- a/appl/examples/minitel/miniterm.b +++ b/appl/examples/minitel/miniterm.b @@ -13,6 +13,8 @@ include "tk.m"; tk: Tk; include "tkclient.m"; tkclient: Tkclient; +include "dial.m"; + dial: Dial; include "miniterm.m"; @@ -139,6 +141,7 @@ init(ctxt: ref Draw->Context, argv: list of string) tkclient = load Tkclient Tkclient->PATH; tkclient->init(); draw = load Draw Draw->PATH; + dial = load Dial Dial->PATH; stderr = sys->fildes(2); pgrp = sys->pctl(Sys->NEWPGRP|Sys->FORKNS, nil); diff --git a/appl/examples/minitel/modem.b b/appl/examples/minitel/modem.b index b7a21c1d..316a6f6c 100644 --- a/appl/examples/minitel/modem.b +++ b/appl/examples/minitel/modem.b @@ -133,8 +133,8 @@ Runloop: S.msg("Connexion au serveur ..."); if(debug['m'] > 0 || debug['M'] > 0) sys->print("dial(%s)\n", m.dialstr); - (ok, cx) := sys->dial(m.dialstr, ""); - if (ok == -1){ + cx := dial->dial(m.dialstr, ""); + if (cx == nil){ S.msg("Echec de la connexion"); T.state = Local; send(ref Event.Eproto(Pscreen, Mmodem, Cindicators, "",0,0,0)); @@ -142,7 +142,7 @@ Runloop: sys->print("can't dial %s: %r\n", m.dialstr); break; } - m.fd = sys->open(cx.dir + "/data", Sys->ORDWR); + m.fd = cx.dfd; m.cfd = cx.cfd; if(len m.dialstr >= 3 && m.dialstr[0:3] == "tcp") m.addparity = 0; # Internet gateway apparently doesn't require parity |