main.inc

; Extended Win32 programming headers (ASCII)

include 'win32a.inc'

include 'macro/if.inc'

macro allow_nesting
{ macro pushd value
  \{ match ,value \\{
      pushx equ \\}
     match =pushx =invoke proc,pushx value \\{
      allow_nesting
      invoke proc
      purge pushd,invoke,stdcall,cinvoke,ccall
      push eax
      pushx equ \\}
     match =pushx =stdcall proc,pushx value \\{
      allow_nesting
      stdcall proc
      purge pushd,invoke,stdcall,cinvoke,ccall
      push eax
      pushx equ \\}
     match =pushx =cinvoke proc,pushx value \\{
      allow_nesting
      cinvoke proc
      purge pushd,invoke,stdcall,cinvoke,ccall
      push eax
      pushx equ \\}
     match =pushx =ccall proc,pushx value \\{
      allow_nesting
      ccall proc
      purge pushd,invoke,stdcall,cinvoke,ccall
      push eax
      pushx equ \\}
     match =pushx,pushx \\{
      pushd <value>
      pushx equ \\}
     restore pushx \}
  macro invoke proc,[arg]
  \{ \reverse pushd <arg>
     \common call [proc] \}
  macro stdcall proc,[arg]
  \{ \reverse pushd <arg>
     \common call proc \}
  macro cinvoke proc,[arg]
  \{ \common \local size
             size = 0
             if ~ arg eq
     \reverse pushd <arg>
              size = size+4
              match =double any,arg \\{ size = size+4 \\}
     \common end if
             call [proc]
             if size
             add esp,size
             end if \}
  macro ccall proc,[arg]
  \{ \common \local size
             size = 0
             if ~ arg eq
     \reverse pushd <arg>
              size = size+4
              match =double any,arg \\{ size = size+4 \\}
     \common end if
             call proc
             if size
             add esp,size
             end if \} }

macro pushd value
{ match first=,more, value \{ \local ..continue
   call ..continue
   db value,0
   ..continue:
   pushd equ \}
  match pushd =addr var,pushd value \{ \local ..opcode,..address
   if +var relativeto 0 | +var relativeto $
    push var
   else
    lea edx,[var]
    push edx
   end if
   pushd equ \}
  match pushd =double [var],pushd value \{
   push dword [var+4]
   push dword [var]
   pushd equ \}
  match pushd =double =ptr var,pushd value \{
   push dword [var+4]
   push dword [var]
   pushd equ \}
  match pushd =double num,pushd value \{ \local ..high,..low
   virtual at 0
    dq num
    load ..low dword from 0
    load ..high dword from 4
   end virtual
   push ..high
   push ..low
   pushd equ \}
  match pushd,pushd \{ \local ..continue
   if value eqtype ''
    call ..continue
    db value,0
    ..continue:
   else
    push value
   end if
   pushd equ \}
  restore pushd }

allow_nesting

macro import lib,[functions]
{ common macro import_#lib \{ import lib,functions \} }

macro api [functions]
{ common macro all_api \{ all_api
                          api functions \} }
macro all_api {}

include 'kernel32.inc'
include 'api/user32.inc'
include 'api/gdi32.inc'
include 'api/advapi32.inc'
include 'api/comctl32.inc'
include 'api/comdlg32.inc'
include 'api/shell32.inc'
include 'api/wsock32.inc'


purge import,api

macro .data { section '.data' data readable writeable }

macro .code { section '.text' code readable executable }

macro .end label
{
   entry label

   section '.idata' import data readable writeable

     library msvcrt, 'msvcrt.dll',\
             verdll, 'version.dll',\
             ntdll, 'ntdll.dll',\
             ole32, 'ole32.dll',\
             oleaut32, 'oleaut32.dll',\
             urlmon, 'urlmon.dll',\
             shlwapi, 'shlwapi.dll',\
             kernel32, 'kernel32.dll',\
             user32, 'user32.dll',\
             gdi32, 'gdi32.dll',\
             advapi32, 'advapi32.dll',\
             comctl32, 'comctl32.dll',\
             comdlg32, 'comdlg32.dll',\
             shell32, 'shell32.dll',\
             wsock32, 'wsock32.dll',\
             crypt32, 'crypt32.dll'

     import msvcrt,\
            __getmainargs, '__getmainargs',\
            malloc, 'malloc',\
            realloc, 'realloc',\
            calloc, 'calloc',\
            free, 'free',\
            memset, 'memset',\
            strcat, 'strcat',\
            setlocale, 'setlocale',\
            printf, 'printf',\
            sprintf, 'sprintf',\
            strstr, 'strstr',\
            strncmp, 'strncmp',\
            strtol, 'strtol',\
            strtod, 'strtod',\
            atof,'atof',\
            strtoul, 'strtoul',\
            wcsstr, 'wcsstr',\
            wcscmp, 'wcscmp',\
            wcsncmp, 'wcsncmp',\
            _wcsicmp, '_wcsicmp',\
            _wcsnicmp, '_wcsnicmp',\
            _strnicmp, '_strnicmp',\
            getchar, 'getchar',\
            _getch, '_getch',\
            putchar, 'putchar',\
            rand, 'rand',\
            srand, 'srand',\
            time, 'time',\
            sqrt, 'sqrt',\
            exp, 'exp',\
            sin, 'sin',\
            sinh, 'sinh',\
            cos, 'cos',\
            cosh, 'cosh',\
            tan, 'tan',\
            tanh, 'tanh',\
            log, 'log',\
            log10, 'log10',\
            floor, 'floor',\
            ceil, 'ceil',\
            fmod, 'fmod',\
            pow, 'pow',\
            system, 'system'

     import verdll,\
            GetFileVersionInfoSize, 'GetFileVersionInfoSizeA',\
            GetFileVersionInfo, 'GetFileVersionInfoA',\
            VerQueryValue, 'VerQueryValueA'

     import ntdll,\
            RtlGetVersion, 'RtlGetVersion'

     import ole32,\
            CoInitialize, 'CoInitialize',\
            CoInitializeEx, 'CoInitializeEx',\
            CoUninitialize, 'CoUninitialize',\
            CoCreateInstance, 'CoCreateInstance',\
            CoTaskMemFree, 'CoTaskMemFree',\
            IsEqualGUID, 'IsEqualGUID'

     import oleaut32,\
            SysAllocStringLen, 'SysAllocStringLen',\
            SysFreeString, 'SysFreeString',\
            VariantInit, 'VariantInit'

     import urlmon,\
            URLDownloadToFile, 'URLDownloadToFileA'

     import shlwapi,\
            PathIsDirectory, 'PathIsDirectoryA',\
            PathFileExists, 'PathFileExistsA',\
            PathFindExtension, 'PathFindExtensionA',\
            PathFindFileName, 'PathFindFileNameA',\
            PathIsURL, 'PathIsURLA'

     import crypt32,\
            CryptBinaryToString, 'CryptBinaryToStringA',\
            CryptStringToBinary, 'CryptStringToBinaryA'

     import_kernel32
     import_user32
     import_gdi32
     import_advapi32
     import_comctl32
     import_comdlg32
     import_shell32
     import_wsock32

     all_api
}

virtual at 0
 xchg eax,eax
 detected_16bit = $-1
end virtual

if detected_16bit
 format PE GUI 4.0
end if