BugID: 371

Control script implemented in panel.

MAC/Navigator/panels/nav_fw/tools/ExportMACStructure.pnl

@@ -2,7 +2,7 @@ V 10
 2
 LANG:1 30 Export MAC Node Structure Tool
 LANG:0 8 (NoName)
-PANEL,372 275 393 298 N "_3DFace" 0
+PANEL,306 230 416 298 N "_3DFace" 0
 EEE E E 1 -1 -1 0  50 20
 "" 0 1
 EE 2
@@ -196,7 +196,7 @@ E
 13 2
 "btnExport"
 ""
-1 292 10 E E E 1 E 1 E N "_3DText" E N "_3DFace" E E
+1 210 10 E E E 1 E 1 E N "_3DText" E N "_3DFace" E E
  E E
 4 0 0 0 0 0
 EE E
@@ -209,7 +209,7 @@ LANG:0 0
 LANG:1 98 -adobe-helvetica-medium-r-normal-*-*-80-100-100-*-*-iso8859-1|-13,0,0,0,400,0,0,0,0,3,2,1,34,Arial
 LANG:0 107 -microsoft windows-Arial-normal-r-normal-*-*-120-100-100-*-*-iso8859-1|-13,0,0,0,400,0,0,0,0,3,2,1,34,Arial
 0 ""
-290 8 384 42
+208 8 302 42
 T 
 2
 LANG:1 6 Export
@@ -426,7 +426,7 @@ LANG:0 107 -microsoft windows-Arial-normal-r-normal-*-*-120-100-100-*-*-iso8859-
 310 133 384 165
 T 
 2
-LANG:1 10 Brouwes...
+LANG:1 10 Brouwse...
 LANG:0 7 Button1
 "main()
 {
@@ -474,7 +474,136 @@ LANG:1 0
  E  E  0 0 0 0 0
 3
 E E E E E E 
-EE0
+EE13 18
+"btnExportSHM"
+""
+1 520 20 E E E 1 E 1 E N "_3DText" E N "_3DFace" E E
+ E E
+16 0 0 0 0 0
+EE E
+0
+2
+LANG:1 0 
+LANG:0 0 
+0
+2
+LANG:1 98 -adobe-helvetica-medium-r-normal-*-*-80-100-100-*-*-iso8859-1|-13,0,0,0,400,0,0,0,0,3,2,1,34,Arial
+LANG:0 107 -microsoft windows-Arial-normal-r-normal-*-*-120-100-100-*-*-iso8859-1|-13,0,0,0,400,0,0,0,0,3,2,1,34,Arial
+0 ""
+308 8 402 42
+T 
+2
+LANG:1 12 Export 4 SHM
+LANG:0 7 Button2
+"main()
+{	
+	dyn_string PVSSTYPES;
+	PVSSTYPES[1] = \"structure\";
+	PVSSTYPES[3] = \"character-array\";
+	PVSSTYPES[4] = \"integer-array\";
+	PVSSTYPES[5] = \"unsigned-array\";
+	PVSSTYPES[6] = \"float-array\";
+	PVSSTYPES[7] = \"bit-array\";
+	PVSSTYPES[8] = \"bit-pattern-array\";
+	PVSSTYPES[9] = \"text-array\";
+	PVSSTYPES[10] = \"time-array\";
+	PVSSTYPES[11] = \"character-structure\";
+	PVSSTYPES[12] = \"integer-structure\";
+	PVSSTYPES[13] = \"unsigned-structure \";
+	PVSSTYPES[14] = \"float-structure\";
+	PVSSTYPES[15] = \"bit32\";
+	PVSSTYPES[16] = \"bit32-structure\";
+	PVSSTYPES[17] = \"text-structure\";
+	PVSSTYPES[18] = \"time-structure\";
+	PVSSTYPES[19] = \"character\";
+	PVSSTYPES[20] = \"integer\";
+	PVSSTYPES[21] = \"unsigned\";
+	PVSSTYPES[22] = \"float\";
+	PVSSTYPES[23] = \"bit\";
+	PVSSTYPES[24] = \"bit-pattern\";
+	PVSSTYPES[25] = \"text\";
+	PVSSTYPES[26] = \"time\";
+	PVSSTYPES[27] = \"identifier\";
+	PVSSTYPES[29] = \"identifier-array\";
+	PVSSTYPES[39] = \"identifier-array\";
+	PVSSTYPES[41] = \"type-reference\";
+	PVSSTYPES[42] = \"multilingual-text\";
+	PVSSTYPES[43] = \"multilingual-text-structure\";
+	PVSSTYPES[44] = \"description-array\";
+	PVSSTYPES[46] = \"blob\";
+	PVSSTYPES[47] = \"blob-structure\";
+
+
+ 	btnExportSHM.enabled = false;
+ 	btnExportSHM.text = \"Busy...\";
+ 	lbState.text = \"State: Open file...\";
+  dyn_dyn_anytype tab;
+	dyn_string ds;
+	string fromSysNum = getSystemId(tfFromSys.text);
+
+	slStatusLogging.deleteAllItems;
+	if (tfFile.text == \"\")
+	{
+	  slStatusLogging.appendItem = \"No filename specified!\";
+ 		btnExportSHM.enabled = true;
+	 	btnExportSHM.text = \"Export 4 SHM\";
+	  return;
+	}
+	file f = fopen(tfFile.text, (cbOptions.state(0) ? \"a\" : \"w\"));
+ 
+	DebugN(ferror(f));
+
+ 	lbState.text = \"State: Query types...\";
+	ds=dpTypes(\"T*\", fromSysNum);
+	DebugN(ds); /* Returns all DPTs from system 2, which begin with \"T\" */
+  
+	fprintfUL(f, \"%d\\n\", dynlen(ds)); /* number of types */
+ 	for(int i=1;i<=dynlen(ds);i++)
+ 	{
+		dyn_dyn_string names;
+		dyn_dyn_int types;
+		int struc;
+		string typename;
+		struc=dpTypeGet(ds[i],names,types);
+
+		DebugTN(ds[i],names,types);
+		
+ 		fprintf(f, \"%s\\n\",names[1][1]); /* type name */
+ 		for(int t=2;t<=dynlen(names);t++)
+ 		{
+ 			typename = PVSSTYPES[types[t][2]];
+ 			if(types[t][2] == 41 && dynlen(names[t]) >= 3) // typeref
+ 			{
+ 				typename = names[t][3];
+ 			}
+	 		fprintf(f, \"%s %s\\n\",names[t][2],typename); /* struct-item-name struct-item-type */
+		}
+		fprintf(f,\"\\n\");
+ 	}
+ 	
+ 	lbState.text = \"State: Perform query...\";
+
+ 	ds = dpNames(tfFromSys.text + tfQuery.text);
+ 	for(int i=1;i<=dynlen(ds);i++)
+ 	{
+ 		string typename;
+ 		typename = dpTypeName(ds[i]);
+ 		// filter unknown types
+ 		if(typename[0] == 'T')
+ 		{
+	 		fprintf(f, \"%s %s\\n\",ds[i],typename);
+	 	}
+ 	}
+
+  fclose(f);
+ 	btnExportSHM.text = \"Export 4 SHM\";
+ 	lbState.text = \"State: Ready/Idle\";
+ 	btnExportSHM.enabled = true;
+}
+
+//" 0
+ E E E
+0
 LAYER, 1 
 1
 LANG:1 6 Layer2