Salome HOME
Merge from BR_Dev_For_4_0 branch (from tag mergeto_BR_QT4_Dev_17Jan08)
[modules/geom.git] / src / GEOMAlgo / GEOMAlgo_PassKey.cdl
index fe864b984acb3f6ff00eeea6a9f4358e37798f01..8b84345a40101674cf141a4c77dfd540395ec443 100755 (executable)
@@ -1,8 +1,26 @@
+-- Copyright (C) 2005  OPEN CASCADE, EADS/CCR, LIP6, CEA/DEN,
+-- CEDRAT, EDF R&D, LEG, PRINCIPIA R&D, BUREAU VERITAS
+-- 
+-- This library is free software; you can redistribute it and/or
+-- modify it under the terms of the GNU Lesser General Public
+-- License as published by the Free Software Foundation; either 
+-- version 2.1 of the License.
+-- 
+-- This library is distributed in the hope that it will be useful 
+-- but WITHOUT ANY WARRANTY; without even the implied warranty of 
+-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU 
+-- Lesser General Public License for more details.
+--
+-- You should have received a copy of the GNU Lesser General Public  
+-- License along with this library; if not, write to the Free Software 
+-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
+--
+-- See http:--www.salome-platform.org/ or email : webmaster.salome@opencascade.com
+-- 
 -- File:       GEOMAlgo_PassKey.cdl
--- Created:    
+-- Created:    Mon Nov 20 12:16:13 2006
 -- Author:     Peter KURNEV
 --             <pkv@irinox>
----Copyright:   
 
 
 class PassKey from GEOMAlgo 
@@ -11,68 +29,71 @@ class PassKey from GEOMAlgo
 
 uses
     Shape from TopoDS, 
-    ListOfShape from TopTools   
-        
+    IndexedMapOfInteger from TColStd, 
+    ListOfInteger from TColStd
+
 --raises
 
 is 
     Create  
        returns PassKey from GEOMAlgo; 
-      
+    ---C++: alias "Standard_EXPORT virtual ~GEOMAlgo_PassKey();" 
+     
+    Create(Other:PassKey from GEOMAlgo) 
+       returns PassKey from GEOMAlgo;
+     
     Assign(me:out;  
-       Other : PassKey from GEOMAlgo) 
+           Other : PassKey from GEOMAlgo) 
        returns PassKey from GEOMAlgo; 
     ---C++: alias operator =
     ---C++: return & 
-     
+            
+    Clear(me:out);
+--    
     SetIds(me:out; 
-           aS  :Shape from TopoDS); 
-           
+           aI1  :Integer from Standard); 
+            
     SetIds(me:out; 
-           aS1  :Shape from TopoDS
-           aS2  :Shape from TopoDS); 
-     
+           aI1 :Integer from Standard
+           aI2 :Integer from Standard);  
+            
     SetIds(me:out; 
-           aS1  :Shape from TopoDS; 
-           aS2  :Shape from TopoDS; 
-           aS3  :Shape from TopoDS); 
-    SetIds(me:out;  
-           aS1  :Shape from TopoDS; 
-           aS2  :Shape from TopoDS; 
-           aS3  :Shape from TopoDS;
-           aS4  :Shape from TopoDS);
+           aI1 :Integer from Standard;    
+           aI2 :Integer from Standard;    
+           aI3 :Integer from Standard);  
+
+    SetIds(me:out; 
+           aI1 :Integer from Standard;    
+           aI2 :Integer from Standard;    
+           aI3 :Integer from Standard;    
+           aI4 :Integer from Standard); 
+     
     SetIds(me:out;  
-           aLS  :ListOfShape from TopTools); 
-    NbMax(me) 
+           aLS  :ListOfInteger from TColStd);   
+
+    NbIds(me) 
        returns Integer  from Standard; 
-        
-    Clear(me:out); 
-     
-    Compute(me:out); 
      
     IsEqual(me; 
            aOther:PassKey from GEOMAlgo) 
        returns Boolean from Standard;                       
-
-    Key(me) 
-       returns Address from Standard;  
         
     HashCode(me; 
            Upper : Integer  from Standard)  
        returns Integer from Standard;           
      
-    Dump(me); 
+    Id(me; 
+           aIndex: Integer  from Standard)  
+       returns  Integer from Standard;
+       
 
+    Dump(me; 
+       aHex:Integer from Standard=0);  
+     
+       
 fields 
     myNbIds: Integer from Standard is protected;  
-    myNbMax: Integer from Standard is protected; 
-    mySum  : Integer from Standard is protected;   
-    myIds  : Integer from Standard [8] is protected; 
-    myShapes : Shape from TopoDS [8] is protected; 
-    myUpper  : Integer from Standard is protected; 
+    mySum  : Integer from Standard is protected;  
+    myMap  : IndexedMapOfInteger from TColStd is protected; 
 
 end PassKey;