Index: gendef.pl

===================================================================

RCS file: X:\\postgres\\cvsuproot/pgsql/src/tools/msvc/gendef.pl,v

retrieving revision 1.1

diff -c -r1.1 gendef.pl

*** gendef.pl	4 Sep 2006 21:30:40 -0000	1.1

--- gendef.pl	3 Oct 2006 07:20:26 -0000

***************

*** 10,18 ****

  

  print "Generating $defname.DEF from directory $ARGV[0]\n";

  

! while (<$ARGV[0]/*>) {

      print ".";

! 	open(F,"dumpbin /symbols $_|") || die "Could not open $_\n";

  	while (<F>) {

  		s/\(\)//g;

  		next unless /^\d/;

--- 10,23 ----

  

  print "Generating $defname.DEF from directory $ARGV[0]\n";

  

! while (<$ARGV[0]/*.obj>) {

      print ".";

!     #open(F,"dumpbin /symbols $_|") || die "Could not open $_\n";

! 	s/\//\\/g;

! 	system("dumpbin /symbols $_  /out:$_.syms") == 0 or die "Could not dumpbin $_\n";

! 	my $tmpfn = "$_.syms";

! 	open(F, $tmpfn) || die "Could not open $tmpfn\n";

! 	

  	while (<F>) {

  		s/\(\)//g;

  		next unless /^\d/;

***************

*** 31,36 ****

--- 36,42 ----

  		push @def, $pieces[6];

  	}

  	close(F);

+ 	unlink $tmpfn;

  }

  print "\n";