This repository is a mirror!

    define name#@arg arg
}
define needed@dynamic
define imported@dynamic



macro __define_import_arguments_var name, args {
macro __define_import_arguments_var [argument] {
common
  virtual at ebp+8
forward
    name#argument dd ?
  argument dd ?
common
  end virtual
}


macro __define_import_arguments name {
common
  if name#@arg eq VOID
    .__info.argtype=1
  else
    if name#@arg eq NONE
      .__info.argtype = 0
    else
      __define_import_arguments_var name, name#@arg
      match A, name#@arg \{ __define_import_arguments_var A \}
      .__info.argtype = 2
    end if
  end if
}

    if used name
      local fstr
      Elf32_Sym fstr-strtab,0,0,STB_GLOBAL,STT_FUNC,0,0
      cnt = cnt + 1
    end if
  \}


common
  rel:
  local counter
  counter = 1


forward
  match cnt:name, cntandname \{
    if used name
      Elf32_Rel name, counter, R_386_32
      counter = counter + 1
    end if
  \}


common
  relsz = $-rel
  hash:
  dd 1, counter
  dd 0

  repeat counter
   if %=counter
    dd 0
   else
    dd %
   end if
  end repeat
  strtab db 0


forward
  match cnt:name, cntandname \{
    if used name
      fstr def_name name
    end if
  \}


common
  match needed, needed@dynamic \{
    irp item, needed \\{
      match str:cnt:use:library,item \\\{
        use = cnt
        if use > 0
          str db library, 0
        end if
      \\\}
    \\}
  \}
  strsz = $-strtab


forward
  match cnt:name, cntandname \{
label name dword
    if used name
      name dd 0
       dd 0
    end if

    __define_import_arguments name
__define_import_arguments name
  \}
}


macro ImportAll {
  match arguments, __do_import imported@dynamic \{ arguments \}
}