forked from KolibriOS/kolibrios
charset.obj src added
git-svn-id: svn://kolibrios.org@2328 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Albom
parent
8ffe856896
commit
6bd8780b1a
170
programs/develop/libraries/charset/charset.asm
Normal file
170
programs/develop/libraries/charset/charset.asm
Normal file
@ -0,0 +1,170 @@
|
|||||||
|
|
||||||
|
format MS COFF
|
||||||
|
|
||||||
|
public EXPORTS
|
||||||
|
|
||||||
|
section '.flat' code readable align 16
|
||||||
|
|
||||||
|
; int version()
|
||||||
|
version:
|
||||||
|
mov eax, 1
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
; void __stdcall dos2win (const char text_in[], char text_out[])
|
||||||
|
dos2win:
|
||||||
|
push ecx
|
||||||
|
push edx
|
||||||
|
|
||||||
|
mov ecx, [esp+12]
|
||||||
|
mov edx, [esp+16]
|
||||||
|
|
||||||
|
pushad
|
||||||
|
|
||||||
|
mov ebx, d2w
|
||||||
|
mov [charset], ebx
|
||||||
|
call translate8
|
||||||
|
|
||||||
|
popad
|
||||||
|
|
||||||
|
pop edx
|
||||||
|
pop ecx
|
||||||
|
ret 8
|
||||||
|
|
||||||
|
; void __stdcall win2dos (const char text_in[], char text_out[])
|
||||||
|
win2dos:
|
||||||
|
push ecx
|
||||||
|
push edx
|
||||||
|
|
||||||
|
mov ecx, [esp+12]
|
||||||
|
mov edx, [esp+16]
|
||||||
|
|
||||||
|
pushad
|
||||||
|
|
||||||
|
mov ebx, w2d
|
||||||
|
mov [charset], ebx
|
||||||
|
call translate8
|
||||||
|
|
||||||
|
popad
|
||||||
|
|
||||||
|
pop edx
|
||||||
|
pop ecx
|
||||||
|
ret 8
|
||||||
|
|
||||||
|
; void __stdcall koi2dos (const char text_in[], char text_out[])
|
||||||
|
koi2dos:
|
||||||
|
push ecx
|
||||||
|
push edx
|
||||||
|
|
||||||
|
mov ecx, [esp+12]
|
||||||
|
mov edx, [esp+16]
|
||||||
|
|
||||||
|
pushad
|
||||||
|
|
||||||
|
mov ebx, k2d
|
||||||
|
mov [charset], ebx
|
||||||
|
call translate8
|
||||||
|
|
||||||
|
popad
|
||||||
|
|
||||||
|
pop edx
|
||||||
|
pop ecx
|
||||||
|
ret 8
|
||||||
|
|
||||||
|
translate8:
|
||||||
|
mov byte al, [ecx]
|
||||||
|
|
||||||
|
cmp al, 0
|
||||||
|
je _translate8_end
|
||||||
|
|
||||||
|
cmp al, 127
|
||||||
|
jb _translate8_copy
|
||||||
|
|
||||||
|
and eax, 127
|
||||||
|
mov ebx, [charset]
|
||||||
|
add ebx, eax
|
||||||
|
|
||||||
|
mov byte al, [ebx]
|
||||||
|
|
||||||
|
_translate8_copy:
|
||||||
|
mov byte [edx], al
|
||||||
|
|
||||||
|
inc edx
|
||||||
|
inc ecx
|
||||||
|
|
||||||
|
jmp translate8
|
||||||
|
|
||||||
|
_translate8_end:
|
||||||
|
mov byte [edx], 0
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
align 16
|
||||||
|
EXPORTS:
|
||||||
|
dd szVersion, version
|
||||||
|
dd szDos2win, dos2win
|
||||||
|
dd szWin2dos, win2dos
|
||||||
|
dd szKoi2dos, koi2dos
|
||||||
|
dd 0, 0
|
||||||
|
|
||||||
|
szVersion db 'version',0
|
||||||
|
szDos2win db 'dos2win',0
|
||||||
|
szWin2dos db 'win2dos',0
|
||||||
|
szKoi2dos db 'koi2dos',0
|
||||||
|
|
||||||
|
d2w db 192, 193, 194, 195, 196, 197, 198, 199
|
||||||
|
db 200, 201, 202, 203, 204, 205, 206, 207
|
||||||
|
db 208, 209, 210, 211, 212, 213, 214, 215
|
||||||
|
db 216, 217, 218, 219, 220, 221, 222, 223
|
||||||
|
db 224, 225, 226, 227, 228, 229, 230, 231
|
||||||
|
db 232, 233, 234, 235, 236, 237, 238, 239
|
||||||
|
db 32, 32, 32, 32, 32, 32, 32, 32
|
||||||
|
db 32, 32, 32, 32, 32, 32, 32, 32
|
||||||
|
db 32, 32, 32, 32, 32, 32, 32, 32
|
||||||
|
db 32, 32, 32, 32, 32, 32, 32, 32
|
||||||
|
db 32, 32, 32, 32, 32, 32, 32, 32
|
||||||
|
db 32, 32, 32, 32, 32, 32, 32, 32
|
||||||
|
db 240, 241, 242, 243, 244, 245, 246, 247
|
||||||
|
db 248, 249, 250, 251, 252, 253, 254, 255
|
||||||
|
db 168, 184, 170, 186, 175, 191, 161, 162
|
||||||
|
db 176, 32, 32, 32, 185, 164, 32, 32
|
||||||
|
|
||||||
|
|
||||||
|
w2d db 32, 32, 44, 32, 34, 32, 32, 32
|
||||||
|
db 94, 32, 32, 60, 32, 32, 32, 32
|
||||||
|
db 32, 39, 39, 34, 34, 32, 45, 45
|
||||||
|
db 126, 32, 32, 62, 32, 32, 32, 32
|
||||||
|
db 32, 246, 247, 74, 253, 131, 32, 32
|
||||||
|
db 240, 32, 242, 34, 32, 32, 32, 244
|
||||||
|
db 248, 32, 73, 105, 163, 32, 32, 250
|
||||||
|
db 241, 252, 243, 34, 106, 83, 115, 245
|
||||||
|
db 128, 129, 130, 131, 132, 133, 134, 135
|
||||||
|
db 136, 137, 138, 139, 140, 141, 142, 143
|
||||||
|
db 144, 145, 146, 147, 148, 149, 150, 151
|
||||||
|
db 152, 153, 154, 155, 156, 157, 158, 159
|
||||||
|
db 160, 161, 162, 163, 164, 165, 166, 167
|
||||||
|
db 168, 169, 170, 171, 172, 173, 174, 175
|
||||||
|
db 224, 225, 226, 227, 228, 229, 230, 231
|
||||||
|
db 232, 233, 234, 235, 236, 237, 238, 239
|
||||||
|
|
||||||
|
|
||||||
|
k2d db 196, 179, 218, 191, 192, 217, 195, 180
|
||||||
|
db 194, 193, 197, 223, 220, 219, 221, 222
|
||||||
|
db 176, 177, 178, 32, 254, 249, 251, 32
|
||||||
|
db 32, 32, 32, 32, 248, 32, 250, 32
|
||||||
|
db 205, 186, 184, 241, 214, 201, 184, 183
|
||||||
|
db 187, 212, 211, 200, 190, 189, 188, 198
|
||||||
|
db 199, 204, 181, 240, 182, 185, 209, 210
|
||||||
|
db 203, 207, 208, 202, 216, 215, 206, 32
|
||||||
|
db 238, 160, 161, 230, 164, 165, 228, 163
|
||||||
|
db 229, 168, 169, 170, 171, 172, 173, 174
|
||||||
|
db 175, 239, 224, 225, 226, 227, 166, 162
|
||||||
|
db 236, 235, 167, 232, 237, 233, 231, 234
|
||||||
|
db 158, 128, 129, 150, 132, 133, 148, 131
|
||||||
|
db 149, 136, 137, 138, 139, 140, 141, 142
|
||||||
|
db 143, 159, 144, 145, 146, 147, 134, 130
|
||||||
|
db 156, 155, 135, 152, 157, 153, 151, 154
|
||||||
|
|
||||||
|
section '.data' data readable writable align 16
|
||||||
|
|
||||||
|
charset rd 1
|
||||||
11
programs/develop/libraries/charset/charset.h
Normal file
11
programs/develop/libraries/charset/charset.h
Normal file
@ -0,0 +1,11 @@
|
|||||||
|
|
||||||
|
int version();
|
||||||
|
|
||||||
|
// 866 -> 1251
|
||||||
|
void __stdcall dos2win (const char text_in[], char text_out[]);
|
||||||
|
|
||||||
|
// 1251 -> 866
|
||||||
|
void __stdcall win2dos (const char text_in[], char text_out[]);
|
||||||
|
|
||||||
|
// koi8-r -> 866
|
||||||
|
void __stdcall koi2dos (const char text_in[], char text_out[]);
|
||||||
4
programs/develop/libraries/charset/compile.bat
Normal file
4
programs/develop/libraries/charset/compile.bat
Normal file
@ -0,0 +1,4 @@
|
|||||||
|
del charset.obj
|
||||||
|
fasm charset.asm
|
||||||
|
kpack charset.obj
|
||||||
|
pause
|
||||||
11
programs/develop/libraries/charset/readme.txt
Normal file
11
programs/develop/libraries/charset/readme.txt
Normal file
@ -0,0 +1,11 @@
|
|||||||
|
|
||||||
|
charset.obj
|
||||||
|
==============
|
||||||
|
|
||||||
|
Библиотека для преобразования русского текста в разных кодировках.
|
||||||
|
Параметры функций преобразования - Си-строки.
|
||||||
|
|
||||||
|
==============
|
||||||
|
Александр Богомаз aka Albom
|
||||||
|
albom85@yandex.ru
|
||||||
|
http://albom85.narod.ru
|
||||||
Loading…
Reference in New Issue
Block a user