#usage "en:Generates a Dummy Package for the currently displayed Device in the Library Editor \n"
"
"
"For electro devices it has proved to be useful to use the same names for symbol pins and "
"package pads. This program generates a package that has identical pad/pin names."
"
"
"Start the ULP in the library editor window, after having created a device and "
"used the ADD command to add the symbol(s). A package will be created which has "
"the same name as the device and the pad names are identical with the pin names. "
"Connect pins und pads with the Connect command.
"
"Author: alf@cadsoft.de"
,
"de:Generiert ein Dummy-Package für das aktuell angezeigte Device im Bibliothekseditor\n"
"
"
"Für Elektro-Bauteile empfiehlt es sich, dass Symbol-Pins und Package-Pads gleiche "
"Namen haben. Dieses Programm erzeugt ein Package mit identischen Pad-/Pin-Namen."
"
"
"Starten Sie das Programm im Bibliothekseditor, sobald Sie ein Device angelegt "
"und die Symbole mit dem Add-Befehl geholt haben. Es wird ein Package angelegt, "
"dessen Name dem des Device entspricht (falls noch nicht vorhanden) und dessen "
"Pads entsprechend den Pins benannt sind. Pins und Pads sind mit dem Connect-Befehl "
"verbunden.
"
"Author: alf@cadsoft.de"
string Version = "1.0.2"; // 2012-03-23 Behandlung der Apostrophen in Pin/Pad-Namen berichtig.
// 2013-01-25 Bei nur einem Gate den Gate-Namen nicht benutzen um die Pad-Namen zu erzeugen
string cmd, concmd, s;
string f;
string PadName;
string CurrentDevice;
int PackagePresent = 0;
int PADname;
int test = 0;
// Da der ganze String in ' eingeschlossen wird,
// müssen die Apostrophen verdoppelt werden.
string addApostroph(string name) { // 2012-03-23
string t[];
int cnt = strsplit(t, name, '\''); // check Apostroph
if (cnt > 1) {
name = "";
for (int i = 0; i < cnt; i++) {
if (i == 0) {
if (t[i]) name += t[i];
}
else if (i) name += "''" + t[i];
}
}
return name;
}
if (deviceset) {
library(L) {
f = filename(L.name);
f = filesetext(f, "$$$.scr");
f = path_scr[0] + '/' + f; // verwende Script-Pfad
deviceset(DS) {
CurrentDevice = DS.name;
DS.devices(D) {
if (!D.package && CurrentDevice == DS.name) {
sprintf(s, "EDIT %s.PAC;\n", DS.name);
cmd += s;
sprintf(s, "DESCRIPTION 'Dummy';\n");
cmd += s;
sprintf(s, "GRID MM; CHANGE DRILL 0.5; CHANGE DIAMETER 1.0;\n");
cmd += s;
sprintf(s, "EDIT %s.DEV;\n", DS.name);
concmd += s;
sprintf(s, "PAC '%s' '';\n", DS.name);
concmd += s;
int cntg = 0;
DS.gates(G) {
cntg++;
}
DS.gates(G) {
string gname = addApostroph(G.name);
if (cntg == 1) gname = ""; // 2013-01-25 bei nur einem Gate, nur den Pin-Namen beutzen.
G.symbol.pins(P) {
PadName = (P.name);
sprintf(s, "PAD '%s%s' (%.4f %.4f);\n",
gname, addApostroph(PadName),
u2mm(P.x),
u2mm(P.y)-7.62
); // Pin-Offset im Device in Y-Richtung
cmd += s;
sprintf(s, "CONNECT '%s.%s' '%s%s';\n",
addApostroph(G.name),
addApostroph(P.name),
gname,
addApostroph(PadName)
);
concmd += s;
}
}
}
}
}
L.packages(P) {
if (CurrentDevice == P.name) PackagePresent = 1;
}
}
cmd += concmd;
if (cmd && !PackagePresent) {
if (test) {
dlgDialog("Check") {
dlgHBoxLayout dlgSpacing(500);
dlgHBoxLayout {
dlgVBoxLayout dlgSpacing(500);
dlgTextEdit(cmd);
}
dlgHBoxLayout {
dlgPushButton("OK") dlgAccept();
dlgPushButton("Cancel") { dlgReject(); exit(-1); }
}
};
}
output(f, "wtD") printf("%s", cmd); // temporäre Script-Datei erzeugen
exit("SCRIPT '"+ f +"'");
}
else {
if (language() == "de") dlgMessageBox("Das Device besitzt schon ein Package, bzw. es existiert schon ein Package mit entsprechenden Namen.", "OK");
else dlgMessageBox("There is already a package defined for this device/package with this name already exists.", "OK");
}
}
else {
if (language() == "de") dlgMessageBox("Das ULP kann nur im Device-Editor (Bibliothek) benutzt werden!", "OK");
else dlgMessageBox("This ULP can be used in the Device Editor (Library) only!", "OK");
}