forked from KolibriOS/kolibrios
118 lines
2.7 KiB
PHP
118 lines
2.7 KiB
PHP
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
;; ;;
|
||
|
;; Copyright (C) KolibriOS team 2020-2020. All rights reserved. ;;
|
||
|
;; Distributed under terms of the GNU General Public License. ;;
|
||
|
;; Version 2, or (at your option) any later version. ;;
|
||
|
;; ;;
|
||
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
|
||
|
$Revision$
|
||
|
|
||
|
unicode.utf8.decode:
|
||
|
test ecx, ecx
|
||
|
jz .error
|
||
|
movzx eax, byte[esi]
|
||
|
test al, al
|
||
|
jns .read1
|
||
|
shl al, 2
|
||
|
jnc .error
|
||
|
shl al, 1
|
||
|
jnc .read2
|
||
|
shl al, 1
|
||
|
jnc .read3
|
||
|
shl al, 1
|
||
|
jnc .read4
|
||
|
jmp .error
|
||
|
.read1:
|
||
|
sub ecx, 1
|
||
|
add esi, 1
|
||
|
jmp .done
|
||
|
.read2:
|
||
|
cmp ecx, 2
|
||
|
jb .error
|
||
|
shl eax, 5
|
||
|
mov al, [esi+1]
|
||
|
shl al, 1
|
||
|
jnc .error
|
||
|
shl al, 1
|
||
|
jc .error
|
||
|
shr eax, 2
|
||
|
sub ecx, 2
|
||
|
add esi, 2
|
||
|
jmp .done
|
||
|
.read3:
|
||
|
cmp ecx, 3
|
||
|
jb .error
|
||
|
shl eax, 4
|
||
|
mov al, [esi+1]
|
||
|
shl al, 1
|
||
|
jnc .error
|
||
|
shl al, 1
|
||
|
jc .error
|
||
|
shl eax, 6
|
||
|
mov al, [esi+2]
|
||
|
shl al, 1
|
||
|
jnc .error
|
||
|
shl al, 1
|
||
|
jc .error
|
||
|
shr eax, 2
|
||
|
sub ecx, 3
|
||
|
add esi, 3
|
||
|
jmp .done
|
||
|
.read4:
|
||
|
cmp ecx, 4
|
||
|
jb .error
|
||
|
shl eax, 3
|
||
|
mov al, [esi+1]
|
||
|
shl al, 1
|
||
|
jnc .error
|
||
|
shl al, 1
|
||
|
jc .error
|
||
|
shl eax, 6
|
||
|
mov al, [esi+2]
|
||
|
shl al, 1
|
||
|
jnc .error
|
||
|
shl al, 1
|
||
|
jc .error
|
||
|
shl eax, 6
|
||
|
mov al, [esi+3]
|
||
|
shl al, 1
|
||
|
jnc .error
|
||
|
shl al, 1
|
||
|
jc .error
|
||
|
shr eax, 2
|
||
|
sub ecx, 4
|
||
|
add esi, 4
|
||
|
jmp .done
|
||
|
.error:
|
||
|
.done:
|
||
|
ret
|
||
|
|
||
|
|
||
|
unicode.cp866.encode:
|
||
|
call uni2ansi_char
|
||
|
ret
|
||
|
|
||
|
|
||
|
unicode.utf16.encode:
|
||
|
cmp eax, 0x110000
|
||
|
jae .error
|
||
|
cmp eax, 0x10000
|
||
|
jae .write2
|
||
|
cmp eax, 0xe000
|
||
|
jae .write1
|
||
|
cmp eax, 0xd800
|
||
|
jb .write1
|
||
|
jmp .error
|
||
|
.write1:
|
||
|
jmp .done
|
||
|
.write2:
|
||
|
sub eax, 0x10000
|
||
|
shl eax, 6
|
||
|
shr ax, 6
|
||
|
or eax, 0xdc00d800
|
||
|
jmp .done
|
||
|
.done:
|
||
|
.error:
|
||
|
ret
|