/* GEDIO (GED) -- GED Import/Export Functions */
/* GEDIO (GED) -- GED-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 (060809) ENHANCEMENT:
//		WRL/VRML output option introduced.
//	rl (050906) RELEASED FOR BAE V6.6.
//	rl (050408) ENHANCEMENT:
//		Bitmap input option introduced.
//	rl (050323) ENHANCEMENT:
//		OrCAD MIN input option introduced.
//	rl (040811) RELEASED FOR BAE V6.4.
//	rl (030905) RELEASED FOR BAE V6.2.
//	rl (030905) ENHANCEMENT:
//		HyperLynx output option introduced.
//	rl (030703) ENHANCEMENT:
//		Gencad 1.4 output option introduced.
//	rl (021209) RELEASED FOR BAE V6.0.
//	rl (020618) RELEASED FOR BAE V5.4.
//	rl (020515) ENHANCEMENT:
//		Added ICAP netlist input.
//	rl (010625) RELEASED FOR BAE V5.0.
//	rl (010619) ENHANCEMENT:
//		Added support of additional menu item definitions in bae.ini.
//	rl (000509) RELEASED FOR BAE V4.6.
//	ob (000122) ENHANCEMENT:
//		CIF Input/Output introduced.
//	mb (990826) RELEASED FOR BAE V4.4.
//	mb (990826) CHANGE:
//		EPS Output prompt changed to EPS/PDF Output.
//	rl (980910) RELEASED FOR BAE V4.2.
//	rl (980814) ENHANCEMENT:
//		IPC-D-356 output option introduced.
//	mb (980710) ENHANCEMENT:
//		Pulldown menu delimiters 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 (960703) ENHANCEMENT:
//		BAE user interface type designators introduced.
//	mb (95) RELEASED FOR BAE V3.2.
//	mb (950223) ORIGINAL CODING.
//
// DESCRIPTION
//
// The gedio User Language program provides a menu with a series
// of advanced Layout Editor import and export functions.
*/

// Enforce GED caller type
#pragma ULCALLERGED

// 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_LAYDUMP	= M("&BAE/ASCII","&BAE/ASCII");
string MI_PARTLIST	= M("%&Stueckliste Ausgabe","%Part Li&st Output");
string MI_DUMPPLC	= M("%&Placedaten Ausgabe","%&Place Data Output");
string MI_READPLC	= M("Pla&cedaten Import","Pla&ce Data Input");
string MI_ROUTING	= M("%&Routdaten Ausgabe","%&Rout Data Output");
string MI_DRILLOUT	= M("Bohr&daten Ausgabe","&Drill Data Output");
string MI_TESTDATA	= M("&Testdaten Ausgabe","&Test Data Output");
string MI_GENCAD	= M("&Gencad 1.4 Ausgabe","&Gencad 1.4 Output");
string MI_HYPLYNX	= M("&HyperLynx Ausgabe","&HyperLynx Output");
string MI_IPCDATA	= M("&IPC-D-356 Ausgabe","&IPC-D-356 Output");
string MI_CONBAE	= M("%&Netzliste Ausgabe","%&Net List Output");
string MI_CONCONV	= M("Netz&liste Import","Net &List Input");
string MI_ICAPNET	= M("ICAP I&mport","IC&AP Input");
string MI_LAYDXFDO	= M("%AutoCAD/D&XF Ausgabe","%AutoCAD/D&XF Output");
string MI_LAYDXFDI	= M("AutoCAD/DX&F Import","AutoCAD/DX&F Input");
string MI_LAYEPS	= M("%&EPS/PDF-Ausgabe","%&EPS/PDF Output");
string MI_LCIFIO	= M("%Caltech CIF I/&O","%CIF I/&O");
string MI_LCIFOUT	= M("CIF &Ausgabe","CIF &Output");
string MI_LCIFIN	= M("CIF &Import","CIF &Input");
string MI_LTXFIN	= M("%TXF Import","%TXF Input");
string MI_LMININ	= M("OrCAD MIN-Import","OrCAD MIN Input");
string MI_BITMAPIN	= M("Bitmap-Import","Bitmap Input");
string MI_WRLOUT	= M("%WRL/VRML-Ausgabe","%WRL/VRML Data Output");

// User Language program name definitions
#define UL_LAYDUMP	"laydump"
#define UL_PARTLIST	"partlist"
#define UL_DUMPPLC	"dumpplc"
#define UL_READLPLC	"readlplc"
#define UL_ROUTING	"routing"
#define UL_DRILLOUT	"drillout"
#define UL_TESTDATA	"testdata"
#define UL_GENCAD	"gencad"
#define UL_HYPLYNX	"hyplynx"
#define UL_IPCDATA	"ipcout"
#define UL_CONBAE	"conbae"
#define UL_CONCONV	"conconv"
#define UL_ICAPNET	"icapnet"
#define UL_LAYDXFDO	"laydxfdo"
#define UL_LAYDXFDI	"laydxfdi"
#define UL_LAYEPS	"layeps"
#define UL_LCIFIN	"lcifin"
#define UL_LCIFOUT	"lcifout"
#define UL_LTXFIN	"ltxfin"
#define UL_LMININ	"lminin"
#define UL_BITMAPIN	"bitmapin"
#define UL_WRLOUT	"wrlout"

// 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 */;
	string varname			/* Variable name */;
	string menuname			/* Menu item name */;
	string menuprog			/* Menu item program */;
	int ddbclass	= bae_planddbclass()
					/* Layout plan DDB class */;
	string e_dis	= ""		/* Empty plan disable */;
	string psd_dis	= ""		/* Part/padstack/pad items disable */;
	string sd_dis	= ""		/* Padstack/pad items disable */;
	// Abort if not in GED
	if (uliptype()!=ULIPGED)
		error_class();
	// Test the plan class
	switch (ddbclass) {
		case DDBCLLAY :
		break;
		case DDBCLLPRT :
		psd_dis=",";
		break;
		case DDBCLLSTK :
		case DDBCLLPAD :
		psd_dis=sd_dis=",";
		break;
		default :
		e_dis=psd_dis=sd_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(22+menun,e_dis+MI_LAYDUMP,
	 psd_dis+MI_PARTLIST,sd_dis+MI_DUMPPLC,sd_dis+MI_READPLC,
	 sd_dis+MI_ROUTING,psd_dis+MI_DRILLOUT,psd_dis+MI_TESTDATA,
	 psd_dis+MI_GENCAD,psd_dis+MI_IPCDATA,psd_dis+MI_CONBAE,MI_CONCONV,
	 MI_ICAPNET,e_dis+MI_LAYDXFDO,e_dis+MI_LAYDXFDI,MI_LAYEPS,
	 e_dis+MI_LCIFIO,psd_dis+MI_HYPLYNX,MI_LTXFIN,MI_LMININ,
	 e_dis+MI_BITMAPIN,e_dis+MI_WRLOUT,
	 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,UPRABORT)) {
		// BAE/ASCII output
		case 0 : runulprogexit(UL_LAYDUMP);
		// Part list output
		case 1 : runulprogexit(UL_PARTLIST);
		// Place data output
		case 2 : runulprogexit(UL_DUMPPLC);
		// Place data input
		case 3 : runulprogexit(UL_READLPLC);
		// Routing data output
		case 4 : runulprogexit(UL_ROUTING);
		// Drill data output
		case 5 : runulprogexit(UL_DRILLOUT);
		// Test data output
		case 6 : runulprogexit(UL_TESTDATA);
		// Gencad data output
		case 7 : runulprogexit(UL_GENCAD);
		// Test data output
		case 8 : runulprogexit(UL_IPCDATA);
		// Con. list output
		case 9 : runulprogexit(UL_CONBAE);
		// Con. list input
		case 10 : runulprogexit(UL_CONCONV);
		// ICAP con. list input
		case 11 : runulprogexit(UL_ICAPNET);
		// AutoCAD/DXF output
		case 12 : runulprogexit(UL_LAYDXFDO);
		// AutoCAD/DXF input
		case 13 : runulprogexit(UL_LAYDXFDI);
		// Encapsulated PostScript output
		case 14 : runulprogexit(UL_LAYEPS);
		// CIF input/output
		case 15 :
		switch (bae_askmenu(3,
		 e_dis+MI_LCIFOUT,sd_dis+MI_LCIFIN,UPRABORT)) {
			// CIF output
			case 0 : runulprogexit(UL_LCIFOUT);
			// CIF input
			case 1 : runulprogexit(UL_LCIFIN);
			// Done on default
			default :
			}
		break;
		// HyperLynx output
		case 16 : runulprogexit(UL_HYPLYNX);
		// TXF input
		case 17 : runulprogexit(UL_LTXFIN);
		// OrCAD MIN input
		case 18 : runulprogexit(UL_LMININ);
		// Bitmap input
		case 19 : runulprogexit(UL_BITMAPIN);
		// WRL/VRML output
		case 20 : runulprogexit(UL_WRLOUT);
		// Check for user added items
		default :
		if (menusel>=21 && (menusel-21)<menun)
			runulprog(menuiteml[menusel-21].prog);
		}
}

// User Language program end