Subversion Repositories Kolibri OS

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;                                                                 ;;

;; Copyright (C) KolibriOS team 2004-2014. All rights reserved.    ;;

;; Distributed under terms of the GNU General Public License       ;;

;;                                                                 ;;

;;   Written by hidnplayr@kolibrios.org                            ;;

;;                                                                 ;;

;;         GNU GENERAL PUBLIC LICENSE                              ;;

;;          Version 2, June 1991                                   ;;

;;                                                                 ;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; window_create_textbox

; Initialises the data structure for our multiline textbox

;

; in:   window ptr in ebx

; out:  eax = 0 on error

;       ecx, edi = destroyed

window_create_textbox:

	push	ebx

; allocate the window data block

	mcall	68, 12, sizeof.window_data

	test	eax, eax

	pop	ebx

	jz	.fail

; fill it with all zeros

	push	eax

	mov	edi, eax

	mov	ecx, (sizeof.window_data+3)/4

	xor	eax, eax

	rep	stosd

	pop	eax

	mov	[ebx + window.data_ptr], eax

	mov	[ebx + window.flags], 0

	or	[ebx + window.flags], FLAG_SCROLL_LOW

	add	eax, window_data.text+2 	; let text begin at offset 2, this way the text will be prepended with two null bytes

	mov	[ebx + window.text_start], eax

	mov	[ebx + window.text_print], eax

	mov	[ebx + window.text_write], eax

	mov	[ebx + window.text_scanned], eax

	mov	[ebx + window.text_lines], 0

	mov	[ebx + window.text_line_print], 0

	add	eax, TEXT_BUFFERSIZE-1

	mov	[ebx + window.text_end], eax

  .fail:

	ret

; window_set_name

; Fills in the window name in window structure

;

; IN:   esi = ptr to name

;       ebx = window ptr

; OUT:  esi = ptr to next parameter

;       ebx = window ptr

;       eax, ecx, edx, edi = destroyed

window_set_name:

	lea	edi, [ebx + window.name]

	mov	ecx, MAX_WINDOWNAME_LEN

  .loop:

	lodsb

	cmp	al, 0x21	; name ends with 0, space or !

	jbe	.addzero

	stosb

	dec	ecx

	jnz	.loop

  .addzero:

	xor	al, al

	stosb

	push	esi ebx

	call	draw_windowtabs

	pop	ebx esi

	ret

window_close:	; closes the 'print' window

; Remove the window (overwrite current structure with trailing ones)

	mov	edi, [window_print]

	push	[edi + window.data_ptr] 	; remember data ptr so we can free it later

	lea	esi, [edi + sizeof.window]

	mov	ecx, windows + MAX_WINDOWS*sizeof.window

	sub	ecx, esi

	rep	movsb

; Completely zero the trailing window block (there will always be one!)

	mov	ecx, sizeof.window

	xor	al, al

	rep	stosb

; free the window data block

	pop	ecx

	mcall	68, 13

; We closed this window so we need to show another

	mov	edi, [window_active]

	cmp	[edi + window.data_ptr], 0

	jne	@f

	sub	edi, sizeof.window

	mov	[window_active], edi

	mov	[window_print], edi  ;;;;;;;;

  @@:

; At last, redraw everything

	call	draw_window

	ret

; window_find:

; search for a window with given name in the window list

;

; IN:   esi = ptr to start of window name

; OUT:  ebx = window ptr, or 0 if none found

;       esi = ptr to end of window name, if window was found

window_find:

	mov	ebx, windows

	mov	eax, MAX_WINDOWS

  .scanloop:

	push	esi

	cmp	[ebx + window.type], WINDOWTYPE_NONE

	je	.try_next

	lea	edi, [ebx + window.name]

	mov	ecx, MAX_WINDOWNAME_LEN

	repe	cmpsb

	cmp	byte[edi-1], 0		; last equall character was null? yes, the strings match!

	je	.got_it

	cmp	byte[edi], 0		; we're at the end of string1.. ?

	jne	.try_next

	cmp	byte[esi], 0x21 	; and the end of string2? yes!

	jbe	.got_it

  .try_next:

	pop	esi

	add	ebx, sizeof.window

	dec	eax

	jnz	.scanloop

	xor	ebx, ebx

	ret

  .got_it:

	add	esp, 4

	ret

; window_open:

; open a window with a given name, if it does not exist, create it

; This procedure only affects window_print ptr, not window_active!

;

; IN:   esi = ptr to ASCIIZ windowname

; OUT:  esi = ptr to next parameter

;       ebx = window ptr/0 on error

window_open:

; Skip heading spaces

	lodsb

	cmp	al, ' '

	je	window_open

	cmp	al, ':'

	je	window_open

	dec	esi

	call	window_find

	test	ebx, ebx

	jnz	.got_it

; create channel window - search for empty slot

  .create_it:

	mov	ebx, windows

	mov	ecx, MAX_WINDOWS

  .scanloop2:

	cmp	[ebx + window.type], WINDOWTYPE_NONE

	je	.free_found

	add	ebx, sizeof.window

	dec	ecx

	jnz	.scanloop2

	jmp	.error

  .free_found:

	call	window_create_textbox

	test	eax, eax

	jz	.error

	mov	[ebx + window.type], WINDOWTYPE_CHAT	; FIXME: let caller handle this ?

	call	window_set_name

  .got_it:

	lodsb

	cmp	al, ' '

	je	.got_it

	cmp	al, ':'

	je	.got_it

	dec	esi

	mov	[window_print], ebx

	ret

  .error:

	xor	ebx, ebx

	ret