| RetFlightOffers-TravelAgencyCmd# (a; s) { let d = s(Mailbox(a .cmd), a .to) in if isMessage(d) ∧ isRetFlightOffers(d .msg .content) then let agl = d .msg .agentlist in { s(Mailbox(a .cmd), a .to) := null ; s(locVar(`flightOffers'), a .to) := wrapListOfFlightOffer2Data(d .msg .content .flightOffers) ; if agl ≠ [] ∧ exTravelPlanner(agl .first) then s(Mailbox(RetFlightOffers-TravelPlannerCmd), agl .first) := wrapMessage2Data (mkMessage (agl .rest, mkRetFlightOffers (s(locVar(`flightOffers'), a .to) .ListOfFlightOffer))) } } |