[perl #21588] [PATCH] uniq.pasm

[Dan Sugalski]

At 7:41 PM +0000 3/15/03, Leon Brocard (via RT) wrote:
>Well, it's more of a new file than a patch. I'm aware that we're in a
>code freeze, so I don't mind if this doesn't get it right now, but
>it'd be nice ;-)

Applied, now that the tree's tagged and unfrozen.
--
Dan

--------------------------------------"it's like this"-------------------
Dan Sugalski even samurai
d...@sidhe.org have teddy bears and even
teddy bears get drunk

[Juergen Boemmels]

Leon Brocard (via RT) <bugs-...@netlabs.develooper.com> writes:

> Well, it's more of a new file than a patch. I'm aware that we're in a
> code freeze, so I don't mind if this doesn't get it right now, but
> it'd be nice ;-)
>

> I've attached an example "uniq" implementation in pasm, which takes
> options. It's not very fast compared to GNU uniq atm, but hey. I'd
> suggest putting this in examples/assembly/ (don't forget the
> MANIFEST).

Sorry, but my ongoing effort to port the io from stdio to PIO broke
this. realine isn't working at the moment, it needs at least minimal
read buffering in PIO, but this weekend I only got write buffering
running (see #21600). Maybe next weekend.

But the code is a good example how it should work.

> open I0, S0
> readline S2, I0
>
> SOURCE_LOOP:
> readline S1, I0

bye
boe

[Leon Brocard]

Juergen Boemmels sent the following bits through the ether:

> Sorry, but my ongoing effort to port the io from stdio to PIO broke
> this. realine isn't working at the moment, it needs at least minimal
> read buffering in PIO, but this weekend I only got write buffering
> running (see #21600). Maybe next weekend.

kanga:/home/acme/tmp/parrot% perl assemble.pl -o uniq.pbc examples/assembly/uniq.pasm
kanga:/home/acme/tmp/parrot% ./parrot -t uniq.pbc README
PC=0; OP=99 (set_s_p_kic); ARGS=(S0=(null), P0=PerlArray=PMC(0x8186ee0), [1])
PC=4; OP=217 (if_s_ic); ARGS=(S0="README", 14)
PC=18; OP=154 (ne_s_sc_ic); ARGS=(S0="README", "-c", 11)
PC=29; OP=154 (ne_s_sc_ic); ARGS=(S0="README", "-d", 11)
PC=40; OP=154 (ne_s_sc_ic); ARGS=(S0="README", "-u", 11)
PC=51; OP=46 (set_i_ic); ARGS=(I1=0, 1)
PC=54; OP=879 (open_i_s); ARGS=(I0=0, S0="README")
PC=57; OP=5 (readline_s_i); ARGS=(S2=(null), I0=3)
zsh: 27543 segmentation fault ./parrot -t uniq.pbc README

So what do I need to do to get this working? What bribes are
necessary? ;-)

Leon
--
Leon Brocard.............................http://www.astray.com/
scribot.................................http://www.scribot.com/

... Drink more coffee

[Leon Brocard]

Juergen Boemmels sent the following bits through the ether:

> Sorry, but my ongoing effort to port the io from stdio to PIO broke

> this. realine isn't working at the moment, it needs at least minimal
> read buffering in PIO, but this weekend I only got write buffering
> running (see #21600). Maybe next weekend.

kanga:/home/acme/tmp/parrot% perl assemble.pl -o uniq.pbc examples/assembly/uniq.pasm

kanga:/home/acme/tmp/parrot% ./parrot -t uniq.pbc README
PC=0; OP=99 (set_s_p_kic); ARGS=(S0=(null), P0=PerlArray=PMC(0x8186ee0), [1])
PC=4; OP=217 (if_s_ic); ARGS=(S0="README", 14)
PC=18; OP=154 (ne_s_sc_ic); ARGS=(S0="README", "-c", 11)
PC=29; OP=154 (ne_s_sc_ic); ARGS=(S0="README", "-d", 11)
PC=40; OP=154 (ne_s_sc_ic); ARGS=(S0="README", "-u", 11)
PC=51; OP=46 (set_i_ic); ARGS=(I1=0, 1)
PC=54; OP=879 (open_i_s); ARGS=(I0=0, S0="README")
PC=57; OP=5 (readline_s_i); ARGS=(S2=(null), I0=3)

zsh: 27855 segmentation fault ./parrot -t uniq.pbc README

It's been a long weekend. Who do I need to bribe to get this working
again? ;-)

Leon

ps I have mail issues, apologies if this is a dup

--
Leon Brocard.............................http://www.astray.com/
scribot.................................http://www.scribot.com/

... Humpty Dumpty was pushed