Cgi/javascript interface

[marsd]

I'm trying to build a small tcl/javascript library for
my own, personal, use using cgi.tcl.

I have several issues with passing tcl variables to a
javascript function.
I'm stuck on how to deal with some substitution issues.

A sample problem:
proc areaCreate {mn an clist href handler} {
js::tclcodeinsert function areaCreate() {
document.write(&quot;<map name=$mn>&quot;
document.write(&quot;<area name=$an&quot;
document.write(&quot;coords=$clist&quot;
document.write(&quot;href=$href&quot;
document.write(&quot;target=_top&quot;
document.write(&quot;onDblClick=$handler>&quot;
}
return 2
}


proc tclcodeinsert {args} {
foreach line [split $args \n] {
if {[regexp &quot;.*=(.*)\&quot;.*&quot; $line all val]} {
uplevel #1 &quot;catch {puts $all}&quot;
} else {
catch {cgi_buffer [puts $line]}
}
}
return
}

The output from something like this:
js::initjs ; js::areaCreate bogus bogus1 &quot;1,1,34,56&quot; &quot;

http://myurl&quot;

&quot;myhandler()&quot; ; js::closejs

Looks like this:
<script>

function areaCreate() {
document.write(&quot;coords=1,1,34,56&quot
document.write(&quot;href=

http://myurl&quot;)

document.write(&quot;target=_top&quot
document.write(&quot;onDblClick=myhandler()>&quot
}

</script>

You'll notice the problem..
I can get all lines without variable substitution
or some lines with variable substitution but not
both together.
Does anybody see an easier way to do this than
reading the args twice, storing non-regexp matches
in order, then regexp matches in order and rewriting
the output via custom parray?