[occt.git] / src / DNaming / DNaming_ToolsCommands.cxx

// Created on: 1999-06-24
// Created by: Sergey ZARITCHNY
// Copyright (c) 1999-1999 Matra Datavision
// Copyright (c) 1999-2014 OPEN CASCADE SAS
//
// This file is part of Open CASCADE Technology software library.
//
// This library is free software; you can redistribute it and/or modify it under
// the terms of the GNU Lesser General Public License version 2.1 as published
// by the Free Software Foundation, with special exception defined in the file
// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
// distribution for complete text of the license and disclaimer of any warranty.
//
// Alternatively, this file may be used under the terms of Open CASCADE
// commercial license or contractual agreement.

#include <Draw_Interpretor.hxx>
#include <Draw.hxx>
#include <DBRep.hxx>
#include <DNaming.hxx>
#include <BRepTools.hxx>
#include <TopoDS_Face.hxx>
#include <TopLoc_Location.hxx>
#include <BRep_Builder.hxx>
#include <gp_Pnt.hxx>
#include <TopExp_Explorer.hxx>
#include <TCollection_AsciiString.hxx>
#include <TopAbs.hxx>
#include <TNaming_CopyShape.hxx>
#include <TNaming_Translator.hxx>
#include <TopTools_DataMapIteratorOfDataMapOfShapeShape.hxx>
#include <DNaming_DataMapOfShapeOfName.hxx>
#include <DNaming_DataMapIteratorOfDataMapOfShapeOfName.hxx>
#include <TopTools_MapOfShape.hxx>
#include <TopTools_MapIteratorOfMapOfShape.hxx>
//=======================================================================
//function : DNaming_CheckHasSame 
//purpose  : CheckIsSame  Shape1 Shape2 
//           - for test ShapeCopy mechanism
//=======================================================================

static Standard_Integer DNaming_CheckHasSame (Draw_Interpretor& di,
					      Standard_Integer nb, 
					      const char** arg)
{
  if(nb < 4) return 1;
  TopoDS_Shape S1 = DBRep::Get(arg[1]);
  if ( S1.IsNull() ) {
    BRep_Builder aBuilder;
    BRepTools::Read( S1, arg[1], aBuilder);
    }
  
  TopoDS_Shape S2 = DBRep::Get(arg[2]);
  if ( S2.IsNull() ) {
    BRep_Builder aBuilder;
    BRepTools::Read( S2, arg[2], aBuilder);
    }
  char M[8];
  strcpy(M, arg[3]);
  strtok(M, " \t");
  TopAbs_ShapeEnum mod = TopAbs_FACE;
  if(M[0] == 'F' || M[0] == 'f')
    mod = TopAbs_FACE;
  else if(M[0] == 'E' || M[0] == 'e')
    mod = TopAbs_EDGE;
  else if(M[0] == 'V' || M[0] == 'v')
    mod = TopAbs_VERTEX;
  else 
    return 1;

  TopExp_Explorer Exp1, Exp2;

  TopTools_MapOfShape M1, M2;
  for(Exp1.Init(S1, mod);Exp1.More();Exp1.Next()) {
    M1.Add(Exp1.Current());
  }
  for(Exp2.Init(S2, mod);Exp2.More();Exp2.Next()) {
    M2.Add(Exp2.Current());
  }

  TopTools_MapIteratorOfMapOfShape itr1(M1);
  TopTools_MapIteratorOfMapOfShape itr2;
  for(;itr1.More();itr1.Next()) {
    const TopoDS_Shape& s1 = itr1.Key();
    
    for(itr2.Initialize(M2);itr2.More();itr2.Next()) {
      const TopoDS_Shape& s2 = itr2.Key();
      if(s1.IsSame(s2))
	di << "Shapes " << arg[1]<< " and "<< arg[2]<< " have SAME subshapes\n";
    }
  }

  return 0;
}           
//=======================================================================
//function : DNaming_TCopyShape
//purpose  : CopyShape  Shape1 [Shape2 ...] 
//           - for test ShapeCopy mechanism
//=======================================================================

static Standard_Integer DNaming_TCopyShape (Draw_Interpretor& di,
					      Standard_Integer nb, 
					      const char** arg)
{
  TNaming_Translator TR;
  if(nb < 2) return (1);

  DNaming_DataMapOfShapeOfName aDMapOfShapeOfName;
  for(Standard_Integer i= 1;i < nb; i++) {
    TopoDS_Shape S = DBRep::Get(arg[i]);
    TCollection_AsciiString name(arg[i]);
    name.AssignCat("_c");
    if ( S.IsNull() ) {
      BRep_Builder aBuilder;
      BRepTools::Read( S, arg[i], aBuilder);
    }
    
// Add to Map                
    if(S.IsNull()) return(1);
    else {
      aDMapOfShapeOfName.Bind(S, name);
      TR.Add(S);
    }
  } // for ...

// PERFORM 
  TR.Perform();

  if(TR.IsDone()){
    di << "DNaming_CopyShape:: Copy is Done \n";

    DNaming_DataMapIteratorOfDataMapOfShapeOfName itrn(aDMapOfShapeOfName);
    for(;itrn.More();itrn.Next()) {
      TCollection_AsciiString name = itrn.Value();
      const TopoDS_Shape Result = TR.Copied(itrn.Key());
      DBRep::Set(name.ToCString(), Result);
      di.AppendElement(name.ToCString());
    }
    return 0;
  }
  di << "DNaming_CopyShape : Error\n";
  return 1;
}

//=======================================================================
//function : DNaming_TCopyTool
//purpose  : CopyTool  Shape1 [Shape2 ...] 
//           - for test TNaming_CopyShape::CopyTool mechanism
//=======================================================================

static Standard_Integer DNaming_TCopyTool (Draw_Interpretor& di,
					   Standard_Integer nb, 
					   const char** arg)
{
  if (nb < 2) {
    di << "Usage: CopyTool Shape1 [Shape2] ...\n";
    return 1;
  }

  Standard_Integer                           i;
  TCollection_AsciiString                    aCopyNames;
  BRep_Builder                               aBuilder;
  TColStd_IndexedDataMapOfTransientTransient aMap;
  TopoDS_Shape                               aResult;

  for (i = 1; i < nb; i++) {
    TopoDS_Shape aShape = DBRep::Get(arg[i]);

    if (aShape.IsNull()) {
      BRepTools::Read(aShape, arg[i], aBuilder);
    }

    if (aShape.IsNull()) {
      di << arg[i] << " is neither a shape nor a BREP file. Skip it.\n";
      continue;
    }

    // Perform copying.
    TNaming_CopyShape::CopyTool(aShape, aMap, aResult);

    // Draw result.
    TCollection_AsciiString aName(arg[i]);

    aName.AssignCat("_c");
    DBRep::Set(aName.ToCString(), aResult);

    // Compose all names of copies.
    if (!aCopyNames.IsEmpty()) {
      aCopyNames.AssignCat(" ");
    }

    aCopyNames.AssignCat(aName);
  }

  di << aCopyNames.ToCString() << "\n";

  return 0;
}

//=======================================================================
//function : ToolsCommands
//purpose  : 
//=======================================================================

void DNaming::ToolsCommands (Draw_Interpretor& theCommands)
{  

  static Standard_Boolean done = Standard_False;
  if (done) return;
  done = Standard_True;
  const char* g = "Naming data commands " ;

  theCommands.Add ("CopyShape", 
                   "CopyShape (Shape1 [Shape2] ...)",
		   __FILE__, DNaming_TCopyShape, g); 

  theCommands.Add ("CopyTool", 
                   "CopyTool Shape1 [Shape2] ...",
		   __FILE__, DNaming_TCopyTool, g); 

  theCommands.Add ("CheckSame", 
                   "CheckSame (Shape1 Shape2 ExploMode[F|E|V])",
		   __FILE__, DNaming_CheckHasSame, g); 
 
}
Commit	Line	Data
b311480e	1	// Created on: 1999-06-24
	2	// Created by: Sergey ZARITCHNY
	3	// Copyright (c) 1999-1999 Matra Datavision
973c2be1	4	// Copyright (c) 1999-2014 OPEN CASCADE SAS
b311480e	5	//
973c2be1	6	// This file is part of Open CASCADE Technology software library.
b311480e	7	//
d5f74e42	8	// This library is free software; you can redistribute it and/or modify it under
d5f74e42	9	// the terms of the GNU Lesser General Public License version 2.1 as published
973c2be1	10	// by the Free Software Foundation, with special exception defined in the file
	11	// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
	12	// distribution for complete text of the license and disclaimer of any warranty.
b311480e	13	//
973c2be1	14	// Alternatively, this file may be used under the terms of Open CASCADE
973c2be1	15	// commercial license or contractual agreement.
7fd59977	16
	17	#include <Draw_Interpretor.hxx>
	18	#include <Draw.hxx>
	19	#include <DBRep.hxx>
	20	#include <DNaming.hxx>
	21	#include <BRepTools.hxx>
	22	#include <TopoDS_Face.hxx>
	23	#include <TopLoc_Location.hxx>
	24	#include <BRep_Builder.hxx>
	25	#include <gp_Pnt.hxx>
	26	#include <TopExp_Explorer.hxx>
	27	#include <TCollection_AsciiString.hxx>
	28	#include <TopAbs.hxx>
659b232a	29	#include <TNaming_CopyShape.hxx>
7fd59977	30	#include <TNaming_Translator.hxx>
	31	#include <TopTools_DataMapIteratorOfDataMapOfShapeShape.hxx>
	32	#include <DNaming_DataMapOfShapeOfName.hxx>
	33	#include <DNaming_DataMapIteratorOfDataMapOfShapeOfName.hxx>
	34	#include <TopTools_MapOfShape.hxx>
	35	#include <TopTools_MapIteratorOfMapOfShape.hxx>
	36	//=======================================================================
	37	//function : DNaming_CheckHasSame
	38	//purpose : CheckIsSame Shape1 Shape2
	39	// - for test ShapeCopy mechanism
	40	//=======================================================================
	41
	42	static Standard_Integer DNaming_CheckHasSame (Draw_Interpretor& di,
	43	Standard_Integer nb,
	44	const char** arg)
	45	{
	46	if(nb < 4) return 1;
	47	TopoDS_Shape S1 = DBRep::Get(arg[1]);
	48	if ( S1.IsNull() ) {
	49	BRep_Builder aBuilder;
	50	BRepTools::Read( S1, arg[1], aBuilder);
	51	}
	52
	53	TopoDS_Shape S2 = DBRep::Get(arg[2]);
	54	if ( S2.IsNull() ) {
	55	BRep_Builder aBuilder;
	56	BRepTools::Read( S2, arg[2], aBuilder);
	57	}
	58	char M[8];
	59	strcpy(M, arg[3]);
	60	strtok(M, " \t");
	61	TopAbs_ShapeEnum mod = TopAbs_FACE;
	62	if(M[0] == 'F' \|\| M[0] == 'f')
	63	mod = TopAbs_FACE;
	64	else if(M[0] == 'E' \|\| M[0] == 'e')
	65	mod = TopAbs_EDGE;
	66	else if(M[0] == 'V' \|\| M[0] == 'v')
	67	mod = TopAbs_VERTEX;
	68	else
	69	return 1;
	70
	71	TopExp_Explorer Exp1, Exp2;
	72
	73	TopTools_MapOfShape M1, M2;
	74	for(Exp1.Init(S1, mod);Exp1.More();Exp1.Next()) {
	75	M1.Add(Exp1.Current());
	76	}
	77	for(Exp2.Init(S2, mod);Exp2.More();Exp2.Next()) {
	78	M2.Add(Exp2.Current());
	79	}
	80
	81	TopTools_MapIteratorOfMapOfShape itr1(M1);
	82	TopTools_MapIteratorOfMapOfShape itr2;
	83	for(;itr1.More();itr1.Next()) {
	84	const TopoDS_Shape& s1 = itr1.Key();
	85
	86	for(itr2.Initialize(M2);itr2.More();itr2.Next()) {
	87	const TopoDS_Shape& s2 = itr2.Key();
	88	if(s1.IsSame(s2))
586db386	89	di << "Shapes " << arg[1]<< " and "<< arg[2]<< " have SAME subshapes\n";
7fd59977	90	}
	91	}
	92
	93	return 0;
	94	}
	95	//=======================================================================
	96	//function : DNaming_TCopyShape
	97	//purpose : CopyShape Shape1 [Shape2 ...]
	98	// - for test ShapeCopy mechanism
	99	//=======================================================================
	100
	101	static Standard_Integer DNaming_TCopyShape (Draw_Interpretor& di,
	102	Standard_Integer nb,
	103	const char** arg)
	104	{
	105	TNaming_Translator TR;
	106	if(nb < 2) return (1);
	107
	108	DNaming_DataMapOfShapeOfName aDMapOfShapeOfName;
	109	for(Standard_Integer i= 1;i < nb; i++) {
	110	TopoDS_Shape S = DBRep::Get(arg[i]);
	111	TCollection_AsciiString name(arg[i]);
	112	name.AssignCat("_c");
	113	if ( S.IsNull() ) {
	114	BRep_Builder aBuilder;
	115	BRepTools::Read( S, arg[i], aBuilder);
	116	}
	117
	118	// Add to Map
	119	if(S.IsNull()) return(1);
	120	else {
	121	aDMapOfShapeOfName.Bind(S, name);
	122	TR.Add(S);
	123	}
	124	} // for ...
	125
	126	// PERFORM
	127	TR.Perform();
	128
	129	if(TR.IsDone()){
586db386	130	di << "DNaming_CopyShape:: Copy is Done \n";
7fd59977	131
	132	DNaming_DataMapIteratorOfDataMapOfShapeOfName itrn(aDMapOfShapeOfName);
	133	for(;itrn.More();itrn.Next()) {
	134	TCollection_AsciiString name = itrn.Value();
1c8fc6be	135	const TopoDS_Shape Result = TR.Copied(itrn.Key());
7fd59977	136	DBRep::Set(name.ToCString(), Result);
	137	di.AppendElement(name.ToCString());
	138	}
	139	return 0;
	140	}
586db386	141	di << "DNaming_CopyShape : Error\n";
7fd59977	142	return 1;
	143	}
	144
659b232a	145	//=======================================================================
	146	//function : DNaming_TCopyTool
	147	//purpose : CopyTool Shape1 [Shape2 ...]
	148	// - for test TNaming_CopyShape::CopyTool mechanism
	149	//=======================================================================
	150
	151	static Standard_Integer DNaming_TCopyTool (Draw_Interpretor& di,
	152	Standard_Integer nb,
	153	const char** arg)
	154	{
	155	if (nb < 2) {
586db386	156	di << "Usage: CopyTool Shape1 [Shape2] ...\n";
659b232a	157	return 1;
	158	}
	159
	160	Standard_Integer i;
	161	TCollection_AsciiString aCopyNames;
	162	BRep_Builder aBuilder;
	163	TColStd_IndexedDataMapOfTransientTransient aMap;
	164	TopoDS_Shape aResult;
	165
	166	for (i = 1; i < nb; i++) {
	167	TopoDS_Shape aShape = DBRep::Get(arg[i]);
	168
	169	if (aShape.IsNull()) {
	170	BRepTools::Read(aShape, arg[i], aBuilder);
	171	}
	172
	173	if (aShape.IsNull()) {
586db386	174	di << arg[i] << " is neither a shape nor a BREP file. Skip it.\n";
659b232a	175	continue;
	176	}
	177
	178	// Perform copying.
	179	TNaming_CopyShape::CopyTool(aShape, aMap, aResult);
	180
	181	// Draw result.
	182	TCollection_AsciiString aName(arg[i]);
	183
	184	aName.AssignCat("_c");
	185	DBRep::Set(aName.ToCString(), aResult);
	186
	187	// Compose all names of copies.
	188	if (!aCopyNames.IsEmpty()) {
	189	aCopyNames.AssignCat(" ");
	190	}
	191
	192	aCopyNames.AssignCat(aName);
	193	}
	194
	195	di << aCopyNames.ToCString() << "\n";
	196
	197	return 0;
	198	}
	199
7fd59977	200	//=======================================================================
	201	//function : ToolsCommands
	202	//purpose :
	203	//=======================================================================
	204
	205	void DNaming::ToolsCommands (Draw_Interpretor& theCommands)
	206	{
	207
	208	static Standard_Boolean done = Standard_False;
	209	if (done) return;
	210	done = Standard_True;
	211	const char* g = "Naming data commands " ;
7fd59977	212
	213	theCommands.Add ("CopyShape",
	214	"CopyShape (Shape1 [Shape2] ...)",
	215	__FILE__, DNaming_TCopyShape, g);
	216
659b232a	217	theCommands.Add ("CopyTool",
	218	"CopyTool Shape1 [Shape2] ...",
	219	__FILE__, DNaming_TCopyTool, g);
	220
7fd59977	221	theCommands.Add ("CheckSame",
	222	"CheckSame (Shape1 Shape2 ExploMode[F\|E\|V])",
	223	__FILE__, DNaming_CheckHasSame, g);
	224
	225	}
	226
	227