src/NMTDS/NMTDS_IndexRange.cdl

   1 -- Copyright (C) 2005  OPEN CASCADE, EADS/CCR, LIP6, CEA/DEN,
   2 -- CEDRAT, EDF R&D, LEG, PRINCIPIA R&D, BUREAU VERITAS
   3 --
   4 -- This library is free software; you can redistribute it and/or
   5 -- modify it under the terms of the GNU Lesser General Public
   6 -- License as published by the Free Software Foundation; either
   7 -- version 2.1 of the License.
   8 --
   9 -- This library is distributed in the hope that it will be useful
  10 -- but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12 -- Lesser General Public License for more details.
  13 --
  14 -- You should have received a copy of the GNU Lesser General Public
  15 -- License along with this library; if not, write to the Free Software
  16 -- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
  17 --
  18 -- See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com
  19 --
  20 -- File:        NMTDS_IndexRange.cdl
  21 -- Created:     Fri Nov 28 10:31:05 2003
  22 -- Author:      Peter KURNEV
  23 --              <pkv@irinox>
  24
  25 class IndexRange from NMTDS
  26
  27         ---Purpose:
  28
  29 --uses
  30 --raises
  31
  32 is
  33     Create
  34         returns IndexRange from NMTDS;
  35
  36     SetFirst(me:out;
  37             aFirst:Integer from Standard);
  38
  39     SetLast(me:out;
  40             aLast:Integer from Standard);
  41
  42     First(me)
  43         returns Integer from Standard;
  44
  45     Last(me)
  46         returns Integer from Standard;
  47
  48     IsInRange(me;
  49             aIndex:Integer from Standard)
  50         returns Boolean from Standard;
  51
  52 fields
  53     myFirst  :  Integer from Standard is protected;
  54     myLast   :  Integer from Standard is protected;
  55
  56 end IndexRange;