/* SCMIO (SCM) -- SCM Import/Exort Functions */
/* SCMIO (SCM) -- SCM-Ein-/Ausgabefunktionen */
/*
// Copyright (c) 1995-2012 Oliver Bartels F+E, Muenchen
// Author: Manfred Baumeister
// Changes History:
//	rl (120427) RELEASED FOR BAE V7.8.
//	rl (101019) RELEASED FOR BAE V7.6.
//	rl (091021) RELEASED FOR BAE V7.4.
//	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 (050408) ENHANCEMENT:
//		Bitmap input option introduced.
//	rl (040811) RELEASED FOR BAE V6.4.
//	rl (030904) RELEASED FOR BAE V6.2.
//	rl (021209) RELEASED FOR BAE V6.0.
//	rl (020618) RELEASED FOR BAE V5.4.
//	rl (010625) RELEASED FOR BAE V5.0.
//	rl (010619) ENHANCEMENT:
//		Added support of additional menu item definitions in bae.ini.
//	rl (010525) ENHANCEMENT:
//		Added Spice data output function.
//	rl (000509) RELEASED FOR BAE V4.6.
//	mb (990903) RELEASED FOR BAE V4.4.
//	mb (990903) ENHANCEMENT:
//		Added EDIF data import function.
//	mb (990826) CHANGE:
//		EPS Output prompt changed to EPS/PDF Output.
//	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 (960801) ENHANCEMENT:
//		Changed menu items to support key selection
//		in Windows/Motif user interfaces.
//	mb (95) RELEASED FOR BAE V3.2.
//	mb (950223) ORIGINAL CODING.
//
// DESCRIPTION
//
// The scmio User Language program provides a menu with a series
// of advanced Schematic Editor import and export functions.
*/

// Enforce SCM caller type
#pragma ULCALLERSCM

// Disable undo state request
#pragma ULCALLERNOUNDO

// Includes
#include "std.ulh"			// User Language standard include

// Messages
string UPRABORT		= M_UPRABORT();
string UPRIOFCT		= M("Ein-/Ausgabefunktion selektieren!",
			    "Select Import/Export Function!");
string MI_SCMPLOT	= M("&SCM-Plaene plotten","&SCM Sheets Plot");
string MI_SCMDUMP	= M("%&BAE/ASCII Ausgabe","%&BAE/ASCII Output");
string MI_SCMDXFDO	= M("%AutoCAD/D&XF Ausgabe","%AutoCAD/D&XF Output");
string MI_SCMDXFDI	= M("AutoCAD/DX&F Import","AutoCAD/DX&F Input");
string MI_SCMEPS	= M("%EPS/PDF &Ausgabe","%&EPS/PDF Output");
string MI_NETCONV	= M("%Netz&liste Import","%Net &List Import");
string MI_SCMEDFDI	= M("E&DIF-Daten Import","E&DIF Data Import");
string MI_SPICESIM	= M("Spi&ce Ausgabe","Spi&ce Data Output");
string MI_STXFIN	= M("%&TXF Import","%&TXF Input");
string MI_BITMAPIN	= M("B&itmap-Import","B&itmap Input");

// User Language program name definitions
#define UL_SCMPLOT	"scmplot"
#define UL_SCMDUMP	"scmdump"
#define UL_SCMDXFDO	"scmdxfdo"
#define UL_SCMDXFDI	"scmdxfdi"
#define UL_SCMEPS	"scmeps"
#define UL_NETCONV	"netconv"
#define UL_SCMEDFDI	"scmedfdi"
#define UL_SPICESIM	"spicesim"
#define UL_STXFIN	"stxfin"
#define UL_BITMAPIN	"bitmapin"

// Main program
void main()
{
	struct additemdes {		// Additional menu item descriptor
		string name		/* Menu item name */;
		string prog		/* Menu item program */;
		} menuiteml[]		/* Menu item list */;
	int menun			/* Menu index */;
	int menusel			/* Menu selection */;
	int ddbclass	= bae_planddbclass()
					/* Layout plan DDB class */;
	string e_dis	= ""		/* Empty plan disable */;
	string slp_dis	= ""		/* Symbol/label/pin items disable */;
	string varname			/* Variable name */;
	string menuname			/* Menu item name */;
	string menuprog			/* Menu item program */;
	// Abort if not in SCM
	if (uliptype()!=ULIPSCM)
		error_class();
	// Test the plan class
	switch (ddbclass) {
		case DDBCLSCM :
		break;
		case DDBCLSSYM :
		case DDBCLSLAB :
		case DDBCLSMRK :
		slp_dis=",";
		break;
		default :
		e_dis=slp_dis=",";
		}
	// Check for additional menu items
	for (menun=0;menun<VAR_IOMMAX;menun++) {
		// Get menu name
		sprintf(varname,VAR_IOMNAME,menun);
		if (varget(varname,menuname)!=0 || menuname=="")
			break;
		sprintf(varname,VAR_IOMPROG,menun);
		if (varget(varname,menuprog)!=0)
			break;
		// Add item to list
		menuiteml[menun].name=menuname;
		menuiteml[menun].prog=menuprog;
		}
	menuiteml[menun].name=UPRABORT;
	// Select import/export function
	bae_promptdialog(UPRIOFCT);
	switch (menusel=bae_askmenu(11+menun,MI_SCMPLOT,e_dis+MI_SCMDUMP,
	 e_dis+MI_SCMDXFDO,e_dis+MI_SCMDXFDI,MI_SCMEPS,MI_NETCONV,MI_SCMEDFDI,
	 slp_dis+MI_SPICESIM,MI_STXFIN,e_dis+MI_BITMAPIN,
	 menuiteml[0].name, menuiteml[1].name, menuiteml[2].name,
	 menuiteml[3].name, menuiteml[4].name, menuiteml[5].name,
	 menuiteml[6].name, menuiteml[7].name, menuiteml[8].name,
	 menuiteml[9].name, menuiteml[10].name,menuiteml[11].name,
	 menuiteml[12].name,menuiteml[13].name,menuiteml[14].name,
	 menuiteml[15].name,UPRABORT)) {
		// Plot SCM plan
		case 0 : runulprogexit(UL_SCMPLOT);
		// BAE/ASCII output
		case 1 : runulprogexit(UL_SCMDUMP);
		// AutoCAD/DXF output
		case 2 : runulprogexit(UL_SCMDXFDO);
		// AutoCAD/DXF input
		case 3 : runulprogexit(UL_SCMDXFDI);
		// Encapsulated PostScript output
		case 4 : runulprogexit(UL_SCMEPS);
		// Logical netlist input
		case 5 : runulprogexit(UL_NETCONV);
		// EDIF data import
		case 6 : runulprogexit(UL_SCMEDFDI);
		// Spice data output
		case 7 : runulprogexit(UL_SPICESIM);
		// TXF input
		case 8 : runulprogexit(UL_STXFIN);
		// Bitmap input
		case 9 : runulprogexit(UL_BITMAPIN);
		// Check for user added items
		default :
		if (menusel>=10 && (menusel-10)<menun)
			runulprog(menuiteml[menusel-10].prog);
		}
}

// User Language program end