/* INIEDIT (STD) -- Interactivly Edit Selected bae.ini Entries */
/* INIEDIT (STD) -- Ausgewaehlte bae.ini-Eintrage interaktiv veraendern */
/*
// Copyright (c) 2005-2012 Oliver Bartels F+E, Muenchen
// Author: Roman Ludwig
// Changes History:
//	rl (120427) RELEASED FOR BAE V7.8.
//	rl (101019) RELEASED FOR BAE V7.6.
//	rl (091104) RELEASED FOR BAE V7.4.
//	rl (081112) ENHANCEMENT:
//		Added user specific bae.ini file support.
//	rl (081014) RELEASED FOR BAE V7.2.
//	rl (071029) RELEASED FOR BAE V7.0.
//	rl (070308) ENHANCEMENT:
//		Added dialog box size parameters.
//	rl (060829) RELEASED FOR BAE V6.8.
//	rl (051025) ORIGINAL CODING.
//
// DESCRIPTION
//
// The iniedit User Language program allows to interactivly set
// some common parameters defined in bae.ini. The old bae.ini
// contents is backuped in bae.bak.
*/

// Includes
#include "pop.ulh"			// User Language popup utilities

// Enforce standard caller type
#pragma ULCALLERSTD

// Disable undo state request
#pragma ULCALLERNOUNDO

// Messages
string UPRPARAMDIAL	= M("Ausgewaehlte Einstellungen bae.ini",
			    "Selected settings from bae.ini");
string UPRLOADLAST	= M("Beim Modulstart zuletzt bearbeitetes Element laden",
			    "Load last processed element on startup");
string UPRDSAVEAS	= M("Speichern unter-Verhalten :",
			    "Save as behaviour :");
string UPRSAVEAS0	= M("&Altes Element im Speicher",
			    "&Old element in memory");
string UPRSAVEAS1	= M("&Neues Element laden","Load &new element");
string UPRDLOCKMODE	= M("Element Doppelbearbeitung :",
			    "Element Double Usage :");
string UPRLOCKM0	= M("&Warnungsabfrage beim Speichern",
			    "Issue &Warning Query on Save");
string UPRLOCKM1	= M("Warnung beim Laden und &Speichern",
			    "Issue Warnings on Load && &Save");
string UPRLOCKM2	= M("Warnung beim Laden, &kein Speichern",
			    "Issue Warning on Load, &Disable Save");
string UPRLOCKM3	= M("Laden &verbieten","D&isable Load");
string UPRDMREP		= M("Mauswiederholung :","Mouse Repeat Function :");
string UPRMREP0		= M("Nur &Menufunktionen","&Menu Functions Only");
string UPRMREP1		= M("Menu-, &Tastenfunktionen","Menu, &Key Functions");
string UPRMREP2		= M("Menu-, &Kontextfunktionen",
			    "Menu, &Context Functions");
string UPRMREP3		= M("M&enu-, Tasten-, Kontextfunktionen",
			    "M&enu, Key, Context Functions");
string UPRDMWARP	= M("Maussprung :","Mouse Warp :");
string UPRMWARP0	= M("&Kein Menumaussprung","&No menu mouse warp");
string UPRMWARP1	= M("Sprung an Position &1","Warp to &1st item");
string UPRMWARP2	= M("Sprung an &selektierte Position",
			    "Warp to &selected item");
string UPRMWARPB	= M("Ruecksprung nach Selektion","Restore position");
string UPRMWARPP	= M("Sprung zu Pickelementposition",
			    "Warp to Element Pick Position");
string UPRDMINFO	= M("Infoanzeige :","Info Display :");
string UPRMINFO0	= M("&Windows Sprechblase","&Windows Balloon Tooltip");
string UPRMINFO1	= M("Dauerhaftes &Mausfadenkreuz",
			    "Permanent &Mouse Crosshair");
string UPRMINFO2	= M("Auf &Strg-Anfrage","On &Ctrl request");
string UPRDDIALOG	= M("Max. Dialogboxgroesse (%.1f*%.1f)",
			    "Max. Dialog box size (%.1f*%.1f)");
string UPRDTBATTR	= M("Toolbar Anzahl Attributfenster :",
			    "Toolbar attribute window count :");
string UPRDWARN		= M("Warnung bei :","Warning at :");
string UPRWARNSL	= M("Abkopplung Symbol von Layoutbauteil",
			    "Detachment Symbol of Layout Part");
string UPRWARNNJ	= M("Netzzusammenfassungen","Net Join");
string UPRWARNMP	= M("Modulport auf Planebene","Top Level Modul Port");
string UPRDSFINDW	= M("Angezeigte Umgebung bei Symbolsuche :",
			    "Symbol search display range :");
string UPRDLOGLTW	= M("Symbollogik Tabellenfeldbreite :",
			    "Symbol logic table field width :");
string UPRDSFORMAT	= M("SCM EPS-/PDF Defaultformat :",
			    "SCM EPS-/PDF Default Format :");
string UPRSCALE0	= M("&Transparent","&Transparent");
string UPRSCALE1	= M("Transparent 1&:1","Transparent 1&:1");
string UPRSCALE2	= M("Transparent &1:2","Transparent &1:2");
string UPRSCALE3	= M("Transparent &2:1","Transparent &2:1");
string UPRSFORMAT1	= M("%&Postscript n:1","%&Postscript n:1");
string UPRSFORMAT2	= M("Postscript &A4","Postscript &A4");
string UPRSFORMAT3	= M("Postscript &A3","Postscript &A3");
string UPRSFORMAT4	= M("Postscript 1&60*240","Postscript 1&60*240");
string UPRSFORMAT5	= M("Postscript &Letter","Postscript &Letter");
string UPRSFORMAT6	= M("%&PDF n:1","%&PDF n:1");
string UPRSFORMAT7	= M("%A&uto Postscript A3/A4","%Auto Postscript A3/A4");
string UPRWARNCS	= M("Schaltplan nach Packagerlauf geaendert",
			    "Schematic changed after Packager run");
string UPRDTSEGMOD	= M("Leiterbahnen Defaultsegmentmodus :",
			    "Trace Default Segment Mode :");
string UPRTSEGMOD1	= M("&Ohne Nachbarn bewegen","M&ove without Neighbours");
string UPRTSEGMOD2	= M("&Mit Nachbarn bewegen","Move with &Neighbours");
string UPRTSEGMOD3	= M("Nachbarn &anpassen","&Adjust Neighbours");
string UPRTSEGMOD4	= M("O&hne Vias anpassen","Adjust wit&hout vias");
string UPRDCLINEMODE	= M("Dokumentarlinien Endverbindung :",
			    "Documentary Closed Lines :");
string UPRSCLINEMODE	= M("Grafiklinien Endverbindung :",
			    "Graphic Closed Lines :");
string UPRCLINEMODE1	= M("&Nicht geschlossen halten","&Never keep closed");
string UPRCLINEMODE2	= M("Immer &geschlossen halten","&Always keep closed");
string UPRCLINEMODE3	= M("Nach&fragen","&Query");
string UPRDLFORMAT	= M("Layout EPS-/PDF Defaultformat :",
			    "Layout EPS-/PDF Default Format :");
string UPRLFORMAT1	= M("Postscript &n:1","Postscript &n:1");
string UPRLFORMAT2	= M("Postscript A&4","Postscript A&4");
string UPRLFORMAT3	= M("Postscript A&3","Postscript A&3");
string UPRLFORMAT4	= M("Postscript 1&60*240","Postscript 1&60*240");
string UPRLFORMAT5	= M("Postscript &Letter","Postscript &Letter");
string UPRLFORMAT6	= M("%&PDF n:1","%&PDF n:1");
string UPRLFORMAT7	= M("P&DF A4","P&DF A4");
string UPRLFORMAT8	= M("PD&F n:1 A4","PD&F n:1 A4");
string UPRLFORMAT9	= M("PDF &A3","PDF &A3");
string UPRLFORMAT10	= M("&PDF n:1 A4-Mosaik","&PDF n:1 A4 Mosaic");
string UPRDOFFSET	= M("EPS-/PDF Offset [mm] :","EPS-/PDF Offset [mm] :");
string UPRDX		= M("X :","X :");
string UPRDY		= M("Y :","Y :");
string UPRDARCTRL	= M("Aktuelle Steuerungseinstellungen als Default eintragen",
			    "Store current control settings as default");
string UPRDARSTRAT	= M("Aktuelle Strategieeinstellungen als Default eintragen",
			    "Store current strategy settings as default");
string UPRDCOLMAP	= M("Default Farbzuordnung :","Default Color Assignment :");
string UPRCOLMAP0	= M("&D-Code Zuordnung","&D-Code Assignment");
string UPRCOLMAP1	= M("&Lagenzuordnung","&Layer Assignment");
string UPRDVIEWSET	= M("Aktuelle Ansicht / Einstellungen als Default eintragen",
			    "Store current View / Settings as default");
string UPRDPLCSET	= M("Aktuelle Autoplacement / Einstellungen als Default eintragen",
			    "Store current Autoplacement / Settings as default");
string UPRDGRPSET	= M("Aktuelle Bearbeiten / Gruppeneinstellungen als Default eintragen",
			    "Store current Edit / Group Settings as default");
string UPRDCOPFSET	= M("Aktuelle Flaechenautomatik / Einstellungen als Default eintragen",
			    "Store current Copper Fill / Settings as default");
string UPRDSETSET	= M("Aktuelle Einstellungen / Einstellungen als Default eintragen",
			    "Store current Settings / Settings as default");
string UPRDSPLOTSET	= M("Aktuelle Plotausgabe / Einstellungen als Default eintragen",
			    "Store current Plot Output / Settings as default");
string UPRDPLOTSET	= M("Aktuelle Kontrollplot / Einstellungen als Default eintragen",
			    "Store current Control Plot / Settings as default");
string UPRDGERBSET	= M("Aktuelle Gerber Fotoplot / Einstellungen als Default eintragen",
			    "Store current Gerber Photoplot / Settings as default");
string UPRDDRILLSET	= M("Aktuelle Bohr+Bestueckdaten / Einstellungen als Default eintragen",
			    "Store current Drill+Insertion / Settings as default");
string UPRDATOVWR		= M("Bestehende Daten ueberschreiben (J/N)? ",
			    "Overwrite existing data (Y/N) ? ");
string REPDONE		= M("Neue Einstellungen uebernommen.",
			    "New settings stored.");
string REPCONFDONE	= M("Konfigurationsdateien kopiert.",
			    "Configuration files copied.");
string REPFCOPY		= M("Kopieren Datei '%s'...",
			    "Copying file '%s'...");
string ERRBAKFILE	= M("Fehler beim Anlegen der Backup-Datei '%s'!",
			    "Error creating backup file '%s'!");
string ERRSAMECONF	= M("Gleiches Verzeichnis '%s' fuer Benztzer und alle Benutzer konfiguriert!",
			    "Error creating backup file '%s'!");
string ERRFREAD		= M("Fehler beim Lesen der Datei '%s'!",
			    "Error reading file '%s'!");
string ERRFWRITE	= M("Fehler beim Schreiben auf Datei '%s'!",
			    "Error writing to file '%s'!");
string ERRNOWIN		= M("Nur in Windowsumgebungen verfuegbar!",
			    "Windows Environment needed!");

// INI file parameter name definitions
#define PAR_SCMFORMAT	"PSFORMAT_SCM"		// Def. EPS/PDF-output format
#define PAR_SCMXOFF	"PSXOFF_SCM"		// Def. EPS/PDF X offset
#define PAR_SCMYOFF	"PSYOFF_SCM"		// Def. EPS/PDF Y offset
#define PAR_LAYFORMAT	"PSFORMAT_LAY"		// Def. EPS/PDF-output format
#define PAR_LAYXOFF	"PSXOFF_LAY"		// Def. EPS/PDF X offset
#define PAR_LAYYOFF	"PSYOFF_LAY"		// Def. EPS/PDF Y offset
#define PAR_TSEGMOVM	"TSEGMOVM_GED"		// Trace segment move mode
#define PAR_TRCCOLLQRY	"TRCCOLLQRY_GED"	// Trace collision query mode
#define PAR_GCLINEEDIT	"CLINEEDIT_GED"		// Closed doc. line edit mode
#define PAR_SCLINEEDIT	"CLINEEDIT_SCM"		// Closed doc. line edit mode
#define PAR_LOADLAST	"LOADLAST_STD"		// Auto. last element load flag
#define PAR_SAVEASLOAD	"SAVEASLOAD_STD"	// Auto. load after save as
#define PAR_LOCKMODE	"LOCKMODE_STD"		// Element lock mode
#define PAR_MOUSEREP	"MOUSEREP_STD"		// Mouse command repeat mode
#define PAR_MOUSEWARP	"MOUSEWARP_STD"		// Mouse warp mode
#define PAR_MOUSEINFO	"MOUSEINFO_STD"		// Menu mouse info display mode
#define PAR_DIALXMAX	"DIALOGXMAX_STD"	// Dialog box max. width
#define PAR_DIALYMAX	"DIALOGYMAX_STD"	// Dialog box max. height
#define PAR_TB_ATTRCNT	"TB_ATTRWCNT_SCM"	// Toolbar attr. window count
#define PAR_PINWIDTH	"LLPINDW_SCM"		// Pin edit dialog item width
#define PAR_ZOOMEXP	"SYMZOOMEXP_SCM"	// Symbol zoom expansion value
#define PAR_WARNMODES	"WARNMODE_SCM"		// Warning mode schematic
#define PAR_WARNMODEL	"WARNMODE_LAY"		// Warning mode schematic
#define PAR_COLMAP	"COLORMAP_CV"		// Color mapping mode
#define PAR_CLEANROUT	"CLEANROUT_AR"		// Router cleaning run enable
#define PAR_CLEANOPT	"CLEANOPT_AR"		// Optim. cleaning run enable
#define PAR_OPTCOUNT	"OPTCOUNT_AR"		// Number of optimization runs
#define PAR_MAXROCON	"MAXROCON_AR"		// Max. rip-ups per connection
#define PAR_MAXROLEVEL	"MAXROLEVEL_AR"		// Max. rip-up level
#define PAR_MAXRORET	"MAXRORET_AR"		// Max. num. of rip-up retries
#define PAR_SMDVIAPASS	"SMDVIAPASS_AR"		// SMD via fanout pass
#define PAR_BGAFANOUT	"BGAFANOUT_AR"		// BGA fanout mode
#define PAR_MICVIAMODE	"MICVIAMODE_AR"		// Micro via mode
#define PAR_POWLVIAMODE	"POWLVIAMODE_AR"	// Power layer via mode
#define PAR_PGSWAPMODE	"PGSWAPMODE_AR"		// Pin/gate swap mode
#define PAR_AUTOSAVE	"AUTOSAVE_AR"		// Automatic save enable
#define PAR_OPTCHAR	"OPTCHAR_AR"		// Optimizer characteristic
#define PAR_VIADELAY	"VIADELAY_AR"		// Router via delay at 1/10"
#define PAR_CHANNELDLY	"CHANNELDLY_AR"		// Router pin channel delay
#define PAR_CROSSDLY	"CROSSDLY_AR"		// Cross direction delay
#define PAR_DIRCHGDLY	"DIRCHGDLY_AR"		// Direction change delay
#define PAR_PACKDLY	"PACKDLY_AR"		// Path packing delay
#define PAR_STATDLY	"STATDLY_AR"		// Statistical delay base
#define PAR_BUSSTRDLY	"BUSSTRDLY_AR"		// Bus structure delay
#define PAR_RRAREA1DLY	"RRAREA1DLY_AR"		// Re-route area 1 delay
#define PAR_RRAREA2DLY	"RRAREA2DLY_AR"		// Re-route area 2 delay
#define PAR_SKIPPDLY	"SKIPPDLY_AR"		// Skip existing path delay
#define PAR_OFFGRIDDLY	"OFFGRIDDLY_AR"		// Router off-grid delay
#define PAR_PGRIDSHIFT	"PGRIDSHIFT_AR"		// Router prefered grid shift
#define PAR_PGRIDDLY	"PGRIDDLY_AR"		// Router prefered grid delay
#define PAR_NAREADLY	"NAREADLY_AR"		// Router outside net area delay
#define PAR_FULLVIAEVL	"FULLVIAEVL_AR"		// Full via evaluation mode
#define PAR_GGRIDLOCK	"GRIDLOCK_GED"		// Input grid lock
#define PAR_GANGLELOCK	"ANGLELOCK_GED"		// Input angle lock
#define PAR_GINPUTGRID	"INPUTGRID_GED"		// Input grid
#define PAR_GBACKGRID	"BACKGRID_GED"		// Background grid
#define PAR_GRIDLINES	"GRIDLINES_STD"		// Grid line matrix display flag
#define PAR_GAUTOCORN	"AUTOCORN_GED"		// Automatic corner insertion
#define PAR_GANGLETOGG	"ANGLETOGGLE_GED"	// Input angle toggle flag
#define PAR_GCOORDDISP	"COORDDISP_GED"		// Coordinate display mode
#define PAR_COLTABSAVE	"COLTABSAVE_LAY"	// Color table save flag
#define PAR_GWIDEDRAW	"WIDEDRAW_GED"		// Wide draw width
#define PAR_GPICKMODE	"PICKMODE_GED"		// Element pick mode
#define PAR_GAUTOCOMPL	"PAUTOCOMPL_GED"	// Polygon autocomplete mode
#define PAR_GLAYDEFM	"LAYDEFM_GED"		// Layer default mode
#define PAR_DRCDISPM	"DRCDISPM_GED"		// DRC error display mode
#define PAR_DRCTEXTH	"DRCTEXTH_GED"		// DRC error text height
#define PAR_MINCONDISP	"MINCONDISP_GED"	// Mincon display mode
#define PAR_MINCONCLIP	"MINCONCLIP_GED"	// Mincon display clipping mode
#define PAR_GPICKPDISP	"PICKPDISP_GED"		// Pick point display mode
#define PAR_GINFODISP	"INFODISP_GED"		// Info display mode
#define PAR_GPLOTPDISP	"PLOTPDISP_GED"		// Plot preview mode
#define PAR_GMIRRDISP	"MIRRDISP_GED"		// Mirror display mode
#define PAR_DRCDISTM	"DRCDISTM_GED"		// DRC distance display mode
#define PAR_DRCDEF	"DRCDEF_GED"		// DRC default clearance value
#define PAR_PATHPICKM	"PATHPICKM_GED"		// Path pick mode
#define PAR_GMINCON	"MINCON_GED"		// Mincon mode
#define PAR_GAUTOSAVEI	"AUTOSAVEI_GED"		// Autosave intervall
#define PAR_PATHWIDTH1	"PATHWIDTH1_GED"	// First (small) path width
#define PAR_PATHWIDTH2	"PATHWIDTH2_GED"	// Second (wide) path width
#define PAR_VIAOPTM	"VIAOPTM_GED"		// Via optimization mode
#define PAR_DEFDYNBGED	"DEFDYNBOUND_GED"	// Dyn. elem. boundary classes
#define PAR_GFONTNAME	"FONTNAME_GED"		// Font name
#define PAR_PARTAIRLM	"PARTAIRLM_GED"		// Part airline mode
#define PAR_PARTTRCM	"PARTTRCM_GED"		// Part pin trace move mode
#define PAR_GGRPDMODE	"GRPDISPMODE_GED"	// Group display mode
#define PAR_GGRPAMODE	"GRPANGMODE_GED"	// Group angle release mode
#define PAR_GGRPVMODE	"GRPVISMODE_GED"	// Group visibility mode
#define PAR_GRPBALTLAY	"GRPBRDALTLAY_GED"// Group board outline alternate layer
#define PAR_CFISOL	"CFISOLATION_GED"	// Copper fill isol. distance
#define PAR_CFMINAREA	"CFMINAREA_GED"		// Copper fill min. area size
#define PAR_CFTRCMODE	"CFTRCMODE_GED"		// Copper fill trace mode
#define PAR_CFISLAND	"CFISLAND_GED"		// Copper fill island mode
#define PAR_CFINKEEPO	"CFINKEEPOUT_GED"	// Copper fill inside area mode
#define PAR_CFAANGMODE	"CFAANGMODE_GED"	// Copper fill acute angle mode
#define PAR_CFHTMODE	"CFHTMODE_GED"		// Copper fill heat trap mode
#define PAR_CFHTWIDTH	"CFHTWIDTH_GED"		// Copper fill heat trap width
#define PAR_CFHTISOL	"CFHTISOL_GED"		// Cop.fill heat trap iso. dist.
#define PAR_CFMAXHTCNT	"CFMAXHTCNT_GED"	// Cop.fill max. heat trap junc.
#define PAR_CFHATSPACE	"CFHATSPACE_GED"	// Copper fill hatch spacing
#define PAR_CFHATWIDTH	"CFHATWIDTH_GED"	// Copper fill hatch width
#define PAR_CFHATANG	"CFHATANG_GED"		// Copper fill hatch angle
#define PAR_CFHATMODE	"CFHATMODE_GED"		// Copper fill hatch mode
#define PAR_APPARTEXP	"APPARTEXP_GED"		// Autoplacement part expansion
#define PAR_APPARTORD	"APPARTORD_GED"		// Autoplacement part order
#define PAR_APSEGFIT	"APSEGMFIT_GED"		// Autoplacement segment fit
#define PAR_APBASEOFF	"APBASEOFF_GED"		// Autoplc. part size base off.
#define PAR_APOPTCNT	"APOPTCNT_GED"		// Autoplc. optimization count
#define PAR_APPARTSWAP	"APPARTSWAP_GED"	// Autoplacement part swap flag
#define PAR_APPGSWAP	"APPGSWAP_GED"		// Autoplc. pin/gate swap flag
#define PAR_APMIRR	"APMIRRMODE_GED"	// Autoplc. part mirror mode
#define PAR_APROT	"APROTMODE_GED"		// Autoplc. part rotation mode
#define PAR_APRETRYCNT	"APRETRYCNT_GED"	// Autoplacement retry count
#define PAR_APSMDROT	"APSROTMODE_GED"	// Autoplc. SMD part rot. mode
#define PAR_APOUTLLAY	"APOUTLLAY_GED"		// Autoplc. part outline layer
#define PAR_SGRIDLOCK	"GRIDLOCK_SCM"		// Input grid lock
#define PAR_SANGLELOCK	"ANGLELOCK_SCM"		// Input angle lock
#define PAR_SBACKGRID	"BACKGRID_SCM"		// Background grid
#define PAR_SINPUTGRID	"INPUTGRID_SCM"		// Input grid
#define PAR_SCOORDDISP	"COORDDISP_SCM"		// Coordinate display mode
#define PAR_SAUTOCORN	"AUTOCORN_SCM"		// Automatic corner insertion
#define PAR_SPICKMODE	"PICKMODE_SCM"		// Element pick mode
#define PAR_SPICKPDISP	"PICKPDISP_SCM"		// Pick point display mode
#define PAR_SAUTOCOMPL	"PAUTOCOMPL_SCM"	// Polygon autocomplete mode
#define PAR_SERRORDISP	"ERRORDISP_SCM"		// Error display mode
#define PAR_SINFODISP	"INFODISP_SCM"		// Info display mode
#define PAR_SPLOTPDISP	"PLOTPDISP_SCM"		// Plot preview mode
#define PAR_SGRPDMODE	"GRPDISPMODE_SCM"	// Group display mode
#define PAR_SGRPAMODE	"GRPANGMODE_SCM"	// Group angle release mode
#define PAR_DEFSYMTMM	"DEFSYMTMM_SCM"		// Default symbol text move mode
#define PAR_DEFSIGROUTE	"DEFSIGROUT_SCM"	// Default signal router mode
#define PAR_UNROUTELINE	"UNROUTELINE_SCM"	// Unroute line draw mode
#define PAR_DEFSIGGROUT	"DEFSIGGROUT_SCM"	// Def. signal group router mode
#define PAR_CSEGMOVM	"CSEGMOVM_SCM"		// Connection segment move mode
#define PAR_CONSPLIT	"CONSPLIT_SCM"		// Connection split mode
#define PAR_SCONSPLIT	"SCONSPLIT_SCM"		// Symbol connection split mode
#define PAR_SFONTNAME	"FONTNAME_SCM"		// Font name
#define PAR_SAUTOSAVEI	"AUTOSAVEI_SCM"		// Autosave intervall
#define PAR_DEFDYNBSCM	"DEFDYNBOUND_SCM"	// Dyn. elem. boundary classes
#define PAR_SSTDLINE	"STDLINE_SCM"		// Standard line width
#define PAR_SPLOTSCALE	"PLOTSCALE_SCM"		// HPGL plot scale factor
#define PAR_SHPGLFILL	"HPGLFILL_SCM"		// HPGL fill mode
#define PAR_SHPGLSPEED	"HPGLSPEED_SCM"		// HPGL pen speed
#define PAR_SGENPSCALE	"GENPSCALE_SCM"		// Generic printer scale mode
#define PAR_SGENPCOLOR	"GENPCOLOR_SCM"		// Generic printer color mode
#define PAR_PLTAUTOROT	"PLTAUTOROT_SCM"	// Automatic plot rotation flag
#define PAR_LHPGLFILL	"HPGLFILL_CAM"		// HPGL fill mode
#define PAR_LHPGLSPEED	"HPGLSPEED_CAM"		// HPGL pen speed
#define PAR_LHPGLPENW	"HPGLPENW_CAM"		// HPGL pen width
#define PAR_LHPGLSCALE	"HPGLSCALE_CAM"		// HPGL plot scale factor
#define PAR_LGENPSCALE	"GENPSCALE_CAM"		// Generic printer scale mode
#define PAR_LGENPDRAW	"GENPDRAW_CAM"		// Generic printer drawing mode
#define PAR_GBRFORMAT	"GBRFORMAT_CAM"		// Gerber format
#define PAR_GBROPT	"GBROPT_CAM"		// Gerber optimization mode
#define PAR_GBRFILL	"GBRFILL_CAM"		// Gerber optimization mode
#define PAR_GBRARC	"GBRARC_CAM"		// Gerber arc mode
#define PAR_GBREXT	"GBREXT_CAM"		// Gerber extended mode
#define PAR_LSTDLINE	"STDLINE_CAM"		// Standard line width
#define PAR_ALLLAYER	"ALLLAYER_CAM"		// All layer output mode
#define PAR_BORDER	"BORDER_CAM"		// Board outline output mode
#define PAR_PLTROT	"PLOTROT_CAM"		// Plot rotate mode
#define PAR_PLTMIRR	"PLOTMIRR_CAM"		// Plot mirror mode
#define PAR_MARKER	"MARKER_CAM"		// Plot marker output mode
#define PAR_SYMTOL	"SYMTOL_CAM"		// Symbol tolerance
#define PAR_DRACCUR	"DRACCUR_CAM"		// Drill accuracy
#define PAR_POWHTMD	"POWHTMDIST_CAM"	// Heat trap to drl. min. dist.
#define PAR_POWHTANG	"POWHTANG_CAM"		// Heat trap angle
#define PAR_POWISMD	"POWISMDIST_CAM"	// Isolation to drl. min. dist.
#define PAR_POWHTRNG	"POWHTRANGE_CAM"	// Heat trap to drl. dist. range
#define PAR_POWISRNG	"POWISRANGE_CAM"	// Isolation to drl. dist. range
#define PAR_POWBORDWD	"POWBORDERWD_CAM"	// Isolation border width
#define PAR_POWPLANEWD	"POWPLANEWD_CAM"	// Split power plane isol. width
#define PAR_CVBACKGRID	"BACKGRID_CV"		// Background grid
#define PAR_CVINPUTGRID	"INPUTGRID_CV"		// Input grid
#define PAR_CVCOORDDISP	"COORDDISP_CV"		// Coordinate display mode
#define PAR_COLMAP	"COLORMAP_CV"		// Color mapping mode
#define PAR_DRAWMODE	"DRAWMODE_CV"		// Draw mode
#define PAR_CVWIDEDRAW	"WIDEDRAW_CV"		// Wide draw width string
#define PAR_CVGBRFMT	"GBRFMT_CV"		// Gerber format
#define PAR_CVGBRLAYM	"GBRLAYM_CV"		// Gerber layer selection mode
#define PAR_CVGBRUSRCONV "GBRUSRCONV_CV"	// Gerber conv. factor
#define PAR_CVPOWHTLINE	"POWHTLINE_CV"		// Heat trap line width
#define PAR_CVPOWHTANG	"POWHTANG_CV"		// Heat trap angle
#define PAR_CVINPXOFF	"INPXOFF_CV"		// Default input X offset
#define PAR_CVINPYOFF	"INPYOFF_CV"		// Default input Y offset
#define PAR_CVVIADCODE	"GBRVIADC_CV"		// Default gerber via D code
#define PAR_CVGBRARC	"GBRARC_CV"		// Gerber arc mode
#define PAR_CVINPMIRR	"INPMIRROR_CV"		// Default input mirror mode
#define PAR_CVGBRZERO	"GBRZEROM_CV"		// Gerber zero suppression mode
#define PAR_CVGBREXT	"GBREXT_CV"		// Gerber extended mode
#define PAR_CVGBROPT	"GBROPT_CV"		// Gerber optimization mode
#define PAR_CVGBRCOORD	"GBRCOORDM_CV"		// Gerber coordinate mode
#define PAR_CVFLASHDM	"GBRFLASHDM_CV"		// Default flash doc. layer mode

// INI file name
string BAEINIFN		= strgetconffilename(INITFVNAME,INITFNAME,1);
string BAEUINIFN	= strgetconffilename(INITUFVNAME,INITUFNAME,2);

// User Language program names
#define UL_TOOLBAR	"toolbar"	// ULP: Toolbar

// Globals
string curid				/* Current identifier */;
int curint				/* Current integer value */;
int scanlang		= (-1)		/* Scan language code */;
int curlang				/* Current language code */;
int curline				/* Current line */;
double curflt				/* Current float value */;
int vastackn		= 0		/* Variable array stack count */;
int vastack[]				/* Variable array stack */;
int callertype		= uliptype()	/* Current caller type */;
int scanctype				/* Scan caller type */;
struct rplcdes {			// Variable value replacement desc.
	int line			/* Variable line */;
	string name			/* Variable name */;
	string val			/* New variable value */;
	} rplcl[]			/* Replacement list */;
int rplcn		= 0		/* Replacement count */;
int mergemode		= (-1)		/* Merge mode */;

/*________________________________________________________________*/
// Main program
void main()
{
	string cmdstr	= ""		/* Command string */;
	string modid			/* Module id */;
	int nextline	= (-1)		/* Next replacement line */;
	int rplcidx	= 0		/* Replacement request index */;
	int c				/* Scan character */;
	int dpos	= (-1)		/* Definition mark index */;
	int eidx			/* Definition end index */;
	int dqmode	= 0		/* Double quote status */;
	int sqmode	= 0		/* Single quote status */;
	int sfh				/* Source file handle */;
	int dfh				/* Destination file handle */;
	string sbuf			/* String buffer */;
	string bakfname			/* Backup file name */;
	int i				/* Loop control variable */;
	// Check if user specific bae.ini file exists mode
	fseterrmode(0);
	if ((sfh=fopen(BAEUINIFN,0))!=(-1)) {
		BAEINIFN=BAEUINIFN;
		fclose(sfh);
		}
	fseterrmode(1);
	// Parse the INI file
	parseinifile();
	if (bae_peekiact())
		// Get the command string
		if ((cmdstr=askstr("",MAXKEYLEN))==UINPOPABORT)
			error_abort();
	switch (cmdstr) {
		case "gedviewset" :
		modid="ged";
		gedviewsettings();
		break;
		case "gedcopfillset" :
		modid="ged";
		gedcopfillsettings();
		break;
		case "gedsetset" :
		modid="ged";
		gedsetsettings();
		break;
		case "gedplcset" :
		modid="ged";
		gedplcsettings();
		break;
		case "gedgrpset" :
		modid="ged";
		gedgrpsettings();
		break;
		case "gedplotset" :
		modid="ged";
		gedplotsettings();
		break;
		case "scmviewset" :
		modid="scm";
		scmviewsettings();
		break;
		case "scmgrpset" :
		modid="scm";
		scmgrpsettings();
		break;
		case "scmplotset" :
		modid="scm";
		scmplotsettings();
		break;
		case "scmsetset" :
		modid="scm";
		scmsetsettings();
		break;
		case "rutctrlset" :
		modid="ar";
		rutctrlsettings();
		break;
		case "rutstratset" :
		modid="ar";
		rutstratsettings();
		break;
		case "camplotset" :
		modid="cam";
		camplotsettings();
		break;
		case "camgerberset" :
		modid="cam";
		camgerbersettings();
		break;
		case "camdrillset" :
		modid="cam";
		camdrillsettings();
		break;
		case "camsetset" :
		modid="cam";
		camsetsettings();
		break;
		case "cvviewset" :
		modid="cv";
		cvviewsettings();
		break;
		case "cvsetset" :
		modid="cv";
		cvsetsettings();
		break;
		case "copyset" :
		copysetup();
		break;
		default :
		// Test the interpreter type
		switch (callertype) {
			/* SCM */
			case ULIPSCM : modid="scm"; param_scm(); break;
			/* GED */
			case ULIPGED : modid="ged"; param_ged(); break;
			/* AR */
			case ULIPAR  : modid="ar"; param_ar(); break;
			/* CAM */
			case ULIPCAM : modid="cam"; param_cam(); break;
			/* CED */
			case ULIPCED : modid="ced"; break;
			/* CV */
			case ULIPCV  : modid="cv"; param_cv(); break;
			// Ignore on default
			default :
			;
			}
		}
	// Check if values changed
	if (rplcn==0)
		exit(0);
	// Perform BAE Demo check with abort
	BAE_Demo_check(2);
	bakfname=convstring(BAEINIFN,0)+".bak";
	// Set file error mode
	fseterrmode(0);
	if ((sfh=fopen(bakfname,0))!=(-1)) {
		fclose(sfh);
		remove(bakfname);
		}
	if (rename(BAEINIFN,bakfname)) {
		fseterrmode(1);
		errormsg(ERRBAKFILE,bakfname);
		}
	if ((dfh=fopen(BAEINIFN,2))==(-1)) {
		fseterrmode(1);
		rename(bakfname,BAEINIFN);
		return;
		}
	if ((sfh=fopen(bakfname,0))==(-1)) {
		fclose(dfh);
		fseterrmode(1);
		rename(bakfname,BAEINIFN);
		return;
		}
	// Get first replacement line
	while (rplcl[rplcidx].line<0)
		rplcidx++;
	nextline= rplcidx>=rplcn ? (-1) : rplcl[rplcidx].line;
	// Repetively get string from input file and modify/append it
	curline=0;
	while (fgets(sbuf,1024,sfh)==0) {
		curline++;
		if (curline==nextline) {
			dqmode=sqmode=0;
			dpos=(-1);
			// Search comment or line end
			eidx=strlen(sbuf);
			for (i=0;(c=sbuf[i])!='\0';i++) {
				if (dqmode) {
					if (c=='"')
						dqmode=0;
					}
				else if (sqmode) {
					if (c=='\'')
						sqmode=0;
					}
				else if (c=='/' || c==0x0A || c==0x0D) {
					eidx=i;
					break;
					}
				else if (c=='"') {
					dqmode=1;
					}
				else if (c=='\'') {
					dqmode=1;
					}
				else if (c=='=' && dpos==(-1)) {
					dpos=i;
					}
				}
			if (!dqmode && !sqmode) {
				// Scan to whitespace start
				for (i=eidx-1;i>=0;i--)
					if ((c=sbuf[i])==' ' || c=='\t')
						eidx=i;
					else
						break;
				for (;(c=sbuf[dpos+1])!='\0';dpos++)
					if (c!=' ' && c!='\t')
						break;
				sprintf(sbuf,"%s%s%s",strextract(sbuf,0,dpos),
				 rplcl[rplcidx].val,
				 strextract(sbuf,eidx,strlen(sbuf)));
				}
			// Get next replacement line
			rplcidx++;
			nextline= rplcidx>=rplcn ? (-1) : rplcl[rplcidx].line;
			}
		fputs(sbuf,dfh);
		}
	// Close files
	fclose(sfh);
	if (rplcl[0].line==(-1)) {
		fprintf(dfh,"\n[%s]\n",modid);
		for (rplcidx=0;rplcidx<rplcn;rplcidx++)
			if (rplcl[rplcidx].line==(-1))
				fprintf(dfh,"%s = %s\n",
				 rplcl[rplcidx].name,rplcl[rplcidx].val);
			else
				break;
		}
	fclose(dfh);
	fseterrmode(1);
	bae_prtdialog(REPDONE);
}

void param_scm()
/*
// Edit schematic parameters
*/
{
	string msg			/* Message buffer */;
	int FORMAT		= bae_iniintval(PAR_SCMFORMAT,0);
					// Plot default format
	int format			/* New format */;
	double XOFF		= bae_inidblval(PAR_SCMXOFF,15.0)/1000.0;
					// Paper/sheet X offset [mm]
	double xoff			/* New X offset */;
	double YOFF		= bae_inidblval(PAR_SCMYOFF,8.0)/1000.0;
					// Paper/sheet Y offset [mm]
	double yoff			/* New Y offset */;
	int TB_ATTRW_CNT = bae_iniintval(PAR_TB_ATTRCNT,2);
					// Toolbar attribute window count
	int tb_attrw_cnt		/* New toolbar attr. window count */;
	int WARNMODE		= bae_iniintval(PAR_WARNMODES,0);
					// Warning mode
	int warnmode			/* New warning mode */;
	int warnflag1			/* 1st warning flag */;
	int warnflag2			/* 2nd warning flag */;
	int warnflag3			/* 3rd warning flag */;
	double ZOOMEXP = bae_inidblval(PAR_ZOOMEXP,0.0001)
					/* Symbol zoom window expansion */;
	double zoomexp			/* New symbol zoom window expansion */;
	double PINDWIDTH = bae_inidblval(PAR_PINWIDTH,5.0)
					/* Pin edit field width */;
	double pindwidth		/* New pin edit field width */;
	int CLINEEDIT		= bae_iniintval(PAR_SCLINEEDIT,2);
					// Closed line edit mode
	int clineedit			/* New closed line edit mode */;
	int LOADLAST		= bae_iniintval(PAR_LOADLAST,1);
					// Load last element mode
	int loadlast			/* Load last element mode */;
	int SAVEASLOAD		= bae_iniintval(PAR_SAVEASLOAD,0);
					// Save as load element mode
	int saveasload			/* Save as load element mode */;
	int LOCKMODE		= bae_iniintval(PAR_LOCKMODE,0);
					// Element lock mode
	int lockmode			/* Element lock mode */;
	int MOUSEREP		= bae_iniintval(PAR_MOUSEREP,0)
					/* Mouse command repeat mode */;
	int mouserep			/* Mouse function repeat mode */;
	int MWARPMODE		= bae_iniintval(PAR_MOUSEWARP,0);
					// Mouse warp mode
	int mwarpmode			/* Mouse warp mode */;
	int mwarpflag1			/* 1st mouse warp flag */;
	int mwarpflag2			/* 2nd mouse warp flag */;
	int MINFOMODE		= bae_iniintval(PAR_MOUSEINFO,2);
					// Mouse info mode
	int minfomode			/* Mouse info mode */;
	double DIALXMAX		= bae_inidblval(PAR_DIALXMAX,99.2);
					// Dialog box maximum width
	double dialxmax			/* Dialog box req. maximum width */;
	double maxdialx			/* Dialog box maximum width */;
	double DIALYMAX		= bae_inidblval(PAR_DIALYMAX,19.6);
					// Dialog box maximum height
	double dialymax			/* Dialog box req. maximum height */;
	double maxdialy			/* Dialog box maximum height */;
	string varvalue			/* Variable value string */;
	double pcol = 25.0		/* Parameter column */;
	double cy			/* Dialog box current y coordinate */;
	int lldidx = (-1)		/* Load last element parameter index */;
	int salidx = (-1)		/* Save as load parameter index */;
	int lckidx = (-1)		/* Lock mode parameter index */;
	int mridx = (-1)		/* Mouse repeat parameter index */;
	int mw1idx = (-1)		/* Mouse warp 1st parameter index */;
	int mw2idx = (-1)		/* Mouse warp 2nd parameter index */;
	int mw3idx = (-1)		/* Mouse warp 3rd parameter index */;
	int infidx = (-1)		/* Mouse info parameter index */;
	int dxmidx = (-1)		/* Dialog max. width param. index */;
	int dymidx = (-1)		/* Dialog max. height param. index */;
	int tacidx = (-1)		/* Toolbar attr. count param. index */;
	int w1idx = (-1)		/* Warning 1st parameter index */;
	int w2idx = (-1)		/* Warning 2nd parameter index */;
	int w3idx = (-1)		/* Warning 3rd parameter index */;
	int sfwidx = (-1)		/* Symbol disp. width param. index */;
	int pdwidx = (-1)		/* Pin display width param. index */;
	int clidx = (-1)		/* Closed line mode param. index */;
	int fmtidx = (-1)		/* Output format parameter index */;
	int xidx = (-1)			/* X offset parameter index */;
	int yidx = (-1)			/* Y offset parameter index */;
	int vsidx = (-1)		/* View settings parameter index */;
	int psidx = (-1)		/* Plot settings parameter index */;
	int ssidx = (-1)		/* Settings settings param. index */;
	int flag			/* Flag value */;
	// Check if remote control call
	if (remotedefs())
		return;
	// Init. the y coordinate
	cy=DIAL_TOPMARG;
	// Store history element load controls
	lldidx=bae_dialaddcontrol(PA_TOGGLE,0,0,LOADLAST,
	 0.0,0.0,0.0,"",0,DIAL_LEFTMARG+pcol,cy,0.0,UPRLOADLAST);
	cy+=DIAL_CTRVSTEP;
	// Store save as load controls
	dial_label(0.0,cy,UPRDSAVEAS);
	salidx=dial_selbox(SAVEASLOAD,pcol,cy);
	dial_sbentry(0,0,UPRSAVEAS0);
	dial_sbentry(0,1,UPRSAVEAS1);
	// Store element lock mode controls
	dial_label(0.0,cy,UPRDLOCKMODE);
	lckidx=dial_selbox(LOCKMODE,pcol,cy);
	dial_sbentry(0,0,UPRLOCKM0);
	dial_sbentry(0,1,UPRLOCKM1);
	dial_sbentry(0,2,UPRLOCKM2);
	dial_sbentry(0,3,UPRLOCKM3);
	// Store mouse function repeat mode controls
	dial_label(0.0,cy,UPRDMREP);
	mridx=dial_selbox(MOUSEREP,pcol,cy);
	dial_sbentry(0,0,UPRMREP0);
	dial_sbentry(0,1,UPRMREP1);
	dial_sbentry(0,2,UPRMREP2);
	dial_sbentry(0,3,UPRMREP3);
	// Store mouse warp mode controls
	dial_label(0.0,cy,UPRDMWARP);
	mw1idx=dial_selbox(MWARPMODE&0x03,pcol,cy);
	dial_sbentry(0,0,UPRMWARP0);
	dial_sbentry(0,1,UPRMWARP1);
	dial_sbentry(0,2,UPRMWARP2);
	mw2idx=bae_dialaddcontrol(PA_TOGGLE,0,0,(MWARPMODE&0x04) ? 1 : 0,
	 0.0,0.0,0.0,"",0,DIAL_LEFTMARG+pcol,cy,0.0,UPRMWARPB);
	cy+=DIAL_CTRVSTEP;
	mw3idx=bae_dialaddcontrol(PA_TOGGLE,0,0,(MWARPMODE&0x08) ? 1 : 0,
	 0.0,0.0,0.0,"",0,DIAL_LEFTMARG+pcol,cy,0.0,UPRMWARPP);
	cy+=DIAL_CTRVSTEP;
	// Store mouse info mode controls
	dial_label(0.0,cy,UPRDMINFO);
	infidx=dial_selbox(MINFOMODE,pcol,cy);
	dial_sbentry(0,0,UPRMINFO0);
	dial_sbentry(0,1,UPRMINFO1);
	dial_sbentry(0,2,UPRMINFO2);
	// Query max. dimensions
	bae_setdblpar(0,1000.0);
	bae_setdblpar(1,1000.0);
	bae_getdblpar(0,maxdialx);
	bae_getdblpar(1,maxdialy);
	bae_setdblpar(0,DIALXMAX);
	bae_setdblpar(1,DIALYMAX);
	// Store dialog box size controls
	sprintf(msg,UPRDDIALOG,maxdialx,maxdialy);
	dial_label(0.0,cy,msg);
	dial_label(pcol,cy,UPRDX);
	dxmidx=bae_dialaddcontrol(PA_DBL|PA_CHKLL,0,1,0,0.0,0.0,
	 DIALXMAX,"",0,DIAL_LEFTMARG+pcol+2.0,cy,8.0,"");
	dial_label(pcol+12.0,cy,UPRDY);
	dymidx=bae_dialaddcontrol(PA_DBL|PA_CHKLL,0,1,0,0.0,0.0,
	 DIALYMAX,"",0,DIAL_LEFTMARG+pcol+14.0,cy,8.0,"");
	cy+=DIAL_CTRVSTEP;
	// Store toolbar attribute window count
	dial_label(0.0,cy,UPRDTBATTR);
	tacidx=dial_selbox(TB_ATTRW_CNT,pcol,cy);
	dial_sbentry(0,0,"&0");
	dial_sbentry(0,1,"&1");
	dial_sbentry(0,2,"&2");
	dial_sbentry(0,3,"&3");
	dial_sbentry(0,4,"&4");
	dial_sbentry(0,5,"&5");
	dial_sbentry(0,6,"&6");
	dial_sbentry(0,7,"&7");
	dial_sbentry(0,8,"&8");
	dial_sbentry(0,9,"&9");
	dial_sbentry(0,10,"10");
	// Store warning mode controls
	dial_label(0.0,cy,UPRDWARN);
	w1idx=bae_dialaddcontrol(PA_TOGGLE,0,0,(WARNMODE&0x01) ? 0 : 1,
	 0.0,0.0,0.0,"",0,DIAL_LEFTMARG+pcol,cy,0.0,UPRWARNSL);
	cy+=DIAL_CTRVSTEP;
	w2idx=bae_dialaddcontrol(PA_TOGGLE,0,0,(WARNMODE&0x02) ? 0 : 1,
	 0.0,0.0,0.0,"",0,DIAL_LEFTMARG+pcol,cy,0.0,UPRWARNNJ);
	cy+=DIAL_CTRVSTEP;
	w3idx=bae_dialaddcontrol(PA_TOGGLE,0,0,(WARNMODE&0x04) ? 0 : 1,
	 0.0,0.0,0.0,"",0,DIAL_LEFTMARG+pcol,cy,0.0,UPRWARNMP);
	cy+=DIAL_CTRVSTEP;
	// Store symbol search display range
	dial_label(0.0,cy,UPRDSFINDW);
	sfwidx=dial_dist(1,ZOOMEXP,pcol,cy);
	// Store symbol logic table field width
	dial_label(0.0,cy,UPRDLOGLTW);
	pdwidx=dial_double(1,PINDWIDTH,pcol,cy);
	// Store documentary close line edit mode controls
	dial_label(0.0,cy,UPRSCLINEMODE);
	clidx=dial_selbox(CLINEEDIT,pcol,cy);
	dial_sbentry(0,0,UPRCLINEMODE1);
	dial_sbentry(0,1,UPRCLINEMODE2);
	dial_sbentry(0,2,UPRCLINEMODE3);
	// Store output format controls
	dial_label(0.0,cy,UPRDSFORMAT);
	fmtidx=dial_selbox(FORMAT,pcol,cy);
	dial_sbentry(0,0,UPRSCALE0);
	dial_sbentry(0,1,UPRSCALE1);
	dial_sbentry(0,2,UPRSCALE2);
	dial_sbentry(0,3,UPRSCALE3);
	dial_sbentry(0,4,UPRSFORMAT1);
	dial_sbentry(0,5,UPRSFORMAT2);
	dial_sbentry(0,6,UPRSFORMAT3);
	dial_sbentry(0,7,UPRSFORMAT4);
	dial_sbentry(0,8,UPRSFORMAT5);
	dial_sbentry(0,9,UPRSFORMAT6);
	dial_sbentry(0,10,UPRSFORMAT7);
	// Store page offset controls
	dial_label(0.0,cy,UPRDOFFSET);
	dial_label(pcol,cy,UPRDX);
	xidx=bae_dialaddcontrol(PA_DBL|PA_DIST,0,3,0,0.0,0.0,
	 XOFF,"",0,DIAL_LEFTMARG+pcol+2.0,cy,8.0,"");
	dial_label(pcol+12.0,cy,UPRDY);
	yidx=bae_dialaddcontrol(PA_DBL|PA_DIST,0,3,0,0.0,0.0,
	 YOFF,"",0,DIAL_LEFTMARG+pcol+14.0,cy,8.0,"");
	cy+=DIAL_CTRVSTEP;
	dial_hsep(cy);
	// Store view settings toggle
	vsidx=bae_dialaddcontrol(PA_TOGGLE,0,0,
	 0,0.0,0.0,0.0,"",0,DIAL_LEFTMARG,cy,0.0,UPRDVIEWSET);
	cy+=DIAL_CTRVSTEP;
	// Store plot settings toggle
	psidx=bae_dialaddcontrol(PA_TOGGLE,0,0,
	 0,0.0,0.0,0.0,"",0,DIAL_LEFTMARG,cy,0.0,UPRDSPLOTSET);
	cy+=DIAL_CTRVSTEP;
	// Store settings settings toggle
	ssidx=bae_dialaddcontrol(PA_TOGGLE,0,0,
	 0,0.0,0.0,0.0,"",0,DIAL_LEFTMARG,cy,0.0,UPRDSETSET);
	cy+=DIAL_CTRVSTEP;
	// Store the OK and abort button with seperator
	dial_hsep(cy);
	dial_okabort(cy);
	bae_setintpar(16,3005);
	if (bae_dialaskparams(UPRPARAMDIAL,0,
	 DIAL_LEFTMARG+53.0+DIAL_RIGHTSMARG,cy))
		error_abort();
	bae_dialgetdata(lldidx,loadlast,0.0,"");
	if (loadlast!=LOADLAST) {
		varset(PAR_LOADLAST,loadlast);
		sprintf(varvalue,"%s",loadlast ? "ON" : "OFF");
		addrplcval(PAR_LOADLAST,varvalue);
		}
	bae_dialgetdata(salidx,saveasload,0.0,"");
	if (saveasload!=SAVEASLOAD) {
		varset(PAR_SAVEASLOAD,saveasload);
		sprintf(varvalue,"%s",saveasload ? "ON" : "OFF");
		addrplcval(PAR_SAVEASLOAD,varvalue);
		}
	bae_dialgetdata(lckidx,lockmode,0.0,"");
	if (lockmode!=LOCKMODE) {
		varset(PAR_LOCKMODE,lockmode);
		sprintf(varvalue,"%d",lockmode);
		addrplcval(PAR_LOCKMODE,varvalue);
		}
	bae_dialgetdata(mridx,mouserep,0.0,"");
	if (mouserep!=MOUSEREP) {
		varset(PAR_MOUSEREP,mouserep);
		switch (mouserep) {
			case 1 :
			varvalue="1";
			break;
			case 2 :
			varvalue="2";
			break;
			case 3 :
			varvalue="1|2";
			break;
			case 0 :
			default :
			varvalue="0";
			}
		addrplcval(PAR_MOUSEREP,varvalue);
		bae_setintpar(26,mouserep);
		}
	bae_dialgetdata(mw1idx,mwarpmode,0.0,"");
	bae_dialgetdata(mw2idx,mwarpflag1,0.0,"");
	if (mwarpflag1)
		mwarpmode|=4;
	bae_dialgetdata(mw3idx,mwarpflag2,0.0,"");
	if (mwarpflag2)
		mwarpmode|=8;
	if (mwarpmode!=MWARPMODE) {
		varset(PAR_MOUSEWARP,mwarpmode);
		sprintf(varvalue,"%d",mwarpmode&0x03);
		if (mwarpflag1)
			varvalue+="|4";
		if (mwarpflag2)
			varvalue+="|8";
		addrplcval(PAR_MOUSEWARP,varvalue);
		bae_setintpar(12,mwarpmode);
		}
	bae_dialgetdata(infidx,minfomode,0.0,"");
	if (minfomode!=MINFOMODE) {
		varset(PAR_MOUSEINFO,minfomode);
		sprintf(varvalue,"%d",minfomode);
		addrplcval(PAR_MOUSEINFO,varvalue);
		bae_setintpar(15,minfomode);
		}
	bae_dialgetdata(dxmidx,0,dialxmax,"");
	if (dialxmax!=DIALXMAX) {
		varset(PAR_DIALXMAX,dialxmax);
		sprintf(varvalue,"%.1f",dialxmax);
		addrplcval(PAR_DIALXMAX,varvalue);
		bae_setdblpar(0,dialxmax);
		}
	bae_dialgetdata(dymidx,0,dialymax,"");
	if (dialymax!=DIALYMAX) {
		varset(PAR_DIALYMAX,dialymax);
		sprintf(varvalue,"%.1f",dialymax);
		addrplcval(PAR_DIALYMAX,varvalue);
		bae_setdblpar(1,dialymax);
		}
	bae_dialgetdata(tacidx,tb_attrw_cnt,0.0,"");
	if (tb_attrw_cnt!=TB_ATTRW_CNT) {
		varset(PAR_TB_ATTRCNT,tb_attrw_cnt);
		sprintf(varvalue,"%d",tb_attrw_cnt);
		addrplcval(PAR_TB_ATTRCNT,varvalue);
		// Activate the toolbar
		runulprog(UL_TOOLBAR);
		}
	bae_dialgetdata(w1idx,warnflag1,0.0,"");
	warnmode= warnflag1 ? 0 : 1 ;
	bae_dialgetdata(w2idx,warnflag2,0.0,"");
	if (!warnflag2)
		warnmode|=2;
	bae_dialgetdata(w3idx,warnflag3,0.0,"");
	if (!warnflag3)
		warnmode|=4;
	if (warnmode!=WARNMODE) {
		varset(PAR_WARNMODES,warnmode);
		sprintf(varvalue,"%d",warnflag1 ? 0 : 1);
		if (!warnflag2)
			varvalue+="|2";
		if (!warnflag3)
			varvalue+="|4";
		addrplcval(PAR_WARNMODES,varvalue);
		scm_setintpar(7,warnmode);
		}
	bae_dialgetdata(sfwidx,0,zoomexp,"");
	if (zoomexp!=ZOOMEXP) {
		varset(PAR_ZOOMEXP,zoomexp);
		sprintf(varvalue,"%.1f mm",cvtlength(zoomexp,0,2));
		addrplcval(PAR_ZOOMEXP,varvalue);
		}
	bae_dialgetdata(pdwidx,0,pindwidth,"");
	if (pindwidth!=PINDWIDTH) {
		varset(PAR_PINWIDTH,pindwidth);
		sprintf(varvalue,"%.1f",pindwidth);
		addrplcval(PAR_PINWIDTH,varvalue);
		}
	bae_dialgetdata(clidx,clineedit,0.0,"");
	if (clineedit!=CLINEEDIT) {
		varset(PAR_SCLINEEDIT,clineedit);
		sprintf(varvalue,"%d",clineedit);
		addrplcval(PAR_SCLINEEDIT,varvalue);
		scm_setintpar(16,clineedit);
		}
	bae_dialgetdata(fmtidx,format,0.0,"");
	if (format!=FORMAT) {
		varset(PAR_SCMFORMAT,format);
		sprintf(varvalue,"%d",format);
		addrplcval(PAR_SCMFORMAT,varvalue);
		}
	bae_dialgetdata(xidx,0,xoff,"");
	if (xoff!=XOFF) {
		xoff*=1000.0;
		varset(PAR_SCMXOFF,xoff);
		sprintf(varvalue,"%s",bae_numstring(xoff,3));
		addrplcval(PAR_SCMXOFF,varvalue);
		}
	bae_dialgetdata(yidx,0,yoff,"");
	if (yoff!=YOFF) {
		yoff*=1000.0;
		varset(PAR_LAYYOFF,yoff);
		sprintf(varvalue,"%s",bae_numstring(yoff,3));
		addrplcval(PAR_SCMYOFF,varvalue);
		}
	// Check if view settings transfer
	bae_dialgetdata(vsidx,flag,0.0,"");
	if (flag)
		scmviewsettings();
	// Check if control plot settings transfer
	bae_dialgetdata(psidx,flag,0.0,"");
	if (flag)
		scmplotsettings();
	// Check if settings settings transfer
	bae_dialgetdata(ssidx,flag,0.0,"");
	if (flag)
		scmsetsettings();
}

void param_ged()
/*
// Edit layout editor parameters
*/
{
	string msg			/* Message buffer */;
	int TSEGMODE		= ged_getsegmovmode();
					// Default trace segment move mode
	int tsegcflag			/* Trace segment open corner mode */;
	int tsegmode			/* New trace segment move mode */;
	int CLINEEDIT		= bae_iniintval(PAR_GCLINEEDIT,2);
					// Documentary closed line edit mode
	int clineedit			/* New doc. closed line edit mode */;
	int FORMAT		= bae_iniintval(PAR_LAYFORMAT,0);
					// Plot default format
	int format			/* New format */;
	double XOFF		= bae_inidblval(PAR_LAYXOFF,15.0)/1000.0;
					// Paper/sheet X offset [mm]
	double xoff			/* New X offset */;
	double YOFF		= bae_inidblval(PAR_LAYYOFF,8.0)/1000.0;
					// Paper/sheet Y offset [mm]
	double yoff			/* New Y offset */;
	int LOADLAST		= bae_iniintval(PAR_LOADLAST,1);
					// Load last element mode
	int loadlast			/* Load last element mode */;
	int SAVEASLOAD		= bae_iniintval(PAR_SAVEASLOAD,0);
					// Save as load element mode
	int saveasload			/* Save as load element mode */;
	int LOCKMODE		= bae_iniintval(PAR_LOCKMODE,0);
					// Element lock mode
	int lockmode			/* Element lock mode */;
	int MOUSEREP		= bae_iniintval(PAR_MOUSEREP,0)
					/* Mouse command repeat mode */;
	int mouserep			/* Mouse function repeat mode */;
	int MWARPMODE		= bae_iniintval(PAR_MOUSEWARP,0);
					// Mouse warp mode
	int mwarpmode			/* Mouse warp mode */;
	int mwarpflag1			/* 1st mouse warp flag */;
	int mwarpflag2			/* 2nd mouse warp flag */;
	int MINFOMODE		= bae_iniintval(PAR_MOUSEINFO,2);
					// Mouse info mode
	int minfomode			/* Mouse info mode */;
	double DIALXMAX		= bae_inidblval(PAR_DIALXMAX,99.2);
					// Dialog box maximum width
	double dialxmax			/* Dialog box req. maximum width */;
	double maxdialx			/* Dialog box maximum width */;
	double DIALYMAX		= bae_inidblval(PAR_DIALYMAX,19.6);
					// Dialog box maximum height
	double dialymax			/* Dialog box req. maximum height */;
	double maxdialy			/* Dialog box maximum height */;
	int WARNMODE		= bae_iniintval(PAR_WARNMODEL,0);
					// Warning mode
	int warnmode			/* New warning mode */;
	int warnflag1			/* 1st warning flag */;
	string varvalue			/* Variable value string */;
	double dval			/* Double value */;
	int ival			/* Integer value */;
	double pcol = 25.0		/* Parameter column */;
	double cy			/* Dialog box current y coordinate */;
	int lldidx = (-1)		/* Load last element parameter index */;
	int salidx = (-1)		/* Save as load parameter index */;
	int lckidx = (-1)		/* Lock mode parameter index */;
	int mridx = (-1)		/* Mouse repeat parameter index */;
	int mw1idx = (-1)		/* Mouse warp 1st parameter index */;
	int mw2idx = (-1)		/* Mouse warp 2nd parameter index */;
	int mw3idx = (-1)		/* Mouse warp 3rd parameter index */;
	int infidx = (-1)		/* Mouse info parameter index */;
	int dxmidx = (-1)		/* Dialog max. width param. index */;
	int dymidx = (-1)		/* Dialog max. height param. index */;
	int w1idx = (-1)		/* Warning 1st parameter index */;
	int tsmidx = (-1)		/* Trace seg. move mode param. index */;
	int dclidx = (-1)		/* Doc.closed line mode param. index */;
	int fmtidx = (-1)		/* Output format parameter index */;
	int xidx = (-1)			/* X offset parameter index */;
	int yidx = (-1)			/* Y offset parameter index */;
	int vsidx = (-1)		/* View settings parameter index */;
	int gridx = (-1)		/* Autoplc. settings parameter index */;
	int apidx = (-1)		/* Group settings parameter index */;
	int cfidx = (-1)		/* Copper fill set. parameter index */;
	int ssidx = (-1)		/* Settings settings param. index */;
	int flag			/* Flag value */;
	// Check if remote control call
	if (remotedefs())
		return;
	// Init. the y coordinate
	cy=DIAL_TOPMARG;
	// Store history element load controls
	lldidx=bae_dialaddcontrol(PA_TOGGLE,0,0,LOADLAST,
	 0.0,0.0,0.0,"",0,DIAL_LEFTMARG+pcol,cy,0.0,UPRLOADLAST);
	cy+=DIAL_CTRVSTEP;
	// Store save as load controls
	dial_label(0.0,cy,UPRDSAVEAS);
	salidx=dial_selbox(SAVEASLOAD,pcol,cy);
	dial_sbentry(0,0,UPRSAVEAS0);
	dial_sbentry(0,1,UPRSAVEAS1);
	// Store element lock mode controls
	dial_label(0.0,cy,UPRDLOCKMODE);
	lckidx=dial_selbox(LOCKMODE,pcol,cy);
	dial_sbentry(0,0,UPRLOCKM0);
	dial_sbentry(0,1,UPRLOCKM1);
	dial_sbentry(0,2,UPRLOCKM2);
	dial_sbentry(0,3,UPRLOCKM3);
	// Store mouse function repeat mode controls
	dial_label(0.0,cy,UPRDMREP);
	mridx=dial_selbox(MOUSEREP,pcol,cy);
	dial_sbentry(0,0,UPRMREP0);
	dial_sbentry(0,1,UPRMREP1);
	dial_sbentry(0,2,UPRMREP2);
	dial_sbentry(0,3,UPRMREP3);
	// Store mouse warp mode controls
	dial_label(0.0,cy,UPRDMWARP);
	mw1idx=dial_selbox(MWARPMODE&0x03,pcol,cy);
	dial_sbentry(0,0,UPRMWARP0);
	dial_sbentry(0,1,UPRMWARP1);
	dial_sbentry(0,2,UPRMWARP2);
	mw2idx=bae_dialaddcontrol(PA_TOGGLE,0,0,(MWARPMODE&0x04) ? 1 : 0,
	 0.0,0.0,0.0,"",0,DIAL_LEFTMARG+pcol,cy,0.0,UPRMWARPB);
	cy+=DIAL_CTRVSTEP;
	mw3idx=bae_dialaddcontrol(PA_TOGGLE,0,0,(MWARPMODE&0x08) ? 1 : 0,
	 0.0,0.0,0.0,"",0,DIAL_LEFTMARG+pcol,cy,0.0,UPRMWARPP);
	cy+=DIAL_CTRVSTEP;
	// Store mouse info mode controls
	dial_label(0.0,cy,UPRDMINFO);
	infidx=dial_selbox(MINFOMODE,pcol,cy);
	dial_sbentry(0,0,UPRMINFO0);
	dial_sbentry(0,1,UPRMINFO1);
	dial_sbentry(0,2,UPRMINFO2);
	// Query max. dimensions
	bae_setdblpar(0,1000.0);
	bae_setdblpar(1,1000.0);
	bae_getdblpar(0,maxdialx);
	bae_getdblpar(1,maxdialy);
	bae_setdblpar(0,DIALXMAX);
	bae_setdblpar(1,DIALYMAX);
	// Store dialog box size controls
	sprintf(msg,UPRDDIALOG,maxdialx,maxdialy);
	dial_label(0.0,cy,msg);
	dial_label(pcol,cy,UPRDX);
	dxmidx=bae_dialaddcontrol(PA_DBL|PA_CHKLL,0,1,0,0.0,0.0,
	 DIALXMAX,"",0,DIAL_LEFTMARG+pcol+2.0,cy,8.0,"");
	dial_label(pcol+12.0,cy,UPRDY);
	dymidx=bae_dialaddcontrol(PA_DBL|PA_CHKLL,0,1,0,0.0,0.0,
	 DIALYMAX,"",0,DIAL_LEFTMARG+pcol+14.0,cy,8.0,"");
	cy+=DIAL_CTRVSTEP;
	// Store warning mode controls
	dial_label(0.0,cy,UPRDWARN);
	w1idx=bae_dialaddcontrol(PA_TOGGLE,0,0,(WARNMODE&0x01) ? 0 : 1,
	 0.0,0.0,0.0,"",0,DIAL_LEFTMARG+pcol,cy,0.0,UPRWARNCS);
	cy+=DIAL_CTRVSTEP;
	// Store trace segment move mode controls
	dial_label(0.0,cy,UPRDTSEGMOD);
	tsegcflag=TSEGMODE&0x04;
	TSEGMODE&=(~0x04);
	tsmidx=dial_selbox(TSEGMODE,pcol,cy);
	dial_sbentry(0,0,UPRTSEGMOD1);
	dial_sbentry(0,1,UPRTSEGMOD2);
	dial_sbentry(0,2,UPRTSEGMOD3);
	dial_sbentry(0,3,UPRTSEGMOD4);
	// Store documentary closed line edit mode controls
	dial_label(0.0,cy,UPRDCLINEMODE);
	dclidx=dial_selbox(CLINEEDIT,pcol,cy);
	dial_sbentry(0,0,UPRCLINEMODE1);
	dial_sbentry(0,1,UPRCLINEMODE2);
	dial_sbentry(0,2,UPRCLINEMODE3);
	// Store output format controls
	dial_label(0.0,cy,UPRDLFORMAT);
	fmtidx=dial_selbox(FORMAT,pcol,cy);
	dial_sbentry(0,0,UPRLFORMAT1);
	dial_sbentry(0,1,UPRLFORMAT2);
	dial_sbentry(0,2,UPRLFORMAT3);
	dial_sbentry(0,3,UPRLFORMAT4);
	dial_sbentry(0,4,UPRLFORMAT5);
	dial_sbentry(0,5,UPRLFORMAT6);
	dial_sbentry(0,6,UPRLFORMAT7);
	dial_sbentry(0,7,UPRLFORMAT8);
	dial_sbentry(0,8,UPRLFORMAT9);
	dial_sbentry(0,9,UPRLFORMAT10);
	// Store page offset controls
	dial_label(0.0,cy,UPRDOFFSET);
	dial_label(pcol,cy,UPRDX);
	xidx=bae_dialaddcontrol(PA_DBL|PA_DIST,0,3,0,0.0,0.0,
	 XOFF,"",0,DIAL_LEFTMARG+pcol+2.0,cy,8.0,"");
	dial_label(pcol+12.0,cy,UPRDY);
	yidx=bae_dialaddcontrol(PA_DBL|PA_DIST,0,3,0,0.0,0.0,
	 YOFF,"",0,DIAL_LEFTMARG+pcol+14.0,cy,8.0,"");
	cy+=DIAL_CTRVSTEP;
	dial_hsep(cy);
	// Store view settings toggle
	vsidx=bae_dialaddcontrol(PA_TOGGLE,0,0,
	 0,0.0,0.0,0.0,"",0,DIAL_LEFTMARG,cy,0.0,UPRDVIEWSET);
	cy+=DIAL_CTRVSTEP;
	// Store group settings toggle
	gridx=bae_dialaddcontrol(PA_TOGGLE,0,0,
	 0,0.0,0.0,0.0,"",0,DIAL_LEFTMARG,cy,0.0,UPRDGRPSET);
	cy+=DIAL_CTRVSTEP;
	// Store autoplacement settings toggle
	apidx=bae_dialaddcontrol(PA_TOGGLE,0,0,
	 0,0.0,0.0,0.0,"",0,DIAL_LEFTMARG,cy,0.0,UPRDPLCSET);
	cy+=DIAL_CTRVSTEP;
	// Store copper fill settings toggle
	cfidx=bae_dialaddcontrol(PA_TOGGLE,0,0,
	 0,0.0,0.0,0.0,"",0,DIAL_LEFTMARG,cy,0.0,UPRDCOPFSET);
	cy+=DIAL_CTRVSTEP;
	// Store settings settings toggle
	ssidx=bae_dialaddcontrol(PA_TOGGLE,0,0,
	 0,0.0,0.0,0.0,"",0,DIAL_LEFTMARG,cy,0.0,UPRDSETSET);
	cy+=DIAL_CTRVSTEP;
	// Store the OK and abort button with seperator
	dial_hsep(cy);
	dial_okabort(cy);
	bae_setintpar(16,3034);
	if (bae_dialaskparams(UPRPARAMDIAL,0,
	 DIAL_LEFTMARG+53.0+DIAL_RIGHTSMARG,cy))
		error_abort();
	bae_dialgetdata(lldidx,loadlast,0.0,"");
	if (loadlast!=LOADLAST) {
		varset(PAR_LOADLAST,loadlast);
		sprintf(varvalue,"%s",loadlast ? "ON" : "OFF");
		addrplcval(PAR_LOADLAST,varvalue);
		}
	bae_dialgetdata(salidx,saveasload,0.0,"");
	if (saveasload!=SAVEASLOAD) {
		varset(PAR_SAVEASLOAD,saveasload);
		sprintf(varvalue,"%s",saveasload ? "ON" : "OFF");
		addrplcval(PAR_SAVEASLOAD,varvalue);
		}
	bae_dialgetdata(lckidx,lockmode,0.0,"");
	if (lockmode!=LOCKMODE) {
		varset(PAR_LOCKMODE,lockmode);
		sprintf(varvalue,"%d",lockmode);
		addrplcval(PAR_LOCKMODE,varvalue);
		}
	bae_dialgetdata(mridx,mouserep,0.0,"");
	if (mouserep!=MOUSEREP) {
		varset(PAR_MOUSEREP,mouserep);
		switch (mouserep) {
			case 1 :
			varvalue="1";
			break;
			case 2 :
			varvalue="2";
			break;
			case 3 :
			varvalue="1|2";
			break;
			case 0 :
			default :
			varvalue="0";
			}
		addrplcval(PAR_MOUSEREP,varvalue);
		bae_setintpar(26,mouserep);
		}
	bae_dialgetdata(mw1idx,mwarpmode,0.0,"");
	bae_dialgetdata(mw2idx,mwarpflag1,0.0,"");
	if (mwarpflag1)
		mwarpmode|=4;
	bae_dialgetdata(mw3idx,mwarpflag2,0.0,"");
	if (mwarpflag2)
		mwarpmode|=8;
	if (mwarpmode!=MWARPMODE) {
		varset(PAR_MOUSEWARP,mwarpmode);
		sprintf(varvalue,"%d",mwarpmode&0x03);
		if (mwarpflag1)
			varvalue+="|4";
		if (mwarpflag2)
			varvalue+="|8";
		addrplcval(PAR_MOUSEWARP,varvalue);
		bae_setintpar(12,mwarpmode);
		}
	bae_dialgetdata(infidx,minfomode,0.0,"");
	if (minfomode!=MINFOMODE) {
		varset(PAR_MOUSEINFO,minfomode);
		sprintf(varvalue,"%d",minfomode);
		addrplcval(PAR_MOUSEINFO,varvalue);
		bae_setintpar(15,minfomode);
		}
	bae_dialgetdata(dxmidx,0,dialxmax,"");
	if (dialxmax!=DIALXMAX) {
		varset(PAR_DIALXMAX,dialxmax);
		sprintf(varvalue,"%.1f",dialxmax);
		addrplcval(PAR_DIALXMAX,varvalue);
		bae_setdblpar(0,dialxmax);
		}
	bae_dialgetdata(dymidx,0,dialymax,"");
	if (dialymax!=DIALYMAX) {
		varset(PAR_DIALYMAX,dialymax);
		sprintf(varvalue,"%.1f",dialymax);
		addrplcval(PAR_DIALYMAX,varvalue);
		bae_setdblpar(1,dialymax);
		}
	bae_dialgetdata(w1idx,warnflag1,0.0,"");
	warnmode= warnflag1 ? 0 : 1 ;
	if (warnmode!=WARNMODE) {
		varset(PAR_WARNMODEL,warnmode);
		sprintf(varvalue,"%d",warnflag1 ? 0 : 1);
		addrplcval(PAR_WARNMODEL,varvalue);
		ged_setintpar(10,warnmode);
		}
	bae_dialgetdata(tsmidx,tsegmode,0.0,"");
	if (tsegmode!=TSEGMODE) {
		tsegmode|=tsegcflag;
		varset(PAR_TSEGMOVM,tsegmode);
		sprintf(varvalue,"%d",tsegmode);
		addrplcval(PAR_TSEGMOVM,varvalue);
		ged_setsegmovmode(tsegmode);
		}
	bae_dialgetdata(dclidx,clineedit,0.0,"");
	if (clineedit!=CLINEEDIT) {
		varset(PAR_GCLINEEDIT,clineedit);
		sprintf(varvalue,"%d",clineedit);
		addrplcval(PAR_GCLINEEDIT,varvalue);
		ged_setintpar(12,clineedit);
		}
	bae_dialgetdata(fmtidx,format,0.0,"");
	if (format!=FORMAT) {
		varset(PAR_LAYFORMAT,format);
		sprintf(varvalue,"%d",format);
		addrplcval(PAR_LAYFORMAT,varvalue);
		}
	bae_dialgetdata(xidx,0,xoff,"");
	if (xoff!=XOFF) {
		xoff*=1000.0;
		varset(PAR_LAYXOFF,xoff);
		sprintf(varvalue,"%s",bae_numstring(xoff,3));
		addrplcval(PAR_LAYXOFF,varvalue);
		}
	bae_dialgetdata(yidx,0,yoff,"");
	if (yoff!=YOFF) {
		yoff*=1000.0;
		varset(PAR_LAYYOFF,yoff);
		sprintf(varvalue,"%s",bae_numstring(yoff,3));
		addrplcval(PAR_LAYYOFF,varvalue);
		}
	// Check if view settings transfer
	bae_dialgetdata(vsidx,flag,0.0,"");
	if (flag)
		gedviewsettings();
	// Check if group settings transfer
	bae_dialgetdata(gridx,flag,0.0,"");
	if (flag)
		gedgrpsettings();
	// Check if autoplacment settings transfer
	bae_dialgetdata(apidx,flag,0.0,"");
	if (flag)
		gedplcsettings();
	// Check if copper fill settings transfer
	bae_dialgetdata(cfidx,flag,0.0,"");
	if (flag)
		gedcopfillsettings();
	// Check if settings settings transfer
	bae_dialgetdata(ssidx,flag,0.0,"");
	if (flag) {
		lay_getplanchkparam(dval,0.0,0.0,0.0,"",(-1),0);
		addrplcval(PAR_DRCDEF,
		 bae_numstring(cvtlength(dval,0,2),5)+" mm");
		ged_getintpar(14,ival);
		sprintf(varvalue,"%d",ival);
		addrplcval(PAR_PATHPICKM,varvalue);
		sprintf(varvalue,"%d",ged_getmincon());
		addrplcval(PAR_GMINCON,varvalue);
		ged_getintpar(21,ival);
		sprintf(varvalue,"\"%d\"",ival);
		addrplcval(PAR_GAUTOSAVEI,varvalue);
		ged_getpathwidth(dval,0.0);
		addrplcval(PAR_PATHWIDTH1,
		 bae_numstring(cvtlength(dval,0,2),5)+" mm");
		ged_getpathwidth(0.0,dval);
		addrplcval(PAR_PATHWIDTH2,
		 bae_numstring(cvtlength(dval,0,2),5)+" mm");
		sprintf(varvalue,"%d",ged_getviaoptmode());
		addrplcval(PAR_VIAOPTM,varvalue);
		bae_getintpar(0,ival);
		switch (bae_planddbclass()) {
			case DDBCLLAY :
			ival=
			 (bae_iniintval(PAR_DEFDYNBGED,0)&0x0E)|(ival ? 1 : 0);
			break;
			case DDBCLLPRT :
			ival=
			 (bae_iniintval(PAR_DEFDYNBGED,0)&0x0D)|(ival ? 2 : 0);
			break;
			case DDBCLLSTK :
			ival=
			 (bae_iniintval(PAR_DEFDYNBGED,0)&0x0B)|(ival ? 4 : 0);
			break;
			case DDBCLLPAD :
			ival=
			 (bae_iniintval(PAR_DEFDYNBGED,0)&0x07)|(ival ? 8 : 0);
			break;
			default :
			ival=bae_iniintval(PAR_DEFDYNBGED,0);
			}
		sprintf(varvalue,"%d",ival);
		addrplcval(PAR_DEFDYNBGED,varvalue);
		varset(PAR_DEFDYNBGED,ival);
		sprintf(varvalue,"\"%s\"",bae_fontname());
		addrplcval(PAR_GFONTNAME,varvalue);
		ged_getintpar(22,ival);
		sprintf(varvalue,"%d",ival);
		addrplcval(PAR_PARTAIRLM,varvalue);
		ged_getintpar(113,ival);
		sprintf(varvalue,"%d",ival);
		addrplcval(PAR_PARTTRCM,varvalue);
		if (tsegmode==TSEGMODE) {
			sprintf(varvalue,"%d",tsegmode);
			addrplcval(PAR_TSEGMOVM,varvalue);
			}
		}
}

void param_ar()
/*
// Edit autorouter parameters
*/
{
	string varvalue			/* Variable value string */;
	double pcol = 25.0		/* Parameter column */;
	double cy			/* Dialog box current y coordinate */;
	int MOUSEREP		= bae_iniintval(PAR_MOUSEREP,0)
					/* Mouse command repeat mode */;
	int mouserep			/* Mouse function repeat mode */;
	int ctridx = (-1)		/* Control toggle parameter index */;
	int stridx = (-1)		/* Strategy toggle parameter index */;
	int mridx = (-1)		/* Mouse repeat parameter index */;
	int flag			/* Flag value */;
	// Check if remote control call
	if (remotedefs())
		return;
	// Init. the y coordinate
	cy=DIAL_TOPMARG;
	// Store mouse function repeat mode controls
	dial_label(0.0,cy,UPRDMREP);
	mridx=dial_selbox(MOUSEREP,pcol,cy);
	dial_sbentry(0,0,UPRMREP0);
	dial_sbentry(0,1,UPRMREP1);
	dial_sbentry(0,2,UPRMREP2);
	dial_sbentry(0,3,UPRMREP3);
	// Store control toggle
	ctridx=bae_dialaddcontrol(PA_TOGGLE,0,0,
	 0,0.0,0.0,0.0,"",0,DIAL_LEFTMARG,cy,0.0,UPRDARCTRL);
	cy+=DIAL_CTRVSTEP;
	// Store strategy toggle
	stridx=bae_dialaddcontrol(PA_TOGGLE,0,0,
	 0,0.0,0.0,0.0,"",0,DIAL_LEFTMARG,cy,0.0,UPRDARSTRAT);
	cy+=DIAL_CTRVSTEP;
	// Store the OK and abort button with seperator
	dial_hsep(cy);
	dial_okabort(cy);
	bae_setintpar(16,3000);
	if (bae_dialaskparams(UPRPARAMDIAL,0,
	 DIAL_LEFTMARG+43.0+DIAL_RIGHTSMARG,cy))
		error_abort();
	bae_dialgetdata(mridx,mouserep,0.0,"");
	if (mouserep!=MOUSEREP) {
		varset(PAR_MOUSEREP,mouserep);
		switch (mouserep) {
			case 1 :
			varvalue="1";
			break;
			case 2 :
			varvalue="2";
			break;
			case 3 :
			varvalue="1|2";
			break;
			case 0 :
			default :
			varvalue="0";
			}
		addrplcval(PAR_MOUSEREP,varvalue);
		bae_setintpar(26,mouserep);
		}
	bae_dialgetdata(ctridx,flag,0.0,"");
	if (flag)
		rutctrlsettings();
	bae_dialgetdata(stridx,flag,0.0,"");
	if (flag)
		rutstratsettings();
}

void param_cam()
/*
// Edit CAM parameters
*/
{
	string varvalue			/* Variable value string */;
	double pcol = 23.0		/* Parameter column */;
	double cy			/* Dialog box current y coordinate */;
	int MOUSEREP		= bae_iniintval(PAR_MOUSEREP,0)
					/* Mouse command repeat mode */;
	int mouserep			/* Mouse function repeat mode */;
	int mridx = (-1)		/* Mouse repeat parameter index */;
	int csidx = (-1)		/* Ctrlplot settings parameter index */;
	int gsidx = (-1)		/* Gerber settings parameter index */;
	int dsidx = (-1)		/* Drill settings parameter index */;
	int ssidx = (-1)		/* Settings settings parameter index */;
	int flag			/* Flag value */;
	// Check if remote control call
	if (remotedefs())
		return;
	// Init. the y coordinate
	cy=DIAL_TOPMARG;
	// Store mouse function repeat mode controls
	dial_label(0.0,cy,UPRDMREP);
	mridx=dial_selbox(MOUSEREP,pcol,cy);
	dial_sbentry(0,0,UPRMREP0);
	dial_sbentry(0,1,UPRMREP1);
	dial_sbentry(0,2,UPRMREP2);
	dial_sbentry(0,3,UPRMREP3);
	dial_hsep(cy);
	// Store control plot settings toggle
	csidx=bae_dialaddcontrol(PA_TOGGLE,0,0,
	 0,0.0,0.0,0.0,"",0,DIAL_LEFTMARG,cy,0.0,UPRDPLOTSET);
	// Store gerber photoplot settings toggle
	gsidx=bae_dialaddcontrol(PA_TOGGLE,0,0,
	 0,0.0,0.0,0.0,"",0,DIAL_LEFTMARG,cy,0.0,UPRDGERBSET);
	cy+=DIAL_CTRVSTEP;
	// Store drilling+insertion settings toggle
	dsidx=bae_dialaddcontrol(PA_TOGGLE,0,0,
	 0,0.0,0.0,0.0,"",0,DIAL_LEFTMARG,cy,0.0,UPRDDRILLSET);
	cy+=DIAL_CTRVSTEP;
	// Store settings settings toggle
	ssidx=bae_dialaddcontrol(PA_TOGGLE,0,0,
	 0,0.0,0.0,0.0,"",0,DIAL_LEFTMARG,cy,0.0,UPRDSETSET);
	cy+=DIAL_CTRVSTEP;
	// Store the OK and abort button with seperator
	dial_hsep(cy);
	dial_okabort(cy);
	bae_setintpar(16,3019);
	if (bae_dialaskparams(UPRPARAMDIAL,0,
	 DIAL_LEFTMARG+43.0+DIAL_RIGHTSMARG,cy))
		error_abort();
	bae_dialgetdata(mridx,mouserep,0.0,"");
	if (mouserep!=MOUSEREP) {
		varset(PAR_MOUSEREP,mouserep);
		switch (mouserep) {
			case 1 :
			varvalue="1";
			break;
			case 2 :
			varvalue="2";
			break;
			case 3 :
			varvalue="1|2";
			break;
			case 0 :
			default :
			varvalue="0";
			}
		addrplcval(PAR_MOUSEREP,varvalue);
		bae_setintpar(26,mouserep);
		}
	// Check if control plot settings transfer
	bae_dialgetdata(csidx,flag,0.0,"");
	if (flag)
		camplotsettings();
	// Check if gerber photoplot settings transfer
	bae_dialgetdata(gsidx,flag,0.0,"");
	if (flag)
		camgerbersettings();
	// Check if drill settings transfer
	bae_dialgetdata(dsidx,flag,0.0,"");
	if (flag)
		camdrillsettings();
	// Check if settings settings transfer
	bae_dialgetdata(ssidx,flag,0.0,"");
	if (flag)
		camsetsettings();
}

void param_cv()
/*
// Edit CAM View parameters
*/
{
	int COLMAP		= bae_iniintval(PAR_COLMAP,0);
					// Color mapping mode format
	int colmap			/* New color mapping mode */;
	string varvalue			/* Variable value string */;
	double pcol = 23.0		/* Parameter column */;
	double cy			/* Dialog box current y coordinate */;
	int MOUSEREP		= bae_iniintval(PAR_MOUSEREP,0)
					/* Mouse command repeat mode */;
	int mouserep			/* Mouse function repeat mode */;
	int mridx = (-1)		/* Mouse repeat parameter index */;
	int comidx = (-1)		/* Color mapping parameter index */;
	int vsidx = (-1)		/* View settings parameter index */;
	int ssidx = (-1)		/* Settings settings param. index */;
	int flag			/* Flag value */;
	// Check if remote control call
	if (remotedefs())
		return;
	// Init. the y coordinate
	cy=DIAL_TOPMARG;
	// Store mouse function repeat mode controls
	dial_label(0.0,cy,UPRDMREP);
	mridx=dial_selbox(MOUSEREP,pcol,cy);
	dial_sbentry(0,0,UPRMREP0);
	dial_sbentry(0,1,UPRMREP1);
	dial_sbentry(0,2,UPRMREP2);
	dial_sbentry(0,3,UPRMREP3);
	// Store color mapping controls
	dial_label(0.0,cy,UPRDCOLMAP);
	comidx=dial_selbox(COLMAP,pcol,cy);
	dial_sbentry(0,0,UPRCOLMAP0);
	dial_sbentry(0,1,UPRCOLMAP1);
	dial_hsep(cy);
	// Store view settings toggle
	vsidx=bae_dialaddcontrol(PA_TOGGLE,0,0,
	 0,0.0,0.0,0.0,"",0,DIAL_LEFTMARG,cy,0.0,UPRDVIEWSET);
	cy+=DIAL_CTRVSTEP;
	// Store settings settings toggle
	ssidx=bae_dialaddcontrol(PA_TOGGLE,0,0,
	 0,0.0,0.0,0.0,"",0,DIAL_LEFTMARG,cy,0.0,UPRDSETSET);
	cy+=DIAL_CTRVSTEP;
	// Store the OK and abort button with seperator
	dial_hsep(cy);
	dial_okabort(cy);
	bae_setintpar(16,3001);
	if (bae_dialaskparams(UPRPARAMDIAL,0,
	 DIAL_LEFTMARG+43.0+DIAL_RIGHTSMARG,cy))
		error_abort();
	// Check if view settings transfer
	bae_dialgetdata(vsidx,flag,0.0,"");
	if (flag)
		cvviewsettings();
	// Check if settings settings transfer
	bae_dialgetdata(ssidx,flag,0.0,"");
	if (flag)
		cvsetsettings();
	bae_dialgetdata(mridx,mouserep,0.0,"");
	if (mouserep!=MOUSEREP) {
		varset(PAR_MOUSEREP,mouserep);
		switch (mouserep) {
			case 1 :
			varvalue="1";
			break;
			case 2 :
			varvalue="2";
			break;
			case 3 :
			varvalue="1|2";
			break;
			case 0 :
			default :
			varvalue="0";
			}
		addrplcval(PAR_MOUSEREP,varvalue);
		bae_setintpar(26,mouserep);
		}
	bae_dialgetdata(comidx,colmap,0.0,"");
	if (colmap!=COLMAP) {
		varset(PAR_COLMAP,colmap);
		sprintf(varvalue,"%d",colmap);
		addrplcval(PAR_COLMAP,varvalue);
		}
}

/*________________________________________________________________*/
// INI file parse functions

/*________________________________________________________________*/
#bnf {	// BAE.INI BNF input syntax definition
	COMMENT ("/*", "*/") ;
	COMMENT ("//") ;

	baeini : inisections EOF
		;
	inisections : inisections inisection
		| inisection
		;
	inisection : "[" callertype "]" cmddefs
		| "CHECK"
		|
		;
	cmddefs : cmddefs cmddef
		| cmddef
		|
		;
	cmddef : cmddefitem ";"
		| cmddefitem
		;
	cmddefitem : vardef
		| keydef
		| fkeydef
		| addmenu
		| addmenuitem
		| addsmenuitem
		| addioitem
		;
	vardef : ident optlang "=" vardefinition
		;
	vardefinition : vararray
		| varvalue
		;
	vararray : "{" (p_arraystart) varvalues "}" (p_arrayend)
		;
	varvalues : vararraylist
		| varvalue "," (p_arraynext) varvalues
		| varvalue
		|
		;
	vararraylist : vararray "," (p_arraynext) vararraylist
		| vararray
		;
	varvalue : number optunit
		| "DOCLAYER" NUMBER (p_docnum) optdocside
		| "SIGLAYER" NUMBER (p_signal)
		| "LAYERNONE" (p_none)
		| "OFF" (p_intval(0))
		| "ON" (p_intval(1))
		| DQSTR (p_strval)
		| SQSTR (p_strval)
		;
	optdocside : "TOP" (p_docside(1))
		| "BOTTOM" (p_docside(0))
		| "BOTH" (p_docside(2))
		|
		;
	keydef : "key" string_or_code optlang "=" anyqstr
		;
	fkeydef : "fkey" NUMBER optlang "=" anyqstr
		;
	string_or_code : SQSTR
		| NUMBER
		;
	anyqstr : SQSTR (p_anystr)
		| DQSTR (p_anystr)
		;
	addmenu : "addmenu" optlang "=" DQSTR
		;
	addmenuitem : "addmenuitem" optlang optclasses "="
		 NUMBER "," DQSTR "," DQSTR
		;
	addioitem : "addioitem" optlang "=" DQSTR "," DQSTR
		;
	addsmenuitem : "addsmenuitem" optlang "=" NUMBER ","
		 NUMBER "," DQSTR ","
		 DQSTR
		;
	optclasses : "(" classlist ")"
		|
		;
	classlist : classlist "|" classspec
		| classspec
		;
	classspec : "SHEET"
		| "SYMBOL"
		| "MARKER"
		| "LABEL"
		| "LAYOUT"
		| "PART"
		| "PADSTACK"
		| "PAD"
		| "ROUTING"
		| "GERBER"
		| "ICDESIGN"
		| "CELL"
		| "CELLPIN"
		;
	callertype
		: "scm" (p_caller(128))
		| "ged" (p_caller(64))
		| "ap" (p_caller(0))
		| "ar" (p_caller(16))
		| "cam" (p_caller(8))
		| "cv" (p_caller(4096))
		| "ced" (p_caller(4))
		| "cap" (p_caller(128))
		| "lay" (p_caller(4216))
		| "icd" (p_caller(4))
		| "std" (p_caller(65535))
		;
	ident	: IDENT (p_ident)
		| NUMBER (p_ident)
		| SQSTR (p_ident)
		| DQSTR (p_ident)
		;
	number  : NUMBER (p_value(0)) optorlist
		| "+" NUMBER (p_value(0))
		| "-" NUMBER (p_value(1))
		;
	optorlist : orlist
		|
		;
	orlist : orlist orspec
		| orspec
		;
	orspec : "|" NUMBER (p_orvalue)
		;
	optlang : "DE" (p_lang(0))
		| "EN" (p_lang(1))
		|
		;
	optunit : "M" (p_unit(0))
		| "INCH" (p_unit(1))
		| "MM" (p_unit(2))
		| "MIL" (p_unit(3))
		| "UM" (p_unit(4))
		|
		;
}	// BNF syntax definition end
/*________________________________________________________________*/

void parseinifile()
/*
// Parse bae.ini file
*/
{
	// Parser error messages
	STRINGS ERRS	= {
		"",
		M("(synparsefile) Keine BNF-Definition verfuegbar!",
		  "(synparsefile) No BNF definition available!"),
		M("(synparsefile) Parser ist bereits aktiv!",
		  "(synparsefile) Parser already active!"),
		M("(synparsefile) Fehler beim Oeffnen der Datei '%s'!",
		  "(synparsefile) Error opening file '%s'!"),
		M("(synparsefile) Zu viele offene Dateien!",
		  "(synparsefile) Too many open files!"),
		M("[%s/%d] Fataler Lese-/Schreibfehler!",
		  "[%s/%d] Fatal read/write error!"),
		M("[%s/%d] Scan Item '%s' zu lang!",
		  "[%s/%d] Scan item '%s' too long!"),
		M("[%s/%d] Syntaxfehler bei '%s' (unerwartetes Symbol)!",
		  "[%s/%d] Syntax error at '%s' (unexpected symbol)!"),
		M("[%s/%d] Dateiende erreicht!",
		  "[%s/%d] Unexpected end of file!"),
		M("[%s/%d] Stackueberlauf (BNF zu komplex)!",
		  "[%s/%d] Stack overflow (BNF too complex)!"),
		M("[%s/%d] Stackunterlauf (BNF fehlerhaft)!",
		  "[%s/%d] Stack underflow (BNF erroneous)!"),
		M("[%s/%d] Fehler von Parser Aktion/Funktion!",
		  "[%s/%d] Error from parse action function!"),
		M("(synparsefile) Unbekannter Fehlercode %d!",
		  "(synparsefile) Unknown error code %d!")
		};
	int status			/* Parser status */;
	string msg	= ""		/* Error message */;
	// Parse the input file and evaluate the parser status
	synscanigncase(1);
	synscaneoln(0);
	curlang= bae_language()=="EN" ? 1 : 0 ;
	if ((status=synparsefile(BAEINIFN))==0) {
		synscanigncase(0);
		// No error
		return;
		}
	synscanigncase(0);
	if (status>=arylength(ERRS))
		sprintf(msg,ERRS[arylength(ERRS)-1],status);
	else
		sprintf(msg,ERRS[status],
		 BAEINIFN,synscanline(),synscanstring());
	// Print the error message
	bae_msgbox(2,msg,"");
}

// Parser action routines

int p_caller(int typ)
/*
// Receive a caller type
// Returns : zero if done or (-1) on error
// Parameter :
//	int typ				: Caller type
*/
{
	// Store the scan caller type
	scanctype=typ;
	// Return without errors
	return(0);
}

int p_ident()
// Receive an identifier
// Returns : zero if done or (-1) on error
{
	// Store the current string
	curid=synscanstring();
	curline=synscanline();
	strupper(curid);
	// Return without errors
	return(0);
}

int p_anystr()
// Receive anny string
// Returns : zero if done or (-1) on error
{
	// Store the current string
	curid=synscanstring();
	// Return without errors
	return(0);
}

int p_value(int negflag)
/*
// Receive a signed value
// Returns : zero if done or (-1) on error
// Parameter :
//	int negflag			: Negative number flag
*/
{
	string name			/* Variable name */;
	string valstr			/* Value string */;
	int i				/* Loop control variable */;
	// Check the caller type
	if ((scanctype&callertype)==0)
		// Return without errors
		return(0);
	// Check if language specific entry of interest
	if (scanlang!=(-1) && scanlang!=curlang) {
		// Ignore entry
		curid="";
		if (vastackn==0)
			scanlang=(-1);
		return(0);
		}
	// Get value string
	valstr=synscanstring();
	name=varname();
	// Search dot in value string
	for (i=strlen(valstr)-1;i>=0;i--)
		if (valstr[i]=='.') {
			// Store float value
			curflt=atof(valstr);
			if (negflag)
				curflt*=(-1.0);
			varset(name,curflt);
			varset(name+"_n",curline);
			if (vastackn==0)
				scanlang=(-1);
			// Return without errors
			return(0);
			}
	// Store integer value
	curint=atoi(valstr);
	if (negflag)
		curint*=(-1);
	varset(name,curint);
	varset(name+"_n",curline);
	curflt=curint;
	if (vastackn==0)
		scanlang=(-1);
	// Return without errors
	return(0);
}

int p_orvalue()
// Receive an or value
// Returns : zero if done or (-1) on error
{
	// Check the caller type
	if ((scanctype&callertype)==0)
		// Return without errors
	// Check if language specific entry of interest
	if (scanlang!=(-1) && scanlang!=curlang) {
		// Ignore entry
		curid="";
		if (vastackn==0)
			scanlang=(-1);
		return(0);
		}
	// Or with current integer value
	curint|=atoi(synscanstring());
	varset(varname(),curint);
	curflt=curint;
	// Return without errors
	return(0);
}

int p_lang(int langcode)
/*
// Receive an unit specification
// Returns : zero if done or (-1) on error
// Parameter :
//	int langcode			: Language code
*/
{
	// Check the caller type
	if ((scanctype&callertype)==0)
		// Return without errors
		return(0);
	scanlang=langcode;
	// Return without errors
	return(0);
}

int p_unit(int unit)
/*
// Receive an unit specification
// Returns : zero if done or (-1) on error
// Parameter :
//	int unit			: Unit code
*/
{
	// Check the caller type
	if ((scanctype&callertype)==0)
		// Return without errors
		return(0);
	// Convert float value to internal units
	if (curid!="")
		varset(varname(),cvtlength(curflt,unit,0));
	// Return without errors
	return(0);
}

int p_docnum()
// Receive a documentary layer number
// Returns : zero if done or (-1) on error
{
	// Check the caller type
	if ((scanctype&callertype)==0)
		// Return without errors
		return(0);
	// Get value string
	curint=0x400+16*(atoi(synscanstring())-1);
	// Check if language specific entry of interest
	if (scanlang==(-1) || scanlang==curlang) {
		// Store base number
		varset(varname(),curint);
		varset(varname()+"_n",curline);
		}
	// Return without errors
	return(0);
}

int p_docside(int side)
/*
// Receive a documentary layer side
// Returns : zero if done or (-1) on error
// Parameter :
//	int side			: Documentary layer side
*/
{
	// Check the caller type
	if ((scanctype&callertype)==0)
		// Return without errors
		return(0);
	// Check if language specific entry of interest
	if (scanlang==(-1) || scanlang==curlang) {
		// Store side
		curint|=side;
		varset(varname(),curint);
		}
	if (vastackn==0)
		scanlang=(-1);
	// Return without errors
	return(0);
}

int p_signal()
// Receive a signal layer number
// Returns : zero if done or (-1) on error
{
	// Check the caller type
	if ((scanctype&callertype)==0)
		// Return without errors
		return(0);
	// Check if language specific entry of interest
	if (scanlang==(-1) || scanlang==curlang) {
		// Get value string
		curint=atoi(synscanstring())-1;
		varset(varname(),curint);
		varset(varname()+"_n",curline);
		}
	if (vastackn==0)
		scanlang=(-1);
	// Return without errors
	return(0);
}

int p_none()
// Receive a none layer definition
// Returns : zero if done or (-1) on error
{
	// Check the caller type
	if ((scanctype&callertype)==0)
		// Return without errors
		return(0);
	// Check if language specific entry of interest
	if (scanlang==(-1) || scanlang==curlang) {
		varset(varname(),-0x4000);
		varset(varname()+"_n",curline);
		}
	if (vastackn==0)
		scanlang=(-1);
	// Return without errors
	return(0);
}

int p_intval(int val)
/*
// Receive an integer number
// Returns : zero if done or (-1) on error
// Parameter :
//	int val				: Integer value
*/
{
	// Check the caller type
	if ((scanctype&callertype)==0)
		// Return without errors
		return(0);
	// Check if language specific entry of interest
	if (scanlang==(-1) || scanlang==curlang) {
		varset(varname(),val);
		varset(varname()+"_n",curline);
		}
	if (vastackn==0)
		scanlang=(-1);
	// Return without errors
	return(0);
}

int p_strval()
// Receive a string value
// Returns : zero if done or (-1) on error
{
	// Check the caller type
	if ((scanctype&callertype)==0)
		// Return without errors
		return(0);
	// Check if language specific entry of interest
	if (scanlang==(-1) || scanlang==curlang) {
		// Store string value
		varset(varname(),synscanstring());
		varset(varname()+"_n",curline);
		}
	if (vastackn==0)
		scanlang=(-1);
	// Return without errors
	return(0);
}

int p_arraystart()
// Receive a variable array start
// Returns : zero if done or (-1) on error
{
	vastack[vastackn]=1;
	vastackn++;
	// Return without errors
	return(0);
}

int p_arrayend()
// Receive a variable array end
// Returns : zero if done or (-1) on error
{
	vastackn--;
	if (vastackn==0)
		scanlang=(-1);
	// Return without errors
	return(0);
}

int p_arraynext()
// Receive an array element end
// Returns : zero if done or (-1) on error
{
	if (vastackn)
		vastack[vastackn-1]++;
	// Return without errors
	return(0);
}

string varname()
// Return current variable name
// Returns : variable name
{
	string vname			/* Variable name */;
	int i				/* Loop control variable */;
	// Check if array defined
	if (vastackn==0)
		// Return base name
		return(curid);
	// Build the array element name
	vname=curid;
	for (i=0;i<vastackn;i++)
		vname=vname+"_"+itoa(vastack[i]);
	// Return array element name
	return(vname);
}

void addrplcval(string name,string value)
/*
// Add value to replacement request list
// Parameters :
//	string name		: Variable name
//	string value		: Variable value
*/
{
	int line			/* Value definition line */;
	int i				/* Loop control variable */;
	// Get variable definition line
	if (varget(name+"_n",line))
		line=(-1);
	// Insert new value into sorted list
	for (i=rplcn;i>0;i--)
		if (rplcl[i-1].line>line)
			rplcl[i]=rplcl[i-1];
		else
			break;
	rplcl[i].line=line;
	rplcl[i].name=name;
	rplcl[i].val=value;
	rplcn++;
}

int remotedefs()
// Read remote definitions
// Returns : 1 if remote definitions found else zero
{
	string vname			/* Variable name */;
	string vval			/* Variable value */;
	string sval			/* String value */;
	double dval			/* Double value */;
	int ival			/* Integer value */;
	int i				/* Loop control variable */;
	for (i=0;i<1000;i++) {
		if (varget(INICHGVAR+itoa(i),vname) ||
		 varget(INICHGVAL+itoa(i),vval))
			break;
		addrplcval(vname,vval);
		vardelete(INICHGVAR+itoa(i));
		vardelete(INICHGVAL+itoa(i));
		if (varget(INICHGSVAL+itoa(i),sval)==0) {
			varset(vname,sval);
			vardelete(INICHGSVAL+itoa(i));
			}
		else if (varget(INICHGDVAL+itoa(i),dval)==0) {
			varset(vname,dval);
			vardelete(INICHGDVAL+itoa(i));
			}
		else if (varget(INICHGIVAL+itoa(i),ival)==0) {
			varset(vname,ival);
			vardelete(INICHGIVAL+itoa(i));
			}
		}
	// Return remote definitions found status
	if (rplcn>0)
		return(1);
	// Check if dialog box support
	if (bae_dialclr())
		error(ERRNOWIN);
	return(0);
}

void camplotsettings()
/*
// Add CAM processor control plot settings to replacement request list
*/
{
	string varvalue			/* Variable value string */;
	double hpscale			/* HPGL scaling value */;
	double hpspeed			/* HPGL speed value */;
	double hppenwidth		/* HPGL pen width value */;
	int hpfill			/* HPGL fill mode */;
	int gpadjust			/* Generic printer scaling adjust */;
	int gpdrawmode			/* Generic printer drawing mode */;
	cam_gethpglparam("",hpscale,hpspeed,hppenwidth,hpfill);
	sprintf(varvalue,"%s",hpfill ? "ON" : "OFF");
	addrplcval(PAR_LHPGLFILL,varvalue);
	addrplcval(PAR_LHPGLPENW,
	 bae_numstring(cvtlength(hppenwidth,0,2),5)+" mm");
	addrplcval(PAR_LHPGLSPEED,bae_numstring(hpspeed,5));
	addrplcval(PAR_LHPGLSCALE,bae_numstring(hpscale,5));
	cam_getintpar(7,gpadjust);
	sprintf(varvalue,"%s",gpadjust ? "ON" : "OFF");
	addrplcval(PAR_LGENPSCALE,varvalue);
	cam_getintpar(11,gpdrawmode);
	sprintf(varvalue,"%d",gpdrawmode);
	addrplcval(PAR_LGENPDRAW,varvalue);
}

void camgerbersettings()
/*
// Add CAM processor gerber photoplot settings to replacement request list
*/
{
	string varvalue			/* Variable value string */;
	double gblinew			/* Gerber standard line width value */;
	int gbformat			/* Gerber format */;
	int gbopt			/* Gerber optimization mode */;
	int gbfill			/* Gerber fill mode */;
	int gbarc			/* Gerber arc mode */;
	int gbext			/* Gerber extended mode */;
	cam_getgerberparam("",gblinew,gbformat,gbopt,gbfill,gbarc,gbext);
	addrplcval(PAR_LSTDLINE,bae_numstring(cvtlength(gblinew,0,2),5)+" mm");
	sprintf(varvalue,"%d",gbformat);
	addrplcval(PAR_GBRFORMAT,varvalue);
	sprintf(varvalue,"%s",gbopt ? "ON" : "OFF");
	addrplcval(PAR_GBROPT,varvalue);
	sprintf(varvalue,"%d",gbfill);
	addrplcval(PAR_GBRFILL,varvalue);
	sprintf(varvalue,"%s",gbarc ? "ON" : "OFF");
	addrplcval(PAR_GBRARC,varvalue);
	sprintf(varvalue,"%d",gbext);
	addrplcval(PAR_GBREXT,varvalue);
}

void camdrillsettings()
/*
// Add CAM processor drill+insertion settings to replacement request list
*/
{
	addrplcval(PAR_DRACCUR,
	 bae_numstring(cvtlength(cam_getdrlaccuracy(),0,2),5)+" mm");
}

void camsetsettings()
/*
// Add CAM processor settings settings to replacement request list
*/
{
	string varvalue			/* Variable value string */;
	int alllaymode			/* CAM/Plot all layer mode */;
	int bordermode			/* CAM/Plot border mode */;
	int rotmode			/* CAM/Plot rotation mode */;
	int mirrmode			/* CAM/Plot mirror mode */;
	int regmode			/* CAM/Plot markers mode */;
	double symboltol		/* CAM/Plot symbol tolerance */;
	double powplthtdmd		/* Heat trap to drill min. dist. */;
	double powpltisdmd		/* Isolation to drill min. dist. */;
	double powplthttol		/* Heat trap tolerance */;
	double powpltistol		/* Isolation tolerance */;
	double powpltbrdwd		/* Border width */;
	double powpltsppis		/* Split power plane isol. width */;
	int powplthtang			/* Heat trap base angle */;
	cam_getgenpltparam(alllaymode,bordermode,rotmode,
	 mirrmode,regmode,symboltol,0.0,0.0);
	cam_getpowpltparam(powplthtdmd,powpltisdmd,
	 powplthttol,powpltistol,powpltbrdwd,powpltsppis);
	cam_getintpar(1,powplthtang);
	sprintf(varvalue,"%d",alllaymode);
	addrplcval(PAR_ALLLAYER,varvalue);
	sprintf(varvalue,"%s",bordermode ? "ON" : "OFF");
	addrplcval(PAR_BORDER,varvalue);
	sprintf(varvalue,"%s",rotmode ? "ON" : "OFF");
	addrplcval(PAR_PLTROT,varvalue);
	sprintf(varvalue,"%d",mirrmode);
	addrplcval(PAR_PLTMIRR,varvalue);
	sprintf(varvalue,"%s",regmode ? "ON" : "OFF");
	addrplcval(PAR_MARKER,varvalue);
	addrplcval(PAR_SYMTOL,bae_numstring(cvtlength(symboltol,0,2),5)+" mm");
	addrplcval(PAR_POWHTMD,
	 bae_numstring(cvtlength(powplthtdmd,0,2),5)+" mm");
	sprintf(varvalue,"%d",powplthtang);
	addrplcval(PAR_POWHTANG,varvalue);
	addrplcval(PAR_POWISMD,
	 bae_numstring(cvtlength(powpltisdmd,0,2),5)+" mm");
	addrplcval(PAR_POWHTRNG,
	 bae_numstring(cvtlength(powplthttol,0,2),5)+" mm");
	addrplcval(PAR_POWISRNG,
	 bae_numstring(cvtlength(powpltistol,0,2),5)+" mm");
	addrplcval(PAR_POWBORDWD,
	 bae_numstring(cvtlength(powpltbrdwd,0,2),5)+" mm");
	addrplcval(PAR_POWPLANEWD,
	 bae_numstring(cvtlength(powpltsppis,0,2),5)+" mm");
}

void cvviewsettings()
/*
// Add CAM View view settings to replacement request list
*/
{
	string varvalue			/* Variable value string */;
	double dval			/* Double value */;
	int ival			/* Integer value */;
	bae_getinpgrid(dval,0.0);
	addrplcval(PAR_CVINPUTGRID,bae_numstring(cvtlength(dval,0,2),5)+" mm");
	bae_getbackgrid(dval,0.0);
	addrplcval(PAR_CVBACKGRID,bae_numstring(cvtlength(dval,0,2),5)+" mm");
	bae_getintpar(23,ival);
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_GRIDLINES,varvalue);
	sprintf(varvalue,"%d",bae_getcoorddisp());
	addrplcval(PAR_CVCOORDDISP,varvalue);
	cv_getdblpar(3,dval);
	addrplcval(PAR_CVWIDEDRAW,
	 "\""+bae_numstring(cvtlength(dval,0,2),5)+" mm\"");
	cv_getintpar(2,ival);
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_COLMAP,varvalue);
	cv_getintpar(3,ival);
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_DRAWMODE,varvalue);
}

void cvsetsettings()
/*
// Add CAM View settings settings to replacement request list
*/
{
	string varvalue			/* Variable value string */;
	double dval			/* Double value */;
	int ival			/* Integer value */;
	cv_getdblpar(0,dval);
	addrplcval(PAR_CVINPXOFF,bae_numstring(cvtlength(dval,0,2),5)+" mm");
	cv_getdblpar(1,dval);
	addrplcval(PAR_CVINPYOFF,bae_numstring(cvtlength(dval,0,2),5)+" mm");
	cv_getdblpar(2,dval);
	addrplcval(PAR_CVPOWHTLINE,bae_numstring(cvtlength(dval,0,2),5)+" mm");
	cv_getdblpar(4,dval);
	addrplcval(PAR_CVGBRUSRCONV,bae_numstring(cvtlength(dval,0,2),8)+" mm");
	if (fabs(dval-0.0000254)<0.0000001)
		ival=0;
	else if (fabs(dval-0.00000254)<0.00000001)
		ival=1;
	else if (fabs(dval-0.000000254)<0.000000001)
		ival=2;
	else if (fabs(dval-0.0000000254)<0.0000000001)
		ival=3;
	else
		ival=4;
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_CVGBRFMT,varvalue);
	cv_getintpar(5,ival);
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_CVPOWHTANG,varvalue);
	cv_getintpar(0,ival);
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_CVGBRLAYM,varvalue);
	cv_getintpar(4,ival);
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_CVVIADCODE,varvalue);
	cv_getintpar(7,ival);
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_CVGBRARC,varvalue);
	cv_getintpar(8,ival);
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_CVINPMIRR,varvalue);
	cv_getintpar(9,ival);
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_CVGBRZERO,varvalue);
	cv_getintpar(10,ival);
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_CVGBREXT,varvalue);
	cv_getintpar(6,ival);
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_CVGBROPT,varvalue);
	cv_getintpar(11,ival);
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_CVGBRCOORD,varvalue);
	cv_getintpar(12,ival);
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_CVFLASHDM,varvalue);
}

void gedviewsettings()
/*
// Add layout editor view settings to replacement request list
*/
{
	string varvalue			/* Variable value string */;
	double dval			/* Double value */;
	int ival			/* Integer value */;
	sprintf(varvalue,"%s",bae_getgridlock() ? "ON" : "OFF");
	addrplcval(PAR_GGRIDLOCK,varvalue);
	sprintf(varvalue,"%s",bae_getanglelock() ? "ON" : "OFF");
	addrplcval(PAR_GANGLELOCK,varvalue);
	bae_getinpgrid(dval,0.0);
	addrplcval(PAR_GINPUTGRID,bae_numstring(cvtlength(dval,0,2),5)+" mm");
	bae_getbackgrid(dval,0.0);
	addrplcval(PAR_GBACKGRID,bae_numstring(cvtlength(dval,0,2),5)+" mm");
	bae_getintpar(23,ival);
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_GRIDLINES,varvalue);
	sprintf(varvalue,"%d",ged_getautocornins());
	addrplcval(PAR_GAUTOCORN,varvalue);
	ged_getintpar(23,ival);
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_GANGLETOGG,varvalue);
	sprintf(varvalue,"%d",bae_getcoorddisp());
	addrplcval(PAR_GCOORDDISP,varvalue);
	ged_getintpar(128,ival);
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_COLTABSAVE,varvalue);
	ged_getintpar(129,ival);
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_MINCONDISP,varvalue);
	ged_getintpar(130,ival);
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_MINCONCLIP,varvalue);
	addrplcval(PAR_GWIDEDRAW,
	 bae_numstring(cvtlength(ged_getwidedraw(),0,2),5)+" mm");
	sprintf(varvalue,"%d",ged_getpickmode());
	addrplcval(PAR_GPICKMODE,varvalue);
	sprintf(varvalue,"%d",ged_getlaydefmode());
	addrplcval(PAR_GLAYDEFM,varvalue);
	sprintf(varvalue,"%d",ged_getdrcmarkmode());
	addrplcval(PAR_DRCDISPM,varvalue);
	ged_getdblpar(12,dval);
	addrplcval(PAR_DRCTEXTH,bae_numstring(cvtlength(dval,0,2),5)+" mm");
	ged_getintpar(0,ival);
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_GPICKPDISP,varvalue);
	ged_getintpar(3,ival);
	sprintf(varvalue,"%s",ival ? "ON" : "OFF");
	addrplcval(PAR_GINFODISP,varvalue);
	ged_getintpar(17,ival);
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_GPLOTPDISP,varvalue);
	bae_getintpar(24,ival);
	sprintf(varvalue,"%s",ival ? "ON" : "OFF");
	addrplcval(PAR_GMIRRDISP,varvalue);
	ged_getintpar(18,ival);
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_DRCDISTM,varvalue);
}

void gedplcsettings()
/*
// Add layout editor autoplacement settings to replacement request list
*/
{
	string varvalue			/* Variable value string */;
	double dval			/* Double value */;
	int ival			/* Integer value */;
	ged_getdblpar(13,dval);
	addrplcval(PAR_APPARTEXP,bae_numstring(cvtlength(dval,0,2),5)+" mm");
	ged_getdblpar(14,dval);
	addrplcval(PAR_APPARTORD,bae_numstring(dval,5));
	ged_getdblpar(15,dval);
	addrplcval(PAR_APSEGFIT,bae_numstring(dval,5));
	ged_getdblpar(16,dval);
	addrplcval(PAR_APBASEOFF,bae_numstring(cvtlength(dval,0,2),5)+" mm");
	ged_getintpar(39,ival);
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_APOPTCNT,varvalue);
	ged_getintpar(40,ival);
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_APPARTSWAP,varvalue);
	ged_getintpar(41,ival);
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_APPGSWAP,varvalue);
	ged_getintpar(42,ival);
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_APMIRR,varvalue);
	ged_getintpar(43,ival);
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_APROT,varvalue);
	ged_getintpar(44,ival);
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_APRETRYCNT,varvalue);
	ged_getintpar(45,ival);
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_APSMDROT,varvalue);
	ged_getintpar(46,ival);
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_APOUTLLAY,varvalue);
}

void gedcopfillsettings()
/*
// Add layout editor copper fill settings to replacement request list
*/
{
	string varvalue			/* Variable value string */;
	double dval			/* Double value */;
	int ival			/* Integer value */;
	ged_getdblpar(3,dval);
	addrplcval(PAR_CFISOL,bae_numstring(cvtlength(dval,0,2),5)+" mm");
	ged_getdblpar(4,dval);
	addrplcval(PAR_CFMINAREA,bae_numstring(cvtlength(dval,0,2),5)+" mm");
	ged_getintpar(25,ival);
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_CFTRCMODE,varvalue);
	ged_getintpar(26,ival);
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_CFISLAND,varvalue);
	ged_getintpar(27,ival);
	sprintf(varvalue,"%d",ival&0x01);
	if (ival&0x02)
		varvalue+="|2";
	addrplcval(PAR_CFINKEEPO,varvalue);
	ged_getintpar(29,ival);
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_CFAANGMODE,varvalue);
	ged_getintpar(24,ival);
	sprintf(varvalue,"%d",ival&0x03);
	if (ival&0x04)
		varvalue+="|4";
	if (ival&0x08)
		varvalue+="|8";
	if (ival&0x10)
		varvalue+="|16";
	addrplcval(PAR_CFHTMODE,varvalue);
	ged_getdblpar(5,dval);
	addrplcval(PAR_CFHTWIDTH,bae_numstring(cvtlength(dval,0,2),5)+" mm");
	ged_getdblpar(6,dval);
	addrplcval(PAR_CFHTISOL,bae_numstring(cvtlength(dval,0,2),5)+" mm");
	ged_getintpar(28,ival);
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_CFMAXHTCNT,varvalue);
	ged_getdblpar(7,dval);
	addrplcval(PAR_CFHATSPACE,bae_numstring(cvtlength(dval,0,2),5)+" mm");
	ged_getdblpar(8,dval);
	addrplcval(PAR_CFHATWIDTH,bae_numstring(cvtlength(dval,0,2),5)+" mm");
	ged_getdblpar(9,dval);
	addrplcval(PAR_CFHATANG,bae_numstring(cvtangle(dval,0,1),3));
	ged_getintpar(30,ival);
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_CFHATMODE,varvalue);
}

void gedgrpsettings()
/*
// Add layout editor group settings to replacement request list
*/
{
	string varvalue			/* Variable value string */;
	int ival			/* Integer value */;
	ged_getintpar(32,ival);
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_GGRPDMODE,varvalue);
	ged_getintpar(38,ival);
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_GGRPAMODE,varvalue);
	ged_getintpar(47,ival);
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_GGRPVMODE,varvalue);
	ged_getintpar(115,ival);
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_GRPBALTLAY,varvalue);
}

void gedsetsettings()
/*
// Add layout editor settings settings to replacement request list
*/
{
	string varvalue			/* Variable value string */;
	double dval			/* Double value */;
	int ival			/* Integer value */;
	lay_getplanchkparam(dval,0.0,0.0,0.0,"",(-1),0);
	addrplcval(PAR_DRCDEF,
	 bae_numstring(cvtlength(dval,0,2),5)+" mm");
	ged_getintpar(14,ival);
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_PATHPICKM,varvalue);
	sprintf(varvalue,"%d",ged_getmincon());
	addrplcval(PAR_GMINCON,varvalue);
	ged_getintpar(21,ival);
	sprintf(varvalue,"\"%d\"",ival);
	addrplcval(PAR_GAUTOSAVEI,varvalue);
	ged_getintpar(114,ival);
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_GAUTOCOMPL,varvalue);
	ged_getpathwidth(dval,0.0);
	addrplcval(PAR_PATHWIDTH1,
	 bae_numstring(cvtlength(dval,0,2),5)+" mm");
	ged_getpathwidth(0.0,dval);
	addrplcval(PAR_PATHWIDTH2,
	 bae_numstring(cvtlength(dval,0,2),5)+" mm");
	sprintf(varvalue,"%d",ged_getviaoptmode());
	addrplcval(PAR_VIAOPTM,varvalue);
	bae_getintpar(0,ival);
	switch (bae_planddbclass()) {
		case DDBCLLAY :
		ival=
		 (bae_iniintval(PAR_DEFDYNBGED,0)&0x0E)|(ival ? 1 : 0);
		break;
		case DDBCLLPRT :
		ival=
		 (bae_iniintval(PAR_DEFDYNBGED,0)&0x0D)|(ival ? 2 : 0);
		break;
		case DDBCLLSTK :
		ival=
		 (bae_iniintval(PAR_DEFDYNBGED,0)&0x0B)|(ival ? 4 : 0);
		break;
		case DDBCLLPAD :
		ival=
		 (bae_iniintval(PAR_DEFDYNBGED,0)&0x07)|(ival ? 8 : 0);
		break;
		default :
		ival=bae_iniintval(PAR_DEFDYNBGED,0);
		}
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_DEFDYNBGED,varvalue);
	varset(PAR_DEFDYNBGED,ival);
	sprintf(varvalue,"\"%s\"",bae_fontname());
	addrplcval(PAR_GFONTNAME,varvalue);
	ged_getintpar(22,ival);
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_PARTAIRLM,varvalue);
	sprintf(varvalue,"%d",ged_getsegmovmode());
	addrplcval(PAR_TSEGMOVM,varvalue);
	ged_getintpar(131,ival);
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_TRCCOLLQRY,varvalue);
}

void gedplotsettings()
/*
// Add CAM processor control plot settings to replacement request list
*/
{
	string varvalue			/* Variable value string */;
	double gblinew			/* Gerber standard line width value */;
	double powplthtdmd		/* Heat trap to drill min. dist. */;
	double powpltisdmd		/* Isolation to drill min. dist. */;
	double powplthttol		/* Heat trap tolerance */;
	double powpltistol		/* Isolation tolerance */;
	double powpltbrdwd		/* Border width */;
	double powpltsppis		/* Split power plane isol. width */;
	int powplthtang			/* Heat trap base angle */;
	ged_getdblpar(27,gblinew);
	ged_getdblpar(28,powplthtdmd);
	ged_getdblpar(29,powpltisdmd);
	ged_getdblpar(30,powplthttol);
	ged_getdblpar(31,powpltistol);
	ged_getdblpar(32,powpltbrdwd);
	ged_getdblpar(33,powpltsppis);
	ged_getintpar(108,powplthtang);
	addrplcval(PAR_LSTDLINE,bae_numstring(cvtlength(gblinew,0,2),5)+" mm");
	addrplcval(PAR_POWHTMD,
	 bae_numstring(cvtlength(powplthtdmd,0,2),5)+" mm");
	sprintf(varvalue,"%d",powplthtang);
	addrplcval(PAR_POWHTANG,varvalue);
	addrplcval(PAR_POWISMD,
	 bae_numstring(cvtlength(powpltisdmd,0,2),5)+" mm");
	addrplcval(PAR_POWHTRNG,
	 bae_numstring(cvtlength(powplthttol,0,2),5)+" mm");
	addrplcval(PAR_POWISRNG,
	 bae_numstring(cvtlength(powpltistol,0,2),5)+" mm");
	addrplcval(PAR_POWBORDWD,
	 bae_numstring(cvtlength(powpltbrdwd,0,2),5)+" mm");
	addrplcval(PAR_POWPLANEWD,
	 bae_numstring(cvtlength(powpltsppis,0,2),5)+" mm");
}

void scmviewsettings()
/*
// Add schematic editor view settings to replacement request list
*/
{
	string varvalue			/* Variable value string */;
	double dval			/* Double value */;
	int ival			/* Integer value */;
	sprintf(varvalue,"%s",bae_getgridlock() ? "ON" : "OFF");
	addrplcval(PAR_SGRIDLOCK,varvalue);
	sprintf(varvalue,"%s",bae_getanglelock() ? "ON" : "OFF");
	addrplcval(PAR_SANGLELOCK,varvalue);
	bae_getinpgrid(dval,0.0);
	addrplcval(PAR_SINPUTGRID,bae_numstring(cvtlength(dval,0,2),5)+" mm");
	bae_getbackgrid(dval,0.0);
	addrplcval(PAR_SBACKGRID,bae_numstring(cvtlength(dval,0,2),5)+" mm");
	bae_getintpar(23,ival);
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_GRIDLINES,varvalue);
	scm_getintpar(21,ival);
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_SAUTOCORN,varvalue);
	sprintf(varvalue,"%d",bae_getcoorddisp());
	addrplcval(PAR_SCOORDDISP,varvalue);
	scm_getintpar(5,ival);
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_SPICKMODE,varvalue);
	scm_getintpar(0,ival);
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_SPICKPDISP,varvalue);
	scm_getintpar(38,ival);
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_SERRORDISP,varvalue);
	scm_getintpar(9,ival);
	sprintf(varvalue,"%s",ival ? "ON" : "OFF");
	addrplcval(PAR_SINFODISP,varvalue);
	scm_getintpar(19,ival);
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_SPLOTPDISP,varvalue);
}

void scmgrpsettings()
/*
// Add schematic editor group settings to replacement request list
*/
{
	string varvalue			/* Variable value string */;
	int ival			/* Integer value */;
	scm_getintpar(24,ival);
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_SGRPDMODE,varvalue);
	scm_getintpar(30,ival);
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_SGRPAMODE,varvalue);
}

void scmplotsettings()
/*
// Add schematic plot settings to replacement request list
*/
{
	string varvalue			/* Variable value string */;
	double hpscale			/* HPGL scaling value */;
	double hpspeed			/* HPGL speed value */;
	double hppenwidth		/* HPGL pen width value */;
	int hpfill			/* HPGL fill mode */;
	int pltrotate			/* Plot rotate mode */;
	int intval			/* Integer parameter value */;
	scm_gethpglparam("",hpscale,hpspeed,hppenwidth,hpfill,pltrotate);
	addrplcval(PAR_SHPGLFILL,itoa(hpfill));
	addrplcval(PAR_SSTDLINE,
	 "\""+bae_numstring(cvtlength(hppenwidth,0,2),5)+" mm\"");
	addrplcval(PAR_SHPGLSPEED,bae_numstring(hpspeed,5));
	addrplcval(PAR_SPLOTSCALE,bae_numstring(hpscale,5));
	scm_getintpar(13,intval);
	sprintf(varvalue,"%s",intval ? "ON" : "OFF");
	addrplcval(PAR_SGENPSCALE,varvalue);
	scm_getintpar(14,intval);
	addrplcval(PAR_SGENPCOLOR,itoa(intval));
	switch (pltrotate) {
		case 0 :
		addrplcval(PAR_PLTAUTOROT,"OFF");
		break;
		case 2 :
		addrplcval(PAR_PLTAUTOROT,"ON");
		break;
		default :
		;
		}
}

void scmsetsettings()
/*
// Add schematic editor settings settings to replacement request list
*/
{
	string varvalue			/* Variable value string */;
	int ival			/* Integer value */;
	scm_getintpar(1,ival);
	addrplcval(PAR_DEFSIGROUTE,itoa(ival));
	scm_getintpar(36,ival);
	addrplcval(PAR_UNROUTELINE,itoa(ival));
	scm_getintpar(2,ival);
	addrplcval(PAR_DEFSYMTMM,itoa(ival));
	scm_getintpar(17,ival);
	addrplcval(PAR_DEFSIGGROUT,itoa(ival));
	scm_getintpar(29,ival);
	addrplcval(PAR_CSEGMOVM,itoa(ival));
	scm_getintpar(41,ival);
	addrplcval(PAR_CONSPLIT,itoa(ival));
	scm_getintpar(42,ival);
	addrplcval(PAR_SCONSPLIT,itoa(ival));
	scm_getintpar(20,ival);
	sprintf(varvalue,"\"%d\"",ival);
	addrplcval(PAR_SAUTOSAVEI,varvalue);
	scm_getintpar(37,ival);
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_SAUTOCOMPL,varvalue);
	bae_getintpar(0,ival);
	switch (bae_planddbclass()) {
		case DDBCLSCM :
		ival=
		 (bae_iniintval(PAR_DEFDYNBSCM,0)&0x0E)|(ival ? 1 : 0);
		break;
		case DDBCLSSYM :
		ival=
		 (bae_iniintval(PAR_DEFDYNBSCM,0)&0x0D)|(ival ? 2 : 0);
		break;
		case DDBCLSMRK :
		ival=
		 (bae_iniintval(PAR_DEFDYNBSCM,0)&0x07)|(ival ? 4 : 0);
		break;
		case DDBCLSLAB :
		ival=
		 (bae_iniintval(PAR_DEFDYNBSCM,0)&0x0B)|(ival ? 8 : 0);
		break;
		default :
		ival=bae_iniintval(PAR_DEFDYNBSCM,0);
		}
	sprintf(varvalue,"%d",ival);
	addrplcval(PAR_DEFDYNBSCM,varvalue);
	varset(PAR_DEFDYNBSCM,ival);
	sprintf(varvalue,"\"%s\"",bae_fontname());
	addrplcval(PAR_SFONTNAME,varvalue);
}

void rutctrlsettings()
/*
// Add autorouter control settings to replacement request list
*/
{
	string varvalue			/* Variable value string */;
	int intpar			/* Integer parameter value */;
	if (callertype==ULIPAR)
		intpar=ar_rutsetpar(17,(-1));
	else
		ged_getintpar(66,intpar);
	sprintf(varvalue,"%d",intpar);
	addrplcval(PAR_CLEANROUT,varvalue);
	if (callertype==ULIPAR)
		intpar=ar_rutsetpar(18,(-1));
	else
		ged_getintpar(67,intpar);
	sprintf(varvalue,"%d",intpar);
	addrplcval(PAR_CLEANOPT,varvalue);
	if (callertype==ULIPAR)
		intpar=ar_rutsetpar(0,(-1));
	else
		ged_getintpar(49,intpar);
	sprintf(varvalue,"%d",intpar);
	addrplcval(PAR_OPTCOUNT,varvalue);
	if (callertype==ULIPAR)
		intpar=ar_rutsetpar(9,(-1));
	else
		ged_getintpar(58,intpar);
	sprintf(varvalue,"%d",intpar);
	addrplcval(PAR_MAXROCON,varvalue);
	if (callertype==ULIPAR)
		intpar=ar_rutsetpar(10,(-1));
	else
		ged_getintpar(59,intpar);
	sprintf(varvalue,"%d",intpar);
	addrplcval(PAR_MAXROLEVEL,varvalue);
	if (callertype==ULIPAR)
		intpar=ar_rutsetpar(11,(-1));
	else
		ged_getintpar(60,intpar);
	sprintf(varvalue,"%d",intpar);
	addrplcval(PAR_MAXRORET,varvalue);
	if (callertype==ULIPAR)
		intpar=ar_rutsetpar(34,(-1));
	else
		ged_getintpar(83,intpar);
	sprintf(varvalue,"%s",intpar ? "ON" : "OFF");
	addrplcval(PAR_SMDVIAPASS,varvalue);
	if (callertype==ULIPAR)
		intpar=ar_rutsetpar(47,(-1));
	else
		ged_getintpar(96,intpar);
	sprintf(varvalue,"%d",intpar);
	addrplcval(PAR_BGAFANOUT,varvalue);
	if (callertype==ULIPAR)
		intpar=ar_rutsetpar(51,(-1));
	else
		ged_getintpar(100,intpar);
	sprintf(varvalue,"%s",intpar ? "ON" : "OFF");
	addrplcval(PAR_MICVIAMODE,varvalue);
	if (callertype==ULIPAR)
		intpar=ar_rutsetpar(55,(-1));
	else
		ged_getintpar(104,intpar);
	sprintf(varvalue,"%d",intpar);
	addrplcval(PAR_POWLVIAMODE,varvalue);
	if (callertype==ULIPAR)
		intpar=ar_rutsetpar(35,(-1));
	else
		ged_getintpar(84,intpar);
	sprintf(varvalue,"%s",intpar ? "ON" : "OFF");
	addrplcval(PAR_PGSWAPMODE,varvalue);
	if (callertype==ULIPAR)
		intpar=ar_rutsetpar(20,(-1));
	else
		ged_getintpar(69,intpar);
	sprintf(varvalue,"%s",intpar ? "ON" : "OFF");
	addrplcval(PAR_AUTOSAVE,varvalue);
}

void rutstratsettings()
/*
// Add autorouter control settings to replacement request list
*/
{
	string varvalue			/* Variable value string */;
	int intpar			/* Integer parameter value */;
	if (callertype==ULIPAR)
		intpar=ar_rutsetpar(3,(-1));
	else
		ged_getintpar(52,intpar);
	sprintf(varvalue,"%d",intpar);
	addrplcval(PAR_VIADELAY,varvalue);
	if (callertype==ULIPAR)
		intpar=ar_rutsetpar(4,(-1));
	else
		ged_getintpar(53,intpar);
	sprintf(varvalue,"%d",intpar);
	addrplcval(PAR_CHANNELDLY,varvalue);
	if (callertype==ULIPAR)
		intpar=ar_rutsetpar(5,(-1));
	else
		ged_getintpar(54,intpar);
	sprintf(varvalue,"%d",intpar);
	addrplcval(PAR_CROSSDLY,varvalue);
	if (callertype==ULIPAR)
		intpar=ar_rutsetpar(6,(-1));
	else
		ged_getintpar(55,intpar);
	sprintf(varvalue,"%d",intpar);
	addrplcval(PAR_DIRCHGDLY,varvalue);
	if (callertype==ULIPAR)
		intpar=ar_rutsetpar(7,(-1));
	else
		ged_getintpar(56,intpar);
	sprintf(varvalue,"%d",intpar);
	addrplcval(PAR_PACKDLY,varvalue);
	if (callertype==ULIPAR)
		intpar=ar_rutsetpar(8,(-1));
	else
		ged_getintpar(57,intpar);
	sprintf(varvalue,"%d",intpar);
	addrplcval(PAR_STATDLY,varvalue);
	if (callertype==ULIPAR)
		intpar=ar_rutsetpar(13,(-1));
	else
		ged_getintpar(62,intpar);
	sprintf(varvalue,"%d",intpar);
	addrplcval(PAR_BUSSTRDLY,varvalue);
	if (callertype==ULIPAR)
		intpar=ar_rutsetpar(1,(-1));
	else
		ged_getintpar(50,intpar);
	sprintf(varvalue,"%d",intpar);
	addrplcval(PAR_OPTCHAR,varvalue);
	if (callertype==ULIPAR)
		intpar=ar_rutsetpar(14,(-1));
	else
		ged_getintpar(63,intpar);
	sprintf(varvalue,"%d",intpar);
	addrplcval(PAR_RRAREA1DLY,varvalue);
	if (callertype==ULIPAR)
		intpar=ar_rutsetpar(15,(-1));
	else
		ged_getintpar(64,intpar);
	sprintf(varvalue,"%d",intpar);
	addrplcval(PAR_RRAREA2DLY,varvalue);
	if (callertype==ULIPAR)
		intpar=ar_rutsetpar(16,(-1));
	else
		ged_getintpar(65,intpar);
	sprintf(varvalue,"%d",intpar);
	addrplcval(PAR_SKIPPDLY,varvalue);
	if (callertype==ULIPAR)
		intpar=ar_rutsetpar(32,(-1));
	else
		ged_getintpar(81,intpar);
	sprintf(varvalue,"%d",intpar);
	addrplcval(PAR_OFFGRIDDLY,varvalue);
	if (callertype==ULIPAR)
		intpar=ar_rutsetpar(38,(-1));
	else
		ged_getintpar(87,intpar);
	sprintf(varvalue,"%d",intpar);
	addrplcval(PAR_PGRIDSHIFT,varvalue);
	if (callertype==ULIPAR)
		intpar=ar_rutsetpar(39,(-1));
	else
		ged_getintpar(88,intpar);
	sprintf(varvalue,"%d",intpar);
	addrplcval(PAR_PGRIDDLY,varvalue);
	if (callertype==ULIPAR)
		intpar=ar_rutsetpar(40,(-1));
	else
		ged_getintpar(89,intpar);
	sprintf(varvalue,"%d",intpar);
	addrplcval(PAR_NAREADLY,varvalue);
	if (callertype==ULIPAR)
		intpar=ar_rutsetpar(50,(-1));
	else
		ged_getintpar(99,intpar);
	sprintf(varvalue,"%d",intpar);
	addrplcval(PAR_FULLVIAEVL,varvalue);
}

void copysetup()
/*
// Copy setup files from all users to current user
*/
{
	string udir			/* User files directory */;
	string adir			/* All user files directory */;
	// Get the configuration file directories
	bae_getstrpar(17,adir);
	bae_getstrpar(18,udir);
	if (adir==udir)
		errormsg(ERRSAMECONF,adir);
	// Copy ddb format setup files
	copysetddb(FONTLIBNAME,DDBCLFONT,adir,udir);
	copysetddb(SETUPFNAME,DDBCLBSETUP,adir,udir);
	copysetddb(SCMLIBNAME,DDBCLSCOL,adir,udir);
	copysetddb(GEDLIBNAME,DDBCLLCOL,adir,udir);
	copysetddb(CAMLIBNAME,DDBCLGTAB,adir,udir);
	copysetddb(CEDLIBNAME,DDBCLICOL,adir,udir);
	copysetddb(ULDEFPRGFNAME,DDBCLUL,adir,udir);
	copysetddb(ULDEFPRGFNAME,DDBCLULLIB,adir,udir);
	copysetddb(RULEDBFNAME,DDBCLRULE,adir,udir);
	copysetddb(RUTDBFNAME,DDBCLASET,adir,udir);
	copysetddb(RUTDBFNAME,DDBCLABAT,adir,udir);
	copysetsql(DRCDBFNAME,adir,udir);
	copysetsql(EPSBLIBNAME,adir,udir);
	copysetsql(MACROFNAME,adir,udir);
	copysetsql(PARAMFNAME,adir,udir);
	copysetsql(ULHLPFNAME,adir,udir);
	copysetfile(INITFNAME,adir,udir);
	copysetfile(DCOLLIBNAME,adir,udir);
	copysetfile(PCOLLIBNAME,adir,udir);
	bae_prtdialog(REPCONFDONE);
}

void copysetddb(string filename,int ddbcl,string adir,string udir)
/*
// Copy setup file entries of given class
// Parameter :
//	string filename			: Setup file name
//	int ddbcl			: DDB class
//	string udir			: User files directory
//	string adir			: All user files directory
*/
{
	string sfname			/* Source file name */;
	string dfname			/* Destination file name */;
	string curelem	= ""		/* Current element name */;
	STRINGS el			/* Element list */;
	int en		= 0		/* Element count */;
	int fh				/* File handle */;
	int i				/* Loop control variable */;
	// Build the file names
	sfname=adir+bae_swversion(4)+filename;
	dfname=udir+bae_swversion(4)+filename;
	// Check if source file exists
	fseterrmode(0);
	if ((fh=fopen(sfname,0|8))==(-1))
		return;
	while (scanddbenames(sfname,ddbcl,curelem)==1) {
		el[en]=curelem;
		en++;
		}
	if (mergemode==(-1))
		if ((fh=fopen(dfname,0|8))!=(-1))
			for  (i=0;i<en;i++)
				if (ddbcheck(dfname,ddbcl,el[i])==0) {
					mergemode=
					 bae_msgboxverify(UPRDATOVWR,"");
					break;
					}
	// Start the file copy
	message(REPFCOPY,filename);
	for  (i=0;i<en;i++)
		ddbcopyelem(
		 sfname,dfname,ddbcl,el[i],mergemode==(-1) ? 0 : mergemode);
}

void copysetsql(string filename,string adir,string udir)
/*
// Copy setup SQL database files
// Parameter :
//	string filename			: Setup file name
//	string udir			: User files directory
//	string adir			: All user files directory
*/
{
	string sfname			/* Source file name */;
	string dfname			/* Destination file name */;
	int sfh				/* Source file handle */;
	int dfh				/* Destination file handle */;
	int c				/* Character buffer */;
	// Build the file names
	sfname=adir+bae_swversion(4)+filename;
	dfname=udir+bae_swversion(4)+filename;
	fseterrmode(0);
	// Check if destination file exists
	if ((dfh=fopen(dfname,0|8))!=(-1))
		return;
	// Check if source file exists
	if ((sfh=fopen(sfname,0|8))==(-1))
		return;
	// Start the file copy
	message(REPFCOPY,filename);
	// Open the source file for binary read
	sfh=bae_fopen(sfname,3);
	// Open the destination file for binary write
	dfh=bae_fopen(dfname,4);
	// Repetively get characters from input file
	while ((c=fgetc(sfh))!=(-1)) {
		// Write the current character to the output file
		if (fputc(c,dfh)) {
			// File write error
			fclose(sfh);
			fclose(dfh);
			errormsg(ERRFWRITE,dfname);
			}
		}
	// Check for read errors
	if (!feof(sfh)) {
		// Read error
		fclose(sfh);
		fclose(dfh);
		errormsg(ERRFREAD,sfname);
		}
	// Close the files
	fclose(sfh);
	fclose(dfh);
}

void copysetfile(string filename,string adir,string udir)
/*
// Copy setup files
// Parameter :
//	string filename			: Setup file name
//	string udir			: User files directory
//	string adir			: All user files directory
*/
{
	string sfname			/* Source file name */;
	string dfname			/* Destination file name */;
	int sfh				/* Source file handle */;
	int dfh				/* Destination file handle */;
	int c				/* Character buffer */;
	// Build the file names
	sfname=adir+bae_swversion(4)+filename;
	dfname=udir+bae_swversion(4)+filename;
	// Check if source file exists
	fseterrmode(0);
	if ((sfh=fopen(sfname,0|8))==(-1))
		return;
	if (mergemode==(-1))
		if ((dfh=fopen(dfname,0|8))!=(-1))
			mergemode=bae_msgboxverify(UPRDATOVWR,"");
	if (mergemode!=1 && (dfh=fopen(dfname,0|8))!=(-1))
		return;
	// Start the file copy
	message(REPFCOPY,filename);
	// Open the source file for binary read
	sfh=bae_fopen(sfname,3);
	// Open the destination file for binary write
	dfh=bae_fopen(dfname,4);
	// Repetively get characters from input file
	while ((c=fgetc(sfh))!=(-1)) {
		// Write the current character to the output file
		if (fputc(c,dfh)) {
			// File write error
			fclose(sfh);
			fclose(dfh);
			errormsg(ERRFWRITE,dfname);
			}
		}
	// Check for read errors
	if (!feof(sfh)) {
		// Read error
		fclose(sfh);
		fclose(dfh);
		errormsg(ERRFREAD,sfname);
		}
	// Close the files
	fclose(sfh);
	fclose(dfh);
}

// User Language program end