neingeist
/
arduinisten
Archived
1
0
Fork 0
You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
This repo is archived. You can view files and clone it, but cannot push or open issues/pull-requests.

30 lines
801 B
Plaintext

#usage "<b>Edit next library in current directory</b>\n"
"<p>"
"<author>Author: support@cadsoft.de</author>"
// THIS PROGRAM IS PROVIDED AS IS AND WITHOUT WARRANTY OF ANY KIND, EXPRESSED OR IMPLIED
if (library) {
library(L) {
string a[], cmd;
string Lname = L.name;
string lbr_path = filedir(L.name);
int n = fileglob(a, lbr_path + "*.lbr");
if (n) {
for (int xl = 0; xl < n; xl++) {
if (Lname == a[xl]) {
if (xl < n-1) {
string h;
sprintf(h, "OPEN '" + a[xl + 1] + "';");
cmd += h;
exit (cmd);
}
}
}
}
}
exit (0);
}
else dlgMessageBox("Start this ULP from a Library", "OK");