Monday, November 08, 2010 at 12:06 AM.
system.verbs.builtins.userland.oldstuff.unload
<<unloads all the DW-specific objects from the root before shipping
local (folder = "Macintosh HD:New Releases:Frontier Workshop:DW Objects:");
target.set (@userland.unloadlist);
op.firstsummit ();
local (list = {});
loop {
local (adr = address (op.getlinetext ()));
if not defined (adr^) {
dialog.alert (adr + " is not defined.")};
list = list + adr;
if not op.go (down, 1) {
break}};
target.clear ();
local (x);
file.surefolder (folder);
for x in list {
msg (x);
try {
export.sendobject (x, folder + x);
delete (x)}
else {
dialog.alert (tryError)}}
This listing is for code that runs in the OPML Editor environment. I created these listings because I wanted the search engines to index it, so that when I want to look up something in my codebase I don't have to use the much slower search functionality in my object database. Dave Winer.