src/StepData/StepData_FieldList1.cdl

   1 -- Created on: 1997-04-01
   2 -- Created by: Christian CAILLET
   3 -- Copyright (c) 1997-1999 Matra Datavision
   4 -- Copyright (c) 1999-2014 OPEN CASCADE SAS
   5 --
   6 -- This file is part of Open CASCADE Technology software library.
   7 --
   8 -- This library is free software; you can redistribute it and/or modify it under
   9 -- the terms of the GNU Lesser General Public License version 2.1 as published
  10 -- by the Free Software Foundation, with special exception defined in the file
  11 -- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
  12 -- distribution for complete text of the license and disclaimer of any warranty.
  13 --
  14 -- Alternatively, this file may be used under the terms of Open CASCADE
  15 -- commercial license or contractual agreement.
  16
  17 class FieldList1  from StepData    inherits FieldList  from StepData
  18
  19     ---Purpose : Describes a list of ONE field
  20
  21 uses Field from StepData
  22
  23 raises OutOfRange
  24
  25 is
  26
  27     Create returns FieldList1;
  28     ---Purpose : Creates a FieldList of 1 Field
  29
  30     NbFields (me) returns Integer  is redefined;
  31     ---Purpose : Returns the count of fields. Here, returns 1
  32
  33     Field  (me; num : Integer) returns Field
  34     ---Purpose : Returns the field n0 <num> between 1 and NbFields (read only)
  35         raises OutOfRange
  36     --           Error if <num> out of range
  37         is redefined;
  38     ---C++ : return const &
  39
  40     CField (me : in out; num : Integer) returns Field
  41     ---Purpose : Returns the field n0 <num> between 1 and NbFields, in order to
  42     --           modify its content
  43         raises OutOfRange
  44     --           Error if <num> out of range
  45         is redefined;
  46     ---C++ : return &
  47
  48     Destroy (me: in out) is virtual;
  49     ---C++ : alias "Standard_EXPORT virtual ~StepData_FieldList1() { Destroy(); }"
  50
  51 fields
  52
  53     thefield : Field from StepData;
  54
  55 end FieldList1;