diff options
| author | Steve Bennett <steveb@workware.net.au> | 2019-11-04 08:41:32 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2019-11-09 19:59:15 +1000 |
| commit | dd064e670daf910fa50e138ec0c36822405b60f5 (patch) | |
| tree | c512150b006c3e1dbc7f4575e2d744133caa0b59 /make-index | |
| parent | 529c84b4ee31f51925a9ac14247a94a428592c7d (diff) | |
| download | jimtcl-dd064e670daf910fa50e138ec0c36822405b60f5.zip jimtcl-dd064e670daf910fa50e138ec0c36822405b60f5.tar.gz jimtcl-dd064e670daf910fa50e138ec0c36822405b60f5.tar.bz2 | |
json: Add json encoder/decoder
Using the jsmn library for decoding.
Based on the original implementation by Svyatoslav Mishyn <juef@openmailbox.org>
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'make-index')
| -rwxr-xr-x | make-index | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -16,13 +16,13 @@ while {[gets $f buf] >= 0} { incr c set target cmd_$c set lines [linsert $lines end-1 "\[\[$target\]\]"] - set prevlist [split $prev ":, "] + set prevlist [split $prev ", "] } else { set target _[string map {:: _} $prev] set prevlist [list $prev] } foreach cmd $prevlist { - set cmd [string trim $cmd] + set cmd [string trim $cmd :] if {[regexp {^[a-z.:]+$} $cmd]} { lappend commands [list $cmd $target] set cdict($cmd) $target |