Subversion Repositories Kolibri OS

{

	char name[32];

	char prior[32];

	bool opened;

	collection attributes;

	collection values;

	dword value;

	dword number;

	bool is();

	bool parse();

	void debug_tag();

	dword get_next_param();

	dword get_value_of();

	signed get_number_of();

} tag=0;

{

	if ( !strcmp(#name, _text) ) {

		return true;

	} else {

		return false;

	}

}

{

	bool retok = true;

	dword bufpos = ESDWORD[_bufpos];

	dword params, paramsend;

	dword whitepos;

	dword openpos;

	name = '\0';

	attributes.drop();

	values.drop();

	{

		bufpos+=3;

		//STRSTR

		while (strncmp(bufpos,"-->",3)!=0) && (bufpos < bufend)

		{

			bufpos++;

		}

		bufpos+=2;

		retok = false;

		goto _RET;

	}

		opened = false;

		bufpos++;

	} else {

		opened = true;

	}

	whitepos = strchrw(bufpos, bufend-bufpos);

		if (!closepos) debugln("null closepos");

		if (!whitepos) debugln("null whitepos");

	}

		//no param

		strncpy(#name, bufpos, math.min(closepos - bufpos, sizeof(tag.name)));

		debug_tag();

		bufpos = closepos;

	} else {

		//we have param

		while (chrlnum(whitepos, '\"', closepos - whitepos)%2) { //alt="Next>>"

			/*

			openpos = strchr(closepos+1, '<');

			closepos = strchr(closepos+1, '>');

			if (openpos) && (openpos < closepos) {

				closepos = openpos - 1;

				break;

			}

			*/

			if (!openpos = strchr(closepos+1, '<')) break;

			if (openpos < strchr(closepos+1, '>')) break;

			if (!closepos = EAX) {closepos = bufend;break;}

		}

		strncpy(#name, bufpos, math.min(whitepos - bufpos, sizeof(tag.name)));

		debug_tag();

		bufpos = closepos;

		strncpy(params, whitepos, closepos - whitepos);

		if (debug_mode) { debug("params: "); debugln(params+1); }

		paramsend = params + closepos - whitepos;

		while (paramsend = get_next_param(params, paramsend-1));

		free(params);

	}

		strlwr(#name);

		// ignore text inside the next tags

		if (is("script")) || (is("style")) || (is("binary")) || (is("select")) {

			strcpy(#prior, #name);

			sprintf(#name, "", #prior);

			if (strstri(bufpos, #name)) bufpos = EAX-1;

			retok = false;

		} else {

			if (name[strlen(#name)-1]=='/') name[strlen(#name)-1]=NULL; //for 

		}

	} else {

		retok = false;

	}

	ESDWORD[_bufpos] = bufpos;

	return retok;

}

{

	if (debug_mode) {

		debugch('<');

		if (!opened) debugch('/');

		debug(#name);

		debugln(">");

	}

}

{

	// "ps" - param start

	// "pe" - param end

	// "q"  - quote char

	char q = NULL;

	dword fixeq;

	dword val;

	dword attr;

	while (pe>ps) && (__isWhite(ESBYTE[pe])) pe--;

	{

		//remove quote

		q = ESBYTE[pe];

		ESBYTE[pe] = '\0';

		pe--;

		pe = strrchr(ps, q) + ps;

		val = pe;

		pe--;

		ESBYTE[pe] = '\0';

		while (pe > ps) && (ESBYTE[pe] != '=') pe--;

		ESBYTE[pe] = '\0';

	}

	else

	{

		//find VAL start and copy

		while (pe > ps) && (ESBYTE[pe] != '=') pe--;

		val = pe+1;

		ESBYTE[pe] = '\0';

		//already have ATTR end

	}

	while (pe>ps) && (!__isWhite(ESBYTE[pe])) pe--;

	attr = pe + 1;

	ESBYTE[pe] = '\0';

	// Exchange '=' and '\0' position.

	// attr: src=./images/logo?sid   =>   src

	// val:  e8ece8b38b              =>   ./images/logo?sid=e8ece8b38b

	fixeq = strchr(attr,'=');

	if (!q) && (fixeq) {

		ESBYTE[val-1] >< ESBYTE[fixeq];

		val = fixeq+1;

	}

	strlwr(attr);

	strrtrim(val);

	values.add(val);

		debug("atr: "); debugln(attr);

		debug("val: "); debugln(val);

		debugch('\n');

	}

	return pe;

}

{

	int pos = attributes.get_pos_by_name(_attr_name);

	if (pos == -1) {

		value = 0;

	} else {

		value = values.get(pos);

	}

	return value;

}

{

	if (get_value_of(_attr_name)) {

		number = atoi(tag.value);

	} else {

		number = 0;

	}

	return number;

}

>