/* ccl - routines for character classes */
* Copyright (c) 1990 The Regents of the University of California.
* This code is derived from software contributed to Berkeley by
* The United States Government has rights in this work pursuant
* to contract no. DE-AC03-76SF00098 between the United States
* Department of Energy and the University of California.
* Redistribution and use in source and binary forms are permitted provided
* that: (1) source distributions retain this entire copyright notice and
* comment, and (2) distributions including binaries display the following
* acknowledgement: ``This product includes software developed by the
* University of California, Berkeley and its contributors'' in the
* documentation or other materials provided with the distribution and in
* all advertising materials mentioning features or use of this software.
* Neither the name of the University nor the names of its contributors may
* be used to endorse or promote products derived from this software without
* specific prior written permission.
* THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR IMPLIED
* WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
* MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
"@(#) $Header: /usr/fsys/odin/a/vern/flex/RCS/ccl.c,v 2.5 90/06/27 23:48:13 vern Exp $ (LBL)";
/* ccladd - add a single character to a ccl
/* check to see if the character is already in the ccl */
for ( i
= 0; i
< len
; ++i
)
if ( ccltbl
[ind
+ i
] == ch
)
if ( newpos
>= current_max_ccl_tbl_size
)
current_max_ccl_tbl_size
+= MAX_CCL_TBL_SIZE_INCREMENT
;
ccltbl
= reallocate_character_array( ccltbl
, current_max_ccl_tbl_size
);
/* cclinit - make an empty ccl
if ( ++lastccl
>= current_maxccls
)
current_maxccls
+= MAX_CCLS_INCREMENT
;
cclmap
= reallocate_integer_array( cclmap
, current_maxccls
);
ccllen
= reallocate_integer_array( ccllen
, current_maxccls
);
cclng
= reallocate_integer_array( cclng
, current_maxccls
);
/* we're making the first ccl */
/* the new pointer is just past the end of the last ccl. Since
* the cclmap points to the \first/ character of a ccl, adding the
* length of the ccl to the cclmap pointer will produce a cursor
* to the first free space
cclmap
[lastccl
] = cclmap
[lastccl
- 1] + ccllen
[lastccl
- 1];
cclng
[lastccl
] = 0; /* ccl's start out life un-negated */
/* cclnegate - negate a ccl
/* list_character_set - list the members of a set of characters in CCL form
* list_character_set( cset );
* writes to the given file a character-class representation of those
* characters present in the given set. A character is present if it
* has a non-zero value in the set array.
void list_character_set( file
, cset
)
for ( i
= 0; i
< csize
; ++i
)
register int start_char
= i
;
fputs( readable_form( i
), file
);
while ( ++i
< csize
&& cset
[i
] )
if ( i
- 1 > start_char
)
fprintf( file
, "-%s", readable_form( i
- 1 ) );