home *** CD-ROM | disk | FTP | other *** search
/ Tools / WinSN5.0Ver.iso / NETSCAP.50 / WIN1998.ZIP / ns / config / nodl.pl < prev    next >
Encoding:
Perl Script  |  1998-04-08  |  1.2 KB  |  43 lines
  1. #! perl
  2. #
  3. # The contents of this file are subject to the Netscape Public License
  4. # Version 1.0 (the "NPL"); you may not use this file except in
  5. # compliance with the NPL.  You may obtain a copy of the NPL at
  6. # http://www.mozilla.org/NPL/
  7. #
  8. # Software distributed under the NPL is distributed on an "AS IS" basis,
  9. # WITHOUT WARRANTY OF ANY KIND, either express or implied. See the NPL
  10. # for the specific language governing rights and limitations under the
  11. # NPL.
  12. #
  13. # The Initial Developer of this code under the NPL is Netscape
  14. # Communications Corporation.  Portions created by Netscape are
  15. # Copyright (C) 1998 Netscape Communications Corporation.  All Rights
  16. # Reserved.
  17. #
  18.  
  19. # 
  20. # Print out the nodltab.
  21. # Usage: nodl.pl table-name sym1 sym2 ... symN
  22. # 
  23.  
  24. $table = $ARGV[0];
  25. shift(@ARGV);
  26.  
  27. print "/* Automatically generated file; do not edit */\n\n";
  28.  
  29. print "#include \"prtypes.h\"\n\n";
  30. print "#include \"prlink.h\"\n\n";
  31.  
  32. foreach $symbol (@ARGV) {
  33.     print "extern void ",$symbol,"();\n";
  34. }
  35. print "\n";
  36.  
  37. print "PRStaticLinkTable ",$table,"[] = {\n";
  38. foreach $symbol (@ARGV) {
  39.     print "  { \"",$symbol,"\", ",$symbol," },\n";
  40. }
  41. print "  { 0, 0, },\n";
  42. print "};\n";
  43.