tcl-hacks

Check-in [ac60259978]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:remove debugging prints
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:ac60259978bd1781ce55e92726f4ba8276ddd8ec
User & Date: aspect 2018-07-21 12:42:56
Context
2018-07-21
13:36
more subcommand/option resolution, hacks for zlib check-in: f89c14d2f7 user: aspect tags: trunk
12:42
remove debugging prints check-in: ac60259978 user: aspect tags: trunk
12:41
procmap: inspect options and catch some more ensemble-y things in the process check-in: cffea9ffda user: aspect tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to procmap/procmap.tcl.

381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
                        }
                        regsub -all {\?.*?\?} $argspec "" argspec
                        regsub -all {\.\.\.} $argspec "" argspec
                        regsub -all channelId $argspec stdin argspec
                        regsub -all className $argspec ::oo::class argspec
                        regsub -all objName $argspec ::oo::object argspec
                        regsub -all cmdname $argspec namespace argspec  ;# this should be an ensemble
                        puts "Res before: $res"
                        puts "Calling: $cmd $argspec"
                        set res [dict merge $res [procmap::examine [list {*}$cmd {*}$argspec]]]
                        puts "Res after: $res"
                    }
                }
            }
            puts ">> $res"
            dict set arghelp $cmd $res
        }
    }







<
<

<







381
382
383
384
385
386
387


388

389
390
391
392
393
394
395
                        }
                        regsub -all {\?.*?\?} $argspec "" argspec
                        regsub -all {\.\.\.} $argspec "" argspec
                        regsub -all channelId $argspec stdin argspec
                        regsub -all className $argspec ::oo::class argspec
                        regsub -all objName $argspec ::oo::object argspec
                        regsub -all cmdname $argspec namespace argspec  ;# this should be an ensemble


                        set res [dict merge $res [procmap::examine [list {*}$cmd {*}$argspec]]]

                    }
                }
            }
            puts ">> $res"
            dict set arghelp $cmd $res
        }
    }