Subversion Repositories Kolibri OS

#include "kosSyst.h"

#include "stdarg.h"

#define atexitBufferSize	32

char pureCallMessage[] = "PURE function call!";

char *kosExePath = NULL;

int abs(int value)

{

  if (value<0) value=0-value;

  return value;

}

//

void (__cdecl *atExitList[atexitBufferSize])();

int atExitFnNum = 0;

//

int __cdecl atexit( void (__cdecl *func )( void ))

{

	//

	if ( atExitFnNum < atexitBufferSize )

	{

		//

		atExitList[atExitFnNum++] = func;

		return 0;

	}

	else

	{

		return 1;

	}

}

//

Dword RandomSeed = 1;

//

void rtlSrand( Dword seed )

{

	RandomSeed = seed;

}

//

Dword rtlRand( void )

{

  //ìàñêà 0x80000776

  Dword dwi, i;

  for ( i = 0; i < 32; i++ )

  {

    dwi = RandomSeed & 0x80000776;

      __asm{

            mov   eax, dwi

            mov   edx, eax

            bswap eax

            xor   eax, edx

            xor   al, ah

            setpo al

            movzx eax, al

            mov   dwi, eax

    }

    RandomSeed = ( RandomSeed << 1 ) | ( dwi & 1 );

  }

 return RandomSeed;

}

#if _MSC_VER >= 1400

//

void * __cdecl memcpy( void *dst, const void *src, size_t bytesCount )

{

	__asm{

		mov edi, dst

		mov eax, dst

		mov esi, src

		mov ecx, bytesCount

		rep movsb

	}

}

//

void memset( Byte *dst, Byte filler, Dword count )

{

	//

	__asm{

		mov edi, dst

		mov al, filler

		mov ecx, count

		rep stosb

	}

}

#endif

//

Dword rtlInterlockedExchange( Dword *target, Dword value )

{

//	Dword result;

	//

	__asm{

		mov eax, value

		mov ebx, target

		xchg eax, [ebx]

//		mov result, eax

	}

	//

//	return result;

}

//////////////////////////////////////////////////////////////////////

//

// êîïèðîâàíèå ñòðîêè

//

char * __cdecl strcpy( char *target, const char *source )

{

	char *result = target;

	while( target[0] = source[0] )

	{

		target++;

		source++;

	}

	return result;

}

//////////////////////////////////////////////////////////////////////

//

// ðåâåðñèâíûé ïîèñê ñèìâîëà

//

char * __cdecl strrchr( const char * string, int c )

{

	char *cPtr;

	//

	for ( cPtr = (char *)string + strlen( string ); cPtr >= string; cPtr-- )

	{

		//

		if ( *cPtr == c ) return cPtr;

	}

	//

	return NULL;

}

//////////////////////////////////////////////////////////////////////

//

// îïðåäåëåíèå äëèíû ñòðîêè

//

int __cdecl strlen( const char *line )

{

  int i;

  for( i=0; line[i] != 0; i++ );

  return i;

}

//////////////////////////////////////////////////////////////////////

//

// Ñðàâíåíèå ñòðîê

//

int strcmp(char* string1, char* string2)

{

  Dword  retval;

  if (strlen(string1)==strlen(string2))

  {

    __asm

    {

      mov  dword ptr [retval],0

      mov  esi,string1

      mov  edi,string2

     next_char:

      mov  al,byte ptr [esi]

      mov  bl,byte ptr [edi]

      inc  esi

      inc  edi

      cmp  bl,0

      je   fin

      cmp  al,bl

      je   next_char

      jmp  not_equal

     fin:

      mov  dword ptr [retval],1

     not_equal:

    }

    return retval;

  } else {

    return 0;

  }

}

//////////////////////////////////////////////////////////////////////

//

// ïåðåâîä øåñòíàäöàòèðè÷íîãî ÷èñëà â ñèìâîë

//

unsigned int num2hex( unsigned int num )

{

  if( num < 10 )

    return num + '0';

  return num - 10 + 'A';

}

//////////////////////////////////////////////////////////////////////

//

// ïåðåâîä ñòðîêè â íèæíèé ðåãèñòð

//

void lcase(char* string)

{

  int i;

  char chr;

  for(i=0;i

  {

    chr=((char*)string)[i];

    if (chr>=65 && chr<=90) chr=chr+32;    //a-z

    if (chr>=128 && chr<=143) chr=chr+32;  //à-ï

    if (chr>=144 && chr<=159) chr=chr+80;  //ð-ÿ

    if (chr==240) chr=241;                 //¸

    ((char*)string)[i]=chr;

  }

}

//////////////////////////////////////////////////////////////////////

//

// âûâîä ñòðîêè íà ïå÷àòü

//

Dword dectab[] = { 1000000000, 100000000, 10000000, 1000000, 100000,

                   10000, 1000, 100, 10, 0 };

//

void sprintf( char *Str, char* Format, ... )

{

	int i, fmtlinesize, j, k, flag;

	Dword head, tail;

	char c;

	va_list arglist;

	//

	va_start(arglist, Format);

	//

	fmtlinesize = strlen( Format );

	//

	if( fmtlinesize == 0 ) return;

	//

	for( i = 0, j = 0; i < fmtlinesize; i++ )

	{

		//

		c = Format[i];

		//

		if( c != '%' )

		{

			Str[j++] = c;

			continue;

		}

		//

		i++;

		//

		if( i >= fmtlinesize ) break;

		//

		flag = 0;

		//

		c = Format[i];

		//

		switch( c )

		{

		//

		case '%':

			Str[j++] = c;

			break;

		// âûâîä ñòðîêè

		case 'S':

			Byte* str;

			str = va_arg(arglist, Byte*);

			for( k = 0; ( c = str[k] ) != 0; k++ )

			{

				Str[j++] = c;

			}

			break;

		// âûâîä áàéòà

		case 'B':

			k = va_arg(arglist, int) & 0xFF;

			Str[j++] = num2hex( ( k >> 4 ) & 0xF );

			Str[j++] = num2hex( k & 0xF );

			break;

		// âûâîä ñèìâîëà

		case 'C':

			Str[j++] = va_arg(arglist, int) & 0xFF;

			break;

		// âûâîä äâîéíîãî ñëîâà â øåñòíàäöàòèðè÷íîì âèäå

		case 'X':

			Dword val;

			val = va_arg(arglist, Dword);

			for( k = 7; k >= 0; k-- )

			{

				//

				c = num2hex ( ( val >> (k * 4) ) & 0xF );

				//

				if( c == '0' )

				{

					if( flag ) Str[j++] = c;

				}

				else

				{

					flag++;

					Str[j++] = c;

				}

			}

			//

			if( flag == 0 ) Str[j++] = '0';

			break;

		// âûâîä äâîéíîãî ñëîâà â äåñÿòè÷íîì âèäå

		case 'U':

			head = va_arg(arglist, Dword);

			tail = 0;

			for( k = 0; dectab[k] != 0; k++ )

			{

				tail = head % dectab[k];

				head /= dectab[k];

				c = head + '0';

				if( c == '0' )

				{

					if( flag ) Str[j++] = c;

				}

				else

				{

					flag++;

					Str[j++] = c;

				}

				//

				head = tail;

			}

			//

			c = head + '0';

			Str[j++] = c;

			break;

		// âûâîä 64-áèòíîãî ñëîâà â øåñòíàäöàòèðè÷íîì âèäå

		case 'Q':

			unsigned int low_dword, high_dword;

			low_dword = va_arg(arglist, unsigned int);

			high_dword = va_arg(arglist, unsigned int);

			for( k = 7; k >= 0; k-- )

			{

				//

				c = num2hex ( ( ( high_dword + 1) >> (k * 4) ) & 0xF );

				//

				if( c == '0' )

				{

					if( flag ) Str[j++] = c;

				}

				else

				{

					flag++;

					Str[j++] = c;

				}

			}

			//

			for( k=7; k >= 0; k-- )

			{

				//

				c = num2hex ( ( low_dword >> (k * 4) ) & 0xF );

				//

				if( c == '0' )

				{

					if( flag ) Str[j++] = c;

				}

				else

				{

					flag++;

					Str[j++] = c;

				}

			}

			//

			if( flag == 0 ) Str[j++] = '0';

			//

			break;

		//

		default:

			break;

		}

	}

	//

	Str[j] = 0;

}

// ôóíêöèÿ -1 çàâåðøåíèÿ ïðîöåññà

void kos_ExitApp()

{

	int i;

	//

	for ( i = atExitFnNum - 1; i >= 0; i-- )

	{

		//

		atExitList[i]();

	}

	//

	__asm{

		mov eax, -1

		int 0x40

	}

}

// ôóíêöèÿ 0

void kos_DefineAndDrawWindow(

	Word x, Word y,

	Word sizeX, Word sizeY,

	Byte mainAreaType,

	Dword mainAreaColour,

	Byte headerType,

	Dword headerColour,

	Dword borderColour

	)

{

	Dword arg1, arg2, arg3, arg4;

	//

	arg1 = ( x << 16 ) + sizeX;

	arg2 = ( y << 16 ) + sizeY;

	arg3 = ( mainAreaType << 24 ) | mainAreaColour;

	arg4 = ( headerType << 24 ) | headerColour;

	//

	__asm{

		mov eax, 0

		mov ebx, arg1

		mov ecx, arg2

		mov edx, arg3

		mov esi, arg4

		mov edi, borderColour

		int 0x40

	}

}

// ôóíêöèÿ 1 ïîñòàâèòü òî÷êó

void kos_PutPixel( Dword x, Dword y, Dword colour )

{

	//

	__asm{

		mov eax, 1

		mov ebx, x

		mov ecx, y

		mov edx, colour

		int 0x40

	}

}

// ôóíêöèÿ 2 ïîëó÷èòü êîä íàæàòîé êëàâèøè

bool kos_GetKey( Byte &keyCode )

{

	Dword result;

	//

	__asm{

		mov eax, 2

		int 0x40

		mov result, eax

	}

	//

	keyCode = result >> 8;

	//

	return ( result & 0xFF ) == 0;

}

// ôóíêöèÿ 3 ïîëó÷èòü âðåìÿ

Dword kos_GetSystemClock()

{

//	Dword result;

	//

	__asm{

		mov eax, 3

		int 0x40

//		mov result, eax

	}

	//

//	return result;

}

// ôóíêöèÿ 4

void kos_WriteTextToWindow(

	Word x,

	Word y,

	Byte fontType,

	Dword textColour,

	char *textPtr,

	Dword textLen

	)

{

	Dword arg1, arg2;

	//

	arg1 = ( x << 16 ) | y;

	arg2 = ( fontType << 24 ) | textColour;

	//

	__asm{

		mov eax, 4

		mov ebx, arg1

		mov ecx, arg2

		mov edx, textPtr

		mov esi, textLen

		int 0x40

	}

}

// ôóíêöèÿ 5 ïàóçà, â ñîòûõ äîëÿõ ñåêóíäû

void kos_Pause( Dword value )

{

	//

	__asm{

		mov eax, 5

		mov ebx, value

		int 0x40

	}

}

// ôóíêöèÿ 7 íàðèñîâàòü èçîáðàæåíèå

void kos_PutImage( RGB * imagePtr, Word sizeX, Word sizeY, Word x, Word y )

{

	Dword arg1, arg2;

	//

	arg1 = ( sizeX << 16 ) | sizeY;

	arg2 = ( x << 16 ) | y;

	//

	__asm{

		mov eax, 7

		mov ebx, imagePtr

		mov ecx, arg1

		mov edx, arg2

		int 0x40

	}

}

// ôóíêöèÿ 8 îïðåäåëèòü êíîïêó

void kos_DefineButton( Word x, Word y, Word sizeX, Word sizeY, Dword buttonID, Dword colour )

{

	Dword arg1, arg2;

	//

	arg1 = ( x << 16 ) | sizeX;

	arg2 = ( y << 16 ) | sizeY;

	//

	__asm{

		mov eax, 8

		mov ebx, arg1

		mov ecx, arg2

		mov edx, buttonID

		mov esi, colour

		int 0x40

	}

}

// ôóíêöèÿ 9 - èíôîðìàöèÿ î ïðîöåññå

Dword kos_ProcessInfo( sProcessInfo *targetPtr, Dword processID )

{

//	Dword result;

	//

	__asm{

		mov eax, 9

		mov ebx, targetPtr

		mov ecx, processID

		int 0x40

//		mov result, eax

	}

	//

//	return result;

}

// ôóíêöèÿ 10

Dword kos_WaitForEvent()

{

//	Dword result;

	__asm{

		mov eax, 10

		int 0x40

//		mov result, eax

	}

//	return result;

}

// ôóíêöèÿ 11

Dword kos_CheckForEvent()

{

//	Dword result;

	__asm{

		mov eax, 11

		int 0x40

//		mov result, eax

	}

//	return result;

}

// ôóíêöèÿ 12

void kos_WindowRedrawStatus( Dword status )

{

	__asm{

		mov eax, 12

		mov ebx, status

		int 0x40

	}

}

// ôóíêöèÿ 13 íàðèñîâàòü ïîëîñó

void kos_DrawBar( Word x, Word y, Word sizeX, Word sizeY, Dword colour )

{

	Dword arg1, arg2;

	//

	arg1 = ( x << 16 ) | sizeX;

	arg2 = ( y << 16 ) | sizeY;

	//

	__asm{

		mov eax, 13

		mov ebx, arg1

		mov ecx, arg2

		mov edx, colour

		int 0x40

	}

}

// ôóíêöèÿ 17

bool kos_GetButtonID( Dword &buttonID )

{

	Dword result;

	//

	__asm{

		mov eax, 17

		int 0x40

		mov result, eax

	}

	//

	buttonID = result >> 8;

	//

	return (result & 0xFF) == 0;

}

// ôóíêöèÿ 23

Dword kos_WaitForEvent( Dword timeOut )

{

//	Dword result;

	__asm{

		mov eax, 23

		mov ebx, timeOut

		int 0x40

//		mov result, eax

	}

//	return result;

}

// ïîëó÷åíèå èíôîðìàöèè î ñîñòîÿíèè "ìûøè" ôóíêöèÿ 37

void kos_GetMouseState( Dword & buttons, int & cursorX, int & cursorY )

{

	Dword mB;

	Word curX;

	Word curY;

	sProcessInfo sPI;

	//

	__asm{

		mov		eax, 37

		mov		ebx, 1

		int		0x40

		mov		curY, ax

		shr		eax, 16

		mov		curX, ax

		mov		eax, 37

		mov		ebx, 2

		int		0x40

		mov		mB, eax

	}

	//

	kos_ProcessInfo( &sPI );

	//

	buttons = mB;

	cursorX = curX - sPI.processInfo.left;

	cursorY = curY - sPI.processInfo.top;

}

// ôóíêöèÿ 40 óñòàíîâèòü ìàñêó ñîáûòèé

void kos_SetMaskForEvents( Dword mask )

{

	//

	__asm{

		mov eax, 40

		mov ebx, mask

		int 0x40

	}

}

// ôóíêöèÿ 47 âûâåñòè â îêíî ïðèëîæåíèÿ ÷èñëî

void kos_DisplayNumberToWindow(

   Dword value,

   Dword digitsNum,

   Word x,

   Word y,

   Dword colour,

   eNumberBase nBase,

   bool valueIsPointer

   )

{

	Dword arg1, arg2;

	//

	arg1 = ( valueIsPointer ? 1 : 0 ) |

		( ((Byte)nBase) << 8 ) |

		( ( digitsNum & 0x1F ) << 16 );

	arg2 = ( x << 16 ) | y;

	//

	__asm{

		mov eax, 47

		mov ebx, arg1

		mov ecx, value

		mov edx, arg2

		mov esi, colour

		int 0x40

	}

}

// ôóíêöèÿ 70 äîñòóï ê ôàéëîâîé ñèñòåìå

Dword kos_FileSystemAccess( kosFileInfo *fileInfo )

{

//	Dword result;

	//

	__asm{

		mov eax, 70

		mov ebx, fileInfo

		int 0x40

//		mov result, eax

	}

	//

//	return result;

}

// ôóíêöèÿ 63 âûâîä ñèìâîëÿ â îêíî îòëàäêè

void kos_DebugOutChar( char ccc )

{

	//

	__asm{

		mov eax, 63

		mov ebx, 1

		mov cl, ccc

		int 0x40

	}

}

// ôóíêöèÿ 66 ðåæèì ïîëó÷åíèÿ äàííûõ îò êëàâèàòóðû

void kos_SetKeyboardDataMode( Dword mode )

{

	//

	__asm{

		mov eax, 66

		mov ebx, 1

		mov ecx, mode

		int 0x40

	}

}

// âûâîä ñòðîêè â îêíî îòëàäêè

void rtlDebugOutString( char *str )

{

	//

	for ( ; str[0] != 0; str++ )

	{

		kos_DebugOutChar( str[0] );

	}

	//

	kos_DebugOutChar( 13 );

	kos_DebugOutChar( 10 );

}

// ôóíêöèÿ 64 èçìåíåíèå êîëè÷åñòâà ïàìÿòè, âûäåëåííîé äëÿ ïðîãðàììû

bool kos_ApplicationMemoryResize( Dword targetSize )

{

	Dword result;

	//

	__asm{

		mov eax, 64

		mov ebx, 1

		mov ecx, targetSize

		int 0x40

		mov result, eax

	}

	//

	return result == 0;

}

// ôóíêöèÿ 67 èçìåíèòü ïàðàìåòðû îêíà, ïàðàìåòð == -1 íå ìåíÿåòñÿ

void kos_ChangeWindow( Dword x, Dword y, Dword sizeX, Dword sizeY )

{

	//

	__asm{

		mov eax, 67

		mov ebx, x

		mov ecx, y

		mov edx, sizeX

		mov esi, sizeY

		int 0x40

	}

}

Byte* kos_GetMemory(Dword count)

{

  __asm

  {

    mov  eax,68

    mov  ebx,12

    mov  ecx,count

    int  40h

  }

}

Dword kos_FreeMemory(Byte* pMemory)

{

  __asm

  {

    mov  eax,68

    mov  ebx,13

    mov  ecx,pMemory

    int  40h

  }

}

// âûçîâ àáñòðàêòíîãî ìåòîäà

int __cdecl _purecall()

{

	rtlDebugOutString( pureCallMessage );

	kos_ExitApp();

	return 0;

}

// âûçîâ ñòàòè÷åñêèõ èíèöèàëèçàòîðîâ

// çàîäíî èíèöèàëèçàöèÿ ãåíåðàòîðà ñëó÷àéíûõ ÷èñåë

//#pragma section(".CRT$XCA",long,read,write)

//#pragma section(".CRT$XCZ",long,read,write)

#pragma data_seg(".CRT$XCA")

#pragma data_seg(".CRT$XCZ")

typedef void (__cdecl *_PVFV)(void);

__declspec(allocate(".CRT$XCA"))  _PVFV __xc_a[1] = { NULL };

__declspec(allocate(".CRT$XCZ"))  _PVFV __xc_z[1] = { NULL };

//

#pragma comment(linker, "/merge:.CRT=.rdata")

//

void crtStartUp()

{

	// âûçûâàåì èíèöèàëèçàòîðû ïî ñïèñêó, NULL'û èãíîðèðóåì

	for ( _PVFV *pbegin = __xc_a; pbegin < __xc_z; pbegin++ )

	{

		//

		if ( *pbegin != NULL )

			(**pbegin)();

	}

	// èíèöèàëèçèðóåì ãåíåðàòîð ñëó÷àéíûõ ÷èñåë

	rtlSrand( kos_GetSystemClock() );

	// ïóòü ê ôàéëó ïðîöåññà

	kosExePath = *((char **)0x20);

	// âûçîâ ãëàâíîé ôóíêöèè ïðèëîæåíèÿ

	kos_Main();

	// âûõîä

	kos_ExitApp();

}