WebSVN – Kolibri OS – Diff – /programs/network/htmlv/lib/kolibri.h--

 #define OLD		-1
 #define true		1
 #define false		0
 //-------------------------------------------------------------------------
+struct mouse
 struct mouse{
- dword x,y,lkm,pkm,hor,vert;
+	dword x,y,lkm,pkm,hor,vert;
- void get();
+	void get();
 };
 	//hor = EAX;
 	vert = EBX;
+}
 struct system_colors
 struct system_colors{
 	dword frame,grab,grab_button,grab_button_text,grab_text,work,work_button,work_button_text,work_text,work_graph;
+	void get();
-	void get();
+};
 };
 void system_colors::get()
+{
 	EAX = 48;
 	$int 0x40
+}
 //------------------------------------------------------------------------------
 inline fastcall dword WaitEvent()
 inline fastcall dword WaitEvent(){
 	$mov eax,10
 	$int 0x40
+}
 inline fastcall dword CheckEvent()
 inline fastcall dword CheckEvent(){
 	$mov eax,11
+	$int 0x40
 	$int 0x40
 inline fastcall dword WaitEventTimeout( EBX)
-inline fastcall dword WaitEventTimeout(dword EBX){
+{
 	$mov eax,23
 	$int 0x40
+}
 	$mov ecx,1 //áª ª®¤ë
 	$int 0x40
+}
 inline fastcall word GetKey()  //+Gluk fix
 inline fastcall word GetKey(){ //Gluk fix
 		$push edx
 @getkey:
 		$mov  eax,2
 		$pop edx
 		$shr eax,8
+}
-inline fastcall Pause(dword EBX)
+inline fastcall Pause( EBX)
 {					// ã§ , ¢ á®âëå ¤®«ïå á¥ªã¤ë EBX = value
 	$mov eax, 5
 	$int 0x40
 }
 //------------------------------------------------------------------------------
 //==================================================================
 inline fastcall word GetButtonID()
 inline fastcall word GetButtonID(){
 	$mov eax,17
+	$int  0x40
+	$shr eax,8
 	$int  0x40
 	$shr eax,8
 struct proc_info
+{
-struct proc_info{
+	#define SelfInfo -1
 	dword	use_cpu;
 	word	pos_in_stack,num_slot,rezerv1;
 	char	name[11];
 	char	rezerv2;
 	dword	adress,use_memory,ID,left,top,width,height;
-	word	status_slot,rezerv3;
-	dword	work_left,work_top,work_width,work_height;
+	word	status_slot,rezerv3;
-	char	status_window;
+	dword	work_left,work_top,work_width,work_height;
-	void	GetInfo(dword ECX);
+	char	status_window;
-	byte    reserved[1024-71];
+	void	GetInfo( ECX);
-#define SelfInfo -1
+	byte    reserved[1024-71];
 };
 	EBX = 7;
 	$int 0x40
+}
 inline fastcall ExitProcess()
 inline fastcall ExitProcess(){
 	$mov eax,-1;
 	$int 0x40
+}
 inline fastcall int KillProcess( ECX)
 inline fastcall int KillProcess(dword ECX){
 	$mov eax,18;
 	$mov ebx,18;
 	$int 0x40
 }
 //------------------------------------------------------------------------------
 //==================================================================
 //eax = ÿçûê ñèñòåìû (1=eng, 2=fi, 3=ger, 4=rus)
-//eax = ÿçûê ñèñòåìû (1=eng, 2=fi, 3=ger, 4=rus)
-inline fastcall int GetSystemLanguage(){
+inline fastcall int GetSystemLanguage()
- EAX = 26;
+{
- EBX = 5;
+	EAX = 26;
- $int 0x40
+	EBX = 5;
- RETURN EAX;
+	$int 0x40
+}
 	$int 0x40
 	$shr eax, 16
 	$and eax,0x0000FFFF
+}
-inline fastcall MoveSize(dword EBX,ECX,EDX,ESI)
+inline fastcall MoveSize( EBX,ECX,EDX,ESI)
+{
 	EAX = 67;
 	$int 0x40
 }
-inline fastcall dword LoadLibrary(dword ECX)
+inline fastcall dword LoadLibrary( ECX)
+{
 	$mov eax, 68
 	$mov ebx, 19
 	$int  0x40
 }
 //------------------------------------------------------------------------------
-//------------------------------------------------------------------------------
+inline fastcall dword strlen( EDI)
 inline fastcall dword strlen(dword EDI){
 	EAX=0;
 	ECX=-1;
+	$REPNE $SCASB
-	$REPNE $SCASB
+	EAX-=2+ECX;
 	EAX-=2+ECX;
-inline fastcall copystr(dword ESI,EDI)
+inline fastcall strcpy( EDI, ESI)
+{
 	$cld
-l1:
+l2:
 	$lodsb
-	$stosb
-	$test al,al
+	$stosb
-	$jnz l1
+	$test al,al
+	$jnz l2
+}
+inline fastcall strcat( EDI, ESI)
+{
+  asm {
+    MOV EBX, EDI
+    XOR ECX, ECX
+    XOR EAX, EAX
+    DEC ECX
+    REPNE SCASB
+    DEC EDI
+    MOV EDX, EDI
+    MOV EDI, ESI
+    XOR ECX, ECX
+    XOR EAX, EAX
+    DEC ECX
-}
+    REPNE SCASB
+    XOR ECX, 0FFFFFFFFH
+    MOV EDI, EDX
+    MOV EDX, ECX
+    MOV EAX, EDI
+    SHR ECX, 2
+    REP MOVSD
     MOV ECX, EDX
-byte fastcall TestBit(EAX, CL)
+    AND ECX, 3
-{
+    REP MOVSB
-	$shr eax,cl
+    MOV EAX, EBX
 	$and eax,1
+}
 char buffer[11]="";
 	} while(AL!=0);
 	return last;
+}
-inline fastcall dword upcase(dword ESI)
+inline fastcall dword upcase( ESI)
+{
 	do{
 		AL=DSBYTE[ESI];
 			CONTINUE;
+		}
 	}while(AL!=0);
+}
+byte fastcall TestBit( EAX, CL)
+{
+	$shr eax,cl
+	$and eax,1
+}
+//------------------------------------------------------------------------------
 void DefineAndDrawWindow(dword x,y,sizeX,sizeY,byte mainAreaType,dword mainAreaColour,byte headerType,dword headerColour,EDI)
+{
 	EBX = 2;
 	$int 0x40
+}
-inline fastcall int CreateThread(dword ECX,EDX)
+inline fastcall int CreateThread( ECX,EDX)
+{
 	EAX = 51;
 	EBX = 1;
 	$int 0x40
+}
-inline fastcall int GetSlot(dword ECX)
+inline fastcall int GetSlot( ECX)
+{
 	EAX = 18;
 	EDX = x<<16+y;
 	EBP = 0;
 	$int 0x40
+}
+inline fastcall void PutPixel( EBX,ECX,EDX)
 inline fastcall void PutPixel(dword EBX,ECX,EDX){
   EAX=1;
   $int 0x40
+}
 	ECX = y<<16+h;
  	$pop edx
 	$int 0x40
+}
-inline fastcall void DeleteButton(dword EDX)
+inline fastcall void DeleteButton( EDX)
+{
 	EAX = 8;
 	EDX += BT_DEL;
 	$int 0x40;
+	}
+}
 //------------------------------------------------------------------------------
-inline fastcall void debug(dword EDX)
+inline fastcall void debug( EDX)
+{
 	$push ebx
 	$push ecx

Subversion Repositories Kolibri OS

(root)/programs/network/htmlv/lib/kolibri.h-- – Rev 2803 → 2810