0024927: Getting rid of "Persistent" functionality -- Storable
authordln <dln@opencascade.com>
Fri, 15 Aug 2014 06:03:58 +0000 (10:03 +0400)
committerbugmaster <bugmaster@opencascade.com>
Thu, 21 May 2015 11:56:11 +0000 (14:56 +0300)
Delete "Storable" class from "Standard" package and all use of it

68 files changed:
src/BinMXCAFDoc/BinMXCAFDoc_LocationDriver.cxx
src/Draw/Draw_Color.cdl
src/Extrema/Extrema_Point.cdl
src/GccAna/GccAna_Circ2dTanOnRad.cdl
src/GccAna/GccAna_Lin2dTanObl.cdl
src/GccAna/GccAna_Lin2dTanPer.cdl
src/GccAna/GccAna_LinPnt2dBisec.cdl
src/GccEnt/GccEnt_QualifiedCirc.cdl
src/GccEnt/GccEnt_QualifiedLin.cdl
src/IGESData/IGESData_DefSwitch.cdl
src/IGESData/IGESData_DirPart.cdl
src/IntAna2d/IntAna2d_IntPoint.cdl
src/IntRes2d/IntRes2d_IntersectionPoint.cdl
src/IntRes2d/IntRes2d_IntersectionSegment.cdl
src/IntRes2d/IntRes2d_Transition.cdl
src/Interface/Interface_EntityList.cdl
src/Quantity/Quantity_Color.cdl
src/Quantity/Quantity_Date.cdl
src/Quantity/Quantity_Period.cdl
src/Standard/Standard.cdl
src/Standard/Standard_GUID.cdl
src/Standard/Standard_Persistent.cdl
src/Standard/Standard_PrimitiveTypes.hxx
src/Standard/Standard_Real.hxx
src/Standard/Standard_ShortReal.hxx
src/Standard/Standard_Storable.cdl [deleted file]
src/Standard/Standard_Storable.cxx [deleted file]
src/StepData/StepData_SelectType.cdl
src/Storage/FILES
src/Storage/Storage.cdl
src/Storage/Storage_Container.hxx [deleted file]
src/XmlMNaming/XmlMNaming_Shape1.cdl
src/XmlObjMgt/XmlObjMgt_GP.cxx
src/gp/gp_Ax1.cdl
src/gp/gp_Ax2.cdl
src/gp/gp_Ax22d.cdl
src/gp/gp_Ax2d.cdl
src/gp/gp_Ax3.cdl
src/gp/gp_Circ.cdl
src/gp/gp_Circ2d.cdl
src/gp/gp_Cone.cdl
src/gp/gp_Cylinder.cdl
src/gp/gp_Dir.cdl
src/gp/gp_Dir2d.cdl
src/gp/gp_Elips.cdl
src/gp/gp_Elips2d.cdl
src/gp/gp_GTrsf.cdl
src/gp/gp_GTrsf2d.cdl
src/gp/gp_Hypr.cdl
src/gp/gp_Hypr2d.cdl
src/gp/gp_Lin.cdl
src/gp/gp_Lin2d.cdl
src/gp/gp_Mat.cdl
src/gp/gp_Mat2d.cdl
src/gp/gp_Parab.cdl
src/gp/gp_Parab2d.cdl
src/gp/gp_Pln.cdl
src/gp/gp_Pnt.cdl
src/gp/gp_Pnt2d.cdl
src/gp/gp_Sphere.cdl
src/gp/gp_Torus.cdl
src/gp/gp_Trsf.cdl
src/gp/gp_Trsf.lxx
src/gp/gp_Trsf2d.cdl
src/gp/gp_Vec.cdl
src/gp/gp_Vec2d.cdl
src/gp/gp_XY.cdl
src/gp/gp_XYZ.cdl

index 44b838a..a04d586 100644 (file)
@@ -119,14 +119,14 @@ Standard_Boolean BinMXCAFDoc_LocationDriver::Translate(const BinObjMgt_Persisten
 
       Standard_Real aScaleFactor;
       theSource >> aScaleFactor;
-      aTrsf._CSFDB_Setgp_Trsfscale(aScaleFactor);
+      aTrsf.SetScaleFactor(aScaleFactor);
 
       Standard_Integer aForm;
       theSource >> aForm;
-      aTrsf._CSFDB_Setgp_Trsfshape((gp_TrsfForm)aForm);
+      aTrsf.SetForm((gp_TrsfForm)aForm);
 
       Standard_Integer R, C;
-      gp_Mat& aMat = (gp_Mat&)aTrsf._CSFDB_Getgp_Trsfmatrix();
+      gp_Mat& aMat = (gp_Mat&)aTrsf.HVectorialPart();
       for(R = 1; R <= 3; R++)
         for(C = 1; C <= 3; C++) {
           Standard_Real aVal;
@@ -136,7 +136,7 @@ Standard_Boolean BinMXCAFDoc_LocationDriver::Translate(const BinObjMgt_Persisten
 
       Standard_Real x, y, z;
       theSource >> x >> y >> z;
-      gp_XYZ& aLoc = (gp_XYZ&)aTrsf._CSFDB_Getgp_Trsfloc();
+      gp_XYZ& aLoc = (gp_XYZ&)aTrsf.TranslationPart();
       aLoc.SetX(x);
       aLoc.SetY(y);
       aLoc.SetZ(z);
index a022382..fc178c1 100644 (file)
@@ -14,7 +14,7 @@
 -- Alternatively, this file may be used under the terms of Open CASCADE
 -- commercial license or contractual agreement.
 
-class Color from Draw inherits Storable
+class Color from Draw
 
        ---Purpose: 
 
index 0997546..d4c023e 100644 (file)
@@ -15,7 +15,6 @@
 -- commercial license or contractual agreement.
 
 generic class   Point from Extrema  (Pnt as any)
-        inherits Storable from Standard
        ---Purpose: Definition of a point on curve.
 
 
index a21a0b8..0df04db 100644 (file)
@@ -40,8 +40,6 @@ from GccAna
        --          distance between C1 and OnLine is lower than or 
        --          equal Tolerance.
 
---inherits Storable from Standard
-
 uses Pnt2d           from gp,
      Lin2d           from gp,
      Circ2d          from gp,
index 3fca5fb..d8a8fe3 100644 (file)
@@ -27,8 +27,6 @@ from GccAna
         --          Its direction is making an angle Angle with the 
         --          second argument.
 
---inherits Storable from Standard
-
 uses Lin2d            from gp, 
      Pnt2d            from gp, 
      QualifiedCirc    from GccEnt,
index cc3eb15..b75aff7 100644 (file)
@@ -29,8 +29,6 @@ from GccAna
        -- -   defining the construction of 2D line(s),
        -- -   implementing the construction algorithm, and
        -- -   consulting the result(s).
-        
---inherits Storable from Standard
 
 uses   Pnt2d            from gp,
        Lin2d            from gp, 
index 599330f..df198f3 100644 (file)
@@ -29,8 +29,6 @@ from GccAna
        -- - implementing the construction algorithm, and
        -- - consulting the result.
 
---inherits Storable from Standard
-
 uses Lin2d from gp,
      Pnt2d from gp,
      Bisec from GccInt
index d59b70d..e202c95 100644 (file)
@@ -26,8 +26,6 @@ from GccEnt
        -- -   is enclosed by the circle, or
        -- -   is built so that both the circle and it are external to   one another, or
        -- -   is undefined (all solutions apply).
-  
-inherits Storable from Standard
 
 uses Position from GccEnt,
      Circ2d   from gp
index f05cdaf..acaf78c 100644 (file)
@@ -18,8 +18,6 @@ class QualifiedLin
 
 from GccEnt
 
-inherits Storable from Standard
-
        --- Purpose: Describes a qualified 2D line.
        -- A qualified 2D line is a line (gp_Lin2d line) with a
        -- qualifier which specifies whether the solution of a
index 5828f92..d80d866 100644 (file)
@@ -14,7 +14,7 @@
 -- Alternatively, this file may be used under the terms of Open CASCADE
 -- commercial license or contractual agreement.
 
-class DefSwitch  from IGESData  inherits Storable
+class DefSwitch  from IGESData
 
     ---Purpose : description of a directory componant which can be either
     --           undefined (let Void), defined as a Reference to an entity,
index a31825f..59b4023 100644 (file)
@@ -14,7 +14,7 @@
 -- Alternatively, this file may be used under the terms of Open CASCADE
 -- commercial license or contractual agreement.
 
-class DirPart  from IGESData  inherits Storable    -- for Array
+class DirPart  from IGESData -- for Array
 
     ---Purpose : litteral/numeric description of an entity's directory section,
     --           taken from file
index 92b9214..38e59df 100644 (file)
@@ -14,7 +14,7 @@
 -- Alternatively, this file may be used under the terms of Open CASCADE
 -- commercial license or contractual agreement.
 
-class IntPoint from IntAna2d inherits Storable from Standard
+class IntPoint from IntAna2d
 
     ---Purpose: Geometrical intersection between two 2d elements.
 
index dea859a..3c3d651 100644 (file)
@@ -19,9 +19,6 @@ class IntersectionPoint from IntRes2d
     ---Purpose: Definition of an intersection point between two
     --          2D curves.
 
-
-inherits Storable from Standard
-
 uses Pnt2d      from gp,
      Transition from IntRes2d
 is
index 3513c6f..42df592 100644 (file)
@@ -19,9 +19,6 @@ class IntersectionSegment from IntRes2d
     ---Purpose: Definition of an intersection curve between
     --          two 2D curves.
 
-
-inherits Storable from Standard
-
 uses IntersectionPoint from IntRes2d
 
 raises DomainError from Standard
index 8f74122..20d83eb 100644 (file)
@@ -16,8 +16,6 @@
 
 class Transition from IntRes2d
 
-inherits Storable from Standard 
-
     ---Purpose: Definition of    the  type  of   transition    near an
     --          intersection point between  two curves. The transition
     --          is either a "true transition", which means that one of
index 5bbeb87..502d775 100644 (file)
@@ -14,7 +14,7 @@
 -- Alternatively, this file may be used under the terms of Open CASCADE
 -- commercial license or contractual agreement.
 
-class EntityList  from Interface  -- inherits Storable
+class EntityList  from Interface
 
     ---Purpose : This class defines a list of Entities (Transient Objects),
     --           it can be used as a field of other Transient classes, with
index 875c335..526e6e7 100644 (file)
@@ -14,7 +14,6 @@
 -- commercial license or contractual agreement.
 
 class Color from Quantity
-inherits  Storable
 
        ---Purpose: This class allows the definition of a colour.
        --          The names of the colours are from the X11 specification.
index 41c7617..d53ad2c 100644 (file)
@@ -14,9 +14,7 @@
 -- Alternatively, this file may be used under the terms of Open CASCADE
 -- commercial license or contractual agreement.
 
-class Date from Quantity 
-
-inherits Storable from Standard 
+class Date from Quantity
 
        ---Purpose: This class provides services to manage date information.
        --          A date represents the following time intervals:
index 814a1c3..07fbdb5 100644 (file)
@@ -20,8 +20,6 @@ class Period from Quantity
        -- gives the interval between two dates.
        -- A period is expressed in seconds and microseconds.
 
-inherits Storable from Standard
-
 raises PeriodDefinitionError
 
 is
index 311f32d..f3f468a 100644 (file)
@@ -73,19 +73,19 @@ is
     
     class AncestorIterator;
     
-    deferred class Storable ;
-        primitive Boolean      inherits Storable;
-        primitive Character    inherits Storable;
-        primitive ExtCharacter inherits Storable;
-        primitive Integer      inherits Storable;
-        primitive Byte         inherits Storable;
-        primitive Real         inherits Storable;
-        primitive ShortReal    inherits Storable;
-        primitive Time         inherits Storable;
-        primitive OId          inherits Storable;
-
-       deferred class Persistent ; -- inherits Storable
-       class GUID;     -- inherits Storable
+    primitive Boolean;
+    primitive Character;
+    primitive ExtCharacter;
+    primitive Integer;
+    primitive Byte;
+    primitive Real;
+    primitive ShortReal;
+    primitive Time;
+    primitive OId;
+    
+    class GUID;
+
+    deferred class Persistent ;
 
     deferred class Transient ;
            class Type; -- inherits Transient
index 6a15a59..9b72034 100644 (file)
@@ -14,9 +14,7 @@
 -- Alternatively, this file may be used under the terms of Open CASCADE
 -- commercial license or contractual agreement.
 
-class GUID from Standard 
-
-inherits Storable from Standard
+class GUID from Standard
 
 is
     Create returns GUID from Standard;
index d0e5156..091ce8d 100644 (file)
@@ -15,8 +15,6 @@
 -- commercial license or contractual agreement.
 
 deferred class Persistent from Standard 
-inherits
-    Storable from Standard 
     
            ---Purpose: 
             -- The root of the entire persistent class hierarchy.
@@ -59,7 +57,7 @@ uses
          
 is
 
-       Delete (me: mutable) is redefined;
+       Delete (me: mutable) is virtual;
            ---Purpose: Deletes this object.
            
 
index ab186f4..342f661 100644 (file)
@@ -34,7 +34,6 @@ class Standard_Transient;
 #include <Standard_CString.hxx>
 #include <Standard_ExtString.hxx>
 #include <Standard_Address.hxx>
-#include <Standard_Storable.hxx>
 
 __Standard_API Standard_Integer HashCode(const Standard_Address, 
                          const Standard_Integer,
index b70687c..1dc7008 100644 (file)
@@ -31,7 +31,6 @@
 // ==================================
 // Methods implemeted in Standard_Real.cxx
 // ==================================
-//....             Herited from Standard_Storable
 __Standard_API Standard_Integer HashCode    (const Standard_Real, const Standard_Integer);  
 
 __Standard_API Standard_Real    ACos        (const Standard_Real );
index 6549839..1c4d9c5 100644 (file)
@@ -141,7 +141,6 @@ inline Standard_ShortReal     Min (const Standard_ShortReal Val1,
 // ==================================
 // Methods implemeted in Standard_ShortReal.cxx
 // ==================================
-//....             Herited from Standard_Storable
 __Standard_API Standard_Integer HashCode (const Standard_ShortReal, const Standard_Integer);  
 
 //-------------------------------------------------------------------
diff --git a/src/Standard/Standard_Storable.cdl b/src/Standard/Standard_Storable.cdl
deleted file mode 100644 (file)
index 6210692..0000000
+++ /dev/null
@@ -1,53 +0,0 @@
--- Created on: 1991-09-05
--- Created by: jean pierre TIRAULT
--- Copyright (c) 1991-1999 Matra Datavision
--- Copyright (c) 1999-2014 OPEN CASCADE SAS
---
--- This file is part of Open CASCADE Technology software library.
---
--- This library is free software; you can redistribute it and/or modify it under
--- the terms of the GNU Lesser General Public License version 2.1 as published
--- by the Free Software Foundation, with special exception defined in the file
--- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
--- distribution for complete text of the license and disclaimer of any warranty.
---
--- Alternatively, this file may be used under the terms of Open CASCADE
--- commercial license or contractual agreement.
-
-deferred class Storable from Standard
-
-   ---Purpose: This class Storable is an abstract class that allows built-in 
-   --          primitive types to be extended. They are not themselves 
-   --          persistent, but are known by the database, therefore can be used
-   --         to define the internal representation of persistent objects.
-   --         Otherwise, all the fields of subclasses of Object MUST inherit
-   --         from Storable.
-   --         
-   --         This class provides also a framework for copying, comparing and 
-   --         printing.
-
-is    
-        Delete ( me : out ) is virtual;
-        ---C++: alias "Standard_EXPORT virtual ~Standard_Storable(){Delete();}"
-
-       HashCode (me; Upper : Integer ) returns Integer is virtual;
-           ---Purpose: Returns a hashed value denoting <me>. This value is in
-           --         the range 1..<Upper>.
-           ---C++:  function call
-            ---Level: Advanced
-            
-       IsEqual (me; Other : Storable) returns Boolean
-           ---Purpose: Returns true if the direct contents of <me> and
-           --         <Other> are memberwise equal.
-           ---C++:  alias operator ==
-           ---Level: Public 
-        is static;
-
-       IsSimilar (me; Other : Storable) returns Boolean;
-           ---Purpose: Returns true if the Deep contents of <me> and
-           --         <Other> are memberwise equal.
-           ---C++:  function call
-            ---Level: Public
-            
-end Storable;
-
diff --git a/src/Standard/Standard_Storable.cxx b/src/Standard/Standard_Storable.cxx
deleted file mode 100644 (file)
index 0c34cdf..0000000
+++ /dev/null
@@ -1,36 +0,0 @@
-// Copyright (c) 1998-1999 Matra Datavision
-// Copyright (c) 1999-2014 OPEN CASCADE SAS
-//
-// This file is part of Open CASCADE Technology software library.
-//
-// This library is free software; you can redistribute it and/or modify it under
-// the terms of the GNU Lesser General Public License version 2.1 as published
-// by the Free Software Foundation, with special exception defined in the file
-// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
-// distribution for complete text of the license and disclaimer of any warranty.
-//
-// Alternatively, this file may be used under the terms of Open CASCADE
-// commercial license or contractual agreement.
-
-#include <Standard_Storable.ixx>
-
-void Standard_Storable::Delete()
-{}
-
-//========================================================================
-Standard_Integer Standard_Storable::HashCode(const Standard_Integer Upper)const
-{
-  return ::HashCode((Standard_Address) this, Upper, STANDARD_TYPE(Standard_Storable));
-}
-
-//========================================================================
-Standard_Boolean Standard_Storable::IsEqual(const Standard_Storable& ) const
-{
-  return Standard_True;
-}
-
-//========================================================================
-Standard_Boolean Standard_Storable::IsSimilar(const Standard_Storable& ) const
-{
-  return Standard_True;
-}
index 8c95e60..c22d212 100644 (file)
@@ -14,7 +14,7 @@
 -- Alternatively, this file may be used under the terms of Open CASCADE
 -- commercial license or contractual agreement.
 
-deferred class SelectType  from StepData  --  inherits Storable
+deferred class SelectType  from StepData
 
     ---Purpose : SelectType is the basis used for SELECT_TYPE definitions from
     --           the EXPRESS form. A SELECT_TYPE in EXPRESS is an enumeration
@@ -22,8 +22,8 @@ deferred class SelectType  from StepData  --  inherits Storable
     --           no specific Methods, and no exclusivity (a given Type can be
     --           member of several SELECT_TYPES, plus be itself a SUB_TYPE).
     --           
-    --           A SelectType can be field of a Transient Entity (it is itself
-    --           Storable) or only used to control an input Argument
+    --           A SelectType can be field of a Transient Entity or only used 
+    --           to control an input Argument
     --           
     --           This class implies to designate each member Type by a Case
     --           Number which is a positive Integer value (this allows a faster
index cda112b..4895e42 100755 (executable)
@@ -1,4 +1,3 @@
 Storage_Macros.hxx
 Storage_BucketOfPersistent.hxx
 Storage_Position.hxx
-Storage_Container.hxx
index cdb1725..5797b2a 100644 (file)
@@ -109,8 +109,6 @@ is
        ReadSolve
     end;
     
-    primitive Container inherits Storable from Standard;
-    
     imported BucketOfPersistent;
     
     imported Position; -- typedef long
diff --git a/src/Storage/Storage_Container.hxx b/src/Storage/Storage_Container.hxx
deleted file mode 100644 (file)
index eaec1a4..0000000
+++ /dev/null
@@ -1,24 +0,0 @@
-// Copyright (c) 1999-2014 OPEN CASCADE SAS
-//
-// This file is part of Open CASCADE Technology software library.
-//
-// This library is free software; you can redistribute it and/or modify it under
-// the terms of the GNU Lesser General Public License version 2.1 as published
-// by the Free Software Foundation, with special exception defined in the file
-// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
-// distribution for complete text of the license and disclaimer of any warranty.
-//
-// Alternatively, this file may be used under the terms of Open CASCADE
-// commercial license or contractual agreement.
-
-#ifndef _Storage_Container_HeaderFile
-#define _Storage_Container_HeaderFile
-
-class Storage_BaseDriver;
-
-typedef Storage_BaseDriver* Storage_Container;
-
-Storage_Container& Storage_CurrentContainer();
-
-#endif
-
index 6a43059..49d81f5 100644 (file)
@@ -13,7 +13,7 @@
 -- Alternatively, this file may be used under the terms of Open CASCADE
 -- commercial license or contractual agreement.
 
-class Shape1 from XmlMNaming inherits Storable
+class Shape1 from XmlMNaming
 
     ---Purpose: The XmlMNaming_Shape1 is the Persistent view of a TopoDS_Shape.
     --          
index cba7f8a..096c029 100644 (file)
@@ -78,19 +78,19 @@ Standard_Boolean XmlObjMgt_GP::Translate
   Standard_Real aScaleFactor = Standard_Real(Strtod (aStr, &ptr));
   if (ptr != aStr && errno != ERANGE && errno != EINVAL)
   {
-    T._CSFDB_Setgp_Trsfscale(aScaleFactor);
+    T.SetScaleFactor(aScaleFactor);
     aStr = ptr;
     Standard_Integer aForm = Standard_Integer(strtol(aStr, &ptr, 10));
     if (ptr != aStr && errno != ERANGE && errno != EINVAL) {
-      T._CSFDB_Setgp_Trsfshape((gp_TrsfForm)aForm);
+      T.SetForm((gp_TrsfForm)aForm);
       aStr = ptr;
 
 //  gp_Mat aMatr;
-      aStr = ::Translate(aStr, (gp_Mat&)T._CSFDB_Getgp_Trsfmatrix());
+      aStr = ::Translate(aStr, (gp_Mat&)T.HVectorialPart());
       if (aStr) {
 
 //  gp_XYZ aTransl;
-        ::Translate(aStr, (gp_XYZ&)T._CSFDB_Getgp_Trsfloc());
+        ::Translate(aStr, (gp_XYZ&)T.TranslationPart());
         aResult = Standard_True;
       }
     }
index 0b21744..2988eae 100644 (file)
@@ -12,7 +12,7 @@
 -- Alternatively, this file may be used under the terms of Open CASCADE
 -- commercial license or contractual agreement.
 
-class Ax1    from gp   inherits Storable
+class Ax1    from gp
 
         --- Purpose : Describes an axis in 3D space.
         -- An axis is defined by:
index e2441b8..5553b4a 100644 (file)
@@ -12,7 +12,7 @@
 -- Alternatively, this file may be used under the terms of Open CASCADE
 -- commercial license or contractual agreement.
 
-class Ax2   from gp  inherits Storable
+class Ax2   from gp
 
         --- Purpose :
         --  Describes a right-handed coordinate system in 3D space.
index a66aafa..a2cf04c 100644 (file)
@@ -12,7 +12,7 @@
 -- Alternatively, this file may be used under the terms of Open CASCADE
 -- commercial license or contractual agreement.
 
-class Ax22d   from gp  inherits Storable
+class Ax22d   from gp
         --- Purpose :
         --  Describes a coordinate system in a plane (2D space).
         -- A coordinate system is defined by:
index e471d52..d9a34fe 100644 (file)
@@ -12,7 +12,7 @@
 -- Alternatively, this file may be used under the terms of Open CASCADE
 -- commercial license or contractual agreement.
 
-class Ax2d   from gp   inherits Storable
+class Ax2d   from gp
 
          ---Purpose:
          -- Describes an axis in the plane (2D space).
index 7ffc93b..1b473ad 100644 (file)
@@ -14,7 +14,7 @@
 -- Alternatively, this file may be used under the terms of Open CASCADE
 -- commercial license or contractual agreement.
 
-class Ax3   from gp  inherits Storable 
+class Ax3   from gp
 
         --- Purpose : Describes a coordinate system in 3D space. Unlike a
         --  gp_Ax2 coordinate system, a gp_Ax3 can be
index 58ebfc5..c8ba5b6 100644 (file)
@@ -12,7 +12,7 @@
 -- Alternatively, this file may be used under the terms of Open CASCADE
 -- commercial license or contractual agreement.
 
-class Circ  from gp  inherits Storable
+class Circ  from gp
 
         --- Purpose :
         --  Describes a circle in 3D space.
index 48a6e1f..2fd7588 100644 (file)
@@ -12,7 +12,7 @@
 -- Alternatively, this file may be used under the terms of Open CASCADE
 -- commercial license or contractual agreement.
 
-class Circ2d  from gp   inherits Storable
+class Circ2d  from gp
         --- Purpose : Describes a circle in the plane (2D space).
        -- A circle is defined by its radius and positioned in the
        -- plane with a coordinate system (a gp_Ax22d object) as follows:
index 26b9f8b..053b9ad 100644 (file)
@@ -12,7 +12,7 @@
 -- Alternatively, this file may be used under the terms of Open CASCADE
 -- commercial license or contractual agreement.
 
-class Cone   from gp   inherits Storable
+class Cone   from gp
 
 
 
index 1712d90..ebfd3c9 100644 (file)
@@ -12,7 +12,7 @@
 -- Alternatively, this file may be used under the terms of Open CASCADE
 -- commercial license or contractual agreement.
 
-class Cylinder   from gp   inherits Storable
+class Cylinder   from gp
 
         --- Purpose :
         --  Describes an infinite cylindrical surface.
index 529dd2d..9f737c2 100644 (file)
@@ -12,7 +12,7 @@
 -- Alternatively, this file may be used under the terms of Open CASCADE
 -- commercial license or contractual agreement.
 
-class Dir   from gp  inherits Storable
+class Dir   from gp
         ---Purpose:
         -- Describes a unit vector in 3D space. This unit vector is also called "Direction".
         -- See Also
index 2f06f32..9be18bd 100644 (file)
@@ -12,7 +12,7 @@
 -- Alternatively, this file may be used under the terms of Open CASCADE
 -- commercial license or contractual agreement.
 
-class Dir2d    from gp   inherits Storable
+class Dir2d    from gp
 
         ---Purpose: Describes a unit vector in the plane (2D space). This unit
         -- vector is also called "Direction".
index 53e405e..0a197de 100644 (file)
@@ -12,7 +12,7 @@
 -- Alternatively, this file may be used under the terms of Open CASCADE
 -- commercial license or contractual agreement.
 
-class Elips   from gp  inherits Storable
+class Elips   from gp
         --- Purpose :
         --      Describes an ellipse in 3D space.
         -- An ellipse is defined by its major and minor radii and
index 84cd6d3..51d01e1 100644 (file)
@@ -12,7 +12,7 @@
 -- Alternatively, this file may be used under the terms of Open CASCADE
 -- commercial license or contractual agreement.
 
-class Elips2d   from gp  inherits Storable
+class Elips2d   from gp
 
         --- Purpose :
        -- Describes an ellipse in the plane (2D space).
index 55fdda1..676dc8e 100644 (file)
@@ -12,7 +12,7 @@
 -- Alternatively, this file may be used under the terms of Open CASCADE
 -- commercial license or contractual agreement.
 
-class GTrsf   from gp   inherits Storable
+class GTrsf   from gp
 
   --- Purpose :
         --  Defines a non-persistent transformation in 3D space.
index e4ca670..8bdd1a8 100644 (file)
@@ -12,7 +12,7 @@
 -- Alternatively, this file may be used under the terms of Open CASCADE
 -- commercial license or contractual agreement.
 
-class GTrsf2d   from gp   inherits Storable
+class GTrsf2d   from gp
 
 
         --- Purpose :
index 541ae3d..eceda2b 100644 (file)
@@ -12,7 +12,7 @@
 -- Alternatively, this file may be used under the terms of Open CASCADE
 -- commercial license or contractual agreement.
 
-class Hypr   from gp   inherits Storable
+class Hypr   from gp
 
         --- Purpose : Describes a branch of a hyperbola in 3D space.
         -- A hyperbola is defined by its major and minor radii and
index 825d3cd..5bea954 100644 (file)
@@ -12,7 +12,7 @@
 -- Alternatively, this file may be used under the terms of Open CASCADE
 -- commercial license or contractual agreement.
 
-class Hypr2d   from gp   inherits Storable
+class Hypr2d   from gp
 
         ---Purpose:
         -- Describes a branch of a hyperbola in the plane (2D space).
index e04ae75..a919f1a 100644 (file)
@@ -12,7 +12,7 @@
 -- Alternatively, this file may be used under the terms of Open CASCADE
 -- commercial license or contractual agreement.
 
-class Lin    from gp   inherits Storable
+class Lin    from gp
 
         ---Purpose:
         -- Describes a line in 3D space.
index 16ddf25..31c90e5 100644 (file)
@@ -12,7 +12,7 @@
 -- Alternatively, this file may be used under the terms of Open CASCADE
 -- commercial license or contractual agreement.
 
-class Lin2d   from gp   inherits Storable
+class Lin2d   from gp
 
         ---Purpose: Describes a line in 2D space.
         -- A line is positioned in the plane with an axis (a gp_Ax2d
index 256960b..24f1691 100644 (file)
@@ -12,7 +12,7 @@
 -- Alternatively, this file may be used under the terms of Open CASCADE
 -- commercial license or contractual agreement.
 
-class Mat   from gp  inherits Storable
+class Mat   from gp
    ---Purpose:
    -- Describes a three column, three row matrix. This sort of
    -- object is used in various vectorial or matrix computations.
index 21ab851..072e550 100644 (file)
@@ -12,7 +12,7 @@
 -- Alternatively, this file may be used under the terms of Open CASCADE
 -- commercial license or contractual agreement.
 
-class Mat2d   from gp   inherits Storable
+class Mat2d   from gp
         ---Purpose:
         -- Describes a two column, two row matrix. This sort of
         -- object is used in various vectorial or matrix computations.
index 7ae7086..675d488 100644 (file)
@@ -12,7 +12,7 @@
 -- Alternatively, this file may be used under the terms of Open CASCADE
 -- commercial license or contractual agreement.
 
-class Parab   from gp   inherits Storable
+class Parab   from gp
 
         ---Purpose:
         -- Describes a parabola in 3D space.
index 55a6101..3fa8a5c 100644 (file)
@@ -12,7 +12,7 @@
 -- Alternatively, this file may be used under the terms of Open CASCADE
 -- commercial license or contractual agreement.
 
-class Parab2d   from gp   inherits Storable
+class Parab2d   from gp
 
         ---Purpose: Describes a parabola in the plane (2D space).
         -- A parabola is defined by its focal length (that is, the
index d45df56..367a55e 100644 (file)
@@ -12,7 +12,7 @@
 -- Alternatively, this file may be used under the terms of Open CASCADE
 -- commercial license or contractual agreement.
 
-class Pln   from gp   inherits Storable
+class Pln   from gp
 
 
         --- Purpose :Describes a plane.
index f3c4030..21f72a8 100644 (file)
@@ -12,7 +12,7 @@
 -- Alternatively, this file may be used under the terms of Open CASCADE
 -- commercial license or contractual agreement.
 
-class Pnt   from gp  inherits Storable 
+class Pnt   from gp
 
         --- Purpose :  Defines a 3D cartesian point.
 
index b4092b6..506a8b7 100644 (file)
@@ -12,7 +12,7 @@
 -- Alternatively, this file may be used under the terms of Open CASCADE
 -- commercial license or contractual agreement.
 
-class Pnt2d   from gp   inherits Storable
+class Pnt2d   from gp
 
         --- Purpose :  Defines  a non-persistent 2D cartesian point.
        
index 54abb56..7b0f9ed 100644 (file)
@@ -12,7 +12,7 @@
 -- Alternatively, this file may be used under the terms of Open CASCADE
 -- commercial license or contractual agreement.
 
-class Sphere   from gp   inherits Storable
+class Sphere   from gp
 
        
         --- Purpose :
index 154aec4..097df8d 100644 (file)
@@ -12,7 +12,7 @@
 -- Alternatively, this file may be used under the terms of Open CASCADE
 -- commercial license or contractual agreement.
 
-class Torus   from gp   inherits Storable
+class Torus   from gp
 
         --- Purpose :
         --  Describes a torus.
index 6ea6f21..72e8ed6 100644 (file)
@@ -12,7 +12,7 @@
 -- Alternatively, this file may be used under the terms of Open CASCADE
 -- commercial license or contractual agreement.
 
-class Trsf   from gp   inherits Storable
+class Trsf   from gp
 
         --- Purpose: Defines a non-persistent transformation in 3D space.
         --  The following transformations are implemented :  
@@ -200,6 +200,8 @@ is
   raises
     ConstructionError from Standard
   is static;
+  
+  SetForm (me : in out; P : TrsfForm from gp) is static;
 
   SetValues(me : in out;
             a11, a12, a13, a14,
index 3c280b0..c502da7 100644 (file)
@@ -54,6 +54,11 @@ inline void gp_Trsf::SetTranslation(const gp_Pnt& P1,
   loc = (P2.XYZ()).Subtracted (P1.XYZ());
 }
 
+inline void gp_Trsf::SetForm(const gp_TrsfForm P)
+{
+  shape = P;
+}
+
 inline Standard_Boolean gp_Trsf::IsNegative() const 
 { return (scale < 0.0); }
 
index 98c7f0c..3e42e55 100644 (file)
@@ -12,7 +12,7 @@
 -- Alternatively, this file may be used under the terms of Open CASCADE
 -- commercial license or contractual agreement.
 
-class Trsf2d   from gp   inherits Storable
+class Trsf2d   from gp
 
         --- Purpose :
         --  Defines a non-persistent transformation in 2D space.
index 2c49d65..f322cbb 100644 (file)
@@ -12,7 +12,7 @@
 -- Alternatively, this file may be used under the terms of Open CASCADE
 -- commercial license or contractual agreement.
 
-class Vec   from gp   inherits Storable 
+class Vec   from gp
 
         --- Purpose :
         --  Defines a non-persistent vector in 3D space.
index f1b99e7..b4f1b7c 100644 (file)
@@ -12,7 +12,7 @@
 -- Alternatively, this file may be used under the terms of Open CASCADE
 -- commercial license or contractual agreement.
 
-class Vec2d    from gp   inherits Storable 
+class Vec2d    from gp
 
         --- Purpose :
         --  Defines a non-persistent vector in 2D space.
index 800c10d..e40eaab 100644 (file)
@@ -12,7 +12,7 @@
 -- Alternatively, this file may be used under the terms of Open CASCADE
 -- commercial license or contractual agreement.
 
-class XY   from gp  inherits Storable 
+class XY   from gp
 
         --- Purpose :
         --  This class describes a cartesian coordinate entity in 2D
index a775fdb..9ede304 100644 (file)
@@ -12,7 +12,7 @@
 -- Alternatively, this file may be used under the terms of Open CASCADE
 -- commercial license or contractual agreement.
 
-class XYZ   from gp   inherits Storable 
+class XYZ   from gp
 
         --- Purpose :
         --  This class describes a cartesian coordinate entity in