/*
 *  MICO --- an Open Source CORBA implementation
 *  Copyright (c) 2003 Harald Böhme
 *
 *  This program is free software; you can redistribute it and/or modify
 *  it under the terms of the GNU General Public License as published by
 *  the Free Software Foundation; either version 2 of the License, or
 *  (at your option) any later version.
 *
 *  This program is distributed in the hope that it will be useful,
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *  GNU General Public License for more details.
 *
 *  You should have received a copy of the GNU General Public License
 *  along with this program; if not, write to the Free Software
 *  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
 *
 *  For more information, visit the MICO Home Page at
 *  http://www.mico.org/
 */

/* Modified by Cedric Gustin <cedric.gustin@gmail.com> on 2006/01/13 :
 * Redirect the output of dumpbin to dumpbin.out instead of reading the
 * output stream of popen, as it fails with Visual Studio 2005 in 
 * pre-link build events.
 */

#include <iostream>
#include <fstream>
#include <stdio.h>

using namespace std;

int main(int argc,char** argv)
{
  if (argc < 4) {
	  cerr << "Usage: " << argv[0] << " <def-file-name> <dll-base-name> <obj-file> ...." << endl;
	  return 2;
  }

  // CG : Explicitly redirect stdout to dumpbin.out.
  string dumpbin = "dumpbin /SYMBOLS /OUT:dumpbin.out";
  int i = 3;

  for(;i<argc;) {
	  dumpbin += " ";
	  dumpbin += argv[i++];
  }

  FILE * dump; 
  
  if( (dump = _popen(dumpbin.c_str(),"r")) == NULL ) {
	  cerr << "could not popen dumpbin" << endl;
	  return 3;
  }

  // CG : Wait for the dumpbin process to finish and open dumpbin.out.
  _pclose(dump);
  dump=fopen("dumpbin.out","r");

  ofstream def_file(argv[1]);

  def_file << "LIBRARY " << argv[2] << endl;
  def_file << "EXPORTS" << endl;

  i=0;
  while( !feof(dump)) {
	  char buf [65000]; 
	  
	  if( fgets( buf, 64999, dump ) != NULL ) {
		  if(!strstr(buf," UNDEF ") && strstr(buf," External ")) {
			  char *s = strchr(buf,'|') + 1;
			  while(*s == ' ' || *s == '\t') s++;
			  char *e=s;
			  while(*e != ' ' && *e != '\t' && *e != '\0' && *e!= '\n') e++;
			  *e = '\0';
			
			if(strchr(s,'?')==0 && s[0]=='_' && strchr(s,'@') == 0 )//this is a C export type: _fct -> fct
				  def_file << "    " << (s+1) << endl;			
			else
			if(strchr(s,'?')!=0 && strncmp(s,"??_G",4)!=0 && strncmp(s,"??_E",4)!=0) {
				  def_file << "    " << s << endl;
			  }
		  }
	  }
  }

  // CG : Close dumpbin.out and delete it.
  fclose(dump);
  remove("dumpbin.out");

  cout << dumpbin.c_str() << endl;
}
