]> OCCT Git - occt-copy.git/commitdiff
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 44b838a494c9612d29080b21224aa43f70a2376f..a04d586f7dca4900a861c0f157ba9f6152c02a14 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 a022382c7431540e7ae23608fdbb1f1fe65f5556..fc178c12a5b08988762925ac19c9f781ed8a878d 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 09975469be1756574bc99b86c2b9f26f6688f78b..d4c023eb4870a78a1838fe4da4c1b108077ea5a5 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 a21a0b8d3f71dde09e457c03ecb6bdc81f100b33..0df04db9bc00e25a11c0920763e3d9893b87fb64 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 3fca5fbe722ca45bd3efd4676d1c3f972dd569a2..d8a8fe3f0fcc79384902078e80e1794131dd7d3d 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 cc3eb15c0c7f2fbb492c7ac062012b340f947ffc..b75aff72c248e1fc6c7f98c60950e783609a7218 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 599330f92d20ea4f814a2b029005d3a2c96e9dfe..df198f3568cfdff7c7f89657749e04c333c31013 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 d59b70df1e08e54859021963cd0aec3b8391b258..e202c950181780d0dcafaa4d815c0b1fe342d017 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 f05cdaf85266479fabca5f3e5f50f85bef8be81e..acaf78ca47add811368135384b35269d55b2d247 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 5828f92f11af87bc9f7d8c3755293f6b030056f6..d80d866fe5df4597b5c035ea7072f4c69194ce50 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 a31825fbab6328ca65071be98ffb596a65093fde..59b4023ca20064e777460ad1612d7c690fbcf512 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 92b9214a7361cbb5720d62c15d1626ae5da123c5..38e59dfa3d84857600e835b6b657a89e60af385e 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 dea859a6d0983ff1f13126ecb9d7f150c6b2fe09..3c3d651efdc2466c67966e2ec0afa17c233bf0d3 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 3513c6fe86368c9c82205a8ae46d09bfdeaff9eb..42df5921f96e0e6ad2210009f462bd4103ccb52d 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 8f741224a791207e405c076f4457503f966e6014..20d83eb6f0e64c0ad664eb6c50526841e832c3fa 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 5bbeb87f4551833ff74591a2fc491cf65e70bf6f..502d775fbc4497feb0f516fa6f4f894cbcddb667 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 875c3358e2b4430871de4bd30333d1f5beb7e9d7..526e6e791b18a5f2a8c281bd8039e5c1bd06cb83 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 41c76170ef238f8ac98af9a6e1adec46e35538fc..d53ad2cfcc50469d2656f073ca0ee53b2a4693bb 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 814a1c306b87a339ab63395227077225768136a1..07fbdb5cd55d61e7c1dfb3a6a2fe3cdd21f2c0de 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 311f32dec68d227f4ae7fcb71edb9fae511df501..f3f468adcb4c1d6915be0d1f8608d29adb3e36a1 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 6a15a597bab4bc8367b36aff9eea872cc1be4077..9b720341ebd81d3d9bf6708f3d444bf6a94f356a 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 d0e515678860b85ee6f2031c95a44cd154f1bc3d..091ce8dfc23eea8c663e2c0d019e83e8c930cca4 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 ab186f42b56a3eb43b5df4bf44019c85c3149340..342f6615bbda4771a5b048d6f25ba7112f225a75 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 b70687c56121632c1d6660aa82fd2f43fe42056f..1dc7008c23aee43999b467595a61186dac2080b7 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 6549839262bd5e467e8e702ecd041ca3ef4020f7..1c4d9c5ca89d81b3dfd85583dae3e2228264f672 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 8c95e60f40c53785e4b916c8d1b60cfd7e3a0308..c22d2122487e05766b392633da809d29fca93bfe 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 cda112b25b47b22945b515340e5f4952ece02277..4895e4289017ef1cd4b9d991544597042480694a 100755 (executable)
@@ -1,4 +1,3 @@
 Storage_Macros.hxx
 Storage_BucketOfPersistent.hxx
 Storage_Position.hxx
-Storage_Container.hxx
index cdb172530bea3b49cec0fb517f02e21f37ed6c57..5797b2ae80ca33957d823056bfa6b785ae4b4b0c 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 6a43059a810a14eca83125d716c371c3c1b302d8..49d81f539922843420316be5a5e7041194e32181 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 cba7f8ad553a17d194d708f6250dff3527bc5e8b..096c029a6e56a71a8bc4a517669afaaf180aabe4 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 0b21744800e27be0de3a9c7d02a2e0a9cd7b9b4e..2988eaeead2e17b68a0223b3de4291220e806a73 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 e2441b87cd1aa9ea39cbe0599dbfc7890ce12c8f..5553b4a311412d7a60489822e423cf480278b954 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 a66aafa3747c15d2e688d24089773fe56afd4bc1..a2cf04ccbf9f6ee786fdae148911e05ab304bf11 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 e471d5295dc1e668ee115091cc140d1eee6d40a6..d9a34fe67df69eac191578e7c0575cce3cb7368e 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 7ffc93b25d2dcab54911d513b2958f3a6cd9a5fe..1b473ad083da1b3ca14f6290677a5643e9b286fe 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 58ebfc5345628409d758056a4c37e47d006d8f40..c8ba5b6df224b83dd99fe3e15ee30172ad52b4a3 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 48a6e1ff34947b2250fb8e2ff1d2e5903dc45884..2fd75888d17514fd2be54394d96ecaeb05bcf8be 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 26b9f8bb425c9c3480ee089b8b9fa41307c969fc..053b9adfd143bf66b3c89e2332da85510b89e77b 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 1712d90ed92e8ad48bdcef47abfff55553647454..ebfd3c94064bc2c714294a837c98bd62243897a6 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 529dd2d510887bac6b60e61c64feb539297af8a2..9f737c2dc614f26e8687a25232b49b3db1794aa9 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 2f06f32044817f2bf27dcf2aa6a1cccead2842a2..9be18bd5778495ecfb98fb2d2cc53655d9d45067 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 53e405eba8426885112e63ab0240067dbb384a98..0a197de5d5e4bfa424dd25fca13bf0b172f487aa 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 84cd6d312ed3679b2fa8fbe2d740df3c4f94bf26..51d01e1aa155e0ccf0dd55176ffa73e1d6904900 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 55fdda164481c061c3caa39b4224b1b0d3806a15..676dc8e00da22dd755cf6ce3f861f8bf0999b73d 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 e4ca670aad44ca24421a93169ce5d70e33528197..8bdd1a8115e441e9adfca71398a01f0098e9dd00 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 541ae3de9ead08203b20c137bfc6babc1bb67951..eceda2bbdfa87321beb87f30e6b27fb87bc87e11 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 825d3cd86c2375437bf232b24258cf52c3ce4438..5bea95442e913a5299c50400cdb984de97e3458b 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 e04ae75f11540a86232d4da124350c03566c88c7..a919f1a3c78a5a297f0daa7b84bc54eeeb9fb054 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 16ddf25f47c7da75bcdb228681b70a2a05ee011c..31c90e563470d1cfe6dbddd58b08c14f5d629dfd 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 256960b2dfdf2e08fea437aba18ae612f41a1c67..24f1691e58930f40fd639e20c7673a12bdeaffcf 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 21ab851e3392ab38e97f3d5e58fcfeb15bcb7196..072e5500b9c1089129dc2c091a6038ca93d249d3 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 7ae7086ddb6adff3507489bdfa99773379ee42b8..675d488f535ac47e438a7d64c0a4c23a99e9fd5f 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 55a6101b297d48b6d3db44dd172a36ded4667e59..3fa8a5ca847c89c0d5e24536f62653868f58247b 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 d45df56cd37b919eb337d771a2423860f758b71e..367a55e322538cc55e456aae4ff3eb380ce4ea53 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 f3c403057a28922f5c3bfd1b1748d023cd7ec5b9..21f72a8771d24105d51aa774e8b0be61bcc82d1f 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 b4092b67e77430458edfa436efa77fa1674c62d1..506a8b77954b94a1ad866d2147c0ae20cb4e780f 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 54abb567fee68ee782e3a0195cee60db24b80a3f..7b0f9eda0f83661f6eea26572ac69b4f90ee23c8 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 154aec42dbc86c8ad8a752c6de895850bdd53382..097df8d4e1610364eaacae367fdd59081ef2554b 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 6ea6f21c68da9f3e2cda71f425b1e9576eb1b17d..72e8ed64224268dc08972a2c41f7e4eda584e10a 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 3c280b0db678f700060d5bfd05d4965127e58331..c502da7a0570c5f84251f6a17e097d3a23fd4628 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 98c7f0c9721f6238c76fe542fe4fcfffe97b40ec..3e42e55709fafc01e744c29de358947ebcfa46be 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 2c49d65e4df090e3330e99881aa4113032fb5cd3..f322cbbb9f7e4d6bb840c1545850bd3db82b5dc2 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 f1b99e74829d44c128c8ec89b9d7a229f5f7b0c0..b4f1b7c6ac30c1caf38710fba03417595a0aab3e 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 800c10d1aa824642a3baece035af4cc3259bfb1d..e40eaab168f4a90b87226df6707d09466cfe0517 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 a775fdb70a17b3045387bb8e9c41924b96f211c5..9ede304e6452f93045f1023c4285f661b1974d36 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