Re: RegExp, Double Quotes and ^E

[Denis Barbier <nospam@thanx>]

On Tue, Feb 20, 2001 at 11:37:18PM +0100, Denis Barbier wrote:
[...]
> The right solution is to use a new <disjoin> function (patch attached).
[...]

Here is the patch, sorry.

-- 
Denis Barbier
WML Maintainer
Index: src/builtin.c
===================================================================
RCS file: /home/barbier/cvslocal/mp4h/src/builtin.c,v
retrieving revision 1.82
diff -u -u -r1.82 builtin.c
--- src/builtin.c	2001/02/14 20:59:55	1.82
+++ src/builtin.c	2001/02/20 22:04:58
@@ -75,6 +75,7 @@
   /*  flow functions  */
 DECLARE (mp4h_group);
 DECLARE (mp4h_compound);
+DECLARE (mp4h_disjoin);
 DECLARE (mp4h_noexpand);
 DECLARE (mp4h_expand);
 DECLARE (mp4h_if);
@@ -220,6 +221,7 @@
       /*  flow functions  */
   { "group",            FALSE,    TRUE,   mp4h_group },
   { "compound",          TRUE,    TRUE,   mp4h_compound },
+  { "disjoin",          FALSE,    TRUE,   mp4h_disjoin },
   { "noexpand",         FALSE,    FALSE,  mp4h_noexpand },
   { "expand",           FALSE,    TRUE,   mp4h_expand },
   { "if",               FALSE,    FALSE,  mp4h_if },
@@ -1426,6 +1428,15 @@
   dump_args (obs, argc, argv, separator);
   obstack_grow (obs, ARGBODY, strlen (ARGBODY));
   obstack_1grow (obs, CHAR_EGROUP);
+}
+
+
+static void
+mp4h_disjoin (MP4H_BUILTIN_ARGS)
+{
+  obstack_1grow (obs, CHAR_EGROUP);
+  obstack_grow (obs, ARG(1), strlen (ARG(1)));
+  obstack_1grow (obs, CHAR_BGROUP);
 }
 
 /*-------------------------------------------.