kolibrios/programs/other/outdated/clip/trunk/cliptest.ASM

; <--- description --->
; compiler:     FASM
; name:         Clipboard Client Demo
; version:      0.1
; author:       barsuk


; <--- include all MeOS stuff --->
include "lang.inc"
include "..\..\..\..\macros.inc"

TEST_SIZE = 100000	; ¤®«¦­® ¤¥«¨âìáï ­  4

IPC_buffer_size = TEST_SIZE + 0x10
MAX_BUFFER = TEST_SIZE + 0x10

SEND_DELAY = 10
RECV_DELAY = 100

ATTEMPT = 5		; ç¨á«® ¯®¯ë⮪ ®â¯à ¢¨âì á®®¡é¥­¨¥ ¤¥¬®­ã, ¥á«¨
			; ®­ § ­ïâ

; <--- start of MenuetOS application --->
MEOS_APP_START

define DEBUG TRUE
include "bdebug.inc"

include "clip.inc"

; <--- start of code --->
CODE


;;;	This is the entry point of the program

begin:

print	"clipboard testing module loaded"

	mov	eax, 5
	mov	ebx, 100		; 5 sec
	int	0x40

	call	clipboard_init
	or	eax, eax
	jz	.err

	; put the data into clip_buffer

	mov	esi, test_line
	mov	edi, cb.data
	mov	ecx, cb.size
	rep	movsb

print	"init ok. @clip found."

	mov	esi, cb
	mov	eax, 2
	call	clipboard_write
	or	eax, eax
	jz	.err

print 	"write test ok."

; á«¥£ª  ®ç¨á⨬ ¡ãä¥à, ¤«ï ­ ¤¥¦­®á⨠¯à®¢¥àª¨

	mov	dword [cb.data], 0

;jmp .exit
	mov	eax, 3			; try to read bad data
	mov	esi, cb
	mov	edx, 7
	call	clipboard_read
	or	eax, eax
	jz	.bad2
	cmp	eax, -1
	jz	.err

.bad2:
print "unset data read ok 1."
	mov	eax, 88			; -"-
	mov	esi, cb
	mov	edx, 7
	call	clipboard_read
	or	eax, eax
	jz	.bad3
	cmp	eax, -1
	jz	.err

.bad3:
print "unset data read ok 2."

.read:
	mov	eax, 2
	mov	esi, cb
	mov	edx, 7
	call	clipboard_read		; read the string we've written
	or	eax, eax
	jz	.err
	cmp	eax, -1
	jz	.err

print	"read ok o_O, data:"
outs cb.data
print ""

	mov	eax, 5
	mov	ebx, 200
	int	0x40


; ¯®á«¥¤­ïï ¯à®¢¥àª  - ­  à¥á ©§ ¡ãä¥à .   ¨¬¥­­®, ¢®§ì¬¥¬ ¬­®£® ¤ ­­ëå
; ¨ ¯à®ª ç ¥¬ ¨å ç¥à¥§ ¡ãä¥à

	mov	eax, 68
	mov	ebx, 11
	int	0x40

	mov	eax, 68
	mov	ebx, 12
	mov	ecx, TEST_SIZE + 12
	int	0x40
	mov	[mega_buf], eax

	mov	dword [eax], TEST_SIZE

	lea	edx, [eax + 12]
	mov	eax, 12131415
	shr	ecx, 2
.loop:
	mov	[edx], eax
	add	edx, 4
	dec	ecx
	jnz	.loop

print "mega buffer allocated and filled"

	; now write it

	mov	esi, [mega_buf]
	mov	eax, 69
	call	clipboard_write
	or	eax, eax
	jz	.err

print "mega buffer written"
	mov	eax, 5
	mov	ebx, 100
	int	0x40

	; clear it.

	mov	edx, [mega_buf]
	add	edx, 12
	xor	eax, eax
	mov	ecx, TEST_SIZE/4
.loopc:
	mov	[edx], eax
	add	edx, 4
	dec	ecx
	jnz	.loopc

	; now read

	mov	eax, 69
	mov	esi, [mega_buf]
	mov	edx, 7
	call	clipboard_read		; read the string we've written
	or	eax, eax
	jz	.err
	cmp	eax, -1
	jz	.err

print "mega buf read"

	; now compare

	mov	edx, [mega_buf]
	add	edx, 12
	mov	eax, 12131415
	mov	ecx, TEST_SIZE/4
.loopm:
	cmp	eax, [edx]
	jnz	.err
	add	edx, 4
	dec	ecx
	jnz 	.loopm

print "deleting mega buf"

	mov	eax, 69
	call	clipboard_delete
	or	eax, eax
	jz	.err

	mov	eax, 5
	mov	ebx, 100
	int	0x40

print "if read error then all is ok"

	mov	eax, 69
	mov	esi, [mega_buf]
	mov	edx, 7
	call	clipboard_read		; read the string we've written
	or	eax, eax
	jz	.reading
	jmp	.err

.reading:

print "test complete!"

.exit:
	or	eax, -1
	int	0x40

.err:
print	"error!"
	jmp	.exit


; <--- initialised data --->
DATA

	CLIP_BUFFER	cb, 256

;	in_buf		db	256 dup(0)
;	out_buf		db 	'Cthulhu Fhtagn',0

	test_line 	db	'Cthulhu Fhtagn',0
	mega_buf	dd	0

; <--- uninitialised data --->
UDATA


MEOS_APP_END
; <--- end of MenuetOS application --->