Finish the env re-implementation

* NEWS: Document the "env" statement and the PIES_MASTER_PID
environment variable.
Version 1.3.91
* configure.ac: Version 1.3.91
* doc/pies.texi: Document the new "env" statement syntax. Provide
instructions on how to convert legacy "env" statement to the new
form.
* lib/envop.c (environ_unset): Take reference value as argument.
If supplied, unset the variable only if its value matches the
reference one.
* lib/envop.h (environ_unset): Change proto.
* src/pies.c (parse_legacy_env): Minor changes.
(_cb_env_unset): Allow to specify value.
* src/progman.c (run_command): Define PIES_MASTER_PID.
* tests/env.at: Check the legacy env syntax.
* tests/envop.at: Additional checks.

1 files changed, 7 insertions, 3 deletions

diff --git a/src/pies.c b/src/pies.c
index 2387cef..fe8d9b4 100644
--- a/src/pies.c
+++ b/src/pies.c
@@ -613,7 +613,7 @@ parse_legacy_env (char **argv, envop_t **envop)
 		{
 		  msize = 2*len + 9 + vlen + 1;
 		  mem = grecs_malloc (msize);
-		  snprintf (mem, msize, "${%s:-}${%s+%c}%s",
+		  snprintf (mem, msize, "${%s:-}${%s:+%c}%s",
 			    name, name, value[0], value + 1);
 		}
 	      else
@@ -635,7 +635,7 @@ parse_legacy_env (char **argv, envop_t **envop)
 
 		  msize = 2*len + 10 + vlen + 1;
 		  mem = grecs_malloc (msize);
-		  snprintf (mem, msize, "%s${%s+%c}${%s:-}",
+		  snprintf (mem, msize, "%s${%s:+%c}${%s:-}",
 			    value, name, c, name);
 		}
 	      else
@@ -785,11 +785,15 @@ _cb_env_unset (enum grecs_callback_command cmd,
 	       void *varptr, grecs_value_t *value, void *cb_data)
 {
   struct component *comp = varptr;
+  char *p;
 
   if (assert_scalar_stmt (locus, cmd)
       || assert_grecs_value_type (locus, value, GRECS_TYPE_STRING))
     return 1;
-  if (envop_entry_add (&comp->envop, envop_unset, value->v.string, NULL))
+  p = strchr (value->v.string, '=');
+  if (p)
+    *p++ = 0;
+  if (envop_entry_add (&comp->envop, envop_unset, value->v.string, p))
     grecs_error (locus, errno, "envop_entry_add");
   return 0;
 }