Author: allison
Date: Sun Nov 23 14:42:55 2008
New Revision: 33111
Modified:
branches/pdd22io_part2/t/src/basic.t
branches/pdd22io_part2/t/src/compiler.t
branches/pdd22io_part2/t/src/exit.t
branches/pdd22io_part2/t/src/extend.t
branches/pdd22io_part2/t/src/warnings.t
Log:
[pdd22io] Convert all calls to old I/O system in C tests.
Modified: branches/pdd22io_part2/t/src/basic.t
==============================================================================
--- branches/pdd22io_part2/t/src/basic.t (original)
+++ branches/pdd22io_part2/t/src/basic.t Sun Nov 23 14:42:55 2008
@@ -70,11 +70,11 @@
return 1;
}
- PIO_eprintf(interp, "main\n");
+ Parrot_io_eprintf(interp, "main\n");
Parrot_run_native(interp, the_test);
- PIO_eprintf(interp, "back\n");
+ Parrot_io_eprintf(interp, "back\n");
Parrot_exit(interp, 0);
return 0;
}
@@ -87,7 +87,7 @@
UNUSED(start);
/* tests go here */
- PIO_eprintf(interp, "ok\n");
+ Parrot_io_eprintf(interp, "ok\n");
return NULL; /* always return 0 or bad things may happen */
}
Modified: branches/pdd22io_part2/t/src/compiler.t
==============================================================================
--- branches/pdd22io_part2/t/src/compiler.t (original)
+++ branches/pdd22io_part2/t/src/compiler.t Sun Nov 23 14:42:55 2008
@@ -52,7 +52,7 @@
PMC *comp = Parrot_PMC_get_pmc_keyed_str(interp, compreg, pir);
if (PMC_IS_NULL(comp) || !Parrot_PMC_defined(interp, comp)) {
- PIO_eprintf(interp, "Pir compiler not loaded");
+ Parrot_io_eprintf(interp, "Pir compiler not loaded");
exit(EXIT_FAILURE);
}
@@ -60,7 +60,7 @@
prog = imcc_compile_pir(interp, c_src);
if (PMC_IS_NULL(prog) || !Parrot_PMC_defined(interp, prog)) {
- PIO_eprintf(interp, "Pir compiler returned no prog");
+ Parrot_io_eprintf(interp, "Pir compiler returned no prog");
exit(EXIT_FAILURE);
}
@@ -136,7 +136,7 @@
PMC *comp = Parrot_PMC_get_pmc_keyed_str(interp, compreg, pir);
if (PMC_IS_NULL(comp) || !Parrot_PMC_defined(interp, comp)) {
- PIO_eprintf(interp, "Pir compiler not loaded");
+ Parrot_io_eprintf(interp, "Pir compiler not loaded");
exit(EXIT_FAILURE);
}
@@ -144,7 +144,7 @@
prog = Parrot_compile_string(interp, pir, c_src, &error);
if (PMC_IS_NULL(prog) || !Parrot_PMC_defined(interp, prog)) {
- PIO_eprintf(interp, "Pir compiler returned no prog");
+ Parrot_io_eprintf(interp, "Pir compiler returned no prog");
exit(EXIT_FAILURE);
}
@@ -211,7 +211,7 @@
PMC *prog = Parrot_compile_string(interp, type, src, &error);
if (PMC_IS_NULL(prog) || !Parrot_PMC_defined(interp, prog)) {
- PIO_eprintf(interp, "Pir compiler returned no prog");
+ Parrot_io_eprintf(interp, "Pir compiler returned no prog");
exit(EXIT_FAILURE);
}
@@ -251,7 +251,7 @@
PMC *comp = Parrot_PMC_get_pmc_keyed_str(interp, compreg, pir);
if (PMC_IS_NULL(comp) || !Parrot_PMC_defined(interp, comp)) {
- PIO_eprintf(interp, "Pir compiler not loaded");
+ Parrot_io_eprintf(interp, "Pir compiler not loaded");
exit(EXIT_FAILURE);
}
@@ -304,7 +304,7 @@
PMC *prog = Parrot_compile_string(interp, type, src, &error);
if (PMC_IS_NULL(prog) || !Parrot_PMC_defined(interp, prog)) {
- PIO_eprintf(interp, "Pir compiler returned no prog\n");
+ Parrot_io_eprintf(interp, "Pir compiler returned no prog\n");
return;
}
@@ -344,7 +344,7 @@
PMC *comp = Parrot_PMC_get_pmc_keyed_str(interp, compreg, pir);
if (PMC_IS_NULL(comp) || !Parrot_PMC_defined(interp, comp)) {
- PIO_eprintf(interp, "Pir compiler not loaded");
+ Parrot_io_eprintf(interp, "Pir compiler not loaded");
return NULL;
}
@@ -397,7 +397,7 @@
PMC *prog = Parrot_compile_string(interp, type, src, &error);
if (PMC_IS_NULL(prog) || !Parrot_PMC_defined(interp, prog)) {
- PIO_eprintf(interp, "Pir compiler returned no prog\n");
+ Parrot_io_eprintf(interp, "Pir compiler returned no prog\n");
return;
}
@@ -436,7 +436,7 @@
PMC *comp = Parrot_PMC_get_pmc_keyed_str(interp, compreg, pir);
if (PMC_IS_NULL(comp) || !Parrot_PMC_defined(interp, comp)) {
- PIO_eprintf(interp, "Pir compiler not loaded");
+ Parrot_io_eprintf(interp, "Pir compiler not loaded");
return NULL;
}
@@ -489,7 +489,7 @@
PMC *prog = Parrot_compile_string(interp, type, src, &error);
if (PMC_IS_NULL(prog) || !Parrot_PMC_defined(interp, prog)) {
- PIO_eprintf(interp, "Pir compiler returned no prog\n");
+ Parrot_io_eprintf(interp, "Pir compiler returned no prog\n");
return;
}
@@ -527,7 +527,7 @@
PMC *comp = Parrot_PMC_get_pmc_keyed_str(interp, compreg, pir);
if (PMC_IS_NULL(comp) || !Parrot_PMC_defined(interp, comp)) {
- PIO_eprintf(interp, "Pir compiler not loaded");
+ Parrot_io_eprintf(interp, "Pir compiler not loaded");
return NULL;
}
Modified: branches/pdd22io_part2/t/src/exit.t
==============================================================================
--- branches/pdd22io_part2/t/src/exit.t (original)
+++ branches/pdd22io_part2/t/src/exit.t Sun Nov 23 14:42:55 2008
@@ -44,7 +44,7 @@
void
ex3(Parrot_Interp interp, int x, void*p)
{
- PIO_printf(interp, "ex3\n");
+ Parrot_io_printf(interp, "ex3\n");
}
int
Modified: branches/pdd22io_part2/t/src/extend.t
==============================================================================
--- branches/pdd22io_part2/t/src/extend.t (original)
+++ branches/pdd22io_part2/t/src/extend.t Sun Nov 23 14:42:55 2008
@@ -450,7 +450,7 @@
Parrot_eprintf(interp, "back\\n");
/* win32 seems to buffer stderr ? */
- PIO_flush(interp, PIO_STDERR(interp));
+ Parrot_io_flush(interp, Parrot_io_STDERR(interp));
name = const_string(interp, "_sub2");
sub = Parrot_find_global_cur(interp, name);
Modified: branches/pdd22io_part2/t/src/warnings.t
==============================================================================
--- branches/pdd22io_part2/t/src/warnings.t (original)
+++ branches/pdd22io_part2/t/src/warnings.t Sun Nov 23 14:42:55 2008
@@ -71,26 +71,26 @@
PARROT_WARNINGS_on(interp, PARROT_WARNINGS_ALL_FLAG);
error_val = Parrot_warn(interp, PARROT_WARNINGS_ALL_FLAG, "all");
- PIO_eprintf(interp, "%d\n", error_val);
+ Parrot_io_eprintf(interp, "%d\n", error_val);
/* warnings are on, this should return an error */
error_val = Parrot_warn(interp, PARROT_WARNINGS_NONE_FLAG, "none");
- PIO_eprintf(interp, "%d\n", error_val);
+ Parrot_io_eprintf(interp, "%d\n", error_val);
error_val = Parrot_warn(interp, PARROT_WARNINGS_UNDEF_FLAG, "undef");
- PIO_eprintf(interp, "%d\n", error_val);
+ Parrot_io_eprintf(interp, "%d\n", error_val);
error_val = Parrot_warn(interp, PARROT_WARNINGS_IO_FLAG, "io");
- PIO_eprintf(interp, "%d\n", error_val);
+ Parrot_io_eprintf(interp, "%d\n", error_val);
error_val = Parrot_warn(interp, PARROT_WARNINGS_PLATFORM_FLAG, "platform");
- PIO_eprintf(interp, "%d\n", error_val);
+ Parrot_io_eprintf(interp, "%d\n", error_val);
error_val = Parrot_warn(interp, PARROT_WARNINGS_DYNEXT_FLAG, "dynext");
- PIO_eprintf(interp, "%d\n", error_val);
+ Parrot_io_eprintf(interp, "%d\n", error_val);
error_val = Parrot_warn(interp, 0, "eek"); /* should return error */
- PIO_eprintf(interp, "%d\n", error_val);
+ Parrot_io_eprintf(interp, "%d\n", error_val);
Parrot_exit(interp, 0);
return 0;
