Posted to tcl by venks at Fri Aug 20 05:34:38 GMT 2010view raw

  1. append newrsp [<ul> id nav [subst {
  2. [<li> [subst {
  3. [<a> href # Company]
  4. [<ul> [subst {
  5. [<li> [subst {
  6. [<a> href # class daddy {Contact Us}]
  7. [<ul> [subst {
  8. [<li> [<a> href # Map]]
  9. }]]
  10. }]]
  11. }]]
  12. }]]
  13. }]]
  14.  

Comments

Posted by venks at Fri Aug 20 06:18:18 GMT 2010 [text] [code]

proc x args { set started 0 set cmd <[lindex $args 0]> set value "" foreach arg [lrange $args 1 end] { if {$started == 1} { append value [uplevel 1 $arg] } elseif {$started == 2} { append value [uplevel 1 [list subst $arg]] } elseif {$arg eq "-"} { set started 2 } elseif {$arg eq "+"} { set started 1 } else { lappend cmd $arg } } if {$started == 0} { error "No - arg to x" } uplevel 1 {*}$cmd [list $value] } append newrsp [x ul id nav + { x li + { x a href # - Company x ul + { x li + { x a href # class daddy - {Contact Us} x ul + { x li + {x a href # - Map} } } } } }]