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

---

system.verbs.builtins.tcp.examples.getDomains

local (iplist = {});
target.set (@tcp.examples.ips);
op.firstSummit ();
loop {
	iplist = iplist + op.getLineText ();
	if not op.go (down, 1) {
		break}};
target.clear ();

local (i, adrdomains = @tcp.examples.domains, num, firstline = true, s);
new (outlinetype, adrdomains);
edit (adrdomains);
target.set (adrdomains);
for i = 1 to sizeof (iplist) {
	num = tcp.addressEncode (iplist [i]);
	s = tcp.addressToName (num);
	if firstline {
		op.setLineText (s);
		firstline = false}
	else {
		op.insert (s, down)}};
op.firstSummit ();
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.