Add enough of [eof] to pass our sanity test.

partcl · Dec 19, 2009 · aa6d047 · aa6d047
1 parent 6d6eace
commit aa6d047
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 0 deletions.
diff --git a/build/Makefile.in b/build/Makefile.in
@@ -59,6 +59,7 @@ TEST_FILES = \
   t/sanity.t \
   t/cmd_after.t \
   t/cmd_concat.t \
+  t/cmd_eof.t \
   t/cmd_error.t \
   t/cmd_flush.t \
   t/cmd_for.t \

diff --git a/src/Partcl/commands/main.pm b/src/Partcl/commands/main.pm
@@ -97,6 +97,11 @@ INIT {
 }
 
 our sub eof(*@args) {
+    if +@args != 1 {
+        error('wrong # args: should be "eof channelId"')
+    }
+    my $chan := _getChannel(@args[0]);
+    return 0;
 }
 
 ##  "error" is special -- see "return"

diff --git a/src/init.pm b/src/init.pm
@@ -9,6 +9,7 @@ INIT {
     our %CHANNELS := TclLexPad.newpad();
     %CHANNELS{'stdout'} := pir::getstdout__p();
     %CHANNELS{'stderr'} := pir::getstderr__p();
+    %CHANNELS{'stdin'}  := pir::getstdin__p();
 
     my @interp  := pir::getinterp__p();
     my %PConfig := @interp[6]; ## .IGLOBALS_CONFIG_HASH