home *** CD-ROM | disk | FTP | other *** search
/ Reverse Code Engineering RCE CD +sandman 2000 / ReverseCodeEngineeringRceCdsandman2000.iso / RCE / LordLucifer / win32asm / files / win32asm.exe / Win32ASM / ASMInc / UnicAnsi.equ < prev    next >
Encoding:
Text File  |  1997-09-02  |  12.5 KB  |  375 lines
  1. ;   ANSI / UniCode strings handling.
  2. ;  19.JUN.96 : Philippe Auphelle.
  3. ;        LARGE Portions from 03-14-1996 Sven B. Schreiber sbs@orgon.com
  4.  
  5. ; $Id: UnicAnsi.equ 1.1 1997/09/02 09:50:53 Philippe Exp $
  6.  
  7. ; $Log: /Win32Equ/UnicAnsi.equ $
  8. ; 
  9. ; 1     18/09/97 14:24 Philippe
  10. ; Initial checkin into SourceSafe.
  11. ; Revision 1.1  1997/09/02 09:50:53  Philippe
  12. ; Initial revision
  13. ;
  14.  
  15.  
  16. ;==============================================================================
  17. ;
  18. ;               ANSI / UniCode strings.
  19. ;
  20. ; This include file should be included ahead of any other one.
  21. ; It defines various equates, textequates and macros used to handle
  22. ; Unicode or ANSI string encoding definitions.
  23. ; This include assumes the UniCode equate is clear (0) or set (1) according
  24. ; to the coding system to be used.
  25. ; But of course, Win95 doesn't support UniCode...
  26. ; So if nothing's defined, we default to ASCII. Not the best, but works
  27. ; for both Win95 and NT.
  28. ;==============================================================================
  29.  
  30.  
  31.                 IFNDEF UniCode
  32. UniCode         = 0                     ;Default to ASCII (always works)
  33.                 ENDIF
  34.  
  35. ; Takes care of Win32syscalls that are encoding dependant:
  36. ; These have a generic name that, by a typical Microsoft kludge, is
  37. ; transformed at compile time in the real target name.
  38. ; The real target name is composed by postfixing the generic name by an
  39. ; "A" (ANSI/ASCII) or "W" (Wide, for Unicode).
  40. ; The great thing with the wonderful MS approach is that you have to handle
  41. ; two different sets of object files when building libraries for both
  42. ; Unicode and ANSI. How nice... This, IMHO, should have been handled at
  43. ; link time and/or runtime. Anyway.
  44. ; The following macro simply generates a text equate that replaces the
  45. ; generic procedure name by its encoded (postfixed) form.
  46. ; Any procedure that's encoding dependant should have a UnicAnsiExtern macro
  47. ; coded ahead of its PROTO definition to resolve its name to something defined
  48. ; in the Microsoft import libraries.
  49. ; There are other implications to the use of Unicode, as the Unicode uses
  50. ; double bytes. For instance, the CHAR typedef is assigned to either a BYTE
  51. ; (for ANSI) or a WORD (for UniCode).
  52. ; An 80 character string can thus be up to 160 bytes long when coded in
  53. ; UniCode.
  54. ; I haven't look at this problem yet, but I expect Sven's macros below to
  55. ; solve the problem...
  56.  
  57.  
  58. UnicAnsiExtern  MACRO Procedure
  59.                 LOCAL Procedure
  60.                   IF UniCode EQ 0
  61. Procedure         TEXTEQU @CatStr(Procedure,A)
  62.                   ELSE
  63. Procedure         TEXTEQU @CatStr(Procedure,W)
  64.                   ENDIF
  65.                 ENDM
  66.  
  67.  
  68.  
  69. ; Alternate to Sven's STRING macro (see below) for generating ANSI or
  70. ; Unicode strings:
  71.  
  72. ; Supported convenience Escape Sequences:
  73.  
  74. ; \n
  75. ; \t
  76. ; \0
  77. ; \1
  78.  
  79. ; Note: The convenience escape letters are case sensitive.
  80.  
  81. ; MASM macro forcing character ("!") only required for "!", ">" and "<".
  82. ; Other characters OK, including "'", '"', etc...
  83.  
  84.  
  85. $String         MACRO Parm1:REQ
  86. ;; For some undetermined reason, declaring StrChar as LOCAL to the macro
  87. ;; generates errors. MASM macro language truly STINKS.
  88.                 LOCAL CharType, ParmSize, _ESC_, Start, NumChar
  89.  
  90.                 IF UniCode
  91. CharType        TEXTEQU <WORD>
  92.                 ELSE
  93. CharType        TEXTEQU <BYTE>
  94.                 ENDIF
  95.  
  96. ParmSize        SIZESTR <Parm1>
  97.         _ESC_   = 0                             ;;Not in escape seq.
  98.         Start   = 2                             ;;Skip leading "'",
  99.                   REPEAT ParmSize-2             ;;For each char in parm but "'"
  100. StrChar           SUBSTR <Parm1>,Start,1        ;;extract current char as TEXTEQU,
  101.                     IFIDNI StrChar,<">          ;;Because we use " already
  102.                     NumChar = '"'               ;;in the %NumChar assign. below.
  103.                     ELSE
  104. %NumChar            = "&StrChar"                ;;Convert it to numeric value,
  105.                     ENDIF
  106.  
  107.                     IF _ESC_                    ;;Second byte of Escape sequence
  108. _ESC_               = 0
  109.                       if     NumChar eq 06Eh    ;;"n"
  110.                         CharType 0Dh, 0Ah
  111.                       elseif NumChar eq 074h    ;;"t"
  112.                         CharType 09h
  113.                       elseif NumChar eq 030h    ;;"0"
  114.                         CharType 0
  115.                       elseif NumChar eq 031h    ;;"1"
  116.                         CharType 1
  117.                       else                      ;; None of these,
  118.                         CharType "\", NumChar   ;; purge out \<whatever>.
  119.                       endif                     ;;if NumChar eq ...
  120.  
  121.                     else                        ;; Not in Escape sequence.
  122.  
  123.                       if NumChar eq 05Ch        ;;"\" : Esc character?
  124. _ESC_                   = 1
  125.                       else
  126. _ESC_                   = 0
  127.                         CharType NumChar
  128.                       endif                     ;; (if "\").
  129.                     endif                       ;;(if _ESC_)
  130.  
  131.                   Start = Start + 1             ;;Bump string index.
  132.                   ENDM
  133.                 ENDM
  134.  
  135.  
  136. ; The rest are original Walk32 macros.
  137.  
  138.  
  139. ASTRING         macro _STRING_
  140. _ESC_           = 0
  141.  
  142.                   forc _CHAR_,<_STRING_>
  143.  
  144.                     if _ESC_
  145. _ESC_               = 0
  146. ;
  147.                       if "&_CHAR_" eq "/"
  148.                         BYTE "/"
  149.                       elseif "&_CHAR_" eq "n"
  150.                         BYTE 0Dh, 0Ah
  151.                       elseif "&_CHAR_" eq "t"
  152.                         BYTE 09h
  153.                       elseif "&_CHAR_" eq ":"
  154.                         BYTE "!"
  155.                       elseif "&_CHAR_" eq "-"
  156.                         BYTE "'"
  157.                       elseif "&_CHAR_" eq "="
  158.                         BYTE '"'
  159.                       elseif "&_CHAR_" eq "|"
  160.                         BYTE "\"
  161.                       elseif "&_CHAR_" eq "#"
  162.                         BYTE "%"
  163.                       elseif "&_CHAR_" eq "+"
  164.                         BYTE "&"
  165.                       elseif "&_CHAR_" eq "("
  166.                         BYTE "<"
  167.                       elseif "&_CHAR_" eq ")"
  168.                         BYTE ">"
  169.                       elseif "&_CHAR_" eq "0"
  170.                         BYTE 0
  171.                       elseif "&_CHAR_" eq "1"
  172.                         BYTE 1
  173.                       else
  174.                         BYTE "/", "&_CHAR_"
  175.                       endif             ;if "&_CHAR_" eq ...
  176.  
  177.                     else
  178.                                         ;if _ESC_
  179.                       if "&_CHAR_" eq "/"
  180. _ESC_                   = 1
  181.                       else
  182. _ESC_                   = 0
  183.                         BYTE "&_CHAR_"
  184.                       endif
  185.                     endif               ;if _ESC_
  186.                   endm                  ;forc _CHAR_,<_STRING_>
  187.                 endm                    ;ASTRING macro.
  188.  
  189. ;------------------------------------------------------------------------------
  190.  
  191. WSTRING         macro          _STRING_
  192. _ESC_           = 0
  193.  
  194.                   forc _CHAR_,<_STRING_>
  195.  
  196.                     if _ESC_
  197. _ESC_               = 0
  198.  
  199.                       if "&_CHAR_" eq "/"
  200.                         WORD "/"
  201.                       elseif "&_CHAR_" eq "n"
  202.                         WORD 0Dh, 0Ah
  203.                       elseif "&_CHAR_" eq "t"
  204.                         WORD 09h
  205.                       elseif "&_CHAR_" eq ":"
  206.                         WORD "!"
  207.                       elseif "&_CHAR_" eq "-"
  208.                         WORD "'"
  209.                       elseif "&_CHAR_" eq "="
  210.                         WORD '"'
  211.                       elseif "&_CHAR_" eq "|"
  212.                         WORD "\"
  213.                       elseif "&_CHAR_" eq "#"
  214.                         WORD "%"
  215.                       elseif "&_CHAR_" eq "+"
  216.                         WORD "&"
  217.                       elseif "&_CHAR_" eq "("
  218.                         WORD "<"
  219.                       elseif "&_CHAR_" eq ")"
  220.                         WORD ">"
  221.                       elseif "&_CHAR_" eq "0"
  222.                         WORD 0
  223.                       elseif "&_CHAR_" eq "1"
  224.                         WORD 1
  225.                       else
  226.                         WORD "/", "&_CHAR_"
  227.                       endif             ;if "&_CHAR_"
  228.  
  229.                     else                ;if _ESC_
  230.  
  231.                       if "&_CHAR_" eq "/"
  232. _ESC_                   = 1
  233.                       else
  234. _ESC_                   = 0
  235.                         WORD "&_CHAR_"
  236.                       endif
  237.                     endif               ;if _ESC_
  238.                   endm                  ;forc _CHAR_,<_STRING_>
  239.                 endm
  240.  
  241. ;------------------------------------------------------------------------------
  242.  
  243.  
  244. WCHAR           TYPEDEF WORD            ;unicode character
  245. ACHAR           TYPEDEF BYTE            ;ansi character
  246.  
  247.                   IF UniCode
  248. CHAR              TYPEDEF WCHAR
  249.                   ELSE
  250. CHAR              TYPEDEF ACHAR
  251.                   ENDIF
  252.  
  253. ;------------------------------------------------------------------------------
  254.  
  255.  
  256. STRING          macro _STRING_:REQ
  257.                   if UniCode
  258.                   WSTRING <_STRING_>
  259.                   else
  260.                   ASTRING <_STRING_>
  261.                   endif
  262.                 endm
  263.  
  264.  
  265.  
  266. ;------------------------------------------------------------------------------
  267.  
  268. lodczx          macro _from
  269.                   if UniCode
  270.                     movzx eax,word ptr _from
  271.                   else
  272.                     movzx eax,byte ptr _from
  273.                   endif
  274.                 endm
  275.  
  276. ;------------------------------------------------------------------------------
  277.  
  278. lodc            macro _from
  279.                   if UniCode
  280.                     mov ax,_from
  281.                   else
  282.                     mov al,_from
  283.                   endif
  284.                 endm
  285.  
  286. ;------------------------------------------------------------------------------
  287.  
  288. stoc            macro _to
  289.                   if UniCode
  290.                     mov _to,ax
  291.                   else
  292.                     mov _to,al
  293.                   endif
  294.                 endm
  295.  
  296. ;------------------------------------------------------------------------------
  297.  
  298. xchc            macro _with
  299.                   if UniCode
  300.                     xchg ax,_with
  301.                   else
  302.                     xchg al,_with
  303.                   endif
  304.                 endm
  305.  
  306. ;------------------------------------------------------------------------------
  307.  
  308. cmpc            macro _against
  309.                   if UniCode
  310.                     cmp ax,_against
  311.                   else
  312.                     cmp al,_against
  313.                   endif
  314.                 endm
  315.  
  316. ;------------------------------------------------------------------------------
  317.  
  318. subc            macro _what
  319.                   if UniCode
  320.                     sub ax,_what
  321.                   else
  322.                     sub al,_what
  323.                   endif
  324.                 endm
  325.  
  326. ;------------------------------------------------------------------------------
  327.  
  328. addc            macro _what
  329.                   if UniCode
  330.                     add ax,_what
  331.                   else
  332.                     add al,_what
  333.                   endif
  334.                 endm
  335.  
  336. ;------------------------------------------------------------------------------
  337.  
  338. incc            macro _what
  339.                   if UniCode
  340.                     inc _what
  341.                   inc _what
  342.                     else
  343.                   inc _what
  344.                   endif
  345.                 endm
  346.  
  347. ;------------------------------------------------------------------------------
  348.  
  349. decc            macro _what
  350.                   if UniCode
  351.                     dec _what
  352.                     dec _what
  353.                   else
  354.                     dec _what
  355.                   endif
  356.                 endm
  357.  
  358. ;------------------------------------------------------------------------------
  359.  
  360. cc2bc           macro _location
  361.                   if UniCode
  362.                     shl _location,1
  363.                   endif
  364.                 endm
  365.  
  366. ;------------------------------------------------------------------------------
  367.  
  368. bc2cc           macro _location
  369.                   if UniCode
  370.                     shr _location,1
  371.                   endif
  372.                 endm
  373.  
  374. ;------------------------------------------------------------------------------
  375.