#include <regex.h>
#include "common.h"
-enum transform_type
+static enum transform_type
{
transform_none,
transform_first,
transform_global
}
transform_type = transform_none;
+static unsigned match_number = 0;
static regex_t regex;
static struct obstack stk;
/* Compiled replacement expression */
static struct replace_segm *repl_head, *repl_tail;
-static segm_count; /* Number of elements in the above list */
+static size_t segm_count; /* Number of elements in the above list */
static struct replace_segm *
add_segment (void)
segm->v.literal.ptr = xmalloc (2);
segm->v.literal.ptr[0] = chr;
segm->v.literal.ptr[1] = 0;
- segm->v.literal.size = 2;
+ segm->v.literal.size = 1;
}
static void
cflags |= REG_EXTENDED;
break;
+ case '0': case '1': case '2': case '3': case '4':
+ case '5': case '6': case '7': case '8': case '9':
+ match_number = strtoul (p, (char**) &p, 0);
+ p--;
+ break;
+
default:
USAGE_ERROR ((0, 0, _("Unknown flag in transform expression")));
}
_transform_name_to_obstack (char *input)
{
regmatch_t *rmp;
- char *p;
int rc;
+ size_t nmatches = 0;
enum case_ctl_type case_ctl = ctl_stop, /* Current case conversion op */
save_ctl = ctl_stop; /* Saved case_ctl for \u and \l */
-
+
/* Reset case conversion after a single-char operation */
#define CASE_CTL_RESET() if (case_ctl == ctl_upcase_next \
|| case_ctl == ctl_locase_next) \
if (rmp[0].rm_so)
obstack_grow (&stk, input, rmp[0].rm_so);
-
+
+ nmatches++;
+ if (match_number && nmatches < match_number)
+ {
+ obstack_grow (&stk, input, disp);
+ input += disp;
+ continue;
+ }
+
for (segm = repl_head; segm; segm = segm->next)
{
switch (segm->type)
}
bool
-transform_name_fp (char **pinput, char *(*fun)(char *))
+transform_name_fp (char **pinput, char *(*fun)(char *, void *), void *dat)
{
- char *str, *p;
+ char *str;
bool ret = _transform_name_to_obstack (*pinput);
if (ret)
{
str = obstack_finish (&stk);
- assign_string (pinput, fun ? fun (str) : str);
+ assign_string (pinput, fun ? fun (str, dat) : str);
obstack_free (&stk, str);
}
else if (fun)
{
str = *pinput;
*pinput = NULL;
- assign_string (pinput, fun (str));
+ assign_string (pinput, fun (str, dat));
free (str);
ret = true;
}
bool
transform_name (char **pinput)
{
- return transform_name_fp (pinput, NULL);
+ return transform_name_fp (pinput, NULL, NULL);
}
-#if 0
-void
-read_and_transform_loop ()
-{
- char buf[512];
- while (fgets (buf, sizeof buf, stdin))
- {
- char *p = buf + strlen (buf);
- if (p[-1] == '\n')
- p[-1] = 0;
- if (transform_name (buf, &p))
- printf ("=> %s\n", p);
- else
- printf ("=\n");
- }
-}
-#endif