0024945: Extrema_ExtPElC::Perform does not consider angular tolerance when calculates...
[occt.git] / src / PColStd / PColStd_HashExtendedString.cxx
CommitLineData
b311480e 1// Copyright (c) 1992-1999 Matra Datavision
973c2be1 2// Copyright (c) 1999-2014 OPEN CASCADE SAS
b311480e 3//
973c2be1 4// This file is part of Open CASCADE Technology software library.
b311480e 5//
d5f74e42 6// This library is free software; you can redistribute it and/or modify it under
7// the terms of the GNU Lesser General Public License version 2.1 as published
973c2be1 8// by the Free Software Foundation, with special exception defined in the file
9// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
10// distribution for complete text of the license and disclaimer of any warranty.
b311480e 11//
973c2be1 12// Alternatively, this file may be used under the terms of Open CASCADE
13// commercial license or contractual agreement.
7fd59977 14
7fd59977 15//-Version:
16
7fd59977 17// Version Date Purpose
18// 01/04/93 Creation
19
20//-Language C++
21
22//-Declarations
23#include <Standard_Integer.hxx>
24#include <PColStd_HashExtendedString.ixx>
25#include <Standard_RangeError.hxx>
26#include <PCollection_HExtendedString.hxx>
27
28//=======================================================================
29// Function : Create
30//=======================================================================
31
32PColStd_HashExtendedString::PColStd_HashExtendedString()
33{}
34
35//=======================================================================
36// Function : HashCode
37//=======================================================================
38
39Standard_Integer PColStd_HashExtendedString::HashCode
40 (const Handle(PCollection_HExtendedString) &MyKey,
41 const Standard_Integer Upper) const
42{
43 Standard_Integer total=0;
44
45 if ( Upper < 1 ){
46 Standard_RangeError::
47 Raise("Try to apply HasCode method with negative or null argument.");
48 }
49 for (Standard_Integer I = 1 ; I <= MyKey->Length() ; I++ ) {
50 total = total + (Standard_Integer) (MyKey->Value(I));
51 }
52 total = ::HashCode( total , Upper ) ;
53
54 return total;
55}
56
57//=======================================================================
58// Function : Compare
59//=======================================================================
60
61Standard_Boolean PColStd_HashExtendedString::Compare
62 (const Handle(PCollection_HExtendedString) &One,
63 const Handle(PCollection_HExtendedString) &Two) const
64{
65 return (One->IsSameString(Two));
66}