forked from KolibriOS/kolibrios
8a77c84962
fptc: fix for Tab press when no field selected table 0.99: proper behaviour when cell is edited, use scancodes git-svn-id: svn://kolibrios.org@7507 a494cfbc-eb01-0410-851d-a64ba20cac60
978 lines
16 KiB
C++
978 lines
16 KiB
C++
#include "kosSyst.h"
|
|
#include "func.h"
|
|
#include <stdarg.h>
|
|
|
|
#define atexitBufferSize 32
|
|
|
|
// Autobuild uses FASM method for exe->kos,
|
|
// MENUET01 header should be present in EXE.
|
|
#ifdef AUTOBUILD
|
|
char kosExePath[1024];
|
|
char exeStack[16384];
|
|
// must be alphabetically first in the image
|
|
#pragma data_seg(".1seg")
|
|
extern "C" struct
|
|
{
|
|
char header[8];
|
|
int headerver;
|
|
void* entry;
|
|
void* i_end;
|
|
void* memsize;
|
|
void* stack;
|
|
void* params;
|
|
void* icon;
|
|
} header = {
|
|
{'M', 'E', 'N', 'U', 'E', 'T', '0', '1'},
|
|
1,
|
|
&crtStartUp,
|
|
0, // filled by doexe2.asm
|
|
0, // filled by doexe2.asm
|
|
exeStack + sizeof(exeStack),
|
|
NULL,
|
|
kosExePath
|
|
};
|
|
#pragma data_seg()
|
|
#else
|
|
char *kosExePath = NULL;
|
|
#endif
|
|
|
|
char pureCallMessage[] = "PURE function call!";
|
|
|
|
//
|
|
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;
|
|
}
|
|
|
|
//#ifdef AUTOBUILD
|
|
// Well, not really related to auto-build, but some compilation issue
|
|
void 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;
|
|
}
|
|
|
|
|
|
|
|
//////////////////////////////////////////////////////////////////////
|
|
//
|
|
// ïåðåâîä øåñòíàäöàòèðè÷íîãî ÷èñëà â ñèìâîë
|
|
//
|
|
|
|
unsigned int num2hex( unsigned int num )
|
|
{
|
|
if( num < 10 )
|
|
return num + '0';
|
|
return num - 10 + 'A';
|
|
}
|
|
|
|
|
|
//////////////////////////////////////////////////////////////////////
|
|
//
|
|
// âûâîä ñòðîêè íà ïå÷àòü. barsuk äîáàâèë %f
|
|
|
|
//#define PREC 2
|
|
//#define HALF 0.499
|
|
#define PREC 6
|
|
#define HALF 0.4999999
|
|
|
|
double double_tab[]={1e0, 1e1, 1e2, 1e3, 1e4, 1e5, 1e6, 1e7, 1e8, 1e9, 1e10, 1e11, 1e12, 1e13, 1e14, 1e15,
|
|
1e16, 1e17, 1e18, 1e19, 1e20, 1e21, 1e22, 1e23, 1e24, 1e25, 1e26, 1e27, 1e28, 1e29, 1e30};
|
|
|
|
|
|
//
|
|
|
|
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;
|
|
// âåùåñòâåííîå ÷èñëî â ôîðìàòå 7.2
|
|
case 'f':
|
|
case 'F':
|
|
case 'g':
|
|
case 'G':
|
|
{
|
|
double val, w;
|
|
int p;
|
|
val = va_arg(arglist, double);
|
|
if (val < 0.0)
|
|
{
|
|
Str[j++] = '-';
|
|
val = -val;
|
|
}
|
|
for (k = 0; k < 30; k++)
|
|
if (val < double_tab[k])
|
|
break;
|
|
|
|
if (val < 1.0)
|
|
{
|
|
Str[j++] = '0';
|
|
}
|
|
|
|
for (p = 1; p < k + 1; p++)
|
|
{
|
|
int d = (int)di(val / double_tab[k - p] - HALF) % 10;
|
|
Str[j++] = '0' + d;
|
|
val -= d * double_tab[k - p];
|
|
}
|
|
Str[j++] = '.';
|
|
w = 0.1;
|
|
for (p = 0; p < PREC - 1; p++)
|
|
{
|
|
val-=floor(val);
|
|
Str[j++] = '0' + di(val / w - HALF) % 10;
|
|
w /= 10.0;
|
|
}
|
|
}
|
|
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;
|
|
}
|
|
|
|
|
|
// function -1 çàâåðøåíèÿ ïðîöåññà
|
|
void kos_ExitApp()
|
|
{
|
|
int i;
|
|
|
|
//
|
|
for ( i = atExitFnNum - 1; i >= 0; i-- )
|
|
{
|
|
//
|
|
atExitList[i]();
|
|
}
|
|
//
|
|
__asm{
|
|
mov eax, -1
|
|
int 0x40
|
|
}
|
|
}
|
|
|
|
|
|
// function 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
|
|
}
|
|
}
|
|
|
|
|
|
// function 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
|
|
}
|
|
}
|
|
|
|
bool kos_GetKeys( Dword &key_editbox, Byte &key_ascii, Byte &key_scancode )
|
|
{
|
|
Dword result;
|
|
__asm{
|
|
mov eax, 2
|
|
int 0x40
|
|
mov result, eax
|
|
}
|
|
key_editbox = result;
|
|
key_ascii = result >> 8;
|
|
key_scancode = result >> 16;
|
|
return ( key_ascii ) == 0;
|
|
}
|
|
|
|
// function 3 ïîëó÷èòü âðåìÿ
|
|
Dword kos_GetSystemClock()
|
|
{
|
|
// Dword result;
|
|
|
|
//
|
|
__asm{
|
|
mov eax, 3
|
|
int 0x40
|
|
// mov result, eax
|
|
}
|
|
//
|
|
// return result;
|
|
}
|
|
|
|
|
|
// function 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
|
|
}
|
|
}
|
|
|
|
|
|
// function 5 ïàóçà, â ñîòûõ äîëÿõ ñåêóíäû
|
|
void kos_Pause( Dword value )
|
|
{
|
|
//
|
|
__asm{
|
|
mov eax, 5
|
|
mov ebx, value
|
|
int 0x40
|
|
}
|
|
}
|
|
|
|
|
|
// function 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
|
|
}
|
|
}
|
|
|
|
|
|
|
|
// function 8 îïðåäåëèòü êíîïêó
|
|
void kos_DefineButton( Word x, Word y, Word sizeX, Word sizeY, Dword buttonID, Dword colour )
|
|
{
|
|
kos_UnsaveDefineButton(NULL, NULL, NULL, NULL, buttonID+BT_DEL, NULL);
|
|
kos_UnsaveDefineButton(x, y, sizeX, sizeY, buttonID, colour);
|
|
}
|
|
|
|
//
|
|
void kos_UnsaveDefineButton( 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
|
|
}
|
|
}
|
|
|
|
|
|
// function 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;
|
|
}
|
|
|
|
|
|
// function 10
|
|
Dword kos_WaitForEvent()
|
|
{
|
|
// Dword result;
|
|
|
|
__asm{
|
|
mov eax, 10
|
|
int 0x40
|
|
// mov result, eax
|
|
}
|
|
|
|
// return result;
|
|
}
|
|
|
|
|
|
// function 11
|
|
Dword kos_CheckForEvent()
|
|
{
|
|
// Dword result;
|
|
|
|
__asm{
|
|
mov eax, 11
|
|
int 0x40
|
|
// mov result, eax
|
|
}
|
|
|
|
// return result;
|
|
}
|
|
|
|
|
|
// function 12
|
|
void kos_WindowRedrawStatus( Dword status )
|
|
{
|
|
__asm{
|
|
mov eax, 12
|
|
mov ebx, status
|
|
int 0x40
|
|
}
|
|
}
|
|
|
|
|
|
// function 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
|
|
}
|
|
}
|
|
|
|
|
|
// function 17
|
|
bool kos_GetButtonID( Dword &buttonID )
|
|
{
|
|
Dword result;
|
|
|
|
//
|
|
__asm{
|
|
mov eax, 17
|
|
int 0x40
|
|
mov result, eax
|
|
}
|
|
//
|
|
buttonID = result >> 8;
|
|
//
|
|
return (result & 0xFF) == 0;
|
|
}
|
|
|
|
|
|
// function 23
|
|
Dword kos_WaitForEventTimeout( Dword timeOut )
|
|
{
|
|
// Dword result;
|
|
|
|
__asm{
|
|
mov eax, 23
|
|
mov ebx, timeOut
|
|
int 0x40
|
|
// mov result, eax
|
|
}
|
|
|
|
// return result;
|
|
}
|
|
|
|
|
|
// ïîëó÷åíèå èíôîðìàöèè î ñîñòîÿíèè "ìûøè" function 37
|
|
void kos_GetMouseState( Dword & buttons, int & cursorX, int & cursorY )
|
|
{
|
|
Dword mB;
|
|
Word curX;
|
|
Word curY;
|
|
sProcessInfo sPI;
|
|
|
|
//
|
|
__asm{
|
|
mov eax, 37
|
|
mov ebx, 0
|
|
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.x_start;
|
|
cursorY = curY - sPI.processInfo.y_start;
|
|
}
|
|
|
|
// function 38
|
|
void kos_DrawLine( Word x1, Word y1, Word x2, Word y2, Dword colour, Dword invert )
|
|
{
|
|
Dword arg1, arg2, arg3;
|
|
|
|
//
|
|
arg1 = ( x1 << 16 ) | x2;
|
|
arg2 = ( y1 << 16 ) | y2;
|
|
arg3 = (invert)?0x01000000:colour;
|
|
//
|
|
__asm{
|
|
mov eax, 38
|
|
mov ebx, arg1
|
|
mov ecx, arg2
|
|
mov edx, arg3
|
|
int 0x40
|
|
}
|
|
}
|
|
|
|
// function 40 óñòàíîâèòü ìàñêó ñîáûòèé
|
|
void kos_SetMaskForEvents( Dword mask )
|
|
{
|
|
//
|
|
__asm{
|
|
mov eax, 40
|
|
mov ebx, mask
|
|
int 0x40
|
|
}
|
|
}
|
|
|
|
|
|
// function 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
|
|
}
|
|
}
|
|
|
|
// 48.3: get system colors
|
|
bool kos_GetSystemColors( kosSysColors *sc )
|
|
{
|
|
__asm{
|
|
mov eax, 48
|
|
mov ebx, 3
|
|
mov ecx, sc
|
|
mov edx, 40
|
|
int 0x40
|
|
}
|
|
}
|
|
|
|
|
|
// function 63 âûâîä ñèìâîëÿ â îêíî îòëàäêè
|
|
void kos_DebugOutChar( char ccc )
|
|
{
|
|
__asm{
|
|
mov eax, 63
|
|
mov ebx, 1
|
|
mov cl, ccc
|
|
int 0x40
|
|
}
|
|
}
|
|
|
|
|
|
// function 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 );
|
|
}
|
|
|
|
void kos_DebugValue(char *str, int n)
|
|
{
|
|
char debuf[50];
|
|
sprintf(debuf, "%S: %U", str, n);
|
|
rtlDebugOutString(debuf);
|
|
}
|
|
|
|
|
|
// function 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;
|
|
}
|
|
|
|
|
|
// function 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
|
|
}
|
|
}
|
|
|
|
// 68.11: init heap
|
|
void kos_InitHeap()
|
|
{
|
|
__asm{
|
|
mov eax, 68
|
|
mov ebx, 11
|
|
int 0x40
|
|
}
|
|
}
|
|
|
|
// function 70 äîñòóï ê ôàéëîâîé ñèñòåìå
|
|
Dword kos_FileSystemAccess( kosFileInfo *fileInfo )
|
|
{
|
|
__asm{
|
|
mov eax, 70
|
|
mov ebx, fileInfo
|
|
int 0x40
|
|
}
|
|
}
|
|
|
|
// 70.7: run Kolibri application with param
|
|
int kos_AppRun(char* app_path, char* param)
|
|
{
|
|
kosFileInfo fileInfo;
|
|
fileInfo.rwMode = 7;
|
|
fileInfo.OffsetLow = 0;
|
|
fileInfo.OffsetHigh = param;
|
|
fileInfo.dataCount = 0;
|
|
fileInfo.bufferPtr = 0;
|
|
strcpy(fileInfo.fileURL, app_path);
|
|
return kos_FileSystemAccess(&fileInfo);
|
|
}
|
|
|
|
|
|
// âûçîâ àáñòðàêòíîãî ìåòîäà
|
|
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 };
|
|
//
|
|
extern void ALMOST_HALF_init();
|
|
#pragma comment(linker, "/merge:.CRT=.rdata")
|
|
//
|
|
void crtStartUp()
|
|
{
|
|
#ifdef AUTOBUILD
|
|
// linker will try to remove unused variables; force header to be included
|
|
header.header;
|
|
#endif
|
|
// âûçûâàåì èíèöèàëèçàòîðû ïî ñïèñêó, NULL'û èãíîðèðóåì
|
|
/*for ( _PVFV *pbegin = __xc_a; pbegin < __xc_z; pbegin++ )
|
|
{
|
|
//
|
|
if ( *pbegin != NULL )
|
|
(**pbegin)();
|
|
}*/
|
|
ALMOST_HALF_init();
|
|
// èíèöèàëèçèðóåì ãåíåðàòîð ñëó÷àéíûõ ÷èñåë
|
|
rtlSrand( kos_GetSystemClock() );
|
|
#ifndef AUTOBUILD
|
|
// ïóòü ê ôàéëó ïðîöåññà
|
|
kosExePath = *((char **)0x20);
|
|
#endif
|
|
// âûçîâ ãëàâíîé ôóíêöèè ïðèëîæåíèÿ
|
|
kos_Main();
|
|
// âûõîä
|
|
kos_ExitApp();
|
|
}
|
|
|
|
|