← Back to branch summary

~ubuntu-branches/debian/squeeze/erlang/squeeze

« back to all changes in this revision

Viewing changes to lib/common_test/priv/rx-1.5/regex/test/iregex.c

  • Committer: Bazaar Package Importer
  • Author(s): Sergei Golovan
  • Date: 2009-05-07 15:07:37 UTC
  • mfrom: (1.2.1 upstream) (5.1.2 sid)
  • Revision ID: james.westby@ubuntu.com-20090507150737-i4yb5elwinm7r0hc
Tags: 1:13.b-dfsg1-1
http://bugs.debian.org/527053
http://bugs.debian.org/526682
http://bugs.debian.org/526627
* Removed another bunch of non-free RFCs from original tarball
  (closes: #527053).
* Fixed build-dependencies list by adding missing comma. This requires
  libsctp-dev again. Also, added libsctp1 dependency to erlang-base and
  erlang-base-hipe packages because the shared library is loaded via
  dlopen now and cannot be added using dh_slibdeps (closes: #526682).
* Weakened dependency of erlang-webtool on erlang-observer to recommends
  to avoid circular dependencies (closes: #526627).
* Added solaris-i386 to HiPE enabled architectures.
* Made script sources in /usr/lib/erlang/erts-*/bin directory executable,
  which is more convenient if a user wants to create a target Erlang system.
* Shortened extended description line for erlang-dev package to make it
  fit 80x25 terminals.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/common_test/priv/rx-1.5/regex/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
 
 
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
 
 
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
 
}