//
// Copyright (c) 1997 X/Open Company Ltd., A member of The Open Group.
//
// All rights reserved. No part of this source code may be reproduced,
// stored in a retrieval system, or transmitted, in any form or by any
// means, electronic, mechanical, photocopying, recording or otherwise,
// except as stated in the end-user licence agreement, without the prior
// permission of the copyright owners.
//
// Developed for X/Open by ApTest Ireland Limited.
//
// Project: CORVAL2
//


interface Banana {

  const float Apple = 23.4;

  typedef long Dates;

  exception Orange{
    short Starfruit;
  };

};

interface idlServer: Banana {

  const short Apple = 5;

  typedef struct Dates{
    char  Dill;
  }Oregano;

  exception Orange{
    float Aniseed;
    double Bayleaf;
  };


  void Lemon(in Dates p1, inout ::Banana::Dates p2) raises (Orange);
};

