[perl #40090] [TODO] Tcl - make 'tcl.pbc --pir' work.

[Will Coleda via RT]

On Sat Aug 05 20:37:59 2006, coke wrote:
> When invoked with a '--pir' option and no tcl to process, partcl  
> should still enter interactive mode, but each interactive command  
> should:
> 
> 1) output the PIR that was generated to execute that command (as -- 
> pir does now when passed tcl), and
> 2) execute the code and output the result (as interactive mode does  
> now.)

Added in r20193. Sample:

$ ../../parrot tcl.pbc --pir
% puts hi
    .local pmc colons, split, epoch
    colons = get_root_global ['_tcl'], 'colons'
    split  = get_root_global ['parrot'; 'PGE::Util'], 'split'
    epoch = get_root_global ['_tcl'], 'epoch'
    $P89 = new 'TclString'
    assign $P89, "hi"
    $P90 = find_name "&puts"
    if null $P90 goto invalid_91
    $P90 = $P90($P89)
    goto done_92
invalid_91:
    tcl_error 'invalid command name "puts"'
done_92:

hi