src/BOPTools/BOPTools_CoupleOfInteger.cdl

   1 -- File:        BOPTools_CoupleOfInteger.cdl
   2 -- Created:     Mon Apr  1 10:16:21 2002
   3 -- Author:      Peter KURNEV
   4 --              <pkv@irinox>
   5 ---Copyright:    Matra Datavision 2002
   6
   7
   8 class CoupleOfInteger from BOPTools
   9
  10         ---Purpose:
  11         --  Auxiliary class providing structure to
  12         --  store info about a couple of integers
  13
  14 --uses
  15 --raises
  16
  17 is
  18     Create
  19         returns CoupleOfInteger from BOPTools;
  20         ---Purpose:
  21         --- Empty Constructor
  22         ---
  23     Create(aFirst  : Integer from Standard;
  24            aSecond : Integer from Standard)
  25         returns CoupleOfInteger from BOPTools;
  26         ---Purpose:
  27         --- Constructor
  28         ---
  29     SetCouple(me:out;
  30            aFirst  : Integer from Standard;
  31            aSecond : Integer from Standard);
  32         ---Purpose:
  33         --- Modifier
  34         ---
  35     SetFirst(me:out;
  36            aFirst  : Integer from Standard);
  37         ---Purpose:
  38         --- Modifier
  39         ---
  40     SetSecond(me:out;
  41            aSecond : Integer from Standard);
  42         ---Purpose:
  43         --- Modifier
  44         ---
  45     Couple   (me;
  46            aFirst  :out Integer from Standard;
  47            aSecond :out Integer from Standard);
  48         ---Purpose:
  49         --- Selector
  50         ---
  51     First(me)
  52         returns Integer from Standard;
  53         ---Purpose:
  54         --- Selector
  55         ---
  56     Second(me)
  57         returns Integer from Standard;
  58         ---Purpose:
  59         --- Selector
  60         ---
  61
  62     IsEqual(me;
  63             aOther:like me)
  64         returns Boolean from Standard;
  65
  66     HashCode(me;
  67             Upper : Integer  from Standard)
  68         returns Integer from Standard;
  69
  70 fields
  71     myFirst  : Integer from Standard;
  72     mySecond : Integer from Standard;
  73
  74 end CoupleOfInteger;