Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 6595 → Rev 6596

/programs/network/ircc/ircc.asm
13,7 → 13,7
;; ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
version equ '0.28'
version equ '0.29'
 
; connection status
STATUS_DISCONNECTED = 0
/programs/network/ircc/textbox.inc
23,9 → 23,8
.more:
dec ecx
jz .end_of_line
.next_byte:
lodsb ; get one character of the string
test al, 0x80
jnz .multiball!
test al, al ; end of string?
jz .almost_done
cmp al, ' ' ; it's a space! remember its position
33,7 → 32,12
cmp al, 13 ; we already inserted a newline once, make it a space again
je .soft_nl
cmp al, 10 ; it's a newline, continue onto the next line
jne .more
je .newline
and al, 0xc0 ; Is it a multi byte UTF8 char?
cmp al, 0x80
je .next_byte
jmp .more
.newline:
inc edx
jmp .next_line
.soft_nl:
54,20 → 58,7
 
ret
 
.multiball!:
add esi, 4
and al, 11111000b
cmp al, 11110000b
je .more
dec esi
and al, 11110000b
cmp al, 11100000b
je .more
dec esi
jmp .more
 
 
 
;----------------------------------
; scan untill next line is reached
;
86,13 → 77,14
je .done
cmp al, 13
je .done
and al, 0xc0
cmp al, 0x80
je .loop ; This byte is the second, third or fourth byte of a multi-byte UTF8 char
dec ecx
jnz .loop
.done:
 
ret
 
 
;----------------------------------
; print string
;