Board.KolibriOS.org

Code: Select all

include "MACROS.INC"
include "PROC32.INC"

struc FORARCH StructSize, kfar_ver, open, open2, read, write, seek, tell, flush, filesize, close, pgalloc, pgrealloc, pgfree, getfreemem, pgalloc2, pgrealloc2, pgfree2, menu, menu_centered_in, DialogBox, SayErr, Message, hzchto{
	.StructSize			dd StructSize	
	.kfar_ver			dd kfar_ver		
									
	.open				dd open 		
	.open2				dd open2		
	.read				dd read 		
	.write				dd write		
	.seek				dd seek 		
	.tell				dd tell 		
	.flush				dd flush		
	.filesize			dd filesize		
	.close				dd close		
									
	.pgalloc			dd pgalloc		
	.pgrealloc			dd pgrealloc	
	.pgfree 			dd pgfree		
	.getfreemem			dd getfreemem	
	.pgalloc2			dd pgalloc2		
	.pgrealloc2			dd pgrealloc2	
	.pgfree2			dd pgfree2      
									
	.menu				dd menu
	.menu_centered_in	dd menu_centered_in
	.DialogBox			dd DialogBox
	.SayErr 			dd SayErr
	.Message			dd Message
	.hzchto 			dd hzchto
	}

MEOS_APP_START

CODE
mcall 68, 19, arch
mov ebx, [eax+open*8+4]
mov [info.open], ebx
mov ebx, [eax+read*8+4]
mov [info.read], ebx
mov ebx, [eax+close*8+4]
mov [info.close], ebx
stdcall dword [eax+plugin_load*8+4], info
mcall -1

DATA
version 			= 0
plugin_load			= 1
OpenFilePlugin		= 2
ClosePlugin			= 3
ReadFolder			= 4
SetFolder			= 5
GetFiles			= 6
GetOpenPluginInfo	= 7
getattr 			= 8
open				= 9
read				= 10
setpos				= 11
close				= 12
deflate_unpack		= 13
deflate_unpack2 	= 14
arch	db '/rd/1/Lib/Archiver.obj', 0
info	FORARCH 96, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
UDATA

MEOS_APP_END