programs/import.inc

   1 \r
   2 ; Macroinstructions for making import section\r
   3 \r
   4 macro library [name,string]\r
   5  { common\r
   6     import.data:\r
   7    forward\r
   8     local _label\r
   9     if defined name#.redundant\r
  10      if ~ name#.redundant\r
  11       dd RVA name#.lookup,0,0,RVA _label,RVA name#.address\r
  12      end if\r
  13     end if\r
  14     name#.referred = 1\r
  15    common\r
  16     dd 0,0,0,0,0\r
  17    forward\r
  18     if defined name#.redundant\r
  19      if ~ name#.redundant\r
  20       _label db string,0\r
  21              rb RVA $ and 1\r
  22      end if\r
  23     end if }\r
  24 \r
  25 macro import name,[label,string]\r
  26  { common\r
  27     rb (- rva $) and 3\r
  28     if defined name#.referred\r
  29      name#.lookup:\r
  30    forward\r
  31      if used label\r
  32       if string eqtype ''\r
  33        local _label\r
  34        dd RVA _label\r
  35       else\r
  36        dd 80000000h + string\r
  37       end if\r
  38      end if\r
  39    common\r
  40      if $ > name#.lookup\r
  41       name#.redundant = 0\r
  42       dd 0\r
  43      else\r
  44       name#.redundant = 1\r
  45      end if\r
  46      name#.address:\r
  47    forward\r
  48      if used label\r
  49       if string eqtype ''\r
  50        label dd RVA _label\r
  51       else\r
  52        label dd 80000000h + string\r
  53       end if\r
  54      end if\r
  55    common\r
  56      if ~ name#.redundant\r
  57       dd 0\r
  58      end if\r
  59    forward\r
  60      if used label & string eqtype ''\r
  61      _label dw 0\r
  62             db string,0\r
  63             rb RVA $ and 1\r
  64      end if\r
  65    common\r
  66     end if }\r
  67 \r
  68 macro api [name] {}\r