ui/src/vbt/TrestleClass.m3

 Copyright (C) 1992, Digital Equipment Corporation                         
 All rights reserved.                                                      
 See the file COPYRIGHT for a full description.                            
                                                                           
 by Steve Glassman, Mark Manasse and Greg Nelson           
 Last modified on Thu Mar 26 02:54:30 PST 1992 by msm      
      modified on Tue Mar 10 19:03:35 1992 by steveg   
      modified on Mon Feb 24 13:58:27 PST 1992 by muller   
      modified on Wed Aug 28 23:29:01 PDT 1991 by gnelson  


<*PRAGMA LL*>

MODULE TrestleClass;

IMPORT Trestle, TrestleComm;

TYPE CCList = REF RECORD cc: ConnectClosure; link: CCList END;

VAR cclist: CCList := NIL; mu := NEW(MUTEX);

PROCEDURE Connect(
    inst: TEXT := NIL;
    localOnly: BOOLEAN := FALSE)
    : Trestle.T
  RAISES {TrestleComm.Failure} =
    VAR ccl: CCList; res: Trestle.T;
  BEGIN
    LOCK mu DO ccl := cclist END;
    WHILE ccl # NIL DO
      IF ccl.cc.apply(inst, localOnly, res) THEN RETURN res END;
      ccl := ccl.link
    END;
    RAISE TrestleComm.Failure
  END Connect;

PROCEDURE RegisterConnectClosure(cc: ConnectClosure) =
  BEGIN
    LOCK mu DO
      cclist := NEW(CCList, cc := cc, link := cclist)
    END
  END RegisterConnectClosure;

BEGIN
  connectMu := NEW(MUTEX);
  closeMu := NEW(MUTEX)
END TrestleClass.