Leopold Toetsch wrote:
As we don't have any libs yet, I thought, I start with an important one.
It works like Acme::DWIM.
Here is the pod for it, extracted from the source via:
$ perldoc DWIM.imc > DWIM.pod.txt
I should clean up and comment it a bit, then I could submit it - where?
runtime/parrot/lib ?
Have fun,
leo
DWIM.IMC(1) User Contributed Perl Documentation DWIM.IMC(1)
TTTTIIIITTTTEEEELLLL
Parrot::DWIM - Parrot's confusing opcodes made easy.
SSSSYYYYNNNNOOOOPPPPSSSSIIIISSSS
.pcc_sub _main prototyped
.include "DWIM.imc"
print "The answer is\n"
add $I0, 20, 23
dec $I0
print $I0
print "\nsay's Parrot!\n"
end
.end
DDDDEEEESSSSCCCCRRRRIIIIPPPPTTTTIIIIOOOONNNN
The first time you run a program under include DWIM, the
module replaces all the unsightly opcodes from your source
file with the new DWIM comment: #### DDDDWWWWIIIIMMMM and runs
normally.
The code continues to work exactly as it did before, but
now it looks like this:
.pcc_sub _main prototyped
.include "DWIM.imc"
# DWIM "The answer is\n"
# DWIM $I0, 20, 23
# DWIM $I0
# DWIM $I0
# DWIM "\nsay's Parrot!\n"
# DWIM
.end
DDDDIIIIAAAAGGGGNNNNOOOOSSSSTTTTIIIICCCCSSSS
Can't open 'file' for reading
Can't open 'file' for writing
BBBBUUUUGGGGSSSS
Doesn't work for code like
I0 = 1
Probably a lot more.
AAAAUUUUTTTTHHHHOOOORRRR
Dami^WLeopold Toetsch (as if you couldn't guess)
CCCCOOOOPPPPYYYYRRRRIIIIGGGGHHHHTTTT
Copyright (c) 2003, Leopold Toetsch. All Rights Reserved.
This module is free software. It may be used,
redistributed and/or modified under the same terms as
Parrot.
24/Sep/2003 perl 5.008 1
DWIM.IMC(1) User Contributed Perl Documentation DWIM.IMC(1)
24/Sep/2003 perl 5.008 2
