0023265: cppcheck warning: Mismatching allocation and deallocation
[occt.git] / src / TestTopOpeTools / TestTopOpeTools_TraceCommands.cxx
1 // Created on: 1994-10-24
2 // Created by: Jean Yves LEBEY
3 // Copyright (c) 1994-1999 Matra Datavision
4 // Copyright (c) 1999-2012 OPEN CASCADE SAS
5 //
6 // The content of this file is subject to the Open CASCADE Technology Public
7 // License Version 6.5 (the "License"). You may not use the content of this file
8 // except in compliance with the License. Please obtain a copy of the License
9 // at http://www.opencascade.org and read it completely before using this file.
10 //
11 // The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
12 // main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
13 //
14 // The Original Code and all software distributed under the License is
15 // distributed on an "AS IS" basis, without warranty of any kind, and the
16 // Initial Developer hereby disclaims all such warranties, including without
17 // limitation, any warranties of merchantability, fitness for a particular
18 // purpose or non-infringement. Please see the License for the specific terms
19 // and conditions governing the rights and limitations under the License.
20
21
22 #ifdef HAVE_CONFIG_H
23 # include <config.h>
24 #endif
25 #include <TestTopOpeTools.hxx>
26 #include <TestTopOpeTools_Trace.hxx>
27 #include <Draw_Interpretor.hxx>
28 #include <Draw_Appli.hxx>
29 #include <TopOpeBRepTool_define.hxx>
30
31 #ifdef HAVE_STRINGS_H
32 # include <strings.h>
33 #endif
34
35 #ifdef DEB
36 TestTopOpeTools_Trace theTrace(100,"trace");
37 TestTopOpeTools_Trace theContext(100,"context");
38
39 Standard_IMPORT void TopClass_SettraceFC(const Standard_Boolean);
40 Standard_IMPORT void TopOpeBRepTool_SettraceEND(const Standard_Boolean);
41 Standard_IMPORT void TopOpeBRepTool_SettraceKRO(const Standard_Boolean);
42 Standard_IMPORT void TopOpeBRepTool_SetcontextNOSEW(const Standard_Boolean);
43 Standard_IMPORT void TopOpeBRepDS_SetcontextNOPNC(const Standard_Boolean);
44 Standard_IMPORT void TopOpeBRepDS_SettraceEDSF(const Standard_Boolean);
45 Standard_IMPORT void TopOpeBRepDS_SettraceDSP(const Standard_Boolean);
46 Standard_IMPORT void TopOpeBRepDS_SettraceDSF(const Standard_Boolean);
47 Standard_IMPORT void TopOpeBRepDS_SettraceDSFK(const Standard_Boolean);
48 Standard_IMPORT void TopOpeBRepDS_SettraceDSNC(const Standard_Boolean);
49 Standard_IMPORT void TopOpeBRepDS_SettraceDSLT(const Standard_Boolean);
50 Standard_IMPORT void TopOpeBRepDS_SettraceDEGEN(const Standard_Boolean);
51 Standard_IMPORT void TopOpeBRepDS_SettraceDSFD(const Standard_Boolean);
52 Standard_IMPORT void TopOpeBRepDS_SettracePCI(const Standard_Boolean);
53 Standard_IMPORT void TopOpeBRepDS_SettracePEI(const Standard_Boolean);
54 Standard_IMPORT void TopOpeBRepDS_SettracePFI(const Standard_Boolean);
55 Standard_IMPORT void TopOpeBRepDS_SettracePI(const Standard_Boolean);
56 Standard_IMPORT void TopOpeBRepDS_SettraceSTRANGE(const Standard_Boolean);
57 Standard_IMPORT void TopOpeBRepDS_SettraceGAP(const Standard_Boolean);
58 Standard_IMPORT void TopOpeBRepDS_SetcontextNOGAP(const Standard_Boolean);
59 Standard_IMPORT void TopOpeBRep_SettraceFITOL(const Standard_Boolean);
60 Standard_IMPORT void TopOpeBRep_SettraceBIPS(const Standard_Boolean);
61 Standard_IMPORT void TopOpeBRep_SettraceSI(const Standard_Boolean);
62 Standard_IMPORT void TopOpeBRep_SettraceSIFF(const Standard_Boolean, Standard_Integer, char**);
63 Standard_IMPORT void TopOpeBRep_SettraceSAVFF(const Standard_Boolean);
64 Standard_IMPORT Standard_Integer TopOpeBRep_SettraceNVP(const Standard_Boolean, Standard_Integer, char**);
65 Standard_IMPORT Standard_Integer TopOpeBRep_SettraceEEFF(const Standard_Boolean, Standard_Integer, char**);
66 Standard_IMPORT Standard_Integer TopOpeBRep_SettraceSHA(const Standard_Boolean, Standard_Integer, char**);
67 Standard_IMPORT void TopOpeBRep_SetcontextREST1(const Standard_Boolean);
68 Standard_IMPORT void TopOpeBRep_SetcontextREST2(const Standard_Boolean);
69 Standard_IMPORT void TopOpeBRep_SetcontextINL(const Standard_Boolean);
70 Standard_IMPORT void TopOpeBRep_SetcontextNEWKP(const Standard_Boolean);
71 Standard_IMPORT void TopOpeBRep_SetcontextTOL0(const Standard_Boolean);
72 Standard_IMPORT void TopOpeBRep_SetcontextNONOG(const Standard_Boolean);
73 Standard_IMPORT void TopOpeBRepBuild_SettraceCHK(const Standard_Boolean);
74 Standard_IMPORT void TopOpeBRepBuild_SettraceCHKOK(const Standard_Boolean);
75 Standard_IMPORT void TopOpeBRepBuild_SettraceCHKNOK(const Standard_Boolean);
76 Standard_IMPORT void TopOpeBRepBuild_SettraceCU(const Standard_Boolean);
77 Standard_IMPORT void TopOpeBRepBuild_SettraceCUV(const Standard_Boolean);
78 Standard_IMPORT void TopOpeBRepDS_SettraceSPSX(const Standard_Boolean, Standard_Integer, char**);
79 Standard_IMPORT void TopOpeBRepDS_SettraceCX(const Standard_Boolean, Standard_Integer, char**);
80 Standard_IMPORT void TopOpeBRepDS_SettraceSPSXX(const Standard_Boolean, Standard_Integer, char**);
81 Standard_IMPORT void TopOpeBRepBuild_SettraceSPF(const Standard_Boolean);
82 Standard_IMPORT void TopOpeBRepBuild_SettraceSPS(const Standard_Boolean);
83 Standard_IMPORT void TopOpeBRepBuild_SettraceSHEX(const Standard_Boolean);
84 Standard_IMPORT void TopOpeBRepBuild_SettraceSS(const Standard_Boolean);
85 Standard_IMPORT void TopOpeBRepBuild_SettraceAREA(const Standard_Boolean);
86 Standard_IMPORT void TopOpeBRepBuild_SettraceKPB(const Standard_Boolean);
87 Standard_IMPORT void TopOpeBRepBuild_SettracePURGE(const Standard_Boolean);
88 Standard_IMPORT void TopOpeBRepBuild_SettraceSAVFREGU(const Standard_Boolean);
89 Standard_IMPORT void TopOpeBRepBuild_SettraceSAVSREGU(const Standard_Boolean);
90 Standard_IMPORT void TopOpeBRepBuild_SetcontextNOSG(const Standard_Boolean);
91 Standard_IMPORT void TopOpeBRepBuild_SettraceFE(const Standard_Boolean);
92 Standard_IMPORT void TopOpeBRepBuild_SetcontextSSCONNEX(const Standard_Boolean);
93 Standard_IMPORT void TopOpeBRepBuild_SetcontextSF2(const Standard_Boolean);
94 Standard_IMPORT void TopOpeBRepBuild_SetcontextSPEON(const Standard_Boolean);
95 Standard_IMPORT void TopOpeBRepBuild_SetcontextNOPURGE(const Standard_Boolean);
96 Standard_IMPORT void TopOpeBRepBuild_SetcontextNOREGUFA(const Standard_Boolean);
97 Standard_IMPORT void TopOpeBRepBuild_SetcontextNOREGUSO(const Standard_Boolean);
98 Standard_IMPORT void TopOpeBRepBuild_SetcontextREGUXPU(const Standard_Boolean);
99 Standard_IMPORT void TopOpeBRepBuild_SetcontextNOCORRISO(const Standard_Boolean);
100 Standard_IMPORT void TopOpeBRepBuild_SetcontextNOFUFA(const Standard_Boolean);
101 Standard_IMPORT void TopOpeBRepBuild_SetcontextNOFE(const Standard_Boolean);
102 Standard_IMPORT void TopOpeBRepBuild_SetcontextEINTERNAL(const Standard_Boolean);
103 Standard_IMPORT void TopOpeBRepBuild_SetcontextEEXTERNAL(const Standard_Boolean);
104 Standard_IMPORT void TopOpeBRepTool_SettraceNYI(const Standard_Boolean);
105 Standard_IMPORT void TopOpeBRepTool_SettraceVC(const Standard_Boolean);
106 Standard_IMPORT void TopOpeBRepTool_SettracePCURV(const Standard_Boolean);
107 Standard_IMPORT void TopOpeBRepTool_SettraceBOXPERSO(const Standard_Boolean);
108 Standard_IMPORT void TopOpeBRepTool_SettraceBOX(const Standard_Boolean);
109 Standard_IMPORT void TopOpeBRepTool_SettraceCLOV(const Standard_Boolean);
110 Standard_IMPORT void TopOpeBRepTool_SettraceCHKBSPL(const Standard_Boolean);
111 Standard_IMPORT void TopOpeBRepTool_SettraceREGUFA(const Standard_Boolean);
112 Standard_IMPORT void TopOpeBRepTool_SettraceREGUSO(const Standard_Boolean);
113 Standard_IMPORT void TopOpeBRepTool_SettraceC2D(const Standard_Boolean);
114 Standard_IMPORT void TopOpeBRepTool_SettraceCORRISO(const Standard_Boolean);
115 Standard_IMPORT void TopOpeBRep_SettraceCONIC(const Standard_Boolean);
116 Standard_IMPORT void TopOpeBRep_SettracePROEDG(const Standard_Boolean);
117 Standard_IMPORT void TopOpeBRep_SetcontextNOPROEDG(const Standard_Boolean);
118 Standard_IMPORT void TopOpeBRep_SetcontextFFOR(const Standard_Boolean);
119 Standard_IMPORT void TopOpeBRep_SetcontextNOPUNK(const Standard_Boolean);
120 Standard_IMPORT void TopOpeBRep_SetcontextNOFEI(const Standard_Boolean);
121 Standard_IMPORT void TopOpeBRepTool_SettraceCL2DDR(const Standard_Boolean, Standard_Integer, char**);
122 Standard_IMPORT void TopOpeBRepTool_SettraceCL2DPR(const Standard_Boolean, Standard_Integer, char**);
123 Standard_IMPORT void TopOpeBRepTool_SettraceCL3DDR(const Standard_Boolean, Standard_Integer, char**);
124 Standard_IMPORT void TopOpeBRepTool_SettraceCL3DPR(const Standard_Boolean, Standard_Integer, char**);
125 Standard_IMPORT void TopOpeBRepDS_SettraceBUTO(const Standard_Boolean);
126 Standard_IMPORT void TopOpeBRepDS_SettraceTRPE(const Standard_Boolean);
127 Standard_IMPORT void TopOpeBRepDS_SettraceEDPR(const Standard_Boolean);
128 Standard_IMPORT void TopOpeBRepDS_SettraceISTO(const Standard_Boolean);
129 Standard_IMPORT void TopOpeBRepDS_SettraceSANTRAN(const Standard_Boolean);
130 Standard_IMPORT void TopOpeBRepDS_SetcontextNOPFI(const Standard_Boolean);
131 Standard_IMPORT void TopOpeBRepDS_SetcontextMKTONREG(const Standard_Boolean);
132 #endif
133
134 #ifdef DEB
135 //----------------------------------------------------------------------------
136 static Standard_Integer InitTraceTopOpeKernel (TestTopOpeTools_Trace& T)
137 //----------------------------------------------------------------------------
138 {
139   if (T.Add("tfc",(tf_value)TopClass_SettraceFC)) return 1;
140   if (T.Add("tend",(tf_value)TopOpeBRepTool_SettraceEND)) return 1;
141   if (T.Add("tkro",(tf_value)TopOpeBRepTool_SettraceKRO)) return 1;
142   if (T.Add("tdsfk",(tf_value)TopOpeBRepDS_SettraceDSFK)) return 1;
143   if (T.Add("tedsf",(tf_value)TopOpeBRepDS_SettraceEDSF)) return 1;
144   if (T.Add("tdsp",(tf_value)TopOpeBRepDS_SettraceDSP)) return 1;
145   if (T.Add("tdsf",(tf_value)TopOpeBRepDS_SettraceDSF)) return 1;
146   if (T.Add("tdsnc",(tf_value)TopOpeBRepDS_SettraceDSNC)) return 1;
147   if (T.Add("tdegen",(tf_value)TopOpeBRepDS_SettraceDEGEN)) return 1;
148   if (T.Add("tdslt",(tf_value)TopOpeBRepDS_SettraceDSLT)) return 1;
149   if (T.Add("tdsfd",(tf_value)TopOpeBRepDS_SettraceDSFD)) return 1;
150   if (T.Add("tpci",(tf_value)TopOpeBRepDS_SettracePCI)) return 1;
151   if (T.Add("tpei",(tf_value)TopOpeBRepDS_SettracePEI)) return 1;
152   if (T.Add("tpfi",(tf_value)TopOpeBRepDS_SettracePFI)) return 1;
153   if (T.Add("tpi",(tf_value)TopOpeBRepDS_SettracePI)) return 1;
154   if (T.Add("tstrange",(tf_value)TopOpeBRepDS_SettraceSTRANGE)) return 1;
155   if (T.Add("tgap",(tf_value)TopOpeBRepDS_SettraceGAP)) return 1;
156   if (T.Add("tfitol",(tf_value)TopOpeBRep_SettraceFITOL)) return 1;
157   if (T.Add("tbips",(tf_value)TopOpeBRep_SettraceBIPS)) return 1;
158   if (T.Add("tsi",(tf_value)TopOpeBRep_SettraceSI)) return 1;
159   if (T.Add("tsiff",(tf_intarg)TopOpeBRep_SettraceSIFF)) return 1; // tsiff 0|[1 s1 s2 name]
160   if (T.Add("tsavff",(tf_value)TopOpeBRep_SettraceSAVFF)) return 1;
161   if (T.Add("tnvp",(tf_int_intarg)TopOpeBRep_SettraceNVP)) return 1; // tnvp 0|1 if1 if2 ili ivp isi
162   if (T.Add("teeff",(tf_int_intarg)TopOpeBRep_SettraceEEFF)) return 1; // teeff 0|1 ie1 ie2 if1 if2
163   if (T.Add("tsha",(tf_int_intarg)TopOpeBRep_SettraceSHA)) return 1; // tsha 0|1 isha
164   if (T.Add("tchk",(tf_value)TopOpeBRepBuild_SettraceCHK)) return 1;  
165   if (T.Add("tok",(tf_value)TopOpeBRepBuild_SettraceCHKOK)) return 1;
166   if (T.Add("tnok",(tf_value)TopOpeBRepBuild_SettraceCHKNOK)) return 1;
167   if (T.Add("tcu",(tf_value)TopOpeBRepBuild_SettraceCU)) return 1;
168   if (T.Add("tcuv",(tf_value)TopOpeBRepBuild_SettraceCUV)) return 1;
169   if (T.Add("tcx",(tf_intarg)TopOpeBRepDS_SettraceCX)) return 1; // tcx 0|1 [i1 ...]
170   if (T.Add("tspsx",(tf_intarg)TopOpeBRepDS_SettraceSPSX)) return 1; // tspsx 0|1 [i1 ...]
171   if (T.Add("tspsxx",(tf_intarg)TopOpeBRepDS_SettraceSPSXX)) return 1; // tspsxx 0|1 [i1 i2]
172   if (T.Add("tspf",(tf_value)TopOpeBRepBuild_SettraceSPF)) return 1; // splitface
173   if (T.Add("tsps",(tf_value)TopOpeBRepBuild_SettraceSPS)) return 1; // splitsolid
174   if (T.Add("tshex",(tf_value)TopOpeBRepBuild_SettraceSHEX)) return 1;
175   if (T.Add("tss",(tf_value)TopOpeBRepBuild_SettraceSS)) return 1;
176   if (T.Add("tarea",(tf_value)TopOpeBRepBuild_SettraceAREA)) return 1;
177   if (T.Add("tkpb",(tf_value)TopOpeBRepBuild_SettraceKPB)) return 1;
178   if (T.Add("tpurge",(tf_value)TopOpeBRepBuild_SettracePURGE)) return 1;
179   if (T.Add("tsavfregu",(tf_value)TopOpeBRepBuild_SettraceSAVFREGU)) return 1;
180   if (T.Add("tsavsregu",(tf_value)TopOpeBRepBuild_SettraceSAVSREGU)) return 1;
181   if (T.Add("tfe",(tf_value)TopOpeBRepBuild_SettraceFE)) return 1;
182   if (T.Add("tnyi",(tf_value)TopOpeBRepTool_SettraceNYI)) return 1;
183   if (T.Add("tvc",(tf_value)TopOpeBRepTool_SettraceVC)) return 1;
184   if (T.Add("tpcurv",(tf_value)TopOpeBRepTool_SettracePCURV)) return 1;
185   if (T.Add("tbp",(tf_value)TopOpeBRepTool_SettraceBOXPERSO)) return 1;
186   if (T.Add("tbox",(tf_value)TopOpeBRepTool_SettraceBOX)) return 1;
187   if (T.Add("tclov",(tf_value)TopOpeBRepTool_SettraceCLOV)) return 1;
188   if (T.Add("tchkbspl",(tf_value)TopOpeBRepTool_SettraceCHKBSPL)) return 1;
189   if (T.Add("tregufa",(tf_value)TopOpeBRepTool_SettraceREGUFA)) return 1;
190   if (T.Add("treguso",(tf_value)TopOpeBRepTool_SettraceREGUSO)) return 1;
191   if (T.Add("tc2d",(tf_value)TopOpeBRepTool_SettraceC2D)) return 1;
192   if (T.Add("tcorriso",(tf_value)TopOpeBRepTool_SettraceCORRISO)) return 1;
193   if (T.Add("tcl2ddr",(tf_intarg)TopOpeBRepTool_SettraceCL2DDR)) return 1;
194   if (T.Add("tcl2dpr",(tf_intarg)TopOpeBRepTool_SettraceCL2DPR)) return 1;
195   if (T.Add("tcl3ddr",(tf_intarg)TopOpeBRepTool_SettraceCL3DDR)) return 1;
196   if (T.Add("tcl3dpr",(tf_intarg)TopOpeBRepTool_SettraceCL3DPR)) return 1;
197   if (T.Add("tbuto",(tf_value)TopOpeBRepDS_SettraceBUTO)) return 1;
198   if (T.Add("ttrpe",(tf_value)TopOpeBRepDS_SettraceTRPE)) return 1;
199   if (T.Add("tedpr",(tf_value)TopOpeBRepDS_SettraceEDPR)) return 1;
200   if (T.Add("tisto",(tf_value)TopOpeBRepDS_SettraceISTO)) return 1;
201   if (T.Add("tproedg",(tf_value)TopOpeBRep_SettracePROEDG)) return 1;
202   if (T.Add("tconic",(tf_value)TopOpeBRep_SettraceCONIC)) return 1;
203   return 0;
204 }
205 #endif
206
207 //----------------------------------------------------------------------------
208 Standard_Integer InitContextTopOpeKernel (TestTopOpeTools_Trace& T)
209 //----------------------------------------------------------------------------
210 {
211 #ifdef DEB
212   if (T.Add("nosew",(tf_value)TopOpeBRepTool_SetcontextNOSEW)) return 1;
213   if (T.Add("nopnc",(tf_value)TopOpeBRepDS_SetcontextNOPNC)) return 1;
214   if (T.Add("nosg",(tf_value)TopOpeBRepBuild_SetcontextNOSG)) return 1;
215   if (T.Add("ssconnex",(tf_value)TopOpeBRepBuild_SetcontextSSCONNEX)) return 1;
216   if (T.Add("sf2",(tf_value)TopOpeBRepBuild_SetcontextSF2)) return 1;
217   if (T.Add("speon",(tf_value)TopOpeBRepBuild_SetcontextSPEON)) return 1;
218   if (T.Add("nopurge",(tf_value)TopOpeBRepBuild_SetcontextNOPURGE)) return 1;
219   if (T.Add("noregufa",(tf_value)TopOpeBRepBuild_SetcontextNOREGUFA)) return 1;
220   if (T.Add("noreguso",(tf_value)TopOpeBRepBuild_SetcontextNOREGUSO)) return 1;
221   if (T.Add("reguxpu",(tf_value)TopOpeBRepBuild_SetcontextREGUXPU)) return 1;
222   if (T.Add("nocorriso",(tf_value)TopOpeBRepBuild_SetcontextNOCORRISO)) return 1;
223   if (T.Add("nofe",(tf_value)TopOpeBRepBuild_SetcontextNOFE)) return 1;
224   if (T.Add("nofufa",(tf_value)TopOpeBRepBuild_SetcontextNOFUFA)) return 1;
225   if (T.Add("einternal",(tf_value)TopOpeBRepBuild_SetcontextEINTERNAL)) return 1;
226   if (T.Add("eexternal",(tf_value)TopOpeBRepBuild_SetcontextEEXTERNAL)) return 1;
227   if (T.Add("santran",(tf_value)TopOpeBRepDS_SettraceSANTRAN)) return 1;
228   if (T.Add("noproedg",(tf_value)TopOpeBRep_SetcontextNOPROEDG)) return 1;
229   if (T.Add("rest1",(tf_value)TopOpeBRep_SetcontextREST1)) return 1;
230   if (T.Add("rest2",(tf_value)TopOpeBRep_SetcontextREST2)) return 1;
231   if (T.Add("inl",(tf_value)TopOpeBRep_SetcontextINL)) return 1;
232   if (T.Add("newkp",(tf_value)TopOpeBRep_SetcontextNEWKP)) return 1;
233   if (T.Add("tol0",(tf_value)TopOpeBRep_SetcontextTOL0)) return 1;
234   if (T.Add("nonog",(tf_value)TopOpeBRep_SetcontextNONOG)) return 1;
235   if (T.Add("ffor",(tf_value)TopOpeBRep_SetcontextFFOR)) return 1;
236   if (T.Add("nopunk",(tf_value)TopOpeBRep_SetcontextNOPUNK)) return 1;
237   if (T.Add("nofei",(tf_value)TopOpeBRep_SetcontextNOFEI)) return 1;
238   if (T.Add("nopfi",(tf_value)TopOpeBRepDS_SetcontextNOPFI)) return 1;
239   if (T.Add("mktonreg",(tf_value)TopOpeBRepDS_SetcontextMKTONREG)) return 1;
240   if (T.Add("nogap",(tf_value)TopOpeBRepDS_SetcontextNOGAP)) return 1;
241 #endif
242   return 0;
243 }
244
245 Standard_EXPORT Standard_Integer TestTopOpeTools_SetFlags
246 (TestTopOpeTools_Trace& theFlags, Standard_Integer mute, Standard_Integer n , const char** a) 
247 {
248   if (n == 1) { 
249     theFlags.Dump();
250     return 0;
251   }
252   if (n < 2) {
253     return 1;
254   }
255   const char* flag = a[1];
256   t_value value; // new value of flag
257   if (n == 2) value = Standard_True;
258   else value = (atoi(a[2]) ? Standard_True : Standard_False);
259
260   if (mute == 0) {
261     if ( n == 2 ) {
262       if      (!strcasecmp(a[1],"0")) {
263         theFlags.Reset(Standard_False);
264         cout<<theFlags.Genre()<<"s desactivated"<<endl;
265         return 0;
266       }
267       else if (!strcasecmp(a[1],"1")) {
268         theFlags.Reset(Standard_True);
269         cout<<theFlags.Genre()<<"s activated"<<endl;
270         return 0;
271       }
272     }
273   }
274
275   Standard_Integer res = 1;
276   if (res) res=theFlags.Set(mute,flag,value,(n>3)?(n-3):0,(n>3)?&a[3]:NULL);
277   if (res) res=theFlags.Set(mute,flag,value);
278   return res;
279 }
280
281 //=========================================================================
282 // a1 = flag (for example tbs) <a2> = value, if omitted flag becomes True
283 //=========================================================================
284
285 Standard_Integer TestTopOpeTools_SetTrace(Draw_Interpretor&, Standard_Integer n , const char** a) 
286 {
287   Standard_Integer ok = Standard_True;
288 #ifdef DEB
289   InitTraceTopOpeKernel(theTrace);
290   Standard_Integer mute = 0; if (!strcasecmp(a[0],"trcmute")) mute = 1;
291   ok = TestTopOpeTools_SetFlags(theTrace,mute,n,a);
292 #endif
293   return ok;
294 }
295
296 //=========================================================================
297 // a1 = flag (for example tbs) <a2> = value, if omitted flag becomes True
298 //=========================================================================
299
300 Standard_Integer TestTopOpeTools_SetContext(Draw_Interpretor&, Standard_Integer n , const char** a) 
301 {
302   Standard_Integer ok = Standard_True;
303 #ifdef DEB
304   InitContextTopOpeKernel(theContext);
305   Standard_Integer mute = 0; if (!strcasecmp(a[0],"ctxmute")) mute = 1;
306   ok = TestTopOpeTools_SetFlags(theContext,mute,n,a);
307 #endif
308   return ok;
309 }
310
311 Standard_Integer dstrace(Draw_Interpretor& di, Standard_Integer n , const char** a) {
312   const char ** pa = NULL; TCollection_AsciiString a1;
313   if      (!strcasecmp(a[0],"tsx")) a1 = "tspsx";
314   else if (!strcasecmp(a[0],"tcx")) a1 = "tcx";
315   else return 0;
316   TCollection_AsciiString a0("trc");
317   Standard_Integer npa = n+1;pa = (const char**) malloc((size_t)((npa)*sizeof(char*)));
318   pa[0] = (char *)a0.ToCString();
319   pa[1] = (char *)a1.ToCString();
320   for (Standard_Integer i=1;i<n;i++) pa[i+1] = a[i];
321   TestTopOpeTools_SetTrace(di,npa,pa);
322   if (pa) free(pa);
323   return 0;
324 }
325
326 //=======================================================================
327 //function : TraceCommands
328 //purpose  : 
329 //=======================================================================
330
331 void  TestTopOpeTools::TraceCommands(Draw_Interpretor& theCommands)
332 {
333   static Standard_Boolean done = Standard_False;
334   if (done) return;
335   done = Standard_True;
336
337   const char* g = "trace commands";
338   
339   theCommands.Add("tsx","tsx 0|1 [{shape index}]",__FILE__,dstrace,g);
340   theCommands.Add("tsxx","tsxx 0|1 is1 is2",__FILE__,dstrace,g);
341   theCommands.Add("tcx","tcx 0|1 [{curve index}]",__FILE__,dstrace,g);
342
343   theCommands.Add("trc","Trace <flag> <value>",__FILE__,TestTopOpeTools_SetTrace,g);
344   theCommands.Add("trcmute","Trace <flag> <value>",__FILE__,TestTopOpeTools_SetTrace,g);
345   theCommands.Add("ctx","Context <flag> <value>",__FILE__,TestTopOpeTools_SetContext,g);
346   theCommands.Add("ctxmute","Context <flag> <value>",__FILE__,TestTopOpeTools_SetContext,g);
347 }