/*?ccl?-?routines?for?character?classes?*/

/*-
?*?Copyright?（c）?1990?The?Regents?of?the?University?of?California.
?*?All?rights?reserved.
?*
?*?This?code?is?derived?from?software?contributed?to?Berkeley?by
?*?Vern?Paxson.
?*?
?*?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:?/home/daffy/u0/vern/flex/RCS/ccl.cv?2.9?93/09/16?20:32:14?vern?Exp?$?*/

#include?“flexdef.h“

/*?ccladd?-?add?a?single?character?to?a?ccl?*/

void?ccladd（?cclp?ch?）
int?cclp;
int?ch;
	{
	int?ind?len?newpos?i;

	check_char（?ch?）;

	len?=?ccllen[cclp];
	ind?=?cclmap[cclp];

	/*?check?to?see?if?the?character?is?already?in?the?ccl?*/

	for?（?i?=?0;?i?		if?（?ccltbl[ind?+?i]?==?ch?）
			return;

	newpos?=?ind?+?len;

	if?（?newpos?>=?current_max_ccl_tbl_size?）
		{
		current_max_ccl_tbl_size?+=?MAX_CCL_TBL_SIZE_INCREMENT;

		++num_reallocs;

		ccltbl?=?reallocate_Character_array（?ccltbl
						current_max_ccl_tbl_size?）;
		}

	ccllen[cclp]?=?len?+?1;
	ccltbl[newpos]?=?ch;
	}


/*?cclinit?-?return?an?empty?ccl?*/

int?cclinit（）
	{
	if?（?++lastccl?>=?current_maxccls?）
		{
		current_maxccls?+=?MAX_CCLS_INCREMENT;

		++num_reallocs;

		cclmap?=?reallocate_integer_array（?cclmap?current_maxccls?）;
		ccllen?=?reallocate_integer_array（?ccllen?current_maxccls?）;
		cclng?=?reallocate_integer_array（?cclng?current_maxccls?）;
		}

	if?（?lastccl?==?1?）
		/*?we‘re?making?the?first?ccl?*/
		cclmap[lastccl]?=?0;

	else
		/*?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];

	ccllen[lastccl]?=?0;
	cclng[lastccl]?=?0;	/*?ccl‘s?start?out?life?un-negated?*/

	return?lastccl;
	}


/*?cclnegate?-?negate?the?given?ccl?*/

void?cclnegate（?cclp?）
int?cclp;
	{
	cclng[cclp]?=?1;
	}


/*?list_character_set?-?