Bshell

Builtin.pm

@@ -20,6 +20,17 @@ use Interp;
 # Builtins get their arguments directly as a Lisp list, have names
 # beginning with 'B', and are defined here (except for, well, exceptions)
 
+sub Bshell {
+        my ($command, $return_output) = checkargs($_[0], 'S:e');
+        my $result;
+        if (is_nil($return_output)) {
+                $result = tornil(!system($command));
+        } else {                
+                $result = `$command`;
+        }
+        return $result;
+}
+
 sub Bread {
         my ($input) = checkargs($_[0], ':S');
         if (is_nil($input)) {
@@ -984,6 +995,8 @@ my @builtins =                          # [name, func, is_special, doc]
       "return an expression read from stdin or &optional INPUT (a string)"],
      ["perl", \&Bperl, 0,
       "evaluate the ARG string as Perl code and return the result"],
+     ["shell", \&Bshell,
+      "run COMMAND as a shell command; &optional RETURN-OUTPUT"],
     );
 
 for my $b (@builtins) {