src/GEOMDS/GEOMDS_Commands.cdl

   1 --  GEOM GEOMDS : implementation of Geometry component data structure and Geometry documents management
   2 --
   3 --  Copyright (C) 2003  OPEN CASCADE, EADS/CCR, LIP6, CEA/DEN,
   4 --  CEDRAT, EDF R&D, LEG, PRINCIPIA R&D, BUREAU VERITAS
   5 --
   6 --  This library is free software; you can redistribute it and/or
   7 --  modify it under the terms of the GNU Lesser General Public
   8 --  License as published by the Free Software Foundation; either
   9 --  version 2.1 of the License.
  10 --
  11 --  This library is distributed in the hope that it will be useful,
  12 --  but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 --  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14 --  Lesser General Public License for more details.
  15 --
  16 --  You should have received a copy of the GNU Lesser General Public
  17 --  License along with this library; if not, write to the Free Software
  18 --  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
  19 --
  20 --  See http://www.opencascade.org/SALOME/ or email : webmaster.salome@opencascade.org
  21 --
  22 --
  23 --
  24 --  File   : GEOMDS_Commands.cdl
  25 --  Author : Yves FRICAUD
  26 --  Module : GEOM
  27
  28 class Commands from GEOMDS
  29
  30         ---Purpose:
  31
  32 uses
  33     Label          from TDF,
  34     Shape          from TopoDS,
  35     ExtendedString from TCollection
  36
  37 is
  38     Create ( Main : Label from TDF) returns Commands from GEOMDS;
  39
  40     AddShape(me : in out; S    : Shape from TopoDS;
  41                           Name : ExtendedString from TCollection)
  42     returns Label from TDF;
  43
  44 fields
  45     myLab : Label from TDF;
  46 end Commands;