Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.

Dismiss

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

2 views

Skip to first unread message

Will Coleda

unread,

Aug 5, 2006, 11:37:59 PM8/5/06

to bugs-bi...@rt.perl.org

# New Ticket Created by Will Coleda
# Please include the string: [perl #40090]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=40090 >

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.)

--
Will "Coke" Coleda
wi...@coleda.com

Will Coleda via RT

unread,

Jul 25, 2007, 2:00:08 PM7/25/07

to perl6-i...@perl.org

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:

0 new messages