This repository is a mirror!

; _______________________________________________________________________________________
;|                                                                                       |
;| ..::FreshLib::..  Free, open source. Licensed under "Fresh artistic license."         |
;|_______________________________________________________________________________________|
;
; macroinstruction for importing functions in Linux

;  Description: Macros for importing functions in Linux
;
;  Target OS: Linux
;
;  Dependencies:
;
;  Notes:
;_________________________________________________________________________________________


include '_elf.inc'


macro interpreter [library]
{
 db library,0
}


; creates symbols list with needed libraries.
macro import_proto library, [name, arg]
{
  common
    local str, cnt, use
    match needed,needed@dynamic \{ define needed@dynamic needed, str:cnt:use:library \}

  match cnt:name, cntandname \{
    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 \{
    if used name
      name dd 0
    end if