Stephen's page at Sunlabs [http://www.sunlabs.com/people/stephen.uhler/] 404s. Bummer. Now he's got a uid instead of just a name. Hooray for progress! [http://research.sun.com/people/mybio.php?uid=25901] ---- Stephen wrote [SpecTcl]. ---- Stephen worked on megawidget design, and released the classic HTML widget. (CGI, also?) Also the original author of the regexp/subst combo which is [htmlparse] in [Tcllib]. Here's the classic 10-liner: ############################################ # Turn HTML into TCL commands # html A string containing an html document # cmd A command to run for each html tag found # start The name of the dummy html start/stop tags proc HMparse_html {html {cmd HMtest_parse} {start hmstart}} { regsub -all \{ $html {\&ob;} html regsub -all \} $html {\&cb;} html set w " \t\r\n" ;# white space proc HMcl x {return "\[$x\]"} set exp <(/?)([HMcl ^$w>]+)[HMcl $w]*([HMcl ^>]*)> set sub "\}\n$cmd {\\2} {\\1} {\\3} \{" regsub -all $exp $html $sub html eval "$cmd {$start} {} {} \{ $html \}" eval "$cmd {$start} / {} {}" } ---- [[ [Category Person] | [Category Home Page] ]]