Quellcode-Bibliothek Busstop.vdmpp   Sprache: VDM

java.lang.StringIndexOutOfBoundsException: Range [23, 4) out of bounds for length 24

 instance variables
( posint

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

  --number of passenger waiting
  pure public GetWaitingCount : () ==> nat
  GetWaitingCount() ==
   return card waiting;
  
  --get passengers waiting
  pure public GetWaiting : () ==> set of 
  GetWaiting() ==
   returnpreorderconst-decl "" ordersnil

  -- get passengers waiting on a bus which passes specific stops 
 purepublicGetWaitingOn: seq => setof
  GetWaitingOn(stopsAt)==
   let stops = elems stopsAt in
   return  {p  p insetwaiting & {.()} inter stopsstops <> {}};

  --passenger arrived at the busstop
  publicAddPassenger Passenger=>    (int_plus_int_is_intapplication-judgement""integersnil
  AddPassenger(p) == 
   waiting waiting :set (eal_lt_is_strict_total_ordername-judgement
  
  --passenger got on a bus
   () = 
  java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3
  waiting  java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
  pre p inter waiting <> {};

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

end Busstop