Monday, November 08, 2010 at 12:06 AM.
system.verbs.builtins.userland.oldstuff.partsExport
local (folder = "\\\\Daves-nt\\daveNT\\Mac2PC\\");
edit (@userland.partsList);
target.set (@userland.partsList);
op.firstSummit ();
op.fullExpand ();
userland.notepad = workspace.notepad;
loop {
if not script.isComment () {
local (foldername = op.getLineText ());
local (subfolder = folder + file.getPathChar () + foldername);
file.sureFolder (subfolder);
file.emptyFolder (subfolder);
if not op.go (right, 1) {
scriptError (foldername + " has no subheads.")};
loop {
if not script.isComment () {
local (adr = address (op.getLineText ()));
local (fname = nameOf (parentOf (adr^)^) + "." + nameOf (adr^));
msg (fname);
export.sendObject (adr, subfolder + file.getPathChar () + fname)};
if not op.go (down, 1) {
break}};
op.go (left, 1);
if not op.go (down, 1) {
break}}};
target.clear ()
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.