tests/lib/libc/regex/debug.c

   1 /*      $NetBSD: debug.c,v 1.2 2011/10/10 04:32:41 christos Exp $       */
   2
   3 /*-
   4  * Copyright (c) 1993 The NetBSD Foundation, Inc.
   5  * All rights reserved.
   6  *
   7  * Redistribution and use in source and binary forms, with or without
   8  * modification, are permitted provided that the following conditions
   9  * are met:
  10  * 1. Redistributions of source code must retain the above copyright
  11  *    notice, this list of conditions and the following disclaimer.
  12  * 2. Redistributions in binary form must reproduce the above copyright
  13  *    notice, this list of conditions and the following disclaimer in the
  14  *    documentation and/or other materials provided with the distribution.
  15  *
  16  * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
  17  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
  18  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  19  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
  20  * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  21  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  22  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
  23  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
  24  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  25  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
  26  * POSSIBILITY OF SUCH DAMAGE.
  27  */
  28
  29 #include <ctype.h>
  30 #include <limits.h>
  31 #include <regex.h>
  32 #include <stdio.h>
  33 #include <stdlib.h>
  34 #include <string.h>
  35
  36 #include <sys/types.h>
  37
  38 /* Don't sort these! */
  39 #include "utils.h"
  40 #include "regex2.h"
  41
  42 #include "test_regex.h"
  43
  44 static void s_print(struct re_guts *, FILE *);
  45 static char *regchar(int);
  46
  47 /*
  48  * regprint - print a regexp for debugging
  49  */
  50 void
  51 regprint(regex_t *r, FILE *d)
  52 {
  53         struct re_guts *g = r->re_g;
  54         int c;
  55         int last;
  56         int nincat[NC];
  57
  58         fprintf(d, "%ld states, %zu categories", (long)g->nstates,
  59                                                         g->ncategories);
  60         fprintf(d, ", first %ld last %ld", (long)g->firststate,
  61                                                 (long)g->laststate);
  62         if (g->iflags&USEBOL)
  63                 fprintf(d, ", USEBOL");
  64         if (g->iflags&USEEOL)
  65                 fprintf(d, ", USEEOL");
  66         if (g->iflags&BAD)
  67                 fprintf(d, ", BAD");
  68         if (g->nsub > 0)
  69                 fprintf(d, ", nsub=%ld", (long)g->nsub);
  70         if (g->must != NULL)
  71                 fprintf(d, ", must(%ld) `%*s'", (long)g->mlen, (int)g->mlen,
  72                                                                 g->must);
  73         if (g->backrefs)
  74                 fprintf(d, ", backrefs");
  75         if (g->nplus > 0)
  76                 fprintf(d, ", nplus %ld", (long)g->nplus);
  77         fprintf(d, "\n");
  78         s_print(g, d);
  79         for (size_t i = 0; i < g->ncategories; i++) {
  80                 nincat[i] = 0;
  81                 for (c = CHAR_MIN; c <= CHAR_MAX; c++)
  82                         if (g->categories[c] == i)
  83                                 nincat[i]++;
  84         }
  85         fprintf(d, "cc0#%d", nincat[0]);
  86         for (size_t i = 1; i < g->ncategories; i++)
  87                 if (nincat[i] == 1) {
  88                         for (c = CHAR_MIN; c <= CHAR_MAX; c++)
  89                                 if (g->categories[c] == i)
  90                                         break;
  91                         fprintf(d, ", %zu=%s", i, regchar(c));
  92                 }
  93         fprintf(d, "\n");
  94         for (size_t i = 1; i < g->ncategories; i++)
  95                 if (nincat[i] != 1) {
  96                         fprintf(d, "cc%zu\t", i);
  97                         last = -1;
  98                         for (c = CHAR_MIN; c <= CHAR_MAX+1; c++)        /* +1 does flush */
  99                                 if (c <= CHAR_MAX && g->categories[c] == i) {
 100                                         if (last < 0) {
 101                                                 fprintf(d, "%s", regchar(c));
 102                                                 last = c;
 103                                         }
 104                                 } else {
 105                                         if (last >= 0) {
 106                                                 if (last != c-1)
 107                                                         fprintf(d, "-%s",
 108                                                                 regchar(c-1));
 109                                                 last = -1;
 110                                         }
 111                                 }
 112                         fprintf(d, "\n");
 113                 }
 114 }
 115
 116 /*
 117  * s_print - print the strip for debugging
 118  */
 119 static void
 120 s_print(struct re_guts *g, FILE *d)
 121 {
 122         sop *s;
 123         cset *cs;
 124         int done = 0;
 125         sop opnd;
 126         int col = 0;
 127         ssize_t last;
 128         sopno offset = 2;
 129 #       define  GAP()   {       if (offset % 5 == 0) { \
 130                                         if (col > 40) { \
 131                                                 fprintf(d, "\n\t"); \
 132                                                 col = 0; \
 133                                         } else { \
 134                                                 fprintf(d, " "); \
 135                                                 col++; \
 136                                         } \
 137                                 } else \
 138                                         col++; \
 139                                 offset++; \
 140                         }
 141
 142         if (OP(g->strip[0]) != OEND)
 143                 fprintf(d, "missing initial OEND!\n");
 144         for (s = &g->strip[1]; !done; s++) {
 145                 opnd = OPND(*s);
 146                 switch (OP(*s)) {
 147                 case OEND:
 148                         fprintf(d, "\n");
 149                         done = 1;
 150                         break;
 151                 case OCHAR:
 152                         if (strchr("\\|()^$.[+*?{}!<> ", (char)opnd) != NULL)
 153                                 fprintf(d, "\\%c", (char)opnd);
 154                         else
 155                                 fprintf(d, "%s", regchar((char)opnd));
 156                         break;
 157                 case OBOL:
 158                         fprintf(d, "^");
 159                         break;
 160                 case OEOL:
 161                         fprintf(d, "$");
 162                         break;
 163                 case OBOW:
 164                         fprintf(d, "\\{");
 165                         break;
 166                 case OEOW:
 167                         fprintf(d, "\\}");
 168                         break;
 169                 case OANY:
 170                         fprintf(d, ".");
 171                         break;
 172                 case OANYOF:
 173                         fprintf(d, "[(%ld)", (long)opnd);
 174                         cs = &g->sets[opnd];
 175                         last = -1;
 176                         for (size_t i = 0; i < g->csetsize+1; i++)      /* +1 flushes */
 177                                 if (CHIN(cs, i) && i < g->csetsize) {
 178                                         if (last < 0) {
 179                                                 fprintf(d, "%s", regchar(i));
 180                                                 last = i;
 181                                         }
 182                                 } else {
 183                                         if (last >= 0) {
 184                                                 if (last != (ssize_t)i - 1)
 185                                                         fprintf(d, "-%s",
 186                                                             regchar(i - 1));
 187                                                 last = -1;
 188                                         }
 189                                 }
 190                         fprintf(d, "]");
 191                         break;
 192                 case OBACK_:
 193                         fprintf(d, "(\\<%ld>", (long)opnd);
 194                         break;
 195                 case O_BACK:
 196                         fprintf(d, "<%ld>\\)", (long)opnd);
 197                         break;
 198                 case OPLUS_:
 199                         fprintf(d, "(+");
 200                         if (OP(*(s+opnd)) != O_PLUS)
 201                                 fprintf(d, "<%ld>", (long)opnd);
 202                         break;
 203                 case O_PLUS:
 204                         if (OP(*(s-opnd)) != OPLUS_)
 205                                 fprintf(d, "<%ld>", (long)opnd);
 206                         fprintf(d, "+)");
 207                         break;
 208                 case OQUEST_:
 209                         fprintf(d, "(?");
 210                         if (OP(*(s+opnd)) != O_QUEST)
 211                                 fprintf(d, "<%ld>", (long)opnd);
 212                         break;
 213                 case O_QUEST:
 214                         if (OP(*(s-opnd)) != OQUEST_)
 215                                 fprintf(d, "<%ld>", (long)opnd);
 216                         fprintf(d, "?)");
 217                         break;
 218                 case OLPAREN:
 219                         fprintf(d, "((<%ld>", (long)opnd);
 220                         break;
 221                 case ORPAREN:
 222                         fprintf(d, "<%ld>))", (long)opnd);
 223                         break;
 224                 case OCH_:
 225                         fprintf(d, "<");
 226                         if (OP(*(s+opnd)) != OOR2)
 227                                 fprintf(d, "<%ld>", (long)opnd);
 228                         break;
 229                 case OOR1:
 230                         if (OP(*(s-opnd)) != OOR1 && OP(*(s-opnd)) != OCH_)
 231                                 fprintf(d, "<%ld>", (long)opnd);
 232                         fprintf(d, "|");
 233                         break;
 234                 case OOR2:
 235                         fprintf(d, "|");
 236                         if (OP(*(s+opnd)) != OOR2 && OP(*(s+opnd)) != O_CH)
 237                                 fprintf(d, "<%ld>", (long)opnd);
 238                         break;
 239                 case O_CH:
 240                         if (OP(*(s-opnd)) != OOR1)
 241                                 fprintf(d, "<%ld>", (long)opnd);
 242                         fprintf(d, ">");
 243                         break;
 244                 default:
 245                         fprintf(d, "!%d(%d)!", OP(*s), opnd);
 246                         break;
 247                 }
 248                 if (!done)
 249                         GAP();
 250         }
 251 }
 252
 253 /*
 254  * regchar - make a character printable
 255  */
 256 static char *                   /* -> representation */
 257 regchar(int ch)
 258 {
 259         static char buf[10];
 260
 261         if (isprint(ch) || ch == ' ')
 262                 sprintf(buf, "%c", ch);
 263         else
 264                 sprintf(buf, "\\%o", ch);
 265         return(buf);
 266 }