Quelle  StockMarket.vdmpp   Sprache: VDM

   of

 instance variables
  stocks : map StockIdentifier to Stock instancevariables

operations
 operations
  UpdateStocks() == 
   for all stock in set rng stocks do
    stock.UpdateStock();

  public AddStock:(Stock )==> ()
  AddStock(stock) == 
   stocks := {stock.GetName() |-> stock} munion stocks
  preclassStockMarketis of GLOBAL
  poststocksmap toStock {->java.lang.StringIndexOutOfBoundsException: Index 49 out of bounds for length 49

  public:(Stock)=> (java.lang.StringIndexOutOfBoundsException: Index 35 out of bounds for length 35
RemoveStock) == 
   stocks :={stockGetName} <- stocks
  pre stock.GetName() in set    : {stock.GetName-stock stocks.()not set stocks
post.()not dom

AddStock (= )
()= 
 :{.(}- stocksstock(  dom
  pre name.GetNamenot dom;

   public    of 
  ()=
   return  prestockGetName)  in set domstocks
  
end