Subversion Repositories Kolibri OS

#ifndef INCLUDE_STRING_H

#define INCLUDE_STRING_H

#print "[include ]\n"

#ifndef INCLUDE_MEM_H

#include "../lib/mem.h"

#endif

//------------------------------------------------------------------------------

// strspn(dword text1,text2) --- example: strspn("12 year","1234567890") -> return 2

// strpbrk(dword text1,text2) --- example: strpbrk("this test", " ckfi") -> return "is test"

// strcmp( ESI, EDI)

// strlen( EDI)

// utf8_strlen( ESI)

// strcpy( EDI, ESI) --- 0 if ==

// strncpy(dword text1,text2,signed length)

// strcat( EDI, ESI)

// strncat(dword text1,text2,signed length) --- pasting the text of a certain length

// strchr( ESI,BL) --- find first BL

// strrchr( ESI,BL) --- find last BL

// strstr( EBX, EDX)

// itoa(signed long number) --- convert the number as a string

// atoi(dword text) --- convert a string as a number

// strupr( ESI)

// strlwr( ESI) --- Cyrillic symbols may not work

// strttl( EDX)

// strtok( ESI)

// strltrim(dword text) --- removes "blank" characters on the left (\r, \n and space)

// strrtrim(dword text) --- removes "blank" characters on the right (\r, \n and space)

// strtrim(dword text) --- delete "empty" characters (\ r \ n and space) on both sides

// chrnum(dword searchin, char symbol)

// strcpyb(dword searchin, copyin, startstr, endstr) --- copy string between strings

// strnumb(dword searchin, startstr, endstr) --- get number between strings

// strdup(dword text) --- allocation under the text

//------------------------------------------------------------------------------

/*

inline fastcall signed int strcmp( ESI, EDI)

{

    loop()

    {

        IF (DSBYTE[ESI]

        IF (DSBYTE[ESI]>DSBYTE[EDI]) RETURN 1;

        IF (DSBYTE[ESI]=='\0') RETURN 0;

        ESI++;

        EDI++;

    }

}

*/

inline int strspn(dword text1,text2)

{

	dword beg;

	char s1,s2;

	int ret;

	ret = 0;

	beg = text2;

	do {

		s1 = ESBYTE[text1];

		text2 = beg;

		do {

			s2 = ESBYTE[text2];

			if(s1==s2)

			{

				if(!s2)break;

				$inc ret

				break;

			}

			else $inc text2

		} while(s2);

		$inc text1

	} while(s1);

	return ret;

}

inline dword strpbrk(dword text1,text2)

{

	char s,ss;

	dword beg;

	beg = text2;

	do {

		s = ESBYTE[text1];

		text2 = beg;

		do {

			ss = ESBYTE[text2];

			if(ss==s) return text1;

			$inc text2

		} while(ss);

		$inc text1

	} while(s);

	return text1;

}

inline fastcall signed int strncmp( ESI, EDI, ECX)

{

  asm {

    MOV EBX, EDI

    XOR EAX, EAX

    MOV EDX, ECX

    OR ECX, ECX

    JE L1

    REPNE SCASB

    SUB EDX, ECX

    MOV ECX, EDX

    MOV EDI, EBX

    XOR EBX, EBX

    REPE CMPSB

    MOV AL, DSBYTE[ ESI-1]

    MOV BL, DSBYTE[ EDI-1]

    SUB EAX, EBX

L1:

  }

}

/*

inline signed int strncmp(dword text1,text2,len)

{

	loop()

	{

		if(DSBYTE[text1]!=DSBYTE[text2])return text1-text2;

		$dec len

		if(!len)return 0;

	}

}

*/

inline fastcall unsigned int strlen( EDI)

{

    $xor eax, eax

    $mov ecx, -1

    $REPNE $SCASB

    EAX-=2+ECX;

}

inline strnlen(dword str, dword maxlen)

{

	dword cp;

	for (cp = str; (maxlen != 0) && (DSBYTE[cp] != '\0'); cp++, maxlen--);

	return cp - str;

}

inline fastcall unsigned int utf8_strlen( ESI)

{

 $xor  ecx, ecx

  _loop:

 $lodsb

 $test  al, al

 $jz  _done

 $and al, 0xc0

 $cmp al, 0x80

 $jz  _loop

 $inc ecx

 $jmp _loop

  _done:

 return ECX;

}

inline signed int strcmp(dword text1, text2)

{

	char s1,s2;

	dword p1,p2;

	p1 = text1;

	p2 = text2;

	loop()

	{

		s1 = DSBYTE[text1];

		s2 = DSBYTE[text2];

		if(s1==s2)

		{

			if(s1==0) return 0;

		}

		else {

			return s1-s2;

		}

		$inc text1

		$inc text2

	}

	return 0;

}

/*

signed int strncmp(dword s1, s2, signed n)

unsigned char _s1,_s2;

{

	if (n == 0)

		return 0;

	do {

		_s1 = DSBYTE[s1];

		_s2 = DSBYTE[s2];

		if (_s1 != _s2)

		{

			$dec s2

			return _s1 - _s2;

		}

		$inc s2

		if (_s1 == 0)

			break;

		$inc s1

		$dec n

	} while (n);

	return 0;

}

*/

inline fastcall void strcpy( EDI, ESI)

{

    $cld

L2:

    $lodsb

    $stosb

    $test al,al

    $jnz L2

}

inline dword strncpy(dword text1, text2, signed len)

	signed o1,o2;

{

	if(!text1)||(!len) return text1;

	if(len<4)

	{

		o2 = len;

		goto RUN_BYTE;

	}

	o1 = len/4;

	o2 = len-4*o1;

	while(o1){

		DSDWORD[text1] = DSDWORD[text2];

		text1 += 4;

		text2 += 4;