Monday, November 08, 2010 at 12:04 AM.

---

system.verbs.builtins.op.listToOutline

on listToOutline (theList, adroutline) { <<4.2
	<<10/31/97 at 12:07:54 PM by DW -- moved from toys.listToOutline
	local (oldtarget = target.get (), dir = down);
	target.set (adroutline);
	on insertList (theList) {
		local (i, elem);
		for i = 1 to sizeof (theList) {
			elem = theList [i];
			if typeOf (elem) == listType {
				dir = right;
				insertList (elem);
				if dir == down {
					op.go (left, 1)}}
			else {
				op.insert (elem, dir); dir = down}}};
	insertList (theList);
	target.set (oldtarget);
	return (theList)}
<<bundle <<test code
	<<try {delete (@scratchpad.xxx)}
	<<scratchpad.theList = op.outlineToList (@tablemap.thelist)
	<<new (outlinetype, @scratchpad.xxx)
	<<target.set (@scratchpad.xxx)
	<<listToOutline (scratchpad.theList, @scratchpad.xxx)
	<<op.firstSummit ()
	<<op.deleteLine ()
	<<edit (@scratchpad.xxx)

---

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.