trunk/ulp/run-loop-all-packages-script.ulp

@@ -0,0 +1,21 @@
+#usage "<b>Run a SCRIPT through all symbols in a library</b><p>\n"
+       "RUN run-loop-all-packages-script [SCRIPT]<br>"
+       "<author>Author: librarian@cadsoft.de</author><p><p>"
+
+string Version = "1.0";       // 2008-08-28
+string ScriptFile = argv[1];
+string cmd, s;
+
+if  (library) {
+  library(L) {
+    if (!ScriptFile) ScriptFile = dlgFileOpen("Select a SCRIPT to run in all PACKAGES", path_scr[0], "*.scr");
+    if (!ScriptFile) exit(0);
+    L.packages(P) {
+       sprintf(s, "EDIT %s.PAC;\nSCRIPT '%s';\n", P.name, ScriptFile);
+       cmd += s;
+    }
+  }
+  exit (cmd);
+}
+
+else dlgMessageBox("Start this ULP from a Library", "OK");