0024927: Getting rid of "Persistent" functionality -- Storable

Delete "Storable" class from "Standard" package and all use of it

src/gp/gp_Ax1.cdl

@@ -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:

src/gp/gp_Ax2.cdl

@@ -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.

src/gp/gp_Ax22d.cdl

@@ -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:

src/gp/gp_Ax2d.cdl

@@ -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).

src/gp/gp_Ax3.cdl

@@ -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

src/gp/gp_Circ.cdl

@@ -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.

src/gp/gp_Circ2d.cdl

@@ -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:

src/gp/gp_Cone.cdl

@@ -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
 
 
 

src/gp/gp_Cylinder.cdl

@@ -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.

src/gp/gp_Dir.cdl

@@ -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

src/gp/gp_Dir2d.cdl

@@ -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".

src/gp/gp_Elips.cdl

@@ -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

src/gp/gp_Elips2d.cdl

@@ -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).

src/gp/gp_GTrsf.cdl

@@ -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.

src/gp/gp_GTrsf2d.cdl

@@ -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 :

src/gp/gp_Hypr.cdl

@@ -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

src/gp/gp_Hypr2d.cdl

@@ -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).

src/gp/gp_Lin.cdl

@@ -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.

src/gp/gp_Lin2d.cdl

@@ -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

src/gp/gp_Mat.cdl

@@ -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.

src/gp/gp_Mat2d.cdl

@@ -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.

src/gp/gp_Parab.cdl

@@ -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.

src/gp/gp_Parab2d.cdl

@@ -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

src/gp/gp_Pln.cdl

@@ -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.

src/gp/gp_Pnt.cdl

@@ -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.
 

src/gp/gp_Pnt2d.cdl

@@ -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.
 	

src/gp/gp_Sphere.cdl

@@ -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 :

src/gp/gp_Torus.cdl

@@ -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.

src/gp/gp_Trsf.cdl

@@ -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,

src/gp/gp_Trsf.lxx

@@ -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); }
 

src/gp/gp_Trsf2d.cdl

@@ -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.

src/gp/gp_Vec.cdl

@@ -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.

src/gp/gp_Vec2d.cdl

@@ -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.

src/gp/gp_XY.cdl

@@ -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

src/gp/gp_XYZ.cdl

@@ -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