include "sys.m"; sys:= load Sys Sys->PATH; Connection: adt { dfd: ref FD; # data file cfd: ref FD; # control file dir: string; # pathname of line directory }; announce: fn(addr: string): (int, Connection); dial: fn(addr, local: string): (int, Connection); listen: fn(c: Connection): (int, Connection); export: fn(fd: ref FD, flag: int): int;
Examples
Make a call and return an open file descriptor to use for communications:
callkremvax( ): (int, Connection) { return sys->dial("tcp!kremvax", nil); }Call the local authentication server:
dialauth(service: string): (int, Connection) { return sys->dial("net!$auth", nil); }
bind
|
Discussion of the mount function
|