/* SLIBUTIL (SCM) -- SCM Library Management */
/* SLIBUTIL (SCM) -- SCM-Bibliotheksmanagement */
/* -- INTENDED FOR KEY-CALL USE -- */
/*
// Copyright (c) 1994-2012 Oliver Bartels F+E, Muenchen
// Author: Manfred Baumeister
// Changes History:
//	rl (120427) RELEASED FOR BAE V7.8.
//	rl (110714) ENHANCEMENT:
//		Added logical definition project tree deletion function.
//	rl (110303) ENHANCEMENT:
//		Added unreferenced element marker function to deletion box.
//	rl (110221) ENHANCEMENT:
//		Added library element check function.
//	rl (101019) RELEASED FOR BAE V7.6.
//	rl (091027) RELEASED FOR BAE V7.4.
//	rl (090806) ENHANCEMENT:
//		Added name pattern report functions.
//	rl (081209) ENHANCEMENT:
//		Added element comment list edit function.
//	rl (081014) RELEASED FOR BAE V7.2.
//	rl (071029) RELEASED FOR BAE V7.0.
//	rl (060829) RELEASED FOR BAE V6.8.
//	rl (050906) RELEASED FOR BAE V6.6.
//	rl (040811) RELEASED FOR BAE V6.4.
//	rl (030904) RELEASED FOR BAE V6.2.
//	rl (021209) RELEASED FOR BAE V6.0.
//	rl (020621) RELEASED FOR BAE V5.4.
//	rl (020621) ENHANCEMENT:
//		Added rule delete function.
//	rl (020207) BUGFIX:
//		Fixed problem with alternate color database file name
//		specified by environment variable BAE_SCMLIB.
//	rl (010625) RELEASED FOR BAE V5.0.
//	rl (010330) BUGFIX:
//		Fixed problem with disfunctional part delete option.
//	rl (010229) ENHANCEMENT:
//		Added optional parameter settings from bae.ini file.
//		Added reference cross check to avoid deletion of
//		referenced file elements.
//	rl (000821) RELEASED FOR BAE V4.6.
//	rl (000821) ENHANCEMENT:
//		Definition file export function introduced.
//	mb (000723) CHANGE:
//		Delete Elements function to display deleted elements count.
//	mb (000723) CHANGE:
//		Adapted to new popupmulmenu function definition.
//	rl (000712) ENHANCEMENT:
//		Element delete function introduced.
//	rl (000221) ENHANCEMENT:
//		Element copy function introduced.
//	rl (990625) RELEASED FOR BAE V4.4.
//	rl (980910) RELEASED FOR BAE V4.2.
//	mb (980710) ENHANCEMENT:
//		Pulldown menu delimiters introduced.
//	mb (980710) ENHANCEMENT:
//		Dynamic multi-language support introduced.
//	rl (970929) RELEASED FOR BAE V4.0.
//	mb (960919) RELEASED FOR BAE V3.4.
//	mb (95) RELEASED FOR BAE V3.2.
//	mb (950102) ENHANCEMENT:
//		Option for SLIBCOMP call introduced.
//	mb (94) RELEASED FOR BAE V3.0.
//	mb (94) ORIGINAL CODING.
//
// DESCRIPTION
//
// The slibutil User Language program provides a menu with
// a series of advanced SCM library management utilities
// such as producing library cross references, generating
// library documentation, performing library consistency
// checks, copying or deleting menu-selectable DDB file
// elements, activating library edit batches, etc.
*/

// Enforce SCM caller type
#pragma ULCALLERSCM

// Disable undo state request
#pragma ULCALLERNOUNDO

// Includes
#include "baeparam.ulh"			// User Language BAE param. access
#include "pop.ulh"			// User Language popup utilities

// Messages
string UPRABORT		= M_UPRABORT();
string UPRFCT		= M("SCM-Librarymanagement-Funktion waehlen!",
			    "Select SCM Library Management Function!");
string UPRFCT1		= M("&List DDB","&List DDB");
string UPRFCT2		= M("Library-&Inhalt","Library &Contents");
string UPRFCT3		= M("Library-&Cross-Referenz","Library Cross &Reference");
string UPRFCT4		= M("Library-&Dokukumentation","Library &Documentation");
string UPRFCT5		= M("Library-&News","Library &News");
string UPRFCT6		= M("Library-&Vergleich","Library Co&mpare");
string UPRFCT7		= M("%Elemente &kopieren","%Co&py Elements");
string UPRFCT8		= M("Elemente l&oeschen","Delete Elemen&ts");
string UPRFCT9		= M("Symbol Edit &Batch","Symbol Edit &Batch");
string UPRFCT10		= M("%Definitionsinfo E&xport","%E&xport Definitions Info");
string UPRFCT11		= M("Definitions&pruefung","C&heck Definitions");
string UPRFCT12		= M("%&Regeln Export","%Export R&ules");
string UPRFCT13		= M("%&Elementkommentare","%&Element Comments");
string UPRFCT14		= M("%Namens&muster Report","%N&ame Pattern Report");
string UPRFCT15		= M("%Biblio&thekscheck","%Library Chec&k");
string UPRFILE		= M("Dateiname ? ","File Name ? ");
string UPRSELELEM	= M("Elementname/-muster ? ","Element Name/Pattern ? ");
string UPRSELCLASS	= M("Elementklasse selektieren!",
			    "Select Element Class!");
string UPRCLSCM		= M("&Plan","S&heet");
string UPRCLSPLST	= M("&Bauteilattribute","Pa&rt Attributes");
#define UPRCLSSYM	"&Symbol"
#define UPRCLSLAB	"&Label"
#define UPRCLSMRK	"&Marker"
string UPRCLPCON	= M("%&Netzliste","%&Netlist");
string UPRCLCPRT	= M("La&youtbauteilnamen","La&yout Part Names");
string UPRCLLLIB	= M("Lo&gische Bibliothek","Lo&gical Library");
string UPRCLSCOL	= M("%&Farben","%&Color");
string UPRCLRULE	= M("%&Regeln","%&Rules");
string UPRDFILE		= M("!Zieldateiname ? ","!Destination File Name ? ");
string UPRLFILE		= M("Quelldateiname ? ","Source File Name ? ");
string UPRELEMCOMM	= M("Elementkommentare","Element Comments");
string UPRNEXTDIAL	= M("&Weitere","&Next");
string UPRPREVDIAL	= M("&Vorherige","&Previous");
string UPRDPATTERN	= M("Muster anwenden","Apply Pattern");
string UPRDUNREF	= M("Markieren Unreferenzierte","Mark Unreferenced");
string UPRUPDLIB	= M("Update Bibliothek","Update Library");
string UPRTOGGLEWAR	= M("%d Elemente selektiert, %d Elemente deselektiert!",
			    "%d Elements selected, %d Elements deselected!");
string UPRFEXISTS	= M("Ausgabedatei '%s' existiert bereits. Ueberschreiben ?",
			    "Output file '%s' already exits. Overwrite ?");
string UPRSELDMOD	= M("Loeschmodus selektieren!","Select Delete Mode!");
string UPRDMOD0		= M("DDB-&Einzeldatei","&Single DDB File");
string UPRDMOD1		= M("Projekt&verzeichnisbaum","Project File &Tree");
string UPRPDIR		= M("Projektverzeichnis ? ","Project Directory ? ");
string UPRSELREPM	= M("Reporttyp selektieren!","Select Report Type!");
string UPRREPM0		= M("Report &Namensmuster","Report Name &Patterns");
string UPRREPM1		= M("Report &Symbole","Report &Symbols");
string UPRSELDDB	= M("SCM-Bibliotheksdatei ? ","SCM Library File ? ");
string UPRPATLIST	= M("Namensmuster in '%s':","Name Patterns in '%s':");
string UPRSPATLIST	= M("Symbolnamensmuster in '%s':",
			    "Symbol Name Patterns in '%s':");
string UPRDELCONF	= M("Alle gelisteten Elemente loeschen ?",
			    "Name Patterns all listes elements?");
string REPSOURCE	= M("Elementklasse '%s', Datei '%s'",
			    "Element class '%s', File '%s'");
string REPELEMREF	= M("%s '%s' wird von %s '%s' referenziert.",
			    "%s '%s' referenced by %s '%s'.");
string REPDELDONE	= M("%d Element(e) aus der DDB-Datei '%s' geloescht.",
			    "%d element(s) deleted from DDB file '%s'.");
string REPDELHD1	= M("%d Element(e) nicht geloescht, da referenziert:",
			    "%d referenced element(s) not deleted:");
string REPDEFDONE	= M("%d Definitionen in Datei '%s' geschrieben.",
			    "%d Definitions written to file '%s'.");
string REPDELTDONE	= M("%d Element(e) in Projektverzeichnis '%s' geloescht.",
			    "%d element(s) in project folder '%s' deleted.");
string REPDELTHD1	= M("%d Element(e) konnten nicht geloescht werden:",
			    "%d element(s) could not be deleted:");
string REPRULDONE	= M("%d Regeln in Datei '%s' geschrieben.",
			    "%d Rules written to file '%s'.");
string REPPATTERN	= M("%-*s : %dx, z.B. %s","%-*s : %dx, e.g. %s");
string REPSYMPATT	= M("%-*s : %s","%-*s : %s");
string REPLIBCOMP	= M("Bibliothekselementvergleich",
			    "Library Element Comparion");
string REPPRJHEAD	= M("Projektdatei '%s'","Project file '%s'");
string REPLIBHEAD	= M("Bibliotheksdatei '%s'","Library file '%s'");
string REPLIBOK		= M("Standardbibliothek '%s' enthaelt keine neueren Makros.",
			    "No newer macros in standard library '%s' found.");
string REPLIBDIFFL	= M("%s (%s) neuer in Bibliothek:",
			    "%s (%s) newer in library:");
string REPLIBDIFFP	= M("%s (%s) neuer in Projekt:",
			    "%s (%s) newer in project:");
string REPPRJENT	= M("  Projekt    (%02d.%02d.%04d / %02d:%02d:%02d)",
			    "  Project (%02d.%02d.%04d / %02d:%02d:%02d)");
string REPLIBENT        = M("  Bibliothek (%02d.%02d.%04d / %02d:%02d:%02d)",
			    "  Library (%02d.%02d.%04d / %02d:%02d:%02d)");
string REPELEMHD	= M("Zu Name/Muster '%s' in '%s' gefundene Elemente :",
                            "Elements Matching Name/Pattern '%s' in '%s' :");

string ERRDELETE	= M("Fehler beim Loeschen von Element '%s'!",
			    "Error deleting element '%s'!");
string ERRDELCOMM	= M("Fehler beim Ruecksetzen des Elementkommentars von '%s'!",
			    "Error resetting element comment for '%s'!");
string ERRSETCOMM	= M("Fehler beim Setzen des Elementkommentars von '%s'!",
			    "Error setting element comment for '%s'!");
string ERRNOWIN		= M("Nur in Windowsumgebungen verfuegbar!",
			    "Windows Environment needed!");

// INI file parameter name definitions
#define PAR_DEFFEXT	"DEFFEXT_SCM"	// Definition file name extension
#define PAR_LINELEN	"LLCOLS_SCM"	// Logical library edit columns
#define PAR_RULFEXT	"RULFEXT_SCM"	// Rule file name extension
#define PAR_LISTDCNT	"MACRODCNT_STD"	// Max. dialog list items count

// Global User Language program variables
#define UL_LISTDDB	"listddb"	// ULP: List DDB
#define UL_LIBCONTS	"libconts"	// ULP: Library Contents
#define UL_LIBCRREF	"libcrref"	// ULP: Library Cross Reference
#define UL_SLIBDOC	"slibdoc"	// ULP: SCM Library Documentation
#define UL_SLIBNEWS	"slibnews"	// ULP: SCM Library News
#define UL_SLIBCOMP	"slibcomp"	// ULP: SCM Library Compare
#define UL_SYMEDBAT	"symedbat"	// ULP: SCM Symbol Edit Batch
#define UL_COPYELEM	"copyelem"	// ULP: Copy elements
#define UL_CLOGDEFS	"clogdefs"	// ULP: Check Logical Definitions

// Globals
string DEFEXT = bae_inistrval(PAR_DEFFEXT,".def")
					/* Definition file name extension */;
int LINELEN	= bae_iniintval(PAR_LINELEN,40);
					// Logical library edit columns
string RULEXT = bae_inistrval(PAR_RULFEXT,".rul")
					/* Definition file name extension */;
int MAXMENULINE = bae_iniintval(PAR_LISTDCNT,12)
					/* Max. menu list length */;
#define DBUTW		6.5		// Dialog box button width
#define DBUTSPC		8.5		// Dialog box button hor. spacing
#define MAXHLINE	8		// Max. header lines
#define MINLHEIGHT	2.0		// Min. list box height

// Global variables
STRINGS selentryl			/* Selected entry string list */;
int selentryn	= 0			/* Selected entry count */;
STRINGS refentryl			/* Referenced entry string list */;
int refentryn	= 0			/* Referenced entry count */;
STRINGS reffilel			/* Referenced entry file list */;

// Main program
void main()
{
	// Abort if not in SCM
	if (uliptype()!=ULIPSCM)
		error_class();
	// Ask for library management function
	bae_promptdialog(UPRFCT);
	switch (bae_askmenu(16,UPRFCT1,UPRFCT2,UPRFCT3,UPRFCT4,UPRFCT5,UPRFCT6,
	 UPRFCT7,UPRFCT8,UPRFCT9,UPRFCT10,UPRFCT11,UPRFCT12,UPRFCT13,UPRFCT14,
	 (bae_planddbclass()==DDBCLUNDEF ? "," : "")+UPRFCT15,UPRABORT)) {
		// List DDB
		case 0 : runulprogexit(UL_LISTDDB);
		// Library Contents
		case 1 : runulprogexit(UL_LIBCONTS);
		// Library Cross Reference
		case 2 : runulprogexit(UL_LIBCRREF);
		// SCM Library Documentation
		case 3 : runulprogexit(UL_SLIBDOC);
		// SCM Library News
		case 4 : runulprogexit(UL_SLIBNEWS);
		// SCM Library Compare
		case 5 : runulprogexit(UL_SLIBCOMP);
		// Element copy
		case 6 : runulprogexit(UL_COPYELEM);
		// Element delete
		case 7 : delelements(); break;
		// SCM Symbol Edit Batch
		case 8 : runulprogexit(UL_SYMEDBAT);
		// Definition file export
		case 9 : defexport(); break;
		// Logical definitions check
		case 10 : runulprogexit(UL_CLOGDEFS);
		// Rule source file export
		case 11 : ruleexport(); break;
		// Element comments
		case 12 : elementcomments(); break;
		// Name pattern report
		case 13 : patternreport(); break;
		// Library check
		case 14 : libcheck(); break;
		// Abort on default
		default :
		}
}

// Delete elements
void delelements()
{
	STRINGS headl			/* Header string list */;
	int headn			/* Header string count */;
	STRINGS entryl			/* Entry string list */;
	int entryn	= 0		/* Entry list */;
	string ename			/* Element name buffer */;
	string fn			/* File name */;
	int planddbcl	= bae_planddbclass()	/* Current plan DDB class */;
	int ddbcl	= DDBCLUNDEF	/* Plan DDB class */;
	int i				/* Loop control variable */;
	// Select the SCM DDB class
	bae_promptdialog(UPRSELCLASS);
	switch (bae_askmenu(11,UPRCLSCM,UPRCLSPLST,UPRCLSSYM,UPRCLSLAB,
	 UPRCLSMRK,UPRCLPCON,UPRCLCPRT,UPRCLLLIB,UPRCLSCOL,UPRCLRULE,
	 UPRABORT)) {
		/* Plan */   case 0 : ddbcl=DDBCLSCM;  break;
		/* Part */   case 1 : ddbcl=(-DDBCLSPLST); break;
		/* Symbol */ case 2 : ddbcl=DDBCLSSYM; break;
		/* Label */  case 3 : ddbcl=DDBCLSLAB; break;
		/* Marker */ case 4 : ddbcl=DDBCLSMRK; break;
		/* Netlist */case 5 : ddbcl=(-DDBCLPCON); break;
		/* Lay.Prt.*/case 6 : ddbcl=(-DDBCLCPRT); break;
		/* Log.Lib.*/case 7 :
		// Select the delete mode
		bae_promptdialog(UPRSELDMOD);
		switch (bae_askmenu(3,UPRDMOD0,UPRDMOD1,UPRABORT)) {
			/* Single DDB file */
			case 0 : ddbcl=DDBCLLLIB; break;
			/* Project file tree */
			case 1 : delelemtree(DDBCLLLIB); exit(0);
			}
		break;
		/* Color */  case 8 : ddbcl=DDBCLSCOL; break;
		/* Rule */   case 9 : ddbcl=DDBCLRULE; break;
		}
	// Check the element class
	if (ddbcl==DDBCLUNDEF)
		// Abort
		error_abort();
	// Get the file name
	if (ddbcl==DDBCLSCOL) {
		// Get the color table name
		fn=strgetconffilename(SCMLIBVNAME,SCMLIBNAME,1);
		}
	else {
		// Select the DDB file
		if (bae_askddbfname(fn,1,UPRFILE))
			// Abort
			error_abort();
		if (((ddbcl==DDBCLSSYM || ddbcl==DDBCLSLAB) &&
		  planddbcl==DDBCLSCM) ||
		 (ddbcl==DDBCLSMRK && (planddbcl==DDBCLSCM ||
		  planddbcl==DDBCLSSYM || planddbcl==DDBCLSLAB)))
			verifysave();
		}
	// Scan all elements
	ename="";
	while (scanddbenames(fn,abs(ddbcl),ename)==1) {
		entryl[entryn]=ename;
		entryn++;
		}
	// Build the popup menu header
	sprintf(headl[0],REPSOURCE,ddbclassname(abs(ddbcl)),fn);
	headn=1;
	// Show the multiple selection menu
	bae_setintpar(16,3051);
	popupselmulelem(UPRSELELEM,headl,headn,entryl,entryn,fn,ddbcl,
	 headn+entryn+2,selentryl,selentryn);
	// Check for referenced elements
	switch (ddbcl) {
		// Schematic symbol/label
		case DDBCLSSYM :
		case DDBCLSLAB :
		refcheck(fn,DDBCLSCM,ddbcl);
		break;
		// Schematic marker
		case DDBCLSMRK :
		refcheck(fn,DDBCLSCM,ddbcl);
		refcheck(fn,DDBCLSSYM,ddbcl);
		refcheck(fn,DDBCLSLAB,ddbcl);
		break;
		// Rule
		case DDBCLRULE :
		refcheck(fn,DDBCLLAY,ddbcl);
		refcheck(fn,DDBCLLPRT,ddbcl);
		refcheck(fn,DDBCLSCM,ddbcl);
		refcheck(fn,DDBCLSSYM,ddbcl);
		break;
		}
	// Deleted all selected elements
	for (i=0;i<selentryn;i++)
		if (selentryl[i]!="" && ddbdelelem(fn,ddbcl,selentryl[i]))
			 errormsg(ERRDELETE,selentryl[i]);
	// Check if rule delete
	if (ddbcl==DDBCLRULE)
		// Also delete the rule source entries
		for (i=0;i<selentryn;i++)
			if (selentryl[i]!="" &&
			 ddbdelelem(fn,DDBCLRULS,selentryl[i]))
				 errormsg(ERRDELETE,selentryl[i]);
	// Done
	if (refentryn) {
		// Display deletion log header
		sprintf(headl[0],REPDELDONE,selentryn-refentryn,fn);
		sprintf(headl[2],REPDELHD1,refentryn);
		headn=4;
		// Display log with popup menu
		bae_setintpar(16,3086);
		popupmenu(0,"",headl,headn,refentryl,refentryn,
		 UINPOPABORT,0,-1,-1,headn+refentryn+2,100,0,"");
		}
	else {
		sprintf(ename,REPDELDONE,selentryn,fn);
		bae_prtdialog(ename);
		}
}

void delelemtree(int ddbcl)
/* Delete elements in whole tree
// Parameter :
//	int ddbcl		: Database class
*/
{
	STRINGS headl			/* Header string list */;
	int headn			/* Header string count */;
	STRINGS entryl			/* Entry string list */;
	int entryn	= 0		/* Entry list */;
	int errl[]			/* Error entry list */;
	int errn	= 0		/* Error entry count */;
	string projdir	= UINPOPABORT	/* Project directory */;
	string defpattern		/* Definition name pattern */;
	int len				/* String length */;
	int i				/* Loop control variable */;
	// Get project files base directory
	if (bae_askdirname(projdir,getcwd(),UPRPDIR)!=0 || projdir==UINPOPABORT)
		error_abort();
	// Get definition name pattern
	bae_setmousetext("");
	if ((defpattern=bae_readedittext(UPRSELELEM,"",MAXKEYLEN))=="")
		error_abort();
	// Strip path delimiter
	len=strlen(projdir)-1;
	if (projdir[len]=='/' || projdir[len]=='\\')
		projdir[len]='\0';
	procdir(projdir,defpattern,ddbcl);
	len=strlen(projdir)+1;
	// Build the deletion confirmation popup menu
	sprintf(headl[0],REPELEMHD,defpattern,projdir);
	headl[1]="";
	headn=2;
	for (i=0;i<refentryn;i++)
		sprintf(entryl[i],"%s %s",
		 refentryl[i],strextract(reffilel[i],len,strlen(reffilel[i])));
	bae_setintpar(16,3123);
	if (popupmenu(4,UPRDELCONF,headl,headn,entryl,refentryn,UINPOPABORT,
	 0,-1,-1,0,0,2,"")!=M_UINYES())
	 	error_abort();
	for (i=0;i<refentryn;i++)
		if (ddbdelelem(reffilel[i],ddbcl,refentryl[i])) {
			 errl[errn]=i;
			 errn++;
			 }
	// Done
	if (errn) {
		// Display deletion error log header
		sprintf(headl[0],REPDELTDONE,refentryn-entryn,projdir);
		headl[1]="";
		sprintf(headl[2],REPDELTHD1,errn);
		headl[3]="";
		headn=4;
		for (entryn=0;entryn<errn;entryn++) {
			i=errl[entryn];
			sprintf(entryl[i],"%s %s",refentryl[i],
			 strextract(reffilel[i],len,strlen(reffilel[i])));
			}
		// Display log with popup menu
		bae_setintpar(16,3124);
		popupmenu(0,"",headl,headn,entryl,entryn,
		 UINPOPABORT,0,-1,-1,headn+entryn+2,100,0,"");
		}
	else {
		sprintf(defpattern,REPDELTDONE,refentryn,projdir);
		bae_prtdialog(defpattern);
		}
}

void procdir(string dirname,string defpattern,int ddbcl)
/*
// Scan subdirectories for definition list
// Parameters :
//	string dirname		: Directory name
//	string defpatter	: Defintion name pattern
//	int ddbcl		: Database class
*/
{
	string sdname	= ""		/* Scan directory name */;
	string dname			/* Directory name */;
	string fname	= ""		/* Input file name */;
	string lfname			/* Loglib file name */;
	string ename			/* Element name buffer */;
	while (scandirfnames(dirname,DDBEXT,fname)==1) {
		lfname=dirname+bae_swversion(4)+fname;
		// Scan all elements
		ename="";
		while (scanddbenames(lfname,abs(ddbcl),ename)==1)
			if (strmatch(ename,defpattern)) {
				refentryl[refentryn]=ename;
				reffilel[refentryn]=lfname;
				refentryn++;
				}
		}
	// Scan the directory
	while (scandirfnames(dirname,bae_swversion(3),sdname)==1) {
		dname=dirname+bae_swversion(4)+sdname;
		if (filetype(dname)!=0 || sdname=="." || sdname=="..")
			continue;
		procdir(dname,defpattern,ddbcl);
		}
}

void popupselmulelem(string prompt,STRINGS mheadl,int mheadn,STRINGS entryl,
 int entryn,string fn,int ddbcl,int reqrows,STRINGS selentryl,int selentryn)
/*
// Perform a popup menu activation with multi element selection
// Parameters :
//	string prompt		: Prompt string
//	STRINGS mheadl		: Menu header list
//	int mheadn		: Menu header count
//	STRINGS entryl		: Menu entry list
//	int entryn		: Menu entry count
//	string fn		: File name
//	int ddbcl		: Element database class
//	int reqrows		: Requested rows count (0=default)
//	STRINGS selentryl	: Selected entry list
//	int selentryn		: Selected entry count
*/
{
	string answer;			// Answer string
	string headstr = "";		// Header string
	string msg;			// Message string
	int markonn	= 0;		// Mark on count
	int markoffn	= 0;		// Mark off count
	int selsl[];			// Selection state list
	double cy = DIAL_TOPMARG;	// Dialog box current y coordinate
	double xmax;			// Box max. width
	double ymax;			// Box max. height
	double orgymax;			// Original box max. height
	double eboxy;			// Entry box y coordinate
	double eboxw;			// Entry box width
	double eboxh;			// Entry box height
	double butx;			// Dialog box button x coordinate
	double hboxy;			// Header box y coordinate
	double hboxh;			// Header box height
	double dialwidth;		// Dialog box width
	double dialheight;		// Dialog box height
	double baseheight;		// Dialog box base height
	int lastboxflag;		// Last box size known flag
	int id;				// Dialog box ID
	int editidx = (-1);		// Edit field dialog box item index
	int lbidx = (-1);		// List box dialog box item index
	int dialres;			// Dialog box result buffer
	int repflag = 1;		// Dialog box repeat flag
	int i;				// Loop control variable
	// Check if pending interaction
	if (bae_peekiact()==2) {
		// Get the requested text
		if ((answer=bae_readtext(prompt,MAXTEXTLEN))==UINPOPCONT)
			return;
		// Return single entry result list
		selentryl[0]=answer;
		selentryn=1;
		return;
		}
	if (bae_dialclr()) {
		popupmulmenu(1,0,prompt,mheadl,mheadn,entryl,entryn,
		 0,-1,mheadn+entryn+2,100,selentryl,selentryn,0);
		// Add sentinel to selected entry list
		selentryl[selentryn]="";
		return;
		}
	// Get max. dialog box dimensions
	bae_getdblpar(0,xmax);
	xmax-=DIAL_LEFTMARG+DIAL_RIGHTSMARG;
	bae_getdblpar(1,ymax);
	ymax-=0.2+DIAL_SEPVSTEP;
	// Set requested entry box width
	eboxw=111.0;
	if (eboxw>xmax)
		eboxw=xmax;
	// Init. the selection state field
	for (i=0;i<entryn;i++)
		selsl[i]=0;
	// Get the dialog box ID
	bae_getintpar(16,id);
	// Determine the base box height
	baseheight=DIAL_TOPMARG+DIAL_BUTVSTEP+DIAL_SEPVSTEP+0.2;
	// Check if small header display
	if (mheadn<MAXHLINE) {
		// Output header labels
		for (i=0;i<mheadn;i++) {
			if (mheadl[i]=="")
				continue;
			baseheight+=DIAL_TXTVSTEP;
			}
		baseheight+=DIAL_SEPVSTEP;
		}
	else {
		// Build header string
		for (i=0;i<mheadn;i++)
			if (mheadl[i]!="")
				headstr=headstr+mheadl[i]+"\n";
		// Check if string defined
		if (headstr!="")
			baseheight+=MAXHLINE*DIAL_TXTVSTEP+DIAL_SEPVSTEP;
		}
	// Perform input loop
	do {
		bae_dialclr();
		if (id>=0) {
			// Try to load previously used box size
			bae_setintpar(16,id);
			if (bae_getdblpar(8,dialwidth)==0) {
				// Use last selected box width
				eboxw=dialwidth-DIAL_LEFTMARG-DIAL_RIGHTSMARG;
				// Get buffered height
				bae_getdblpar(9,dialheight);
				lastboxflag=1;
				}
			else {
				lastboxflag=0;
				}
			}
		cy=DIAL_TOPMARG;
		bae_getdblpar(1,orgymax);
		if (lastboxflag)
			bae_setdblpar(1,1000.0);
		bae_getdblpar(1,ymax);
		bae_setdblpar(1,orgymax);
		ymax-=0.2+DIAL_SEPVSTEP;
		// Check if small header display
		if (mheadn<MAXHLINE) {
			// Output header labels
			for (i=0;i<mheadn;i++) {
				if (mheadl[i]=="")
					continue;
				bae_dialaddcontrol(PA_LAB,0,0,0,0.0,
				 0.0,0.0,"",0,DIAL_LEFTMARG,cy,0.0,mheadl[i]);
				cy+=DIAL_TXTVSTEP;
				ymax-=DIAL_TXTVSTEP;
				}
			cy+=DIAL_SEPVSTEP;
			ymax-=DIAL_SEPVSTEP;
			}
		else {
			// Build header string
			for (i=0;i<mheadn;i++)
				if (mheadl[i]!="")
					headstr=headstr+mheadl[i]+"\n";
			// Check if string defined
			if (headstr!="") {
				// Get header box size
				hboxy=cy;
				hboxh=MAXHLINE*DIAL_TXTVSTEP;
				// Delay creation of text box to avoid
				// initial text inversion caused by focus
				cy+=hboxh+DIAL_SEPVSTEP;
				ymax-=hboxh+DIAL_SEPVSTEP;
				}
			}
		// Store entry box position
		eboxy=cy;
		ymax-=DIAL_CTRVSTEP+DIAL_BUTVSTEP;
		// Restrict box size to max. value
		eboxh= lastboxflag ?
		 (dialheight-baseheight) : (0.5*entryn+1.0);
		if (eboxh>ymax)
			eboxh=ymax;
		// Set min. box height
		if (eboxh<MINLHEIGHT)
			eboxh=MINLHEIGHT;
		if (eboxw<75.0)
			eboxw=75.0;
		cy+=eboxh+DIAL_SEPVSTEP;
		// Store list box
		lbidx=bae_dialadvcontrol(
		 PA_MULLB|PA_OKSEL|PA_HSCROLL|PA_HBRDREL|PA_MULCOL,
		 (-1),0,0,0.0,0.0,0.0,"",0,
		 DIAL_LEFTMARG,eboxy,DIAL_RIGHTSMARG,eboxh,"");
		// Store list box entries
		for (i=0;i<entryn;i++)
			bae_dialaddcontrol(PA_LBE,selsl[i],0,i,
			 0.0,0.0,0.0,"",0,0.0,0.0,0.0,entryl[i]);
		// Init. button column position
		butx=DIAL_LEFTMARG;
		// Store OK button
		bae_dialaddcontrol(PA_OK,
		 0,0,0,0.0,0.0,0.0,"",0,butx,cy,DBUTW,"");
		butx+=DBUTSPC;
		// Store abort button
		bae_dialaddcontrol(PA_ABORT,
		 0,0,0,0.0,0.0,0.0,"",0,butx,cy,DBUTW,"");
		butx+=DBUTSPC;
		butx+=3.0;
		// Store edit control
		editidx=bae_dialaddcontrol(PA_STR,0,0,0,0.0,0.0,0.0,
		 answer,MAXPNLEN,butx,cy,20.0,"");
		butx+=21.0;
		// Store pattern button
		bae_dialaddcontrol(PA_ACT,0,1,0,0.0,0.0,0.0,
		 "",0,butx,cy,0.0,UPRDPATTERN);
		butx+=bae_dialgettextlen(0,UPRDPATTERN)+3.0;
		bae_dialaddcontrol(PA_ACT,0,2,0,0.0,0.0,0.0,
		 "",0,butx,cy,0.0,UPRDUNREF);
		cy+=DIAL_BUTVSTEP;
		// Check if multiline string display box needed
		if (headstr!="" && mheadn>=MAXHLINE)
			bae_dialadvcontrol(PA_STR|PA_NOEDIT|PA_FNTFIX,0,0,0,
			 0.0,0.0,0.0,headstr,2*strlen(headstr),
			 DIAL_LEFTMARG,hboxy,eboxw,hboxh,"");
		// Display dialog box
		bae_setintpar(16,id);
		dialres=bae_dialaskparams("!"+(prompt=="" ? " " : prompt),0,
		 DIAL_LEFTMARG+eboxw+DIAL_RIGHTSMARG,cy+0.2);
		bae_dialgetdata(editidx,0,0.0,answer);
		for (i=0;i<entryn;i++)
			bae_dialgetdata(lbidx+i+1,selsl[i],0.0,"");
		switch (dialres) {
			// Done
			case 0 :
			if (answer=="") {
				// Copy sel. elems. to sel. entry list
				for (selentryn=i=0;i<entryn;i++)
					if (selsl[i]) {
						selentryl[selentryn]=entryl[i];
						selentryn++;
						}
				repflag=0;
				break;
				}
			dialres=1;
			// Pattern selection
			case 1 :
			// Search direct popup selection entries
			markonn=markoffn=0;
			for (i=0;i<entryn;i++)
				if (entryl[i]==answer) {
					if (selsl[i]) {
						selsl[i]=0;
						markoffn++;
						}
					else {
						selsl[i]=1;
						markonn++;
						}
					break;
					}
			// Toggle the mark of matching elements
			if (i>=entryn) {
				markonn=markoffn=0;
				for (i=0;i<entryn;i++)
				    if (strmatch(entryl[i],answer)) {
					if (selsl[i]) {
						selsl[i]=0;
						markoffn++;
						}
					else {
						selsl[i]=1;
						markonn++;
						}
					}
				}
			// Check the marker counts
			if (markonn>0 && markoffn>0) {
				sprintf(msg,UPRTOGGLEWAR,markonn,markoffn);
				bae_msgbox(1,msg,"");
				}
			answer="";
			continue;
			// Mark unreferenced
			case 2 :
			// Check for referenced elements
			switch (ddbcl) {
				// Schematic symbol/label
				case DDBCLSSYM :
				case DDBCLSLAB :
				for (i=0;i<entryn;i++)
				    if (!elemrefcheck(
				      fn,entryl[i],DDBCLSCM,ddbcl))
				      	selsl[i]=1;
				break;
				// Pin marker
				case DDBCLSMRK :
				for (i=0;i<entryn;i++)
				    if (!elemrefcheck(
				      fn,entryl[i],DDBCLSCM,ddbcl) &&
				     !elemrefcheck(
				      fn,entryl[i],DDBCLSSYM,ddbcl) &&
				     !elemrefcheck(
				      fn,entryl[i],DDBCLSLAB,ddbcl))
				      	selsl[i]=1;
				break;
				// Rule
				case DDBCLRULE :
				for (i=0;i<entryn;i++)
				    if (!elemrefcheck(
				      fn,entryl[i],DDBCLLAY,ddbcl) &&
				     !elemrefcheck(
				      fn,entryl[i],DDBCLLPRT,ddbcl) &&
				     !elemrefcheck(
				      fn,entryl[i],DDBCLSCM,ddbcl) &&
				     !elemrefcheck(
				      fn,entryl[i],DDBCLSSYM,ddbcl))
				      	selsl[i]=1;
				break;
				}
			continue;
			// Resize
			case (-2) :
			break;
			// Quit/Abort
			case (-1) :
			default :
			error_abort();
			}
		}
	 // Stop if no further repeat requests
	 while (repflag);
	// Add sentinel to selected entry list
	selentryl[selentryn]="";
}

void elementcomments()
/*
// Set element comments
*/
{
	struct elemcdes	{		// Element comment descriptor
		string name		/* Element name */;
		string ocomm		/* Element old comment */;
		string ncomm		/* Element new comment */;
		} eleml[]		/* Element list */;
	int elemn	= 0		/* Entry list */;
	string ename			/* Element name buffer */;
	string ecomment			/* Element comment buffer */;
	string fn			/* File name */;
	int ddbcl	= DDBCLUNDEF	/* Plan DDB class */;
	int planddbcl	= bae_planddbclass()	/* Current plan DDB class */;
	double curlen			/* Current element name length */;
	double cy	= DIAL_TOPMARG	/* Current y value */;
	double butx	= DIAL_LEFTMARG+15.0
					/* Dialog box button x coordinate */;
	double ABUTXSTEP        = bae_swconfig(3)==2 ? 2.0 : 0.0
					/* Action button x step */;
	double pcol	= 0.0		/* Element name length */;
	int repflag	= 1		/* Repeat flag */;
	int enidxl[]			/* Element name dialog item list */;
	int ecidxl[]			/* Element comment dialog item list */;
	int nbutidx			/* Next button index */;
	int pbutidx			/* Previous button index */;
	int sbidx	= (-1)		/* Selection box dialog item index */;
	int esidx	= 0		/* Element display start index */;
	int i				/* Loop control variable */;
	// Select the SCM DDB class
	bae_promptdialog(UPRSELCLASS);
	switch (bae_askmenu(5,UPRCLSCM,UPRCLSSYM,UPRCLSLAB,
	 UPRCLSMRK,UPRABORT)) {
		/* Plan */   case 0 : ddbcl=DDBCLSCM;  break;
		/* Symbol */ case 1 : ddbcl=DDBCLSSYM; break;
		/* Label */  case 2 : ddbcl=DDBCLSLAB; break;
		/* Marker */ case 3 : ddbcl=DDBCLSMRK; break;
		}
	// Check the element class
	if (ddbcl==DDBCLUNDEF)
		// Abort
		error_abort();
	// Check if dialog box support
	if (bae_dialclr())
		error(ERRNOWIN);
	// Select the DDB file
	if (bae_askddbfname(fn,1,UPRFILE))
		// Abort
		error_abort();
	// Scan all elements
	ename="";
	bae_nameclr();
	while (scanddbenames(fn,ddbcl,ename)==1)
		ddbnameadd(fn,ename,ddbcl,2);
	// Get sorted element list
	while (
	 bae_nameget(elemn,eleml[elemn].name,"","",eleml[elemn].ocomm,0)==0) {
		// Update element name length
		curlen=bae_dialgettextlen(0,eleml[elemn].name);
		if (pcol<curlen)
			pcol=curlen;
		eleml[elemn].ncomm=eleml[elemn].ocomm;
		elemn++;
		}
	// Create comment edit dialog box
	pcol+=1.5;
	for (i=0;i<MAXMENULINE && i<elemn;i++) {
		enidxl[i]=dial_label(0,cy,eleml[i].name+" :");
		ecidxl[i]=dial_string(eleml[i].ncomm,MAXPATHLEN,pcol,cy);
		}
	dial_hsep(cy);
	bae_dialaddcontrol(PA_OK,0,0,0,0.0,0.0,0.0,"",
	 0,DIAL_LEFTMARG,cy,0.0,"");
	bae_dialaddcontrol(PA_ABORT,0,0,0,0.0,0.0,0.0,"",
	 0,DIAL_LEFTMARG+5.0,cy,0.0,"");
	pbutidx=bae_dialaddcontrol(
	 PA_ACT,0,1,0,0.0,0.0,0.0,"",0,butx,cy,0.0,UPRPREVDIAL);
	butx+=bae_dialgettextlen(0,UPRPREVDIAL);
	butx+=ABUTXSTEP;
	nbutidx=bae_dialaddcontrol(
	 PA_ACT,0,2,0,0.0,0.0,0.0,"",0,butx,cy,0.0,UPRNEXTDIAL);
	butx+=bae_dialgettextlen(0,UPRNEXTDIAL);
	butx+=ABUTXSTEP;
	if (elemn>MAXMENULINE) {
		sbidx=bae_dialaddcontrol(PA_SB|PA_HBRDREL,0,0,0,0.0,0.0,0.0,"",
		 0,butx,cy,DIAL_RIGHTEMARG,"");
		for (i=0;i<elemn;i+=MAXMENULINE) {
			sprintf(ecomment,"%s - %s",eleml[i].name,
			 (i+MAXMENULINE)<elemn ?
			  eleml[i+MAXMENULINE-1].name : eleml[elemn-1].name);
			dial_sbentry(3,i,ecomment);
			}
		}
	cy+=DIAL_BUTVSTEP+DIAL_SEPVSTEP;
	// Edit all comments
	do {
		// Check for previous and next page menu items
		bae_dialsetdata(pbutidx,PA_ACT|
		 ((esidx>0 && elemn>MAXMENULINE) ? 0 : PA_GRAYED),0,0.0,"");
		bae_dialsetdata(nbutidx,PA_ACT|(((esidx+MAXMENULINE)<elemn &&
		 elemn>MAXMENULINE) ? 0 : PA_GRAYED),0,0.0,"");
		if (sbidx>=0)
			bae_dialsetdata(sbidx,PA_SB|PA_HBRDREL,esidx,0.0,"");
		// Build the element comment table menu
		for (i=0;i<MAXMENULINE && (i+esidx)<elemn;i++) {
			bae_dialsetdata(
			 enidxl[i],PA_LAB,0,0.0,eleml[i+esidx].name+" :");
			bae_dialsetdata(ecidxl[i],PA_STR|PA_HBRDREL,
			 0,0.0,eleml[i+esidx].ncomm);
			}
		// Disable unused element controls
		for (;i<MAXMENULINE && i<elemn;i++) {
			bae_dialsetdata(enidxl[i],PA_NIL,0,0.0,"");
			bae_dialsetdata(ecidxl[i],PA_NIL,0,0.0,"");
			}
		bae_setintpar(16,3109);
		switch (bae_dialaskparams(UPRELEMCOMM,0,pcol+60.0,cy)) {
			// Done
			case 0 :
			// Fetch current element comment fields
			for (i=0;i<MAXMENULINE && (i+esidx)<elemn;i++)
				bae_dialgetdata(
				 ecidxl[i],0,0.0,eleml[i+esidx].ncomm);
			repflag=0;
			break;
			// Previous data set
			case 1 :
			// Fetch current element comment fields
			for (i=0;i<MAXMENULINE && (i+esidx)<elemn;i++)
				bae_dialgetdata(
				 ecidxl[i],0,0.0,eleml[i+esidx].ncomm);
			esidx-=MAXMENULINE;
			break;
			// Next data set
			case 2 :
			// Fetch current element comment fields
			for (i=0;i<MAXMENULINE && (i+esidx)<elemn;i++)
				bae_dialgetdata(
				 ecidxl[i],0,0.0,eleml[i+esidx].ncomm);
			esidx+=MAXMENULINE;
			break;
			// Jump to data set
			case 3 :
			// Fetch current element comment fields
			for (i=0;i<MAXMENULINE && (i+esidx)<elemn;i++)
				bae_dialgetdata(
				 ecidxl[i],0,0.0,eleml[i+esidx].ncomm);
			bae_dialgetdata(sbidx,esidx,0.0,"");
			break;
			// Abort
			case (-1) :
			default :
			error_abort();
			}
		}
	 // Stop if no further repeat requests
	 while (repflag);
	// Update element comments
	for (i=0;i<elemn;i++)
		// Check if comment changed
		if (eleml[i].ncomm!=eleml[i].ocomm) {
			if (planddbcl==ddbcl &&
			 bae_planfname()==fn &&
			 bae_planename()==eleml[i].name)
				bae_setstrpar(0,eleml[i].ncomm);
			// Check if empty comment
			if (eleml[i].ncomm=="") {
				// Delete old comment
				if (ddbdelelem(fn,
				 -(DDBCLINFOS+ddbcl),eleml[i].name))
					errormsg(ERRDELCOMM,eleml[i].name);
				}
			else {
				// Set comment
				if (ddbsetelemcomment(fn,ddbcl,
				 eleml[i].name,eleml[i].ncomm))
					errormsg(ERRSETCOMM,eleml[i].name);
				}
			}
}

void refcheck(string fn,int chkclass,int refclass)
/*
// Check if selected elements are referenced on other hierarchy levels
// Parameters :
//	string fn			: File name
//	int chkclass			: Checked class
//	int refclass			: Reference element class
*/
{
	int refcnt			/* Reference entry count */;
	int refidx			/* Reference entry index */;
	int refeclass			/* Reference entry class */;
	string refname			/* Reference entry name */;
	string refcname = ddbclassname(refclass)
					/* Reference class name */;
	string ename = ""		/* Entry name */;
	int i				/* Loop control variable */;
	// Scan all elements of check class
	ename="";
	while (scanddbenames(fn,chkclass,ename)==1) {
		// Get the DDB element reference count
		refcnt=ddbelemrefcount(fn,chkclass,ename);
		// List the DDB element references
		for (refidx=0;refidx<refcnt;refidx++) {
		    // Get the reference entry
		    if (ddbelemrefentry(fn,chkclass,ename,refidx,
		     refeclass,refname)==0 && refclass==refeclass) {
			// Check against selected entries
			for (i=0;i<selentryn;i++)
				if (selentryl[i]==refname) {
					sprintf(refentryl[refentryn],
					 REPELEMREF,refcname,selentryl[i],
					 ddbclassname(chkclass),ename);
					refentryn++;
					// Deactivate referenced entry
					selentryl[i]="";
					}
				}
		    }
		}
}

int elemrefcheck(string fn,string en,int chkclass,int refclass)
/*
// Check if selected element is referenced on other hierarchy levels
// Return value :
//	1 if element referenced else 0
// Parameters :
//	string fn			: File name
//	string en			: Element name
//	int chkclass			: Checked class
//	int refclass			: Reference element class
*/
{
	int refcnt			/* Reference entry count */;
	int refidx			/* Reference entry index */;
	int refeclass			/* Reference entry class */;
	string refname			/* Reference entry name */;
	string ename = ""		/* Entry name */;
	// Scan all elements of check class
	while (scanddbenames(fn,chkclass,ename)==1) {
		// Get the DDB element reference count
		refcnt=ddbelemrefcount(fn,chkclass,ename);
		// List the DDB element references
		for (refidx=0;refidx<refcnt;refidx++)
			// Get the reference entry
			if (ddbelemrefentry(fn,chkclass,ename,refidx,
			 refeclass,refname)==0 && refclass==refeclass &&
			 en==refname) {
				// Flush scan cache
				scanddbenames(fn,0,"");
				// Element reference found
				return(1);
				}
		}
	// Element not referenced
	return(0);
}

// Check library elements update time
void libcheck()
{
	index C_MACRO macro			/* Macro index */;
	string libfname	= scm_libfname()	/* Library file name */;
	string fname	= bae_planfname()	/* Plan file name */;
	int psec,pmin,phour,pday,pmon,pyear	/* Project time designators */;
	int lsec,lmin,lhour,lday,lmon,lyear	/* Library time designators */;
	int size				/* Record size */;
	STRINGS entryl				/* Entry list */;
	int entryn = 0				/* Entry count */;
	STRINGS msgl				/* Message list */;
	int msgn = 0				/* Message count */;
	int res					/* Compare result */;
	int i					/* Loop control variable */;
	forall (macro)
		// Get the update times
		if (ddbupdtime(fname,macro.CLASS,macro.NAME,
		  psec,pmin,phour,pday,pmon,pyear)==1 &&
		 ddbupdtime(libfname,macro.CLASS,macro.NAME,
		  lsec,lmin,lhour,lday,lmon,lyear)==1 &&
		 (res=datecomp(psec,pmin,phour,pday,pmon,pyear,
		  lsec,lmin,lhour,lday,lmon,lyear))!=0) {
			sprintf(msgl[msgn],res>0 ? REPLIBDIFFP : REPLIBDIFFL,
			 macro.NAME,ddbclassname(macro.CLASS));
			msgn++;
			ddbupdtime(
			 fname,macro.CLASS,"*"+macro.NAME,size,0,0,0,0,0);
			sprintf(msgl[msgn],REPPRJENT,
			 pday,pmon,pyear,phour,pmin,psec,size);
			msgn++;
			ddbupdtime(
			 fname,macro.CLASS,"*"+macro.NAME,size,0,0,0,0,0);
			sprintf(msgl[msgn],REPLIBENT,
			 lday,lmon,lyear,lhour,lmin,lsec,size);
			msgn++;
			}
	if (msgn) {
		for (i=msgn-1;i>=0;i--)
			msgl[i+3]=msgl[i];
		// Build the popup menu header
		sprintf(msgl[0],REPPRJHEAD,fname);
		sprintf(msgl[1],REPLIBHEAD,strgetvarfilename(libfname));
		msgl[2]=" ";
		msgn+=3;
		entryl[0]=UPRUPDLIB;
		entryn=1;
		// Show report with popup menu
		bae_setintpar(16,3054);
		if (popupmenu(5,REPLIBCOMP,msgl,msgn,entryl,entryn,UINPOPABORT,
		 0,-1,-1,msgn+entryn+2,100,0,"")==UPRUPDLIB) {
			bae_clriactqueue();
			switch (bae_planddbclass()) {
				case DDBCLSSYM :
				bae_storemenuiact(1,1,LMB);
				break;
				case DDBCLSLAB :
				bae_storemenuiact(1,2,LMB);
				break;
				case DDBCLSMRK :
				bae_storemenuiact(1,3,LMB);
				break;
				case DDBCLSCM :
				default :
				bae_storemenuiact(1,0,LMB);
				}
			bae_storetextiact(1,fname);
			bae_storetextiact(1,bae_planename());
			bae_storetextiact(1,libfname);
			if (bae_plannotsaved())
				bae_storetextiact(1,M_UINYES());
			bae_callmenu(206);
			}
		}
	else {
		sprintf(fname,REPLIBOK,strgetvarfilename(libfname));
		bae_prtdialog(fname);
		}
}

// Export definition file
void defexport()
{
	string fname			/* Library file name */;
	string ename	= ""		/* Element name */;
	string dfname			/* Output file name */;
	string logldef			/* Logical library definition */;
	string msg			/* Message buffer */;
	int dfh				/* Output file handle */;
	int dcnt	= 0		/* Definition count */;
	// Select the library DDB file
	if (bae_askddbfname(fname,0,UPRLFILE))
		error_abort();
	// Get the output file name
	dfname=convstring(fname,0)+DEFEXT;
	if (bae_askfilename(dfname,DEFEXT,UPRDFILE) || dfname=="")
		error_abort();
	// Test the output file
	fseterrmode(0);
	if ((dfh=fopen(dfname,0))!=(-1)) {
		fclose(dfh);
		fseterrmode(1);
		sprintf(msg,UPRFEXISTS,dfname);
		if (bae_msgboxverify(msg,"")!=1)
			error_abort();
		}
	fseterrmode(1);
	// Open the output file
	dfh=fopen(dfname,1);
	// Write the definition file header
	fprintf(dfh,"loglib\n\n");
	// Scan all definition entries
	while (scanddbenames(fname,DDBCLLLIB,ename)==1)
		// Try to load definition from job file
		if (con_getlogpart(fname,ename,LINELEN,logldef)==0) {
			// Write the definition
			fprintf(dfh,"%s\n",logldef);
			dcnt++;
			}
	// Write the definition file end
	fprintf(dfh,"end.\n");
	sprintf(msg,REPDEFDONE,dcnt,dfname);
	bae_prtdialog(msg);
}

// Export rule source file
void ruleexport()
{
	string fname			/* Library file name */;
	string ename	= ""		/* Element name */;
	string dfname			/* Output file name */;
	string ruledef			/* Rule definition */;
	string msg			/* Message buffer */;
	int dfh				/* Output file handle */;
	int rcnt	= 0		/* Rule count */;
	// Select the library DDB file
	if (bae_askddbfname(fname,0,UPRLFILE))
		error_abort();
	// Get the output file name
	if (bae_askfilename(dfname,RULEXT,UPRDFILE) || dfname=="")
		error_abort();
	// Test the output file
	fseterrmode(0);
	if ((dfh=fopen(dfname,0))!=(-1)) {
		fclose(dfh);
		fseterrmode(1);
		sprintf(msg,UPRFEXISTS,dfname);
		if (bae_msgboxverify(msg,"")!=1)
			error_abort();
		}
	fseterrmode(1);
	// Open the output file
	dfh=fopen(dfname,1);
	// Scan all rule source entries
	while (scanddbenames(fname,DDBCLRULS,ename)==1)
		// Try to load rule source from job file
		if (rulesource(fname,ename,ruledef)==0) {
			// Write the rule definition
			fprintf(dfh,"%s\n",ruledef);
			rcnt++;
			}
	sprintf(msg,REPRULDONE,rcnt,dfname);
	bae_prtdialog(msg);
}

// Name pattern report
void patternreport()
{
	index C_POOL pool		/* Pool element index */;
	string filename = ""		/* SCM library file name */;
	string ename	= ""		/* Element name */;
	string namepat			/* Current name pattern */;
	STRINGS hl			/* Header string list */;
	STRINGS el			/* Entry string list */;
	int en		= 0		/* Entry string count */;
	STRINGS snl			/* Symbol name list */;
	STRINGS spl			/* Symbol name pattern list */;
	int maxlen	= 0		/* Max. entry length */;
	int cnt				/* Entry count */;
	int mode			/* Report mode */;
	int i				/* Loop control variable */;
	// Select the report mode
	bae_promptdialog(UPRSELREPM);
	switch (bae_askmenu(3,UPRREPM0,UPRREPM1,UPRABORT)) {
		/* Pattern report */
		case 0 : mode=0; break;
		/* Symbol report */
		case 1 : mode=1; break;
		default :
		error_abort();
		}
	// Select SCM database file
	if ((filename=askddbfile(UPRSELDDB,DDBCLSSYM))=="")
		// Abort
		error_abort();
	// Scan the symbol macros
	bae_nameclr();
	while (scanddbenames(filename,DDBCLSSYM,ename)==1) {
		// Get symbol name pattern
		cap_macload(pool,filename,ename,DDBCLSSYM);
		namepat=pool.MACRO.PNAMEPAT;
		cap_macrelease(pool);
		if (mode==0) {
			bae_nameadd(namepat,"","",ename,2);
			if (strlen(namepat)>maxlen)
				maxlen=strlen(namepat);
			}
		else {
			snl[en]=ename;
			spl[en]=namepat;
			en++;
			if (strlen(ename)>maxlen)
				maxlen=strlen(ename);
			}
		}
	sprintf(hl[0],mode==0 ? UPRPATLIST : UPRSPATLIST,
	 convstring(filename,0));
	hl[1]=" ";
	if (mode==0) {
		en=0;
		while (bae_nameget(en,namepat,"","",ename,cnt)==0) {
			sprintf(el[en],REPPATTERN,maxlen,namepat,cnt,ename);
			en++;
			}
		}
	else {
		for (i=0;i<en;i++)
			sprintf(el[i],REPSYMPATT,maxlen,snl[i],spl[i]);
		}
	// Show the report
	bae_setintpar(16,3112);
	popupmenu(0,"",hl,2,el,en,UINPOPABORT,0,-1,-1,en+4,100,0,"");
}


// User Language program end