Quellcode-Bibliothek Busstop.vdmpp   Sprache: VDM

class Busstop is

 instance  : =    int_plus_int_is_int int 
 : of( 

 operations
  public Busstop
 Busstops =
(
   id := s;
   isStop := true;
  );

  --number of passenger waiting
  pure public GetWaitingCount : () ==> nat
  GetWaitingCount() ==
   return   waiting :=waiting \p
  
  --get passengers waiting
  pure public GetWaiting : () ==> set of Passenger
  GetWaiting() ==
java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

  -- get passengers waiting on a bus which passes specific stops 
  pure public GetWaitingOn : seq of Waypoint==> set of Passenger
  GetWaitingOn(stopsAt)==
   let stops = elems stopsAt in
   return  {p | p in set waiting & {p.GetDestination()} inter stops <> {}};

  --passenger arrived at the busstop
  public AddPassenger : Passenger ==> ()
  AddPassenger(p) == 
   waiting := waiting union {p}; 
  
  --passenger got on a bus
  public PassengerLeft : set of Passenger ==> ()
  PassengerLeft(p) ==
   waiting := waiting \ p
  pre p inter waiting <> {};

sync
 ---protect waiting instance variable
 mutex(AddPassenger, PassengerLeft)

end Busstop