Posted to tcl by venks at Fri Aug 20 05:34:38 GMT 2010view pretty
append newrsp [<ul> id nav [subst {
[<li> [subst {
[<a> href # Company]
[<ul> [subst {
[<li> [subst {
[<a> href # class daddy {Contact Us}]
[<ul> [subst {
[<li> [<a> href # Map]]
}]]
}]]
}]]
}]]
}]]
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} } } } } }]