147 lines
3.5 KiB
NASM
147 lines
3.5 KiB
NASM
|
TITLE "String support routines"
|
||
|
|
|
||
|
|
|
||
|
|
; Copyright (c) 1989 Microsoft Corporation
|
||
|
|
|
||
|
|
; Module Name:
|
||
|
|
|
||
|
|
; stringsup.asm
|
||
|
|
|
||
|
|
; Abstract:
|
||
|
|
|
||
|
|
; This module implements suplimentary routines for performing string
|
||
|
|
; operations.
|
||
|
|
|
||
|
|
; Author:
|
||
|
|
|
||
|
|
; Larry Osterman (larryo) 18-Sep-1991
|
||
|
|
|
||
|
|
; Environment:
|
||
|
|
|
||
|
|
; Any mode.
|
||
|
|
|
||
|
|
; Revision History:
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
.386p
|
||
|
|
include callconv.inc ; calling convention macros
|
||
|
|
|
||
|
|
|
||
|
|
_TEXT SEGMENT DWORD PUBLIC 'CODE'
|
||
|
|
ASSUME DS:FLAT, ES:FLAT, SS:NOTHING, FS:NOTHING, GS:NOTHING
|
||
|
|
|
||
|
|
page ,132
|
||
|
|
subttl "RtlAnsiCharToUnicodeChar"
|
||
|
|
|
||
|
|
|
||
|
|
; WCHAR
|
||
|
|
;RtlAnsiCharToUnicodeChar(
|
||
|
|
; IN OUT PCHAR *SourceCharacter
|
||
|
|
; )
|
||
|
|
|
||
|
|
|
||
|
|
; Routine Description:
|
||
|
|
|
||
|
|
; This function translates the specified ansi character to unicode and
|
||
|
|
; returns the unicode value. The purpose for this routine is to allow
|
||
|
|
; for character by character ansi to unicode translation. The
|
||
|
|
; translation is done with respect to the current system locale
|
||
|
|
; information.
|
||
|
|
|
||
|
|
|
||
|
|
; Arguments:
|
||
|
|
|
||
|
|
; (TOS+4) = SourceCharacter - Supplies a pointer to an ansi character pointer.
|
||
|
|
; Through two levels of indirection, this supplies an ansi
|
||
|
|
; character that is to be translated to unicode. After
|
||
|
|
; translation, the ansi character pointer is modified to point to
|
||
|
|
; the next character to be converted. This is done to allow for
|
||
|
|
; dbcs ansi characters.
|
||
|
|
|
||
|
|
; Return Value:
|
||
|
|
|
||
|
|
; Returns the unicode equivalent of the specified ansi character.
|
||
|
|
|
||
|
|
; Note:
|
||
|
|
|
||
|
|
; This routine will have to be converted to use the proper unicode mapping
|
||
|
|
; tables.
|
||
|
|
|
||
|
|
|
||
|
|
cPublicProc _RtlAnsiCharToUnicodeChar ,1
|
||
|
|
cPublicFpo 1,2
|
||
|
|
push esi
|
||
|
|
mov esi, [esp+8]
|
||
|
|
push dword ptr [esi] ; Save the old input string
|
||
|
|
inc dword ptr [esi] ; Bump the input string
|
||
|
|
pop esi ; (ESI) = input string
|
||
|
|
xor eax, eax ; Zero out the EAX register.
|
||
|
|
lodsb ; Grab the first character from string
|
||
|
|
pop esi
|
||
|
|
stdRET _RtlAnsiCharToUnicodeChar
|
||
|
|
|
||
|
|
stdENDP _RtlAnsiCharToUnicodeChar
|
||
|
|
|
||
|
|
page
|
||
|
|
subttl "RtlpAnsiPszToUnicodePsz"
|
||
|
|
|
||
|
|
|
||
|
|
; VOID
|
||
|
|
; RtlpAnsiPszToUnicodePsz(
|
||
|
|
; IN PCHAR AnsiString,
|
||
|
|
; IN PWCHAR UnicodeString,
|
||
|
|
; IN USHORT AnsiStringLength
|
||
|
|
; )
|
||
|
|
|
||
|
|
|
||
|
|
; Routine Description:
|
||
|
|
|
||
|
|
; This function translates the specified ansi character to unicode and
|
||
|
|
; returns the unicode value. The purpose for this routine is to allow
|
||
|
|
; for character by character ansi to unicode translation. The
|
||
|
|
; translation is done with respect to the current system locale
|
||
|
|
; information.
|
||
|
|
|
||
|
|
|
||
|
|
; Arguments:
|
||
|
|
|
||
|
|
; (ESP+4) = AnsiString - Supplies a pointer to the ANSI string to convert to unicode.
|
||
|
|
; (ESP+8) = UnicodeString - Supplies a pointer to a buffer to hold the unicode string
|
||
|
|
; (ESP+12) = AnsiStringLength - Supplies the length of the ANSI string.
|
||
|
|
|
||
|
|
; Return Value:
|
||
|
|
|
||
|
|
; None.
|
||
|
|
|
||
|
|
|
||
|
|
; Note:
|
||
|
|
|
||
|
|
; This routine will have to be converted to use the proper unicode mapping
|
||
|
|
; tables.
|
||
|
|
|
||
|
|
|
||
|
|
cPublicProc _RtlpAnsiPszToUnicodePsz ,3
|
||
|
|
cPublicFpo 3,2
|
||
|
|
push esi
|
||
|
|
push edi
|
||
|
|
xor ecx, ecx
|
||
|
|
mov cx, [esp]+12+8
|
||
|
|
jecxz raptup9
|
||
|
|
mov esi, [esp]+4+8
|
||
|
|
mov edi, [esp]+8+8
|
||
|
|
xor ah, ah
|
||
|
|
@@: lodsb
|
||
|
|
stosw
|
||
|
|
loop @b
|
||
|
|
xor eax, eax
|
||
|
|
stosw ; Don't forget to stick the null at end
|
||
|
|
raptup9:pop edi
|
||
|
|
pop esi
|
||
|
|
stdRET _RtlpAnsiPszToUnicodePsz
|
||
|
|
|
||
|
|
stdENDP _RtlpAnsiPszToUnicodePsz
|
||
|
|
|
||
|
|
_TEXT ends
|
||
|
|
end
|