1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
|
// Copyright: Matra-Datavision 1994
// File: IFSelect_PacketList.cxx
// Created: Fri Sep 2 17:22:21 1994
// Author: Christian CAILLET
// <cky>
#include <IFSelect_PacketList.ixx>
#include <TColStd_HSequenceOfInteger.hxx>
#include <Interface_InterfaceError.hxx>
IFSelect_PacketList::IFSelect_PacketList
(const Handle(Interface_InterfaceModel)& model)
: thedupls (0,model->NbEntities()) ,
thepacks (100) ,
theflags (0,model->NbEntities()) ,
thename ("Packets")
{
themodel = model; thelast = 0; thebegin = Standard_False; // begin-begin
thedupls.Init(0); theflags.Init(0);
}
void IFSelect_PacketList::SetName (const Standard_CString name)
{ thename.Clear(); thename.AssignCat (name); }
Standard_CString IFSelect_PacketList::Name () const
{ return thename.ToCString(); }
Handle(Interface_InterfaceModel) IFSelect_PacketList::Model () const
{ return themodel; }
void IFSelect_PacketList::AddPacket ()
{
Standard_Integer nbl = thepacks.NbEntities();
Standard_Integer nbe = theflags.Upper();
for (Standard_Integer i = 1; i <= nbe; i ++) theflags.SetValue(i,0);
if (thelast >= nbl) thepacks.SetNbEntities (nbl*2);
if (!thebegin) thelast ++;
thepacks.SetNumber (thelast);
thebegin = Standard_False;
}
void IFSelect_PacketList::Add
(const Handle(Standard_Transient)& ent)
{
Standard_Integer num = themodel->Number(ent);
if (num == 0) Interface_InterfaceError::Raise
("PacketList:Add, Entity not in Model");
if (thelast == 0) Interface_InterfaceError::Raise
("PacketList:Add, no Packet yet added");
if (theflags(num) != 0) return;
theflags(num) = 1;
thedupls(num) ++;
thepacks.Add(num);
thebegin = Standard_False;
}
void IFSelect_PacketList::AddList
(const Handle(TColStd_HSequenceOfTransient)& list)
{
if (list.IsNull()) return;
Standard_Integer i , nb = list->Length();
thepacks.Reservate (nb+1);
for (i = 1; i <= nb; i ++) Add (list->Value(i));
}
Standard_Integer IFSelect_PacketList::NbPackets () const
{ return (thebegin ? thelast-1 : thelast); }
Standard_Integer IFSelect_PacketList::NbEntities
(const Standard_Integer numpack) const
{
if (numpack <= 0 || numpack > NbPackets()) return 0;
Interface_IntList lisi(thepacks,Standard_False); lisi.SetNumber (numpack);
return lisi.Length();
}
Interface_EntityIterator IFSelect_PacketList::Entities
(const Standard_Integer numpack) const
{
Interface_EntityIterator list;
if (numpack <= 0 || numpack > NbPackets()) return list;
Interface_IntList lisi(thepacks,Standard_False); lisi.SetNumber (numpack);
Standard_Integer i , nb = lisi.Length();
for (i = 1; i <= nb; i ++)
list.AddItem(themodel->Value(lisi.Value(i)));
return list;
}
Standard_Integer IFSelect_PacketList::HighestDuplicationCount () const
{
Standard_Integer i , nb = themodel->NbEntities();
Standard_Integer high = 0;
for (i = 1; i <= nb; i ++) {
Standard_Integer j = thedupls.Value(i);
if (j > high) high = j;
}
return high;
}
Standard_Integer IFSelect_PacketList::NbDuplicated
(const Standard_Integer newcount, const Standard_Boolean andmore) const
{
Standard_Integer i, nb = themodel->NbEntities();
Standard_Integer nbdu = 0;
for (i = 1; i <= nb; i ++) {
Standard_Integer j = thedupls.Value(i);
if (j == newcount || (j > newcount && andmore)) nbdu ++;
}
return nbdu;
}
Interface_EntityIterator IFSelect_PacketList::Duplicated
(const Standard_Integer newcount, const Standard_Boolean andmore) const
{
Standard_Integer nb = themodel->NbEntities();
Interface_EntityIterator list;
Standard_Integer i;
for (i = 1; i <= nb; i ++) {
Standard_Integer j = thedupls.Value(i);
if (j == newcount || (j > newcount && andmore)) list.AddItem(themodel->Value(i));
}
return list;
}
|
