Revive -b option for binding Lisp variables.

* txr.c (txr_main): Implement -b option that takes an
argument. Ensure that -b produces an error if clumped with
other options.

* txr.1: Documented -b var=val.

1 files changed, 21 insertions, 3 deletions

diff --git a/txr.c b/txr.c
index c31c7fa2..9bc3d5fe 100644
--- a/txr.c
+++ b/txr.c
@@ -728,7 +728,7 @@ int txr_main(int argc, char **argv)
     }
 
     /* Single letter options with args: non-clumping. */
-    if (length(arg) == two && find(ref(arg, one), lit("acfepPtC"), nil, nil))
+    if (length(arg) == two && find(ref(arg, one), lit("abcfepPtC"), nil, nil))
     {
       val opt = chr_str(arg, one);
 
@@ -749,6 +749,25 @@ int txr_main(int argc, char **argv)
         if (!do_fixnum_opt(compat, opt, arg))
           return EXIT_FAILURE;
         break;
+      case 'b':
+        drop_privilege();
+        {
+          val pair = partition_star(arg, pos(chr('='), arg, nil, nil));
+          val sym = lisp_parse(pop(&pair), std_error,
+                               colon_k, lit("cmdline-expr"), colon_k);
+          val obj = lisp_parse(pop(&pair), std_error,
+                               colon_k, lit("cmdline-expr"), colon_k);
+
+          if (!bindable(sym)) {
+            format(std_error,
+                   lit("~a: ~s isn't a bindable symbol\n"),
+                   prog_string, sym, nao);
+            return EXIT_FAILURE;
+          }
+
+          reg_var(sym, obj);
+        }
+        break;
       case 'c':
         if (txr_lisp_p) {
           format(std_error,
@@ -827,8 +846,6 @@ int txr_main(int argc, char **argv)
         case 'q':
           match_loglevel = 0;
           break;
-        case 'b': /* deprecated */
-          break;
         case 'B':
           opt_print_bindings = 1;
           break;
@@ -861,6 +878,7 @@ int txr_main(int argc, char **argv)
           stream_set_prop(std_input, real_time_k, nil);
           break;
         case 'a':
+        case 'b':
         case 'c':
         case 'e':
         case 'p':