home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / a2ixlibrary-1.0-bin.lha / share / a2ixlibrary / deltafunctions.pl < prev    next >
Text File  |  1996-10-12  |  790b  |  24 lines
  1. $lname = $ARGV[1];
  2.  
  3. @lst = <STDIN>;
  4. chop(@lst);
  5.  
  6. printf "__shared_textfunctions_start_lib$lname = ___shared_lib_ptr + 1000;
  7. ___shared_lib_ptr = __shared_textfunctions_start_lib$lname;
  8. __shared_datafunctions_start_lib$lname = ___shared_lib_ptr + 2;
  9. ___shared_lib_ptr = __shared_datafunctions_start_lib$lname;\n";
  10.  
  11. $lasthex = "0x0" . substr($lst[0], 3, 5);
  12. for ($i = 0; $i < @lst; $i++) {
  13.   $name = substr($lst[$i], 11);
  14.   $hex = "0x0" . substr($lst[$i], 3, 5);
  15.   printf "$name = ___shared_lib_ptr + $hex - $lasthex + 10;
  16. ___shared_lib_ptr = $name;\n";
  17.   $lasthex = $hex;
  18. }
  19.  
  20. printf "
  21. __shared_textfunctions_end_lib$lname = ___shared_lib_ptr + 0x0$ARGV[0] - $lasthex + 10;
  22. ___shared_lib_ptr = __shared_textfunctions_end_lib$lname;
  23. __shared_datafunctions_end_lib$lname = ___shared_lib_ptr;\n";
  24.