Author: particle
Date: Wed Dec 28 17:19:55 2005
New Revision: 10754
Modified:
trunk/ChangeLog
trunk/compilers/imcc/imcc.l
trunk/compilers/imcc/imclexer.c
trunk/compilers/imcc/reg_alloc.c
trunk/config/gen/makefiles/root.in
trunk/docs/imcc/imcc.pod
trunk/docs/imcc/imcfaq.pod
trunk/examples/benchmarks/addit.pasm
trunk/examples/benchmarks/addit.pir
trunk/examples/benchmarks/addit2.pir
trunk/examples/benchmarks/array_access.pir
trunk/examples/benchmarks/arriter.pir
trunk/examples/benchmarks/arriter_o1.pir
trunk/examples/benchmarks/fib.pir
trunk/examples/library/getopt_demo.pir
trunk/examples/library/md5sum.pir
trunk/examples/subs/single_retval.pir
trunk/runtime/parrot/library/Digest/MD5.pir
trunk/src/dynclasses/README
trunk/src/jit.c
trunk/src/jit_debug.c
trunk/src/jit_debug_xcoff.c
trunk/src/pmc.c
trunk/src/pmc_freeze.c
trunk/t/compilers/imcc/syn/file.t
trunk/t/examples/library.t
trunk/t/pmc/mmd.t
trunk/t/pmc/sub.t
Log:
#37520: [TODO] rename library files from .imc to .pir
~ convert src and doc references
~ updated ChangeLog to reflect changes
Modified: trunk/ChangeLog
==============================================================================
--- trunk/ChangeLog (original)
+++ trunk/ChangeLog Wed Dec 28 17:19:55 2005
@@ -1,5 +1,9 @@
# $Id$
+2005.12.28 particle
+ * renamed all .imc files to .pir
+ * modified all doc references to .pir as well
+
2005.12.13 particle
* moved jit/ directory to src/jit/
Modified: trunk/compilers/imcc/imcc.l
==============================================================================
--- trunk/compilers/imcc/imcc.l (original)
+++ trunk/compilers/imcc/imcc.l Wed Dec 28 17:19:55 2005
@@ -939,7 +939,7 @@ include_file (Interp* interp, char *file
frame->s.pasm_file = 1;
BEGIN(emit);
}
- else if (strcmp (ext, ".imc") == 0) {
+ else if (strcmp (ext, ".pir") == 0) {
frame->s.pasm_file = 0;
BEGIN(INITIAL);
}
Modified: trunk/compilers/imcc/imclexer.c
==============================================================================
--- trunk/compilers/imcc/imclexer.c (original)
+++ trunk/compilers/imcc/imclexer.c Wed Dec 28 17:19:55 2005
@@ -5390,7 +5390,7 @@ include_file (Interp* interp, char *file
frame->s.pasm_file = 1;
BEGIN(emit);
}
- else if (strcmp (ext, ".imc") == 0) {
+ else if (strcmp (ext, ".pir") == 0) {
frame->s.pasm_file = 0;
BEGIN(INITIAL);
}
Modified: trunk/compilers/imcc/reg_alloc.c
==============================================================================
--- trunk/compilers/imcc/reg_alloc.c (original)
+++ trunk/compilers/imcc/reg_alloc.c Wed Dec 28 17:19:55 2005
@@ -221,7 +221,7 @@ make_stat(IMC_Unit * unit, int *sets, in
}
}
-/* registes usage of .imc */
+/* registes usage of .pir */
static void
imc_stat_init(IMC_Unit * unit)
{
@@ -252,7 +252,7 @@ print_stat(Parrot_Interp interpreter, IM
make_stat(unit, sets, unit->n_regs_used);
IMCC_info(interpreter, 1,
- "sub %s:\n\tregisters in .imc:\t I%d, N%d, S%d, P%d\n",
+ "sub %s:\n\tregisters in .pir:\t I%d, N%d, S%d, P%d\n",
function,
unit->n_vars_used[0], unit->n_vars_used[1],
unit->n_vars_used[2], unit->n_vars_used[3]);
Modified: trunk/config/gen/makefiles/root.in
==============================================================================
--- trunk/config/gen/makefiles/root.in (original)
+++ trunk/config/gen/makefiles/root.in Wed Dec 28 17:19:55 2005
@@ -1467,7 +1467,6 @@ dynext-clean :
test-clean :
$(RM_F) \
"t/op/*.pasm" \
- "t/op/*.imc" \
"t/op/*.pir" \
"t/op/*.pbc" \
"t/op/*.out" \
@@ -1485,7 +1484,6 @@ test-clean :
"t/compilers/pge/p6rules/*.out" \
"t/compilers/tge/*.pir" \
"t/compilers/imcc/*/*.out" \
- "t/compilers/imcc/*/*.imc" \
"t/compilers/imcc/*/*.pir" \
"t/compilers/imcc/*/*.pbc" \
"t/compilers/imcc/*/*.o" \
@@ -1493,7 +1491,6 @@ test-clean :
"t/compilers/imcc/*/*.pasm"
$(RM_F) \
"t/pmc/*.pasm" \
- "t/pmc/*.imc" \
"t/pmc/*.pir" \
"t/pmc/*.pbc" \
"t/pmc/*.out" \
@@ -1505,12 +1502,10 @@ test-clean :
"t/stress/*.o" \
"t/stress/*.stabs.s" \
"t/src/*.c" \
- "t/tools/*.imc" \
+ "t/tools/*.pir" \
"t/tools/*.pbc" \
- "t/library/*.imc" \
"t/library/*.pir" \
"t/library/*.pbc" \
- "t/benchmarks*.imc" \
"t/benchmarks*.pir" \
"t/benchmarks*.pasm"
Modified: trunk/docs/imcc/imcc.pod
==============================================================================
--- trunk/docs/imcc/imcc.pod (original)
+++ trunk/docs/imcc/imcc.pod Wed Dec 28 17:19:55 2005
@@ -11,7 +11,7 @@ IMCC - documentation
=item 0.1 initial
-=item 0.2 edited to specify .pir extension rather than .imc
+=item 0.2 edited to specify .pir extension rather than .pir
=back
@@ -22,8 +22,8 @@ integrated into the C<parrot> executable
IMCC compiles a language called Parrot Intermediate Representation (PIR).
PIR is the primary target of language implementations. PIR code files usually
-have the extension C<.pir>. At times in the past the extension C<.imc> was
-used as well, but C<.pir> is preferred and C<.imc> will soon be deprecated.
+have the extension C<.pir>. At times in the past the extension C<.pir> was
+used as well, but C<.pir> is preferred and C<.pir> will soon be deprecated.
This document describes available IMCC documentation, located in
F<docs/imcc> unless otherwise described.
Modified: trunk/docs/imcc/imcfaq.pod
==============================================================================
--- trunk/docs/imcc/imcfaq.pod (original)
+++ trunk/docs/imcc/imcfaq.pod Wed Dec 28 17:19:55 2005
@@ -12,7 +12,7 @@ Initial creation as of Parrot version 0.
=item Revision 0.2 - 10 May 2005
-Edited to specify the .pir extension rather than .imc
+Edited to specify the .pir extension rather than .pir
=back
@@ -148,8 +148,8 @@ simple, with no arguments or returns. Li
=head2 How do I compile and run an IMC module?
-Parrot uses the filename extension to detect whether the file is an IMC file
-(.pir or the outdated .imc), a Parrot Assembly file (.pasm) or a pre-compiled
+Parrot uses the filename extension to detect whether the file is an PIR file
+(.pir), a Parrot Assembly file (.pasm) or a pre-compiled
bytecode file (.pbc).
parrot hello.pir
Modified: trunk/examples/benchmarks/addit.pasm
==============================================================================
--- trunk/examples/benchmarks/addit.pasm (original)
+++ trunk/examples/benchmarks/addit.pasm Wed Dec 28 17:19:55 2005
@@ -50,7 +50,7 @@ DONE:
=head1 SEE ALSO
-F<examples/benchmarks/addit.pl>, F<examples/benchmarks/addit.imc>,
-F<examples/benchmarks/addit2.imc>.
+F<examples/benchmarks/addit.pl>, F<examples/benchmarks/addit.pir>,
+F<examples/benchmarks/addit2.pir>.
=cut
Modified: trunk/examples/benchmarks/addit.pir
==============================================================================
--- trunk/examples/benchmarks/addit.pir (original)
+++ trunk/examples/benchmarks/addit.pir Wed Dec 28 17:19:55 2005
@@ -3,11 +3,11 @@
=head1 NAME
-examples/benchmarks/addit.imc - Variable Argument Subroutines
+examples/benchmarks/addit.pir - Variable Argument Subroutines
=head1 SYNOPSIS
- % time ./parrot examples/benchmarks/addit.imc
+ % time ./parrot examples/benchmarks/addit.pir
=head1 DESCRIPTION
@@ -70,6 +70,6 @@ FIN:
=head1 SEE ALSO
F<examples/benchmarks/addit.pl>, F<examples/benchmarks/addit.pasm>,
-F<examples/benchmarks/addit2.imc>.
+F<examples/benchmarks/addit2.pir>.
=cut
Modified: trunk/examples/benchmarks/addit2.pir
==============================================================================
--- trunk/examples/benchmarks/addit2.pir (original)
+++ trunk/examples/benchmarks/addit2.pir Wed Dec 28 17:19:55 2005
@@ -3,11 +3,11 @@
=head1 NAME
-examples/benchmarks/addit2.imc - Variable Argument Subroutines
+examples/benchmarks/addit2.pir - Variable Argument Subroutines
=head1 SYNOPSIS
- % time ./parrot examples/benchmarks/addit2.imc
+ % time ./parrot examples/benchmarks/addit2.pir
=head1 DESCRIPTION
@@ -70,7 +70,7 @@ FIN:
=head1 SEE ALSO
F<examples/benchmarks/addit.pl>, F<examples/benchmarks/addit.pasm>,
-F<examples/benchmarks/addit.imc>.
+F<examples/benchmarks/addit.pir>.
=cut
Modified: trunk/examples/benchmarks/array_access.pir
==============================================================================
--- trunk/examples/benchmarks/array_access.pir (original)
+++ trunk/examples/benchmarks/array_access.pir Wed Dec 28 17:19:55 2005
@@ -3,11 +3,11 @@
=head1 NAME
-examples/benchmarks/array_access.imc - Reading from array
+examples/benchmarks/array_access.pir - Reading from array
=head1 SYNOPSIS
- ./parrot examples/benchmarks/array_access.imc --arr-size=1000
+ ./parrot examples/benchmarks/array_access.pir --arr-size=1000
=head1 DESCRIPTION
Modified: trunk/examples/benchmarks/arriter.pir
==============================================================================
--- trunk/examples/benchmarks/arriter.pir (original)
+++ trunk/examples/benchmarks/arriter.pir Wed Dec 28 17:19:55 2005
@@ -3,11 +3,11 @@
=head1 NAME
-examples/benchmarks/arriter.imc - Iterator Benchmark
+examples/benchmarks/arriter.pir - Iterator Benchmark
=head1 SYNOPSIS
- % time ./parrot examples/benchmarks/arriter.imc
+ % time ./parrot examples/benchmarks/arriter.pir
=head1 DESCRIPTION
@@ -148,6 +148,6 @@ iter_2_end:
=head1 SEE ALSO
F<examples/benchmarks/arriter.pl>,
-F<examples/benchmarks/arriter_o1.imc>.
+F<examples/benchmarks/arriter_o1.pir>.
=cut
Modified: trunk/examples/benchmarks/arriter_o1.pir
==============================================================================
--- trunk/examples/benchmarks/arriter_o1.pir (original)
+++ trunk/examples/benchmarks/arriter_o1.pir Wed Dec 28 17:19:55 2005
@@ -3,11 +3,11 @@
=head1 NAME
-examples/benchmarks/arriter_o1.imc - Iterator Benchmark
+examples/benchmarks/arriter_o1.pir - Iterator Benchmark
=head1 SYNOPSIS
- % time ./parrot examples/benchmarks/arriter_o1.imc
+ % time ./parrot examples/benchmarks/arriter_o1.pir
=head1 DESCRIPTION
@@ -152,7 +152,7 @@ iter_2_end:
=head1 SEE ALSO
-F<examples/benchmarks/arriter.imc>,
+F<examples/benchmarks/arriter.pir>,
F<examples/benchmarks/arriter.pl>.
=cut
Modified: trunk/examples/benchmarks/fib.pir
==============================================================================
--- trunk/examples/benchmarks/fib.pir (original)
+++ trunk/examples/benchmarks/fib.pir Wed Dec 28 17:19:55 2005
@@ -3,11 +3,11 @@
=head1 NAME
-examples/benchmarks/fib.imc - Fibonacci Benchmark
+examples/benchmarks/fib.pir - Fibonacci Benchmark
=head1 SYNOPSIS
- % time ./parrot examples/benchmarks/fib.imc n
+ % time ./parrot examples/benchmarks/fib.pir n
=head1 DESCRIPTION
Modified: trunk/examples/library/getopt_demo.pir
==============================================================================
--- trunk/examples/library/getopt_demo.pir (original)
+++ trunk/examples/library/getopt_demo.pir Wed Dec 28 17:19:55 2005
@@ -3,13 +3,13 @@
=head1 NAME
-examples/library/getopt_demo.imc - demonstrating library/Getopt/Long.pir
+examples/library/getopt_demo.pir - demonstrating library/Getopt/Long.pir
=head1 SYNOPSIS
- % ./parrot examples/library/getopt_demo.imc --help
- % ./parrot examples/library/getopt_demo.imc --version
- % ./parrot examples/library/getopt_demo.imc --string=asdf --bool
--integer=42 some thing
+ % ./parrot examples/library/getopt_demo.pir --help
+ % ./parrot examples/library/getopt_demo.pir --version
+ % ./parrot examples/library/getopt_demo.pir --string=asdf --bool
--integer=42 some thing
=head1 DESCRIPTION
@@ -22,7 +22,7 @@ PIR library F<runtime/parrot/library/Get
=head2 main
-This is executed when you call F<getopt_demo.imc>.
+This is executed when you call F<getopt_demo.pir>.
=cut
@@ -61,7 +61,7 @@ This is executed when you call F<getopt_
# Was '--version' passed ?
is_defined = defined opt["version"]
unless is_defined goto NO_VERSION_FLAG
- print "getopt_demo.imc 0.03\n"
+ print "getopt_demo.pir 0.03\n"
end
NO_VERSION_FLAG:
@@ -73,7 +73,7 @@ This is executed when you call F<getopt_
NO_HELP_FLAG:
# Say Hi
- print "Hi, I am 'getopt_demo.imc'.\n"
+ print "Hi, I am 'getopt_demo.pir'.\n"
print "\n"
# handle the bool option
Modified: trunk/examples/library/md5sum.pir
==============================================================================
--- trunk/examples/library/md5sum.pir (original)
+++ trunk/examples/library/md5sum.pir Wed Dec 28 17:19:55 2005
@@ -2,7 +2,7 @@
=head1 NAME
-examples/library/md5sum.imc - calculate MD5 checksums
+examples/library/md5sum.pir - calculate MD5 checksums
=head1 SYNOPSIS
Modified: trunk/examples/subs/single_retval.pir
==============================================================================
--- trunk/examples/subs/single_retval.pir (original)
+++ trunk/examples/subs/single_retval.pir Wed Dec 28 17:19:55 2005
@@ -7,7 +7,7 @@ examples/subs/single_retval.pir - Subrou
=head1 SYNOPSIS
- % ./parrot examples/subs/single_retval.imc
+ % ./parrot examples/subs/single_retval.pir
=head1 DESCRIPTION
Modified: trunk/runtime/parrot/library/Digest/MD5.pir
==============================================================================
--- trunk/runtime/parrot/library/Digest/MD5.pir (original)
+++ trunk/runtime/parrot/library/Digest/MD5.pir Wed Dec 28 17:19:55 2005
@@ -6,17 +6,17 @@
=head1 NAME
-MD5.imc - calculates MD5 checksums
+MD5.pir - calculates MD5 checksums
=head1 SYNOPSIS
- load_bytecode "Digest/MD5.imc"
+ load_bytecode "Digest/MD5.pir"
$P0 = _md5sum("foo")
_md5_print($P0)
or
- load_bytecode "Digest/MD5.imc"
+ load_bytecode "Digest/MD5.pir"
$P0 = _md5sum("bar")
$S0 = _md5_hex($P0)
Modified: trunk/src/dynclasses/README
==============================================================================
--- trunk/src/dynclasses/README (original)
+++ trunk/src/dynclasses/README Wed Dec 28 17:19:55 2005
@@ -51,7 +51,7 @@ PASM op C<loadlib>.
pmclass Match extends Hash dynpmc group match_group { ... }
-and then in your .imc or .pasm file:
+and then in your .pir or .pasm file:
loadlib $P0, "match_group"
Modified: trunk/src/jit.c
==============================================================================
--- trunk/src/jit.c (original)
+++ trunk/src/jit.c Wed Dec 28 17:19:55 2005
@@ -1268,7 +1268,7 @@ Finally this code here is used to genera
object files that are linked to executables), if EXEC_CAPABLE is defined.
This functionality is triggered by
- parrot -o foo.o foo.imc
+ parrot -o foo.o foo.pir
which uses the JIT engine to translate to native code inside the object
file.
Modified: trunk/src/jit_debug.c
==============================================================================
--- trunk/src/jit_debug.c (original)
+++ trunk/src/jit_debug.c Wed Dec 28 17:19:55 2005
@@ -295,12 +295,12 @@ Parrot_jit_debug_stabs(Interp *interpret
pasmfile = string_make(interpreter, src, strlen(src), NULL,
PObj_external_FLAG);
file = string_copy(interpreter, pasmfile);
- /* chop pasm/imc */
+ /* chop pasm/pir */
ext = strrchr(src, '.');
if (ext && strcmp (ext, ".pasm") == 0)
file = string_chopn(interpreter, file, 4, 1);
- else if (ext && strcmp (ext, ".imc") == 0)
+ else if (ext && strcmp (ext, ".pir") == 0)
file = string_chopn(interpreter, file, 3, 1);
else if (!ext) /* EVAL_n */
file = string_append(interpreter, file,
Modified: trunk/src/jit_debug_xcoff.c
==============================================================================
--- trunk/src/jit_debug_xcoff.c (original)
+++ trunk/src/jit_debug_xcoff.c Wed Dec 28 17:19:55 2005
@@ -263,12 +263,12 @@ Parrot_jit_debug_stabs(Interp *interpret
pasmfile = string_make(interpreter, src, strlen(src), NULL,
PObj_external_FLAG);
file = string_copy(interpreter, pasmfile);
- /* chop pasm/imc */
+ /* chop pasm/pir */
ext = strrchr(src, '.');
if (ext && strcmp (ext, ".pasm") == 0)
file = string_chopn(interpreter, file, 4, 1);
- else if (ext && strcmp (ext, ".imc") == 0)
+ else if (ext && strcmp (ext, ".pir") == 0)
file = string_chopn(interpreter, file, 3, 1);
else if (!ext) /* EVAL_n */
file = string_append(interpreter, file,
Modified: trunk/src/pmc.c
==============================================================================
--- trunk/src/pmc.c (original)
+++ trunk/src/pmc.c Wed Dec 28 17:19:55 2005
@@ -200,7 +200,7 @@ get_new_pmc_header(Interp *interpreter,
/*
* XXX not yet we can't assure that all contents in the
* const PMC is const too
- * see e.g. t/pmc/sarray_13.imc
+ * see e.g. t/pmc/sarray_13.pir
*/
#if 0
flags = PObj_constant_FLAG;
Modified: trunk/src/pmc_freeze.c
==============================================================================
--- trunk/src/pmc_freeze.c (original)
+++ trunk/src/pmc_freeze.c Wed Dec 28 17:19:55 2005
@@ -1465,7 +1465,7 @@ run_thaw(Parrot_Interp interpreter, STRI
*
* XXX
*
- * md5_3.imc shows a segfault during thawing the config hash
+ * md5_3.pir shows a segfault during thawing the config hash
* info->thaw_ptr becomes invalid - seems that the hash got
* collected under us.
*/
Modified: trunk/t/compilers/imcc/syn/file.t
==============================================================================
--- trunk/t/compilers/imcc/syn/file.t (original)
+++ trunk/t/compilers/imcc/syn/file.t Wed Dec 28 17:19:55 2005
@@ -45,7 +45,7 @@ OUT
unlink "temp.pasm";
##############################
-open FOO, ">temp.imc" or die "Can't write temp.imc\n";
+open FOO, ">temp.pir" or die "Can't write temp.pir\n";
print FOO <<'ENDF';
.const int BAR = 42
ENDF
@@ -54,7 +54,7 @@ close FOO;
pir_output_is(<<'CODE', <<'OUT', "include pir");
.sub test :main
print "before\n"
- .include "temp.imc"
+ .include "temp.pir"
print BAR
print "\nafter\n"
end
@@ -64,7 +64,7 @@ before
42
after
OUT
-unlink "temp.imc";
+unlink "temp.pir";
##############################
open FOO, ">temp.inc" or die "Can't write temp.inc\n";
@@ -140,7 +140,7 @@ OUT
# test load_bytecode branches and subs
# write sub2
-open FOO, ">temp.imc" or die "Can't write temp.imc\n";
+open FOO, ">temp.pir" or die "Can't write temp.pir\n";
print FOO <<'ENDF';
.pcc_sub _sub2
print "sub2\n"
@@ -150,7 +150,7 @@ ENDF
close FOO;
# compile it
-system("$PARROT -o temp.pbc temp.imc");
+system("$PARROT -o temp.pbc temp.pir");
pir_output_is(<<'CODE', <<'OUT', "call sub in external pbc");
.pcc_sub _sub1
@@ -171,7 +171,7 @@ sub2
OUT
# write sub2
-open FOO, ">temp.imc" or die "Can't write temp.imc\n";
+open FOO, ">temp.pir" or die "Can't write temp.pir\n";
print FOO <<'ENDF';
.pcc_sub _sub2
print "sub2\n"
@@ -183,7 +183,7 @@ ENDF
close FOO;
# compile it
-system("$PARROT -o temp.pbc temp.imc");
+system("$PARROT -o temp.pbc temp.pir");
pir_output_is(<<'CODE', <<'OUT', "call sub in external pbc, return");
.pcc_sub _sub1
@@ -206,7 +206,7 @@ back
OUT
# write sub2
-open FOO, ">temp.imc" or die "Can't write temp.imc\n";
+open FOO, ">temp.pir" or die "Can't write temp.pir\n";
print FOO <<'ENDF';
.pcc_sub _not_sub2
print "not sub2\n"
@@ -221,7 +221,7 @@ ENDF
close FOO;
# compile it
-system("$PARROT -o temp.pbc temp.imc");
+system("$PARROT -o temp.pbc temp.pir");
pir_output_is(<<'CODE', <<'OUT', "call sub in external pbc with 2 subs");
.pcc_sub _sub1
@@ -242,7 +242,7 @@ sub2
OUT
# write sub2
-open FOO, ">temp.imc" or die "Can't write temp.imc\n";
+open FOO, ">temp.pir" or die "Can't write temp.pir\n";
print FOO <<'ENDF';
.pcc_sub _sub2
print "sub2\n"
@@ -254,10 +254,10 @@ ENDF
close FOO;
# compile it
-pir_output_is(<<'CODE', <<'OUT', "call sub in external imc, return");
+pir_output_is(<<'CODE', <<'OUT', "call sub in external pir, return");
.pcc_sub _sub1
print "sub1\n"
- load_bytecode "temp.imc"
+ load_bytecode "temp.pir"
print "loaded\n"
$P0 = global "_sub2"
.pcc_begin
@@ -300,7 +300,7 @@ back
OUT
# write subs
-open FOO, ">temp.imc" or die "Can't write temp.imc\n";
+open FOO, ">temp.pir" or die "Can't write temp.pir\n";
print FOO <<'ENDF';
.pcc_sub _sub1
print "sub1\n"
@@ -323,7 +323,7 @@ ENDF
close FOO;
# compile it
-system("$PARROT -o temp.pbc temp.imc");
+system("$PARROT -o temp.pbc temp.pir");
use Test::More;
is(`$PARROT temp.pbc`, <<OUT, "call internal sub like external, precompiled");
@@ -336,10 +336,10 @@ OUT
# include a non-existent file and catch the error message
my $err_msg;
{
- open FOO, ">temp.imc" or die "Can't write temp.imc\n";
+ open FOO, ">temp.pir" or die "Can't write temp.pir\n";
print FOO << 'END_PIR';
# Including a non-existent file should produce an error
-.include "non_existent.imc"
+.include "non_existent.pir"
# An error should have been raised
.sub test :main
# dummy, because a main function is expected
@@ -350,7 +350,7 @@ END_PIR
local *OLDERR;
open OLDERR, ">&STDERR" or die "Can't save STDERR\n";
open STDERR, ">temp.out" or die "Can't write temp.out\n";
- system "$PARROT temp.imc";
+ system "$PARROT temp.pir";
open FOO, "<temp.out" or die "Can't read temp.out\n";
{ local $/; $err_msg = <FOO>; }
close FOO;
@@ -363,7 +363,7 @@ END_PIR
{
open FOO, "<non_existent.file";
my $ENOENT = $! + 0;
- open FOO, ">temp.imc" or die "Can't write temp.imc\n";
+ open FOO, ">temp.pir" or die "Can't write temp.pir\n";
print FOO << "END_PIR";
.sub test \:main
# run a OS command, and get the errmessge for the exit code
@@ -374,25 +374,25 @@ END_PIR
.end
END_PIR
close FOO;
- $enoent_err_msg = qx{$PARROT temp.imc}
+ $enoent_err_msg = qx{$PARROT temp.pir}
}
$err_msg =~ s/\r//g if $^O =~ /^(MSWin32|msys)$/i;
is( $err_msg, << "OUT", "including a non-existent file");
error:imcc:$enoent_err_msg
-in file 'temp.imc' line 2
+in file 'temp.pir' line 2
OUT
- unlink "temp.imc";
+ unlink "temp.pir";
}
SKIP:
{
skip("multiple loading not speced - failing", 1);
- pir_output_is(<<'CODE', <<'OUT', "twice call sub in external imc, return");
+ pir_output_is(<<'CODE', <<'OUT', "twice call sub in external pir, return");
.pcc_sub _sub1
print "sub1\n"
- load_bytecode "temp.imc"
+ load_bytecode "temp.pir"
print "loaded\n"
$P0 = global "_sub2"
.pcc_begin
@@ -401,7 +401,7 @@ SKIP:
.pcc_end
print "back\n"
print "sub1 again\n"
- load_bytecode "temp.imc"
+ load_bytecode "temp.pir"
print "loaded again\n"
$P0 = global "_sub2"
.pcc_begin
@@ -426,6 +426,6 @@ OUT
END
{
unlink $file;
- unlink "temp.imc";
+ unlink "temp.pir";
unlink "temp.pbc";
}
Modified: trunk/t/examples/library.t
==============================================================================
--- trunk/t/examples/library.t (original)
+++ trunk/t/examples/library.t Wed Dec 28 17:19:55 2005
@@ -34,7 +34,7 @@ F<t/examples/japh.t>
my %expected
= (
'getopt_demo.pir' => << 'END_EXPECTED',
-Hi, I am 'getopt_demo.imc'.
+Hi, I am 'getopt_demo.pir'.
You haven't passed the option '--bool'. This is fine with me.
You haven't passed the option '--string'. This is fine with me.
Modified: trunk/t/pmc/mmd.t
==============================================================================
--- trunk/t/pmc/mmd.t (original)
+++ trunk/t/pmc/mmd.t Wed Dec 28 17:19:55 2005
@@ -233,7 +233,7 @@ ok 2
-42
OUTPUT
-my $temp = "temp.imc";
+my $temp = "temp.pir";
END { unlink $temp; };
open S, ">$temp" or die "Can't write $temp";
@@ -256,7 +256,7 @@ pir_output_is(<<'CODE', <<'OUTPUT', "PAS
.include "mmd.pasm"
.local pmc divide
- load_bytecode "temp.imc"
+ load_bytecode "temp.pir"
divide = global "Integer_divide_Integer"
mmdvtregister .MMD_DIVIDE, .Integer, .Integer, divide
@@ -872,7 +872,7 @@ CODE
2
OUTPUT
-## my $temp = "temp.imc";
+## my $temp = "temp.pir";
## END { unlink $temp; };
open P, ">$temp" or die "can't write $temp";
@@ -891,7 +891,7 @@ EOF
pir_output_is(<<'CODE', <<'OUTPUT', "override builtin n_add");
.sub main
- load_bytecode "temp.imc"
+ load_bytecode "temp.pir"
$P0 = new Integer
$P1 = new Integer
set $P0, 6
Modified: trunk/t/pmc/sub.t
==============================================================================
--- trunk/t/pmc/sub.t (original)
+++ trunk/t/pmc/sub.t Wed Dec 28 17:19:55 2005
@@ -642,7 +642,7 @@ second
OUTPUT
-$temp = "temp.imc";
+$temp = "temp.pir";
open S, ">$temp" or die "Can't write $temp";
print S <<'EOF';
.emit
@@ -653,10 +653,10 @@ print S <<'EOF';
EOF
close S;
-output_is(<<'CODE', <<'OUTPUT', 'load_bytecode :load first sub - imc');
+output_is(<<'CODE', <<'OUTPUT', 'load_bytecode :load first sub - pir');
.pcc_sub _main:
print "main\n"
- load_bytecode "temp.imc"
+ load_bytecode "temp.pir"
print "back\n"
end
CODE
@@ -681,10 +681,10 @@ print S <<'EOF';
EOF
close S;
-output_is(<<'CODE', <<'OUTPUT', 'load_bytecode :load second sub - imc');
+output_is(<<'CODE', <<'OUTPUT', 'load_bytecode :load second sub - pir');
.pcc_sub _main:
print "main\n"
- load_bytecode "temp.imc"
+ load_bytecode "temp.pir"
print "back\n"
end
CODE
@@ -705,10 +705,10 @@ print S <<'EOF';
EOF
close S;
-output_is(<<'CODE', <<'OUTPUT', 'load_bytecode no :load - imc');
+output_is(<<'CODE', <<'OUTPUT', 'load_bytecode no :load - pir');
.pcc_sub _main:
print "main\n"
- load_bytecode "temp.imc"
+ load_bytecode "temp.pir"
print "back\n"
end
CODE
@@ -934,7 +934,7 @@ ok
Global 'foo' not found/
OUTPUT
-open S, ">test_l1.imc" or die "Can't write test_l1.imc";
+open S, ">test_l1.pir" or die "Can't write test_l1.pir";
print S <<'EOF';
.sub l11 :load
print "l11\n"
@@ -946,7 +946,7 @@ print S <<'EOF';
EOF
close S;
-open S, ">test_l2.imc" or die "Can't write test_l2.imc";
+open S, ">test_l2.pir" or die "Can't write test_l2.pir";
print S <<'EOF';
.sub l21 :load
print "l21\n"
@@ -958,16 +958,16 @@ print S <<'EOF';
EOF
close S;
-system(".$PConfig{slash}parrot$PConfig{exe} -o test_l1.pbc test_l1.imc");
-system(".$PConfig{slash}parrot$PConfig{exe} -o test_l2.pbc test_l2.imc");
+system(".$PConfig{slash}parrot$PConfig{exe} -o test_l1.pbc test_l1.pir");
+system(".$PConfig{slash}parrot$PConfig{exe} -o test_l2.pbc test_l2.pir");
-END { unlink(qw/ test_l1.imc test_l2.imc test_l1.pbc test_l2.pbc /); };
+END { unlink(qw/ test_l1.pir test_l2.pir test_l1.pbc test_l2.pbc /); };
pir_output_is(<<'CODE', <<'OUTPUT', 'multiple :load');
.sub main :main
print "main 1\n"
- load_bytecode "test_l1.imc"
- load_bytecode "test_l2.imc"
+ load_bytecode "test_l1.pir"
+ load_bytecode "test_l2.pir"
print "main 2\n"
load_bytecode "test_l1.pbc" # these have to be ignored
load_bytecode "test_l2.pbc"
