debug.c
上传用户:romrleung
上传日期:2022-05-23
资源大小:18897k
文件大小:5k
源码类别:

MySQL数据库

开发平台:

Visual C++

  1. #include <my_global.h>
  2. #include <m_ctype.h>
  3. #include <m_string.h>
  4. #include <sys/types.h>
  5. #include "my_regex.h"
  6. #include "utils.h"
  7. #include "regex2.h"
  8. #include "debug.ih"
  9. /* Added extra paramter to regchar to remove static buffer ; Monty 96.11.27 */
  10. /*
  11.  - regprint - print a regexp for debugging
  12.  == void regprint(regex_t *r, FILE *d);
  13.  */
  14. void
  15. regprint(r, d)
  16. my_regex_t *r;
  17. FILE *d;
  18. {
  19. register struct re_guts *g = r->re_g;
  20. register int i;
  21. register int c;
  22. register int last;
  23. int nincat[NC];
  24. char buf[10];
  25. fprintf(d, "%ld states, %d categories", (long)g->nstates,
  26. g->ncategories);
  27. fprintf(d, ", first %ld last %ld", (long)g->firststate,
  28. (long)g->laststate);
  29. if (g->iflags&USEBOL)
  30. fprintf(d, ", USEBOL");
  31. if (g->iflags&USEEOL)
  32. fprintf(d, ", USEEOL");
  33. if (g->iflags&BAD)
  34. fprintf(d, ", BAD");
  35. if (g->nsub > 0)
  36. fprintf(d, ", nsub=%ld", (long)g->nsub);
  37. if (g->must != NULL)
  38. fprintf(d, ", must(%ld) `%*s'", (long)g->mlen, (int)g->mlen,
  39. g->must);
  40. if (g->backrefs)
  41. fprintf(d, ", backrefs");
  42. if (g->nplus > 0)
  43. fprintf(d, ", nplus %ld", (long)g->nplus);
  44. fprintf(d, "n");
  45. s_print(r->charset, g, d);
  46. for (i = 0; i < g->ncategories; i++) {
  47. nincat[i] = 0;
  48. for (c = CHAR_MIN; c <= CHAR_MAX; c++)
  49. if (g->categories[c] == i)
  50. nincat[i]++;
  51. }
  52. fprintf(d, "cc0#%d", nincat[0]);
  53. for (i = 1; i < g->ncategories; i++)
  54. if (nincat[i] == 1) {
  55. for (c = CHAR_MIN; c <= CHAR_MAX; c++)
  56. if (g->categories[c] == i)
  57. break;
  58. fprintf(d, ", %d=%s", i, regchar(r->charset,c,buf));
  59. }
  60. fprintf(d, "n");
  61. for (i = 1; i < g->ncategories; i++)
  62. if (nincat[i] != 1) {
  63. fprintf(d, "cc%dt", i);
  64. last = -1;
  65. for (c = CHAR_MIN; c <= CHAR_MAX+1; c++) /* +1 does flush */
  66. if (c <= CHAR_MAX && g->categories[c] == i) {
  67. if (last < 0) {
  68. fprintf(d, "%s", regchar(r->charset,c,buf));
  69. last = c;
  70. }
  71. } else {
  72. if (last >= 0) {
  73. if (last != c-1)
  74. fprintf(d, "-%s",
  75. regchar(r->charset,c-1,buf));
  76. last = -1;
  77. }
  78. }
  79. fprintf(d, "n");
  80. }
  81. }
  82. /*
  83.  - s_print - print the strip for debugging
  84.  == static void s_print(register struct re_guts *g, FILE *d);
  85.  */
  86. static void
  87. s_print(charset, g, d)
  88. CHARSET_INFO *charset;
  89. register struct re_guts *g;
  90. FILE *d;
  91. {
  92. register sop *s;
  93. register cset *cs;
  94. register int i;
  95. register int done = 0;
  96. register sop opnd;
  97. register int col = 0;
  98. register int last;
  99. register sopno offset = 2;
  100. char buf[10];
  101. # define GAP() { if (offset % 5 == 0) { 
  102. if (col > 40) { 
  103. fprintf(d, "nt"); 
  104. col = 0; 
  105. } else { 
  106. fprintf(d, " "); 
  107. col++; 
  108. } else 
  109. col++; 
  110. offset++; 
  111. }
  112. if (OP(g->strip[0]) != OEND)
  113. fprintf(d, "missing initial OEND!n");
  114. for (s = &g->strip[1]; !done; s++) {
  115. opnd = OPND(*s);
  116. switch (OP(*s)) {
  117. case OEND:
  118. fprintf(d, "n");
  119. done = 1;
  120. break;
  121. case OCHAR:
  122. if (strchr("\|()^$.[+*?{}!<> ", (char)opnd) != NULL)
  123. fprintf(d, "\%c", (char)opnd);
  124. else
  125. fprintf(d, "%s", regchar(charset,(char)opnd,buf));
  126. break;
  127. case OBOL:
  128. fprintf(d, "^");
  129. break;
  130. case OEOL:
  131. fprintf(d, "$");
  132. break;
  133. case OBOW:
  134. fprintf(d, "\{");
  135. break;
  136. case OEOW:
  137. fprintf(d, "\}");
  138. break;
  139. case OANY:
  140. fprintf(d, ".");
  141. break;
  142. case OANYOF:
  143. fprintf(d, "[(%ld)", (long)opnd);
  144. cs = &g->sets[opnd];
  145. last = -1;
  146. for (i = 0; i < g->csetsize+1; i++) /* +1 flushes */
  147. if (CHIN(cs, i) && i < g->csetsize) {
  148. if (last < 0) {
  149. fprintf(d, "%s", regchar(charset,i,buf));
  150. last = i;
  151. }
  152. } else {
  153. if (last >= 0) {
  154. if (last != i-1)
  155. fprintf(d, "-%s",
  156. regchar(charset,i-1,buf));
  157. last = -1;
  158. }
  159. }
  160. fprintf(d, "]");
  161. break;
  162. case OBACK_:
  163. fprintf(d, "(\<%ld>", (long)opnd);
  164. break;
  165. case O_BACK:
  166. fprintf(d, "<%ld>\)", (long)opnd);
  167. break;
  168. case OPLUS_:
  169. fprintf(d, "(+");
  170. if (OP(*(s+opnd)) != O_PLUS)
  171. fprintf(d, "<%ld>", (long)opnd);
  172. break;
  173. case O_PLUS:
  174. if (OP(*(s-opnd)) != OPLUS_)
  175. fprintf(d, "<%ld>", (long)opnd);
  176. fprintf(d, "+)");
  177. break;
  178. case OQUEST_:
  179. fprintf(d, "(?");
  180. if (OP(*(s+opnd)) != O_QUEST)
  181. fprintf(d, "<%ld>", (long)opnd);
  182. break;
  183. case O_QUEST:
  184. if (OP(*(s-opnd)) != OQUEST_)
  185. fprintf(d, "<%ld>", (long)opnd);
  186. fprintf(d, "?)");
  187. break;
  188. case OLPAREN:
  189. fprintf(d, "((<%ld>", (long)opnd);
  190. break;
  191. case ORPAREN:
  192. fprintf(d, "<%ld>))", (long)opnd);
  193. break;
  194. case OCH_:
  195. fprintf(d, "<");
  196. if (OP(*(s+opnd)) != OOR2)
  197. fprintf(d, "<%ld>", (long)opnd);
  198. break;
  199. case OOR1:
  200. if (OP(*(s-opnd)) != OOR1 && OP(*(s-opnd)) != OCH_)
  201. fprintf(d, "<%ld>", (long)opnd);
  202. fprintf(d, "|");
  203. break;
  204. case OOR2:
  205. fprintf(d, "|");
  206. if (OP(*(s+opnd)) != OOR2 && OP(*(s+opnd)) != O_CH)
  207. fprintf(d, "<%ld>", (long)opnd);
  208. break;
  209. case O_CH:
  210. if (OP(*(s-opnd)) != OOR1)
  211. fprintf(d, "<%ld>", (long)opnd);
  212. fprintf(d, ">");
  213. break;
  214. default:
  215. fprintf(d, "!%ld(%ld)!", OP(*s), opnd);
  216. break;
  217. }
  218. if (!done)
  219. GAP();
  220. }
  221. }
  222. /*
  223.  - regchar - make a character printable
  224.  == static char *regchar(int ch);
  225.  */
  226. static char * /* -> representation */
  227. regchar(charset,ch,buf)
  228. CHARSET_INFO *charset;
  229. int ch;
  230. char *buf;
  231. {
  232. if (my_isprint(charset,ch) || ch == ' ')
  233. sprintf(buf, "%c", ch);
  234. else
  235. sprintf(buf, "\%o", ch);
  236. return(buf);
  237. }