Commit | Line | Data |
---|---|---|
86041518 WJ |
1 | /*- |
2 | * Copyright (c) 1990 The Regents of the University of California. | |
3 | * All rights reserved. | |
4 | * | |
5 | * This code is derived from software contributed to Berkeley by | |
6 | * Vern Paxson of Lawrence Berkeley Laboratory. | |
7 | * | |
8 | * The United States Government has rights in this work pursuant | |
9 | * to contract no. DE-AC03-76SF00098 between the United States | |
10 | * Department of Energy and the University of California. | |
11 | * | |
12 | * Redistribution and use in source and binary forms, with or without | |
13 | * modification, are permitted provided that the following conditions | |
14 | * are met: | |
15 | * 1. Redistributions of source code must retain the above copyright | |
16 | * notice, this list of conditions and the following disclaimer. | |
17 | * 2. Redistributions in binary form must reproduce the above copyright | |
18 | * notice, this list of conditions and the following disclaimer in the | |
19 | * documentation and/or other materials provided with the distribution. | |
20 | * 3. All advertising materials mentioning features or use of this software | |
21 | * must display the following acknowledgement: | |
22 | * This product includes software developed by the University of | |
23 | * California, Berkeley and its contributors. | |
24 | * 4. Neither the name of the University nor the names of its contributors | |
25 | * may be used to endorse or promote products derived from this software | |
26 | * without specific prior written permission. | |
27 | * | |
28 | * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | |
29 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | |
30 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | |
31 | * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | |
32 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | |
33 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | |
34 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | |
35 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | |
36 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | |
37 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | |
38 | * SUCH DAMAGE. | |
39 | */ | |
40 | ||
41 | #ifndef lint | |
42 | static char sccsid[] = "@(#)ccl.c 5.2 (Berkeley) 6/18/90"; | |
43 | #endif /* not lint */ | |
44 | ||
45 | /* ccl - routines for character classes */ | |
46 | ||
47 | #include "flexdef.h" | |
48 | ||
49 | /* ccladd - add a single character to a ccl | |
50 | * | |
51 | * synopsis | |
52 | * int cclp; | |
53 | * int ch; | |
54 | * ccladd( cclp, ch ); | |
55 | */ | |
56 | ||
57 | void ccladd( cclp, ch ) | |
58 | int cclp; | |
59 | int ch; | |
60 | ||
61 | { | |
62 | int ind, len, newpos, i; | |
63 | ||
64 | len = ccllen[cclp]; | |
65 | ind = cclmap[cclp]; | |
66 | ||
67 | /* check to see if the character is already in the ccl */ | |
68 | ||
69 | for ( i = 0; i < len; ++i ) | |
70 | if ( ccltbl[ind + i] == ch ) | |
71 | return; | |
72 | ||
73 | newpos = ind + len; | |
74 | ||
75 | if ( newpos >= current_max_ccl_tbl_size ) | |
76 | { | |
77 | current_max_ccl_tbl_size += MAX_CCL_TBL_SIZE_INCREMENT; | |
78 | ||
79 | ++num_reallocs; | |
80 | ||
81 | ccltbl = reallocate_character_array( ccltbl, current_max_ccl_tbl_size ); | |
82 | } | |
83 | ||
84 | ccllen[cclp] = len + 1; | |
85 | ccltbl[newpos] = ch; | |
86 | } | |
87 | ||
88 | ||
89 | /* cclinit - make an empty ccl | |
90 | * | |
91 | * synopsis | |
92 | * int cclinit(); | |
93 | * new_ccl = cclinit(); | |
94 | */ | |
95 | ||
96 | int cclinit() | |
97 | ||
98 | { | |
99 | if ( ++lastccl >= current_maxccls ) | |
100 | { | |
101 | current_maxccls += MAX_CCLS_INCREMENT; | |
102 | ||
103 | ++num_reallocs; | |
104 | ||
105 | cclmap = reallocate_integer_array( cclmap, current_maxccls ); | |
106 | ccllen = reallocate_integer_array( ccllen, current_maxccls ); | |
107 | cclng = reallocate_integer_array( cclng, current_maxccls ); | |
108 | } | |
109 | ||
110 | if ( lastccl == 1 ) | |
111 | /* we're making the first ccl */ | |
112 | cclmap[lastccl] = 0; | |
113 | ||
114 | else | |
115 | /* the new pointer is just past the end of the last ccl. Since | |
116 | * the cclmap points to the \first/ character of a ccl, adding the | |
117 | * length of the ccl to the cclmap pointer will produce a cursor | |
118 | * to the first free space | |
119 | */ | |
120 | cclmap[lastccl] = cclmap[lastccl - 1] + ccllen[lastccl - 1]; | |
121 | ||
122 | ccllen[lastccl] = 0; | |
123 | cclng[lastccl] = 0; /* ccl's start out life un-negated */ | |
124 | ||
125 | return ( lastccl ); | |
126 | } | |
127 | ||
128 | ||
129 | /* cclnegate - negate a ccl | |
130 | * | |
131 | * synopsis | |
132 | * int cclp; | |
133 | * cclnegate( ccl ); | |
134 | */ | |
135 | ||
136 | void cclnegate( cclp ) | |
137 | int cclp; | |
138 | ||
139 | { | |
140 | cclng[cclp] = 1; | |
141 | } | |
142 | ||
143 | ||
144 | /* list_character_set - list the members of a set of characters in CCL form | |
145 | * | |
146 | * synopsis | |
147 | * int cset[CSIZE]; | |
148 | * FILE *file; | |
149 | * list_character_set( cset ); | |
150 | * | |
151 | * writes to the given file a character-class representation of those | |
152 | * characters present in the given set. A character is present if it | |
153 | * has a non-zero value in the set array. | |
154 | */ | |
155 | ||
156 | void list_character_set( file, cset ) | |
157 | FILE *file; | |
158 | int cset[]; | |
159 | ||
160 | { | |
161 | register int i; | |
162 | char *readable_form(); | |
163 | ||
164 | putc( '[', file ); | |
165 | ||
166 | for ( i = 0; i < csize; ++i ) | |
167 | { | |
168 | if ( cset[i] ) | |
169 | { | |
170 | register int start_char = i; | |
171 | ||
172 | putc( ' ', file ); | |
173 | ||
174 | fputs( readable_form( i ), file ); | |
175 | ||
176 | while ( ++i < csize && cset[i] ) | |
177 | ; | |
178 | ||
179 | if ( i - 1 > start_char ) | |
180 | /* this was a run */ | |
181 | fprintf( file, "-%s", readable_form( i - 1 ) ); | |
182 | ||
183 | putc( ' ', file ); | |
184 | } | |
185 | } | |
186 | ||
187 | putc( ']', file ); | |
188 | } |