//
// 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
//


//#include <orb.idl>
import ::CORBA;

typedef long Apple;

typedef struct Banana{
  short Orange;
  float Rhubarb;
}PassionFruit;

interface idlServer {

  struct TypeCode{
    char Mango;
    char Watermelon;
  };

  TypeCode Lime(
    in    TypeCode p1,
    out   TypeCode p2,
    inout TypeCode p3
  );

  CORBA::TypeCode BlueBerry(
    in    CORBA::TypeCode p1,
    out   CORBA::TypeCode p2,
    inout CORBA::TypeCode p3
  );

  /*
  attribute string<15> Lemon;

  string<3> BlackCherry(
    in    string<3> p1,
    out   string<513> p2,
    inout string<482> p3
  );
  */

};

