; pushrl 3,2,1 -> push 1 2 3
macro pushrl [values*]{reverse push values}




; bsw name,'s1','s2' -> Borland String Wide
;   jmp @f
;   name#.size = @f-name-2
;   dd -1,name#.size
;   name du 's1','s2',0x00
;   @@:
macro bsw name*, [data]{
common
  if(used name)|(used name#.size)
    common
      jmp @f
      dd -1,?
      label name
    forward
      if ~data eq
        du data
      end if
    common
      name#.size = $-name
      store dword name#.size at name-4
      dw 0
      @@:
  else
    if(defined DEBUG)&(DEBUG=TRUE)
      display 'macro bsw:',13,10,'  "',`name,'" & "',`name,'.size" not defined as not used.',13,10
    end if
  end if
}




; bsw s1,'s1'
; bsw s2,'s2'
; bsw2 name,s1,s1 ->
;   jmp @f
;   name.size = @f-2-name
;   dd -1,name.size
; label name
;   name.s1 dd s1
;   name.s2 dd s2
;   dw 0
;   @@:
macro bsw2 name*,[data]{
common
  if(used name)|(used name#.size)
    common
      jmp @f
      dd -1,?
      label name
    forward
      if(~data eq)
        name#.#data dd data
      end if
    common
      name#.size = $-name
      store dword name#.size at name-4
      dw 0
      @@:
  else
    if(defined DEBUG)&(DEBUG=TRUE)
      display 'macro bsw2:',13,10,'  "',`name,'" & "',`name,'.size" not defined as not used.',13,10
    end if
  end if
}




; Borland String Wide from a file
macro bswf name*,fName*,start,count{  ; start = 0...
if (used name) | (used name#.size)
  jmp @f
  dd -1,?
  label name
  if (start eq) & (count eq)
    file fName
  else if (start eq)
    file fName:0,count
  else if (count eq)
    file fName:start
  else
    file fName:start,count
  end if
  name#.size = $-name
  store dword name#.size at name-4
  dw 0
  @@:
else
  if(defined DEBUG)&(DEBUG=TRUE)
    display 'macro bswf:',13,10,'  "',`name,'" & "',`name,'.size" not defined as not used.',13,10
  end if
end if
}




; Borland-styled iclude:
;   use 'api\kernel32.inc',\
;       'api\shell32.inc',\
;       'api\user32.inc'      -> include 'api\kernel32.inc'
;                                include 'api\shell32.inc'
;                                include 'api\user32.inc'
macro use [files*]{forward include files}




; enum wsActive,wsPassive -> wsActive  = 0
;                            wsPassive = 1
macro enum [names*]{
common
  local count
  count = 0
forward
  names = count
  count = count + 1
}




; dbgstr test  -> db 0,'test',0
; proc test
;         ret
; endp
macro dbgstr procedure*{
  if (defined DEBUG)&(DEBUG=TRUE)&(used procedure)
    db 0,'dbgstr: ',`procedure,0
  end if
}