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
133
134
135
136
137
138
139
140
141
|
//szv#4 S4163
#include <Interface_ParamSet.ixx>
Interface_ParamSet::Interface_ParamSet (const Standard_Integer nres, const Standard_Integer )//nst)
{
thelist = new Interface_ParamList;// (nst,nst+nres+2);
themxpar = nres;
thenbpar = 0;
thelnval = 0;
thelnres = 100; // *20; // 10 caracteres par Param (\0 inclus) : raisonnable
theval = new char[thelnres]; //szv#4:S4163:12Mar99 `thelnres+1` chars was wrong
}
// Append(CString) : Gestion des caracteres selon <lnval>
// Si lnval < 0, ParamSet passif, memoire geree de l exterieur, ParamSet
// se contente de s y referer
// Sinon, recopie dans une page locale
Standard_Integer Interface_ParamSet::Append (const Standard_CString val, const Standard_Integer lnval,
const Interface_ParamType typ, const Standard_Integer nument)
{
// Ici, gestion locale de String
thenbpar ++;
if (thenbpar > themxpar) {
thenext = new Interface_ParamSet (themxpar,1);
return (thenbpar + thenext->Append(val,lnval,typ,nument));
}
else if (lnval < 0) {
// .. Gestion externe des caracteres ..
Interface_FileParameter& FP = thelist->ChangeValue(thenbpar);
FP.Init(val,typ);
if (nument != 0) FP.SetEntityNumber(nument);
}
else {
// .. Gestion locale des caracteres ..
Standard_Integer i;
if (thelnval + lnval + 1 > thelnres) {
// Reservation de caracteres insuffisante : d abord augmenter
Standard_Integer newres = thelnres*2 + lnval ;
char* newval = new char[newres];
for (i = 0; i < thelnval; i++)
newval[i] = theval[i]; //szv#4:S4163:12Mar99 `<= thelnres` was wrong
// et cepatou : il faut realigner les Params deja enregistres sur
// l ancienne reservation de caracteres ...
//Standard_Integer delta = (Standard_Integer) (newval - theval);
// difference a appliquer
char* poldVal = &theval[0];
char* pnewVal= &newval[0];
for (i = 1; i < thenbpar; i ++) {
Interface_FileParameter& OFP = thelist->ChangeValue(i);
Interface_ParamType otyp = OFP.ParamType();
char* oval = (char*)OFP.CValue();
Standard_Integer delta = (Standard_Integer) (oval - poldVal);
//if (oval < theval || oval >= (theval+thelnres))
// continue; //hors reserve //szv#4:S4163:12Mar99 `oval >` was wrong
Standard_Integer onum = OFP.EntityNumber();
OFP.Init(pnewVal+delta,otyp); // et voila; on remet dans la boite
if (onum != 0) OFP.SetEntityNumber(onum);
}
// Enteriner la nouvelle reservation
delete [] theval;
theval = newval;
thelnres = newres;
}
// Enregistrer ce parametre
for (i = 0; i < lnval; i ++) theval[thelnval + i] = val[i];
theval[thelnval+lnval] = '\0';
Interface_FileParameter& FP = thelist->ChangeValue(thenbpar);
FP.Init(&theval[thelnval],typ);
if (nument != 0) FP.SetEntityNumber(nument);
thelnval += (lnval+1);
}
return thenbpar;
}
Standard_Integer Interface_ParamSet::Append (const Interface_FileParameter& FP)
{
// Ici, FP tout pret : pas de gestion memoire sur String (dommage)
thenbpar ++;
if (thenbpar > themxpar) {
thenext = new Interface_ParamSet (themxpar,1);
return thenbpar + thenext->Append(FP);
}
thelist->SetValue(thenbpar,FP);
return thenbpar;
}
Standard_Integer Interface_ParamSet::NbParams () const
{ return thenbpar; }
const Interface_FileParameter& Interface_ParamSet::Param (const Standard_Integer num) const
{
if (num > themxpar) return thenext->Param(num - themxpar);
else return thelist->Value(num);
}
Interface_FileParameter& Interface_ParamSet::ChangeParam (const Standard_Integer num)
{
if (num > themxpar) return thenext->ChangeParam(num - themxpar);
else return thelist->ChangeValue(num);
}
void Interface_ParamSet::SetParam (const Standard_Integer num, const Interface_FileParameter& FP)
{
if (num > themxpar) thenext->SetParam(num - themxpar, FP);
else thelist->SetValue(num,FP);
}
Handle(Interface_ParamList) Interface_ParamSet::Params (const Standard_Integer num,
const Standard_Integer nb) const
{
Standard_Integer i, n0 = num-1, nbp = nb;
if (num > themxpar)
return thenext->Params (num-themxpar,nb);
if (num == 0 && nb == 0) {
n0 = 0; nbp = thenbpar;
if (thenbpar <= themxpar)
return thelist; // et zou
}
Handle(Interface_ParamList) list = new Interface_ParamList;
if (nb == 0)
return list;
for (i = 1; i <= nbp; i ++) list->SetValue(i,Param(n0+i));
return list;
}
void Interface_ParamSet::Destroy ()
{
// if (!thenext.IsNull()) thenext->Destroy();
thenext.Nullify();
// Destruction "manuelle" (gestion memoire directe)
if (theval) delete [] theval;
theval = NULL;
thelist->Clear();
thelist.Nullify();
}
|
