From fbc1184c08d18d5ac0f8763a058e015e95353341 Mon Sep 17 00:00:00 2001 From: Charles Forsyth Date: Wed, 29 Apr 2015 17:44:33 +0100 Subject: switch to Dial module --- appl/lib/virgil.b | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) (limited to 'appl/lib/virgil.b') diff --git a/appl/lib/virgil.b b/appl/lib/virgil.b index c4945716..03352e20 100644 --- a/appl/lib/virgil.b +++ b/appl/lib/virgil.b @@ -5,6 +5,8 @@ include "sys.m"; include "string.m"; include "keyring.m"; include "draw.m"; +include "dial.m"; + dial: Dial; include "security.m"; include "ip.m"; ip: IP; @@ -29,6 +31,11 @@ virgil(argv: list of string): string return nil; done = 0; sys = load Sys Sys->PATH; + dial = load Dial Dial->PATH; + if(dial == nil){ + cantload(Dial->PATH); + return nil; + } str := load String String->PATH; if(str == nil){ cantload(String->PATH); @@ -70,8 +77,8 @@ virgil(argv: list of string): string return nil; question = hd argv; - (ok, c) := sys->announce("udp!*!0"); - if(ok < 0) + c := dial->announce("udp!*!0"); + if(c == nil) return nil; if(sys->fprint(c.cfd, "headers") < 0) return nil; -- cgit v1.2.3