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