Monday, November 08, 2010 at 12:03 AM.
system.verbs.builtins.html.utilities.convertclayglossary
local (adrtable = @clay.data.glossary);
local (ct = sizeof (adrtable^), i, s);
for i = 1 to ct {
local (adrsubtable = @adrtable^ [i]);
local (name = nameof (adrsubtable^));
msg (name);
with adrsubtable^ {
case t {
0 {
s = v};
1 {
s = "<a href=\""+ v + "\">" + name + "</a>"};
2 {
s = "<a href=\"mailto:"+ v + "\">" + name + "</a>"}}
else {
scriptError ("Unsupported glossary type, number = " + t)}};
user.html.glossary.[name] = s}
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.