Version 4 of Stephen Uhler

Updated 2005-01-25 08:59:07 by suchenwi

Stephen's page at Sunlabs [L1 ] 404s. Bummer.

Now he's got a uid instead of just a name. Hooray for progress! [L2 ]


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 ]