flesh out [gets]; handle arbitrary channels & varName param.

partcl · Jun 28, 2010 · ff91a97 · ff91a97
1 parent dabdbaa
commit ff91a97
Show file tree

Hide file tree

Showing 2 changed files with 20 additions and 3 deletions.
diff --git a/src/Partcl/commands/main.pm b/src/Partcl/commands/main.pm
@@ -272,11 +272,28 @@ our sub format(*@args) {
 }
 
 our sub gets(*@args) {
+    our %CHANNELS;
+
     if +@args < 1 || +@args > 2 {
         error('wrong # args: should be "gets channelId ?varName?"');
     }
-    my $channelId := @args.shift;
-    '';
+
+    my $channelId := @args[0];
+    my $chanObj := %CHANNELS{$channelId};
+    if (! pir::defined($chanObj) ) {
+        error("can not find channel named \"$channelId\"");
+    }
+
+    my $result := pir::readline__sp($chanObj);
+    if pir::length__is($result) >0 && pir::substr__ssi($result, -1) eq "\n" {
+        $result := pir::chopn__ssi($result,1);
+    }
+    if +@args == 2 {
+        set(@args[1], $result);
+        return pir::length__is($result);
+    } else {
+        return $result;
+    }
 }
 
 our sub glob(*@args) {

diff --git a/t/cmd_gets.t b/t/cmd_gets.t
@@ -13,6 +13,6 @@ eval_is {gets a b c} \
 
 eval_is {gets #parrot} \
   {can not find channel named "#parrot"} \
-  {bad channel} {TODO NQPRX}
+  {bad channel}
 
 # vim: filetype=tcl: