some data defining macros

I use the following macros for data definitions.

Code:

ela= 1;element align

struc    db      [arg] {
common
local do_align, cnt
@@:
  cnt= 0
  define        do_align        1
forward
  if arg eqtype align 0
    arg
    define        do_align        0
  else
    if do_align eq 1
 align   ela
    end if
   db      arg
    define       do_align        1
  end if
  cnt= cnt + 1
common
  .size= $ - @b
  .cnt= cnt
  .els= 1;element size
}

struc    dw      [arg] {
common
local do_align, cnt
@@:
  cnt= 0
  define        do_align        1
forward
  if arg eqtype align 0
    arg
    define        do_align        0
  else
    if do_align eq 1
 align   ela
    end if
   dw      arg
    define       do_align        1
  end if
  cnt= cnt + 1
common
  .size= $ - @b
  .cnt= cnt
  .els= 2
}
struc     du      [arg] {
common
local do_align, cnt
@@:
  cnt= 0
  define        do_align        1
forward
  if arg eqtype align 0
    arg
    define        do_align        0
  else
    if do_align eq 1
 align   ela
    end if
   du      arg
    define       do_align        1
  end if
  cnt= cnt + 1
common
  .size= $ - @b
  .cnt= cnt
  .els= 2
}

struc dd      [arg] {
common
local do_align, cnt
@@:
  cnt= 0
  define        do_align        1
forward
  if arg eqtype align 0
    arg
    define        do_align        0
  else
    if do_align eq 1
 align   ela
    end if
   dd      arg
    define       do_align        1
  end if
  cnt= cnt + 1
common
  .size= $ - @b
  .cnt= cnt
  .els= 4
}

struc df      [arg] {
common
local do_align, cnt
@@:
  cnt= 0
  define        do_align        1
forward
  if arg eqtype align 0
    arg
    define        do_align        0
  else
    if do_align eq 1
 align   ela
    end if
   df      arg
    define       do_align        1
  end if
  cnt= cnt + 1
common
  .size= $ - @b
  .cnt= cnt
  .els= 6
}
dp        equ df

struc     dq      [arg] {
common
local do_align, cnt
@@:
  cnt= 0
  define        do_align        1
forward
  if arg eqtype align 0
    arg
    define        do_align        0
  else
    if do_align eq 1
 align   ela
    end if
   dq      arg
    define       do_align        1
  end if
  cnt= cnt + 1
common
  .size= $ - @b
  .cnt= cnt
  .els= 8
}

struc dt      [arg] {
common
local do_align, cnt
@@:
  cnt= 0
  define        do_align        1
forward
  if arg eqtype align 0
    arg
    define        do_align        0
  else
    if do_align eq 1
 align   ela
    end if
   dt      arg
    define       do_align        1
  end if
  cnt= cnt + 1
common
  .size= $ - @b
  .cnt= cnt
  .els= 10
}

struc        dstr    [arg] {
common
local do_align, cnt
       dd      .size
@@:
  cnt= 0
  if ~arg eq
    define      do_align        1
forward
    if arg eqtype align 0
      arg
      define  do_align        0
    else
      if do_align eq 1
     align   ela
      end if
 db      arg
      define     do_align        1
    end if
    cnt= cnt + 1
common
  end if
   db      \n
  .size= $ - @b
  .cnt= cnt
  .els= 1
}

They especially allow you to use custom aligns within 1 list of arguments.
I don't know whether this is useful, but I though it may be handy sometime:

Code:

dat1 dd 1,2,align 16,3,4