0025748: Parallel version of progress indicator
[occt.git] / src / XSDRAWSTEP / XSDRAWSTEP.cxx
1 // Copyright (c) 1999-2014 OPEN CASCADE SAS
2 //
3 // This file is part of Open CASCADE Technology software library.
4 //
5 // This library is free software; you can redistribute it and/or modify it under
6 // the terms of the GNU Lesser General Public License version 2.1 as published
7 // by the Free Software Foundation, with special exception defined in the file
8 // OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
9 // distribution for complete text of the license and disclaimer of any warranty.
10 //
11 // Alternatively, this file may be used under the terms of Open CASCADE
12 // commercial license or contractual agreement.
13
14 //:k8 abv 6 Jan 98: using parameter "step.group" for writing assemblies/shapes
15
16 #include <DBRep.hxx>
17 #include <Draw_Appli.hxx>
18 #include <Draw_Interpretor.hxx>
19 #include <Draw_ProgressIndicator.hxx>
20 #include <IFSelect_SessionPilot.hxx>
21 #include <Interface_InterfaceModel.hxx>
22 #include <Interface_Macros.hxx>
23 #include <Interface_Static.hxx>
24 #include <Message.hxx>
25 #include <Message_Messenger.hxx>
26 #include <Message_ProgressScope.hxx>
27 #include <STEPControl_ActorWrite.hxx>
28 #include <STEPControl_Controller.hxx>
29 #include <STEPControl_Reader.hxx>
30 #include <STEPControl_StepModelType.hxx>
31 #include <STEPControl_Writer.hxx>
32 #include <StepData_StepModel.hxx>
33 #include <StepGeom_Axis2Placement3d.hxx>
34 #include <StepSelect_Activator.hxx>
35 #include <STEPSelections_AssemblyExplorer.hxx>
36 #include <STEPSelections_Counter.hxx>
37 #include <StepShape_ShapeRepresentation.hxx>
38 #include <StepToTopoDS_MakeTransformed.hxx>
39 #include <TCollection_HAsciiString.hxx>
40 #include <TColStd_HSequenceOfTransient.hxx>
41 #include <TopExp_Explorer.hxx>
42 #include <TopoDS.hxx>
43 #include <Transfer_FinderProcess.hxx>
44 #include <Transfer_TransientProcess.hxx>
45 #include <TransferBRep_ShapeMapper.hxx>
46 #include <XSControl_Controller.hxx>
47 #include <XSControl_TransferReader.hxx>
48 #include <XSControl_TransferWriter.hxx>
49 #include <XSControl_WorkSession.hxx>
50 #include <XSDRAW.hxx>
51 #include <XSDRAWSTEP.hxx>
52
53 #include <stdio.h>
54 //  Pour le transfert (write)
55 //  Pour NewModel et Write : definition de produit (temporaire ...)
56 // steptrans
57 extern "C" {
58 static void cleanpilot ()
59 {
60   XSDRAW::Session()->ClearData(1);
61 }
62 }
63
64
65 //=======================================================================
66 //function : Init
67 //purpose  : 
68 //=======================================================================
69
70 void XSDRAWSTEP::Init ()
71 {
72   Handle(StepSelect_Activator)   stepact = new StepSelect_Activator;
73   if (STEPControl_Controller::Init()) // XSDRAW::SetNorm("STEP AP-214"); trop tot
74     XSDRAW::SetController(XSControl_Controller::Recorded("STEP"));
75   
76   atexit (cleanpilot);
77 }
78
79 //  ########  COMMANDE stepread  : teste le Reader  #########
80
81 //=======================================================================
82 //function : stepread
83 //purpose  : 
84 //=======================================================================
85
86 static Standard_Integer stepread (Draw_Interpretor& di, Standard_Integer argc, const char** argv) 
87 {
88   if (argc < 3) {
89     di << "Use: stepread  [file] [f or r (type of model full or reduced)]\n";
90     return 1;
91   }
92   //  On admet le controller AP214 ou une variante
93   DeclareAndCast(STEPControl_Controller,ctl,XSDRAW::Controller());
94   if (ctl.IsNull()) XSDRAW::SetNorm("STEP");
95
96
97   // Progress indicator
98   Handle(Draw_ProgressIndicator) progress = new Draw_ProgressIndicator ( di, 1 );
99   Message_ProgressScope aPSRoot (progress->Start(), "Reading", 100);
100
101   STEPControl_Reader sr (XSDRAW::Session(),Standard_False);
102   TCollection_AsciiString fnom,rnom;
103   Standard_Boolean modfic = XSDRAW::FileAndVar
104     (argv[1],argv[2],"STEP",fnom,rnom);
105   if (modfic) di<<" File STEP to read : "<<fnom.ToCString()<<"\n";
106   else        di<<" Model taken from the session : "<<fnom.ToCString()<<"\n";
107   di<<" -- Names of variables BREP-DRAW prefixed by : "<<rnom.ToCString()<<"\n";
108   IFSelect_ReturnStatus readstat = IFSelect_RetVoid;
109
110   aPSRoot.SetName("Loading");
111   progress->Show(aPSRoot);
112
113   Standard_Boolean fromtcl = Standard_False;
114   Standard_Boolean aFullMode = Standard_False;
115   Standard_Integer k = 3;
116   if(argc > k )
117   {
118     if(argv[k][0] == 'f' || argv[3][0] == 'F')
119     {
120       aFullMode = Standard_True;
121       k++;
122     }
123     else if(argv[k][0] == 'r' || argv[3][0] == 'R')
124     {
125       aFullMode = Standard_False;
126       k++;
127     }
128     else
129       fromtcl = Standard_True;
130    
131   }
132   if(!fromtcl)
133     fromtcl = argc > k;
134   if(aFullMode)
135     std::cout<<"Full model for translation with additional info will be used \n"<<std::flush;
136   else
137     std::cout<<"Reduced model for translation without additional info will be used \n"<<std::flush;
138   
139   sr.WS()->SetModeStat(aFullMode);
140
141
142   if (modfic) readstat = sr.ReadFile (fnom.ToCString());
143   else  if (XSDRAW::Session()->NbStartingEntities() > 0) readstat = IFSelect_RetDone;
144
145   aPSRoot.Next(20); // On average loading takes 20% 
146   if (aPSRoot.UserBreak())
147     return 1;
148
149   if (readstat != IFSelect_RetDone) {
150     if (modfic) di<<"Could not read file "<<fnom.ToCString()<<" , abandon\n";
151     else di<<"No model loaded\n";
152     return 1;
153   }
154   
155   //   nom = "." -> fichier deja lu
156   Standard_Integer i, num, nbs, modepri = 1;
157   if (fromtcl) modepri = 4;
158   while (modepri) {
159     num = sr.NbRootsForTransfer();
160     if (!fromtcl) {
161       di<<"NbRootsForTransfer="<<num<<" :\n";
162       for (i = 1; i <= num; i ++) {
163         di<<"Root."<<i<<", Ent. ";
164         Standard_SStream aTmpStream;
165         sr.Model()->Print (sr.RootForTransfer(i), aTmpStream);
166         di << aTmpStream.str().c_str();
167         di<<" Type:"<<sr.RootForTransfer(i)->DynamicType()->Name()<<"\n";
168       }
169
170       std::cout<<"Mode (0 End, 1 root n0 1, 2 one root/n0, 3 one entity/n0, 4 Selection) : "<<std::flush;
171       std::cin>>modepri;
172     }
173
174     if (modepri == 0) { di<<"End Reading STEP\n"; return 0; }
175     if (modepri <= 2) {
176       num = 1;
177       if (modepri == 2) {
178         std::cout<<"Root N0 : "<<std::flush;  std::cin>>num;
179       }
180       aPSRoot.SetName("Translation");
181       progress->Show(aPSRoot);
182
183       if (!sr.TransferRoot (num, aPSRoot.Next(80)))
184         di<<"Transfer root n0 "<<num<<" : no result\n";
185       else {
186         nbs = sr.NbShapes();
187         char shname[30];  Sprintf (shname,"%s_%d",rnom.ToCString(),nbs);
188         di<<"Transfer root n0 "<<num<<" OK  -> DRAW Shape: "<<shname<<"\n";
189         di<<"Now, "<<nbs<<" Shapes produced\n";
190         TopoDS_Shape sh = sr.Shape(nbs);
191         DBRep::Set (shname,sh);
192       }
193       if (aPSRoot.UserBreak())
194         return 1;
195     }
196     else if (modepri == 3) {
197       std::cout<<"Entity : "<<std::flush;  num = XSDRAW::GetEntityNumber();
198       if (!sr.TransferOne (num))
199         di<<"Transfer entity n0 "<<num<<" : no result\n";
200       else {
201         nbs = sr.NbShapes();
202         char shname[30];  Sprintf (shname,"%s_%d",rnom.ToCString(),num);
203         di<<"Transfer entity n0 "<<num<<" OK  -> DRAW Shape: "<<shname<<"\n";
204         di<<"Now, "<<nbs<<" Shapes produced\n";
205         TopoDS_Shape sh = sr.Shape(nbs);
206         DBRep::Set (shname,sh);
207       }
208     }
209     else if (modepri == 4) {
210       //      char snm[100];  Standard_Integer answer = 1;
211       Handle(TColStd_HSequenceOfTransient)  list;
212
213       //  Selection, nommee ou via tcl. tcl : raccourcis admis
214       //   * donne xst-transferrable-roots
215       if (fromtcl) {
216         modepri = 0;    // d ioffice une seule passe
217         if (argv[k][0] == '*' && argv[k][1] == '\0') {
218           di<<"Transferrable Roots : ";
219           list = XSDRAW::GetList("xst-transferrable-roots");
220           //list = new TColStd_HSequenceOfTransient;
221           //for(Standard_Integer j=1; j<=num; j++)
222           //  list->Append(sr.RootForTransfer(j));
223         }
224         else {
225           di<<"List given by "<<argv[k];
226           if (argc > k+1) di<<" "<<argv[k+1];
227           di<<" : ";
228           list = XSDRAW::GetList (argv[k], ( argc > (k+1) ? argv[k+1] : 0 ) );
229         }
230         if (list.IsNull()) { di<<"No list defined. Give a selection name or * for all transferrable roots\n"; continue; }
231       } else {
232         std::cout<<"Name of Selection :"<<std::flush;
233         list = XSDRAW::GetList();
234         if (list.IsNull()) { di<<"No list defined\n"; continue; }
235       }
236
237       Standard_Integer ill, nbl = list->Length();
238       di<<"Nb entities selected : "<<nbl<<"\n";
239       if (nbl == 0) continue;
240
241       aPSRoot.SetName("Translation");
242       progress->Show(aPSRoot);
243
244       Message_ProgressScope aPS(aPSRoot.Next(80), "Root", nbl);
245       for (ill = 1; ill <= nbl && aPS.More(); ill++) {
246         num = sr.Model()->Number(list->Value(ill));
247         if (num == 0) continue;
248         if (!sr.TransferOne(num, aPS.Next()))
249           di<<"Transfer entity n0 "<<num<<" : no result\n";
250         else {
251           nbs = sr.NbShapes();
252           char shname[30];  Sprintf (shname,"%s_%d",rnom.ToCString(),nbs);
253           di<<"Transfer entity n0 "<<num<<" OK  -> DRAW Shape: "<<shname<<"\n";
254           di<<"Now, "<<nbs<<" Shapes produced\n";
255           TopoDS_Shape sh = sr.Shape(nbs);
256           DBRep::Set (shname,sh);
257         }
258       }
259       if (aPSRoot.UserBreak())
260         return 1;
261     }
262     else di<<"Unknown mode n0 "<<modepri<<"\n";
263   }
264   return 0;
265 }
266
267 //=======================================================================
268 //function : testreadstep
269 //purpose  : 
270 //=======================================================================
271 static Standard_Integer testread (Draw_Interpretor& di, Standard_Integer argc, const char** argv)
272 {
273   if (argc != 3)                                                                                      
274     {                                                                                             
275       di << "ERROR in " << argv[0] << "Wrong Number of Arguments.\n";                     
276       di << " Usage : " << argv[0] <<" file_name shape_name\n";                          
277       return 1;                                                                                 
278     }
279   STEPControl_Reader Reader;
280   Standard_CString filename = argv[1];
281   IFSelect_ReturnStatus readstat = Reader.ReadFile(filename);
282   di<<"Status from reading STEP file "<<filename<<" : ";  
283   switch(readstat) {                                                              
284     case IFSelect_RetVoid  : { di<<"empty file\n"; return 1; }            
285     case IFSelect_RetDone  : { di<<"file read\n";    break; }             
286     case IFSelect_RetError : { di<<"file not found\n";   return 1; }      
287     case IFSelect_RetFail  : { di<<"error during read\n";  return 1; }    
288     default  :  { di<<"failure\n";   return 1; }                          
289   }  
290   Reader.TransferRoots();
291   TopoDS_Shape shape = Reader.OneShape();
292   DBRep::Set(argv[2],shape); 
293   di<<"Count of shapes produced : "<<Reader.NbShapes()<<"\n";
294   return 0;
295 }
296  
297 //  ########  COMMANDE steptrans  : teste les transformations  #########
298 //=======================================================================
299 //function : steptrans
300 //purpose  : 
301 //=======================================================================
302
303 static Standard_Integer steptrans (Draw_Interpretor& di, Standard_Integer argc, const char** argv) 
304 {
305   if (argc < 5) { di<<"give shape-name new-shape + entity-n0 entity-n0: AXIS2\n";
306                   return 1; }
307   TopoDS_Shape shape = DBRep::Get(argv[1]);
308   if (shape.IsNull()) { di<<"Not a shape : "<<argv[1]<<"\n"; return 1; }
309   Handle(StepGeom_Axis2Placement3d) ax1,ax2;
310   Standard_Integer n1 = 0, n2 = 0;
311   n1 = XSDRAW::GetEntityNumber(argv[3]);
312   if (argc > 4) n2 = XSDRAW::GetEntityNumber(argv[4]);
313   if (n1 > 0) ax1 = Handle(StepGeom_Axis2Placement3d)::DownCast
314     (XSDRAW::Entity(n1));
315   if (n2 > 0) ax2 = Handle(StepGeom_Axis2Placement3d)::DownCast
316     (XSDRAW::Entity(n2));
317   StepToTopoDS_MakeTransformed mktrans;
318   if (mktrans.Compute (ax1,ax2)) {
319     TopLoc_Location loc (mktrans.Transformation());
320     shape.Move (loc);
321 //    mktrans.Transform (shape);
322     DBRep::Set (argv[2],shape);
323     di<<"Transformed Shape as "<<argv[2]<<"\n";
324   }
325   else di<<"No transformation computed\n";
326   return 0;
327 }
328
329 //  ########  COMMANDE stepwrite : teste le Writer  #########
330
331 //=======================================================================
332 //function : stepwrite
333 //purpose  : 
334 //=======================================================================
335
336 static Standard_Integer stepwrite (Draw_Interpretor& di, Standard_Integer argc, const char** argv) 
337 {
338 //  On admet le controller AP214 ou une variante
339   DeclareAndCast(STEPControl_Controller,ctl,XSDRAW::Controller());
340   if (ctl.IsNull()) {
341     XSDRAW::SetNorm("STEP");
342     //sln 14.01.2002 OCC51: assign new value to ctl in order to avoid exception during using one in the function
343     ctl = Handle(STEPControl_Controller)::DownCast(XSDRAW::Controller());
344   }
345
346   if (argc < 3) {
347     di<<"Give mode[1-4] and Shape name + optional file. Mode possible\n";
348     di<<"f ou 1 : FacettedBRep        s ou 2 : ShellBasedSurfaceModel\n"
349         <<"m ou 3 : ManifoldSolidBrep   w ou 4 : GeometricCurveSet/WireFrame\n";
350     return 1; }
351   char modeshape = argv[1][0];
352   STEPControl_StepModelType mode;
353   switch (modeshape) {
354     case 'a' :
355     case '0' : mode = STEPControl_AsIs;                    break;
356     case 'f' :
357     case '1' : mode = STEPControl_FacetedBrep;             break;
358     case 's' :
359     case '2' : mode = STEPControl_ShellBasedSurfaceModel;  break;
360     case 'm' :
361     case '3' : mode = STEPControl_ManifoldSolidBrep;       break;
362     case 'w' :
363     case '4' : mode = STEPControl_GeometricCurveSet;       break;
364     default :  di<<"1st arg = mode, incorrect [give fsmw]\n"; return 1;
365   }
366
367   //:k8 abv 6 Jan 98: using parameter for writing mode (assemblies/shapes)
368   Handle(STEPControl_ActorWrite) ActWrite = 
369     Handle(STEPControl_ActorWrite)::DownCast ( ctl->ActorWrite() );
370   if ( ! ActWrite.IsNull() ) 
371     ActWrite->SetGroupMode (Interface_Static::IVal("write.step.assembly"));
372
373   TopoDS_Shape shape = DBRep::Get(argv[2]);
374   STEPControl_Writer sw (XSDRAW::Session(),Standard_False);
375   Handle(Interface_InterfaceModel) stepmodel = sw.Model();
376   Standard_Integer nbavant = (stepmodel.IsNull() ? 0 : stepmodel->NbEntities());
377
378   Handle(Draw_ProgressIndicator) progress = new Draw_ProgressIndicator ( di, 1 );
379   Message_ProgressScope aPSRoot (progress->Start(), "Translating", 100);
380   progress->Show(aPSRoot);
381
382   Standard_Integer stat = sw.Transfer (shape, mode, Standard_True, aPSRoot.Next(90));
383   if (stat == IFSelect_RetDone)
384   {
385     di << "Translation: OK\n";
386   } 
387   else 
388   {
389     di << "Error: translation failed, status = " << stat << "\n";
390   }
391
392   if (aPSRoot.UserBreak())
393     return 1;
394   aPSRoot.SetName("Writing");
395   progress->Show(aPSRoot);
396
397 //   Que s est-il passe
398   stepmodel = sw.Model();
399   Standard_Integer nbapres = (stepmodel.IsNull() ? 0 : stepmodel->NbEntities());
400   if (nbavant > 0) di<<"Beware : Model not empty before transferring\n";
401   if (nbapres <= nbavant) di<<"Beware : No data produced by this transfer\n";
402   if (nbapres == 0) { di<<"No data to write\n"; return 0; }
403
404   if (argc <= 3) {
405     di<<" Now, to write a file, command : writeall filename\n";
406     return 0;
407   }
408
409   const char *nomfic = argv[3];
410   stat = sw.Write(nomfic);
411   switch (stat) {
412   case IFSelect_RetVoid : di<<"Error: No file written\n"; break;
413     case IFSelect_RetDone : di<<"File "<<nomfic<<" written\n"; break;
414     case IFSelect_RetStop : di<<"Error on writing file: no space on disk or destination is write protected\n"; break;
415     default : di<<"Error: File "<<nomfic<<" written with fail messages\n"; break;
416   }
417
418   return 0;
419 }
420 //=======================================================================
421 //function : testwritestep
422 //purpose  : 
423 //=======================================================================
424 static Standard_Integer testwrite (Draw_Interpretor& di, Standard_Integer argc, const char** argv) 
425 {
426   if (argc != 3)                                                                                      
427     {                                                                                             
428       di << "ERROR in " << argv[0] << "Wrong Number of Arguments.\n";                     
429       di << " Usage : " << argv[0] <<" file_name shape_name \n"; 
430       return 1;                                                                                 
431     }
432   STEPControl_Writer Writer;
433   Standard_CString filename = argv[1];
434   TopoDS_Shape shape = DBRep::Get(argv[2]); 
435   IFSelect_ReturnStatus stat = Writer.Transfer(shape,STEPControl_AsIs);
436   stat = Writer.Write(filename);
437   if(stat != IFSelect_RetDone){
438     di<<"Error on writing file\n";                                                               
439     return 1; 
440   }
441   di<<"File Is Written\n";
442   return 0;
443 }
444
445 //=======================================================================
446 //function : countexpected
447 //purpose  : 
448 //=======================================================================
449
450 static Standard_Integer countexpected
451   (Draw_Interpretor& di, Standard_Integer /*argc*/, const char** /*argv*/)
452 {
453   Handle(IFSelect_SessionPilot) pilot = XSDRAW::Pilot();
454   Handle(IFSelect_WorkSession) WS = pilot->Session();
455    const Interface_Graph& graph = WS->Graph();
456   
457   Handle(TColStd_HSequenceOfTransient) roots = WS->GiveList("xst-transferrable-roots", "");
458   STEPSelections_Counter cnt;
459   
460   for (Standard_Integer i =1 ; i <= roots->Length(); i++) {
461     cnt.Count(graph,roots->Value(i));
462   }
463   
464   di<< "Instances of Faces \t: "<<cnt.NbInstancesOfFaces()<<"\n";
465   di<< "Instances of Shells\t: "<<cnt.NbInstancesOfShells()<<"\n";
466   di<< "Instances of Solids\t: "<<cnt.NbInstancesOfSolids()<<"\n";
467   di<< "Instances of Wires in GS\t: "<<cnt.NbInstancesOfWires()<<"\n";
468   di<< "Instances of Edges in GS\t: "<<cnt.NbInstancesOfEdges()<<"\n";
469   
470   di<< "Source Faces \t: "<<cnt.NbSourceFaces()<<"\n";
471   di<< "Source Shells\t: "<<cnt.NbSourceShells()<<"\n";
472   di<< "Source Solids\t: "<<cnt.NbSourceSolids()<<"\n";
473   di<< "Source Wires in GS\t: "<<cnt.NbSourceWires()<<"\n";
474   di<< "Source Edges in GS\t: "<<cnt.NbSourceEdges()<<"\n";
475   
476   return 1;
477 }
478
479 static Standard_Integer dumpassembly
480   (Draw_Interpretor& /*di*/, Standard_Integer /*argc*/, const char** /*argv*/)
481 {
482   Handle(IFSelect_SessionPilot) pilot = XSDRAW::Pilot();
483   Handle(IFSelect_WorkSession) WS = pilot->Session();
484   const Interface_Graph& graph = WS->Graph();
485   
486   STEPSelections_AssemblyExplorer exp(graph);
487   exp.Dump(std::cout);
488   return 0;
489 }
490
491 static Standard_Integer stepfileunits (Draw_Interpretor& di, Standard_Integer argc, const char** argv) 
492 {
493
494   if(  argc < 2)
495   {
496     di << "Error: Invalid number of parameters. Should be: getfileunits name_file\n";
497     return 1;
498   }
499   STEPControl_Reader aStepReader;
500   
501   IFSelect_ReturnStatus readstat = IFSelect_RetVoid;
502   readstat = aStepReader.ReadFile (argv[1]);
503  
504   if (readstat != IFSelect_RetDone) {
505     
506     di<<"No model loaded\n";
507     return 1;
508   }
509
510   TColStd_SequenceOfAsciiString anUnitLengthNames;
511   TColStd_SequenceOfAsciiString anUnitAngleNames;
512   TColStd_SequenceOfAsciiString anUnitSolidAngleNames;
513   aStepReader.FileUnits( anUnitLengthNames,anUnitAngleNames,anUnitSolidAngleNames);
514                                    
515   Standard_Integer i =1;
516   di<<"=====================================================\n";
517   di<<"LENTH Unit\n";
518   for( ; i <= anUnitLengthNames.Length() ; i++)
519     di<<anUnitLengthNames(i).ToCString()<<"\n";
520   
521   di<<"=====================================================\n";
522   di<<"Angle Unit\n";
523   for( i =1 ; i <= anUnitAngleNames.Length() ; i++)
524     di<<anUnitAngleNames(i).ToCString()<<"\n";
525
526   di<<"=====================================================\n";
527   di<<"Solid Angle Unit\n";
528   for( i =1 ; i <= anUnitSolidAngleNames.Length() ; i++)
529     di<<anUnitSolidAngleNames(i).ToCString()<<"\n";
530   
531   return 0;
532 }
533 //  ########  COMMANDE stepwrite : teste le Writer  #########
534
535 void XSDRAWSTEP::InitCommands (Draw_Interpretor& theCommands)
536 {
537   const char* g = "DE: STEP";  // Step transfer file commands
538   XSDRAWSTEP::Init();
539   XSDRAW::LoadDraw(theCommands);
540   theCommands.Add("stepwrite" ,    "stepwrite mode[0-4 afsmw] shape",  __FILE__, stepwrite,     g);
541   theCommands.Add("testwritestep", "testwritestep filename.stp shape", __FILE__, testwrite,     g);
542   theCommands.Add("stepread",      "stepread  [file] [f or r (type of model full or reduced)]",__FILE__, stepread,      g);
543   theCommands.Add("testreadstep",  "testreadstep [file] [name DRAW]",  __FILE__, testread,      g);
544   theCommands.Add("steptrans",     "steptrans shape stepax1 stepax2",  __FILE__, steptrans,     g);
545   theCommands.Add("countexpected","TEST",                              __FILE__, countexpected, g);
546   theCommands.Add("dumpassembly", "TEST",                              __FILE__, dumpassembly,  g);
547   theCommands.Add("stepfileunits" , "stepfileunits name_file", __FILE__, stepfileunits,      g);
548 }