can give a directive as option to '?e'

Author: nixnodes

MANUAL

@@ -348,8 +348,8 @@ Updated: 10/03/2016
 				u	- Gets the value of <directive>
 				p	- Returns 1 if value has been accessed with 'u' option, 0 otherwise 
 
-	?e    <field>:<value>
-			Write string <value> to <field> of the currently processed log.
+	?e    <field>:<directive|value>
+			Write the result of <directive> or a static <value> to <field> of the currently processed log.
 
 			Strings are automatically converted to integers where necessary.
 

Makefile.in

@@ -502,7 +502,7 @@ distdir: $(DISTFILES)
 	  ! -type d ! -perm -444 -exec $(install_sh) -c -m a+r {} {} \; \
 	|| chmod -R a+r "$(distdir)"
 dist-gzip: distdir
-	tardir=$(distdir) && $(am__tar) | GZIP=$(GZIP_ENV) gzip -c >$(distdir).tar.gz
+	tardir=$(distdir) && $(am__tar) | eval GZIP= gzip $(GZIP_ENV) -c >$(distdir).tar.gz
 	$(am__post_remove_distdir)
 
 dist-bzip2: distdir
@@ -528,7 +528,7 @@ dist-shar: distdir
 	@echo WARNING: "Support for shar distribution archives is" \
 	               "deprecated." >&2
 	@echo WARNING: "It will be removed altogether in Automake 2.0" >&2
-	shar $(distdir) | GZIP=$(GZIP_ENV) gzip -c >$(distdir).shar.gz
+	shar $(distdir) | eval GZIP= gzip $(GZIP_ENV) -c >$(distdir).shar.gz
 	$(am__post_remove_distdir)
 
 dist-zip: distdir
@@ -546,7 +546,7 @@ dist dist-all:
 distcheck: dist
 	case '$(DIST_ARCHIVES)' in \
 	*.tar.gz*) \
-	  GZIP=$(GZIP_ENV) gzip -dc $(distdir).tar.gz | $(am__untar) ;;\
+	  eval GZIP= gzip $(GZIP_ENV) -dc $(distdir).tar.gz | $(am__untar) ;;\
 	*.tar.bz2*) \
 	  bzip2 -dc $(distdir).tar.bz2 | $(am__untar) ;;\
 	*.tar.lz*) \
@@ -556,7 +556,7 @@ distcheck: dist
 	*.tar.Z*) \
 	  uncompress -c $(distdir).tar.Z | $(am__untar) ;;\
 	*.shar.gz*) \
-	  GZIP=$(GZIP_ENV) gzip -dc $(distdir).shar.gz | unshar ;;\
+	  eval GZIP= gzip $(GZIP_ENV) -dc $(distdir).shar.gz | unshar ;;\
 	*.zip*) \
 	  unzip $(distdir).zip ;;\
 	esac

aclocal.m4

@@ -21,7 +21,7 @@ If you have problems, you may need to regenerate the build system entirely.
 To do so, use the procedure documented by the package, typically 'autoreconf'.])])
 
 # longlong.m4 serial 17
-dnl Copyright (C) 1999-2007, 2009-2015 Free Software Foundation, Inc.
+dnl Copyright (C) 1999-2007, 2009-2016 Free Software Foundation, Inc.
 dnl This file is free software; the Free Software Foundation
 dnl gives unlimited permission to copy and/or distribute it,
 dnl with or without modifications, as long as this notice is preserved.

src/lref.c

@@ -314,6 +314,7 @@ dt_rval_spec_slen (void *arg, char *match, char *output, size_t max_size,
     {
       return "0";
     }
+
   return output;
 }
 
@@ -2186,11 +2187,39 @@ rt_af_htget (void *arg, char *match, char *output, size_t max_size,
 
 }
 
+static char *
+dt_rval_setstr2 (void *arg, char *match, char *output, size_t max_size,
+		 void *mppd)
+{
+
+  __d_drt_h _mppd = (__d_drt_h ) mppd;
+
+  char *p_o = _mppd->fp_rval1 (arg, match, output, max_size,
+			       ((__d_drt_h ) mppd)->mppd_next);
+
+  if (NULL == p_o)
+    {
+      goto _ex;
+    }
+
+  if (0 == _mppd->hdl->g_proc0 (arg, _mppd->chb0, p_o))
+    {
+      print_str ("ERROR: dt_rval_setstr: unable to set value, key '%s'\n",
+		 _mppd->chb0);
+    }
+
+  _ex: ;
+
+  output[0] = 0x0;
+  output[1] = 0x31;
+
+  return output;
+}
+
 static char *
 dt_rval_setstr (void *arg, char *match, char *output, size_t max_size,
 		void *mppd)
 {
-
   __d_drt_h _mppd = (__d_drt_h ) mppd;
 
   if (0 == _mppd->hdl->g_proc0 (arg, _mppd->chb0, _mppd->chb1))
@@ -2218,33 +2247,48 @@ rt_af_setstr (void *arg, char *match, char *output, size_t max_size,
 
   if (NULL == ptr || ptr[0] == 0x0)
     {
-      print_str ("ERROR: rt_af_setstr: could not key: %s\n", match);
+      print_str ("ERROR: rt_af_setstr: could not resolve key: %s\n", match);
       return NULL;
     }
 
   if (l_next_ref == NULL)
     {
-      print_str ("ERROR: rt_af_setstr: no value given");
+      print_str ("ERROR: rt_af_setstr: no value given\n");
       return NULL;
     }
 
   mppd->chb0 = strdup (ptr);
 
-  ptr = l_mppd_shell_ex ((char*) l_next_ref, mppd->tp_b0, sizeof(mppd->tp_b0),
-			 &l_next_ref,
-			 LMS_EX_L,
-			 LMS_EX_R, F_MPPD_SHX_TZERO);
+  mppd->mppd_next = l_mppd_create_copy (mppd);
 
-  if (NULL == ptr || ptr[0] == 0x0)
+  mppd->fp_rval1 = mppd->hdl->g_proc1_lookup (arg, (char*) l_next_ref, output,
+					      max_size, mppd->mppd_next);
+
+  if (NULL == mppd->fp_rval1)
     {
-      print_str ("ERROR: rt_af_setstr: could not resolve value: %s\n",
-		 (char*) l_next_ref);
-      return NULL;
+
+      ptr = l_mppd_shell_ex ((char*) l_next_ref, mppd->tp_b0,
+			     sizeof(mppd->tp_b0), &l_next_ref,
+			     LMS_EX_L,
+			     LMS_EX_R, F_MPPD_SHX_TZERO);
+
+      if (NULL == ptr || ptr[0] == 0x0)
+	{
+	  print_str ("ERROR: rt_af_setstr: could not resolve value: %s\n",
+		     (char*) l_next_ref);
+	  return NULL;
+	}
+
+      mppd->chb1 = strdup (ptr);
+
+      return as_ref_to_val_lk (match, dt_rval_setstr, mppd, "%s");
     }
+  else
+    {
 
-  mppd->chb1 = strdup (ptr);
+      return as_ref_to_val_lk (match, dt_rval_setstr2, mppd, "%s");
 
-  return as_ref_to_val_lk (match, dt_rval_setstr, mppd, "%s");
+    }
 
 }