gnu/lib/libregex/test/iregex.c

   1 /* Main program for interactive testing.  For maximum output, compile
   2    this and regex.c with -DDEBUG.  */
   3
   4 #include <stdio.h>
   5 #include <sys/types.h>
   6 #include "regex.h"
   7
   8 /* Don't bother to guess about <string.h> vs <strings.h>, etc.  */
   9 extern int strlen ();
  10
  11 #define BYTEWIDTH 8
  12
  13 extern void printchar ();
  14 extern char upcase[];
  15
  16 static void scanstring ();
  17 static void print_regs ();
  18
  19 int
  20 main (argc, argv)
  21      int argc;
  22      char **argv;
  23 {
  24   int i;
  25   struct re_pattern_buffer buf;
  26   char fastmap[(1 << BYTEWIDTH)];
  27
  28   /* Allow a command argument to specify the style of syntax.  You can
  29      use the `syntax' program to decode integer syntax values.  */
  30   if (argc > 1)
  31     re_set_syntax (atoi (argv[1]));
  32
  33   buf.allocated = 0;
  34   buf.buffer = NULL;
  35   buf.fastmap = fastmap;
  36   buf.translate = upcase;
  37
  38   for (;;)
  39     {
  40       char pat[500], str[500];
  41       struct re_registers regs;
  42
  43       /* Some C compilers don't like `char pat[500] = ""'.  */
  44       pat[0] = 0;
  45
  46       printf ("Pattern (%s) = ", pat);
  47       gets (pat);
  48       scanstring (pat);
  49
  50       if (feof (stdin))
  51         {
  52           putchar ('\n');
  53           exit (0);
  54         }
  55
  56       if (*pat)
  57         {
  58           re_compile_pattern (pat, strlen (pat), &buf);
  59           re_compile_fastmap (&buf);
  60 #ifdef DEBUG
  61           print_compiled_pattern (&buf);
  62 #endif
  63         }
  64
  65       printf ("String = ");
  66       gets (str);       /* Now read the string to match against */
  67       scanstring (str);
  68
  69       i = re_match (&buf, str, strlen (str), 0, &regs);
  70       printf ("Match value  %d.\t", i);
  71       if (i >= 0)
  72         print_regs (regs);
  73       putchar ('\n');
  74
  75       i = re_search (&buf, str, strlen (str), 0, strlen (str), &regs);
  76       printf ("Search value %d.\t", i);
  77       if (i >= 0)
  78         print_regs (regs);
  79       putchar ('\n');
  80     }
  81
  82   /* We never get here, but what the heck.  */
  83   return 0;
  84 }
  85 \f
  86 void
  87 scanstring (s)
  88      char *s;
  89 {
  90   char *write = s;
  91
  92   while (*s != '\0')
  93     {
  94       if (*s == '\\')
  95         {
  96           s++;
  97
  98           switch (*s)
  99             {
 100             case '\0':
 101               break;
 102
 103             case '0': case '1': case '2': case '3': case '4':
 104             case '5': case '6': case '7': case '8': case '9':
 105               *write = *s++ - '0';
 106
 107               if ('0' <= *s && *s <= '9')
 108                 {
 109                   *write = (*write << 3) + (*s++ - '0');
 110                   if ('0' <= *s && *s <= '9')
 111                     *write = (*write << 3) + (*s++ - '0');
 112                 }
 113               write++;
 114               break;
 115
 116             case 'n':
 117               *write++ = '\n';
 118               s++;
 119               break;
 120
 121             case 't':
 122               *write++ = '\t';
 123               s++;
 124               break;
 125
 126             default:
 127               *write++ = *s++;
 128               break;
 129             }
 130         }
 131       else
 132         *write++ = *s++;
 133     }
 134
 135   *write++ = '\0';
 136 }
 137 \f
 138 /* Print REGS in human-readable form.  */
 139
 140 void
 141 print_regs (regs)
 142      struct re_registers regs;
 143 {
 144   int i, end;
 145
 146   printf ("Registers: ");
 147
 148   if (regs.num_regs == 0 || regs.start[0] == -1)
 149     {
 150       printf ("(none)");
 151     }
 152   else
 153     {
 154       /* Find the last register pair that matched.  */
 155       for (end = regs.num_regs - 1; end >= 0; end--)
 156         if (regs.start[end] != -1)
 157           break;
 158
 159       printf ("[%d ", regs.start[0]);
 160       for (i = 1; i <= end; i++)
 161         printf ("(%d %d) ", regs.start[i], regs.end[i]);
 162       printf ("%d]", regs.end[0]);
 163     }
 164 }