You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
29 lines
890 B
29 lines
890 B
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
|
|
|