punkshell/scriptlib/showargsplus.tcl

set ::tclsh(evalinput) 1
puts stdout "argc: $::argc"
puts stdout "argv one arg per line, each line followed by dotted line."
foreach a $::argv {
    puts stdout $a
    puts stdout [string repeat - 40]
}
flush stdout
puts stdout "****** raw args******"
package require twapi
set rawcmdline [twapi::get_process_commandline [pid]]
puts stdout $rawcmdline
puts stdout "******         ******"
flush stdout
set cl_to_argv [twapi::get_command_line_args $rawcmdline]
puts stdout "======twapi CommandLineToArgvW interpretation of args ====="
foreach ca $cl_to_argv {
    puts stdout $ca
    puts stdout [string repeat = 40]
}
puts stdout \n
package require punk::winrun
set cl_to_argv [punk::winrun::unquote_wintcl $rawcmdline]
puts stdout "======winrun::unquote_wintcl interpretation of args ====="
foreach ca $cl_to_argv {
    puts stdout $ca
    puts stdout [string repeat = 40]
}
puts stdout \n