forked from KolibriOS/kolibrios
696 lines
9.5 KiB
C++
696 lines
9.5 KiB
C++
#include "kosSyst.h"
|
|
#include "func.h"
|
|
#include <stdarg.h>
|
|
|
|
char kosCmdLine[257];
|
|
char kosExePath[1024];
|
|
extern "C" char exeStack[];
|
|
char exeStack[16384];
|
|
|
|
#define atexitBufferSize 32
|
|
|
|
#ifndef SMALLLIBC_NO_ATEXIT
|
|
//
|
|
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;
|
|
}
|
|
}
|
|
#endif
|
|
|
|
//
|
|
Dword RandomSeed = 0;
|
|
//
|
|
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;
|
|
}
|
|
|
|
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
|
|
}
|
|
}
|
|
|
|
|
|
//
|
|
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;
|
|
}
|
|
|
|
|
|
|
|
//////////////////////////////////////////////////////////////////////
|
|
//
|
|
// ïåðåâîä øåñòíàäöàòèðè÷íîãî ÷èñëà â ñèìâîë
|
|
//
|
|
|
|
unsigned int num2hex( unsigned int num )
|
|
{
|
|
if( num < 10 )
|
|
return num + '0';
|
|
return num - 10 + 'A';
|
|
}
|
|
|
|
|
|
inline void __declspec(noreturn) kos_sysfuncm1(void)
|
|
{
|
|
__asm or eax, -1
|
|
__asm int 0x40
|
|
}
|
|
|
|
// ôóíêöèÿ -1 çàâåðøåíèÿ ïðîöåññà
|
|
void kos_ExitApp()
|
|
{
|
|
#ifndef SMALLLIBC_NO_ATEXIT
|
|
int i;
|
|
|
|
//
|
|
for ( i = atExitFnNum - 1; i >= 0; i-- )
|
|
{
|
|
//
|
|
atExitList[i]();
|
|
}
|
|
#endif
|
|
//
|
|
kos_sysfuncm1();
|
|
}
|
|
|
|
static void __declspec(noinline) __fastcall kos_sysfunc0(Dword _ecx, Dword _edx, Dword _ebx, Dword _esi, Dword _edi)
|
|
{
|
|
__asm xor eax, eax
|
|
__asm mov ebx, _ebx
|
|
__asm mov esi, _esi
|
|
__asm mov edi, _edi
|
|
__asm 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;
|
|
//
|
|
kos_sysfunc0(arg2, arg3, arg1, arg4, borderColour);
|
|
}
|
|
|
|
|
|
// ôóíêöèÿ 1 ïîñòàâèòü òî÷êó
|
|
void kos_PutPixel( Dword x, Dword y, Dword colour )
|
|
{
|
|
//
|
|
__asm{
|
|
push 1
|
|
pop eax
|
|
mov ebx, x
|
|
mov ecx, y
|
|
mov edx, colour
|
|
int 0x40
|
|
}
|
|
}
|
|
|
|
inline Dword kos_sysfunc2(void)
|
|
{
|
|
__asm push 2
|
|
__asm pop eax
|
|
__asm int 0x40
|
|
}
|
|
|
|
// ôóíêöèÿ 2 ïîëó÷èòü êîä íàæàòîé êëàâèøè
|
|
bool kos_GetKey( Byte &keyCode )
|
|
{
|
|
Dword result = kos_sysfunc2();
|
|
//
|
|
keyCode = result >> 8;
|
|
//
|
|
return ( result & 0xFF ) == 0;
|
|
}
|
|
|
|
|
|
// ôóíêöèÿ 3 ïîëó÷èòü âðåìÿ
|
|
Dword kos_GetSystemClock()
|
|
{
|
|
// Dword result;
|
|
|
|
//
|
|
__asm{
|
|
push 3
|
|
pop eax
|
|
int 0x40
|
|
// mov result, eax
|
|
}
|
|
//
|
|
// return result;
|
|
}
|
|
|
|
static void __declspec(noinline) __fastcall kos_sysfunc4(Dword _ecx, const char* _edx, Dword _ebx, Dword _esi)
|
|
{
|
|
__asm push 4
|
|
__asm pop eax
|
|
__asm mov ebx, [_ebx]
|
|
__asm mov esi, [_esi]
|
|
__asm int 0x40
|
|
}
|
|
|
|
// ôóíêöèÿ 4
|
|
void kos_WriteTextToWindow(
|
|
Word x,
|
|
Word y,
|
|
Byte fontType,
|
|
Dword textColour,
|
|
const char *textPtr,
|
|
Dword textLen
|
|
)
|
|
{
|
|
Dword arg1, arg2;
|
|
|
|
//
|
|
arg1 = ( x << 16 ) | y;
|
|
arg2 = ( fontType << 24 ) | textColour;
|
|
//
|
|
kos_sysfunc4(arg2, textPtr, arg1, textLen);
|
|
}
|
|
|
|
|
|
// ôóíêöèÿ 5 ïàóçà, â ñîòûõ äîëÿõ ñåêóíäû
|
|
void kos_Pause( Dword value )
|
|
{
|
|
//
|
|
__asm{
|
|
push 5
|
|
pop eax
|
|
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{
|
|
push 7
|
|
pop eax
|
|
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{
|
|
push 8
|
|
pop eax
|
|
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{
|
|
push 9
|
|
pop eax
|
|
mov ebx, targetPtr
|
|
mov ecx, processID
|
|
int 0x40
|
|
// mov result, eax
|
|
}
|
|
//
|
|
// return result;
|
|
}
|
|
|
|
|
|
// ôóíêöèÿ 10
|
|
Dword kos_WaitForEvent()
|
|
{
|
|
// Dword result;
|
|
|
|
__asm{
|
|
push 10
|
|
pop eax
|
|
int 0x40
|
|
// mov result, eax
|
|
}
|
|
|
|
// return result;
|
|
}
|
|
|
|
|
|
// ôóíêöèÿ 11
|
|
Dword kos_CheckForEvent()
|
|
{
|
|
Dword result; //
|
|
|
|
__asm{
|
|
push 11
|
|
pop eax
|
|
int 0x40
|
|
mov result, eax //
|
|
}
|
|
|
|
return result; //
|
|
}
|
|
|
|
|
|
// ôóíêöèÿ 12
|
|
void kos_WindowRedrawStatus( Dword status )
|
|
{
|
|
__asm{
|
|
push 12
|
|
pop eax
|
|
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{
|
|
push 13
|
|
pop eax
|
|
mov ebx, arg1
|
|
mov ecx, arg2
|
|
mov edx, colour
|
|
int 0x40
|
|
}
|
|
}
|
|
|
|
|
|
// ôóíêöèÿ 17
|
|
bool kos_GetButtonID( Dword &buttonID )
|
|
{
|
|
Dword result;
|
|
|
|
//
|
|
__asm{
|
|
push 17
|
|
pop eax
|
|
int 0x40
|
|
mov result, eax
|
|
}
|
|
//
|
|
buttonID = result >> 8;
|
|
//
|
|
return (result & 0xFF) == 0;
|
|
}
|
|
|
|
|
|
// ôóíêöèÿ 23
|
|
Dword kos_WaitForEventTimeout( Dword timeOut )
|
|
{
|
|
// Dword result;
|
|
|
|
__asm{
|
|
push 23
|
|
pop eax
|
|
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{
|
|
push 37
|
|
pop eax
|
|
xor ebx, ebx
|
|
int 0x40
|
|
mov curY, ax
|
|
shr eax, 16
|
|
mov curX, ax
|
|
push 37
|
|
pop eax
|
|
push 2
|
|
pop ebx
|
|
int 0x40
|
|
mov mB, eax
|
|
}
|
|
//
|
|
kos_ProcessInfo( &sPI );
|
|
//
|
|
buttons = mB;
|
|
cursorX = curX - sPI.processInfo.x_start;
|
|
cursorY = curY - sPI.processInfo.y_start;
|
|
}
|
|
|
|
|
|
// ôóíêöèÿ 40 óñòàíîâèòü ìàñêó ñîáûòèé
|
|
void kos_SetMaskForEvents( Dword mask )
|
|
{
|
|
//
|
|
__asm{
|
|
push 40
|
|
pop eax
|
|
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{
|
|
push 47
|
|
pop eax
|
|
mov ebx, arg1
|
|
mov ecx, value
|
|
mov edx, arg2
|
|
mov esi, colour
|
|
int 0x40
|
|
}
|
|
}
|
|
|
|
|
|
// ôóíêöèÿ 70 äîñòóï ê ôàéëîâîé ñèñòåìå
|
|
Dword kos_FileSystemAccess( kosFileInfo *fileInfo )
|
|
{
|
|
// Dword result;
|
|
|
|
//
|
|
__asm{
|
|
push 70
|
|
pop eax
|
|
mov ebx, fileInfo
|
|
int 0x40
|
|
// mov result, eax
|
|
}
|
|
//
|
|
// return result;
|
|
}
|
|
|
|
|
|
// ôóíêöèÿ 63 âûâîä ñèìâîëÿ â îêíî îòëàäêè
|
|
void kos_DebugOutChar( char ccc )
|
|
{
|
|
//
|
|
__asm{
|
|
push 63
|
|
pop eax
|
|
push 1
|
|
pop ebx
|
|
mov cl, ccc
|
|
int 0x40
|
|
}
|
|
}
|
|
|
|
|
|
// ôóíêöèÿ 66 ðåæèì ïîëó÷åíèÿ äàííûõ îò êëàâèàòóðû
|
|
void kos_SetKeyboardDataMode( Dword mode )
|
|
{
|
|
//
|
|
__asm{
|
|
push 66
|
|
pop eax
|
|
push 1
|
|
pop ebx
|
|
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{
|
|
push 64
|
|
pop eax
|
|
push 1
|
|
pop ebx
|
|
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{
|
|
push 67
|
|
pop eax
|
|
mov ebx, x
|
|
mov ecx, y
|
|
mov edx, sizeX
|
|
mov esi, sizeY
|
|
int 0x40
|
|
}
|
|
}
|
|
|
|
void kos_InitHeap()
|
|
{
|
|
__asm{
|
|
push 68
|
|
pop eax
|
|
push 11
|
|
pop ebx
|
|
int 0x40
|
|
}
|
|
}
|
|
|
|
|
|
|
|
// âûçîâ ñòàòè÷åñêèõ èíèöèàëèçàòîðîâ
|
|
typedef void (__cdecl *_PVFV)(void);
|
|
extern "C" _PVFV __xc_a[];
|
|
extern "C" _PVFV __xc_z[];
|
|
#pragma comment(linker, "/merge:.CRT=.rdata")
|
|
//
|
|
void __cdecl crtStartUp()
|
|
{
|
|
#ifndef SMALLLIBC_NO_INIT
|
|
// âûçûâàåì èíèöèàëèçàòîðû ïî ñïèñêó
|
|
for ( _PVFV *pbegin = __xc_a; pbegin < __xc_z; pbegin++ )
|
|
{
|
|
//
|
|
(**pbegin)();
|
|
}
|
|
#endif
|
|
// èíèöèàëèçèðóåì ãåíåðàòîð ñëó÷àéíûõ ÷èñåë
|
|
// åñëè íàäî äëÿ ïðèëîæåíèÿ, äåëàòü ýòî â kos_Main()
|
|
//rtlSrand( kos_GetSystemClock() );
|
|
// âûçîâ ãëàâíîé ôóíêöèè ïðèëîæåíèÿ
|
|
kos_Main();
|
|
// âûõîä
|
|
kos_ExitApp();
|
|
}
|
|
|
|
|