|
Packit Service |
e3b512 |
/*
|
|
Packit Service |
e3b512 |
* MICO --- an Open Source CORBA implementation
|
|
Packit Service |
e3b512 |
* Copyright (c) 2003 Harald Böhme
|
|
Packit Service |
e3b512 |
*
|
|
Packit Service |
e3b512 |
* This program is free software; you can redistribute it and/or modify
|
|
Packit Service |
e3b512 |
* it under the terms of the GNU General Public License as published by
|
|
Packit Service |
e3b512 |
* the Free Software Foundation; either version 2 of the License, or
|
|
Packit Service |
e3b512 |
* (at your option) any later version.
|
|
Packit Service |
e3b512 |
*
|
|
Packit Service |
e3b512 |
* This program is distributed in the hope that it will be useful,
|
|
Packit Service |
e3b512 |
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
Packit Service |
e3b512 |
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
Packit Service |
e3b512 |
* GNU General Public License for more details.
|
|
Packit Service |
e3b512 |
*
|
|
Packit Service |
e3b512 |
* You should have received a copy of the GNU General Public License
|
|
Packit Service |
e3b512 |
* along with this program; if not, write to the Free Software
|
|
Packit Service |
e3b512 |
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
Packit Service |
e3b512 |
*
|
|
Packit Service |
e3b512 |
* For more information, visit the MICO Home Page at
|
|
Packit Service |
e3b512 |
* http://www.mico.org/
|
|
Packit Service |
e3b512 |
*/
|
|
Packit Service |
e3b512 |
|
|
Packit Service |
e3b512 |
/* Modified by Cedric Gustin <cedric.gustin@gmail.com> on 2006/01/13 :
|
|
Packit Service |
e3b512 |
* Redirect the output of dumpbin to dumpbin.out instead of reading the
|
|
Packit Service |
e3b512 |
* output stream of popen, as it fails with Visual Studio 2005 in
|
|
Packit Service |
e3b512 |
* pre-link build events.
|
|
Packit Service |
e3b512 |
*/
|
|
Packit Service |
e3b512 |
|
|
Packit Service |
e3b512 |
#include <iostream>
|
|
Packit Service |
e3b512 |
#include <fstream>
|
|
Packit Service |
e3b512 |
#include <stdio.h>
|
|
Packit Service |
e3b512 |
|
|
Packit Service |
e3b512 |
using namespace std;
|
|
Packit Service |
e3b512 |
|
|
Packit Service |
e3b512 |
int main(int argc,char** argv)
|
|
Packit Service |
e3b512 |
{
|
|
Packit Service |
e3b512 |
if (argc < 4) {
|
|
Packit Service |
e3b512 |
cerr << "Usage: " << argv[0] << " <def-file-name> <dll-base-name> <obj-file> ...." << endl;
|
|
Packit Service |
e3b512 |
return 2;
|
|
Packit Service |
e3b512 |
}
|
|
Packit Service |
e3b512 |
|
|
Packit Service |
e3b512 |
// CG : Explicitly redirect stdout to dumpbin.out.
|
|
Packit Service |
e3b512 |
string dumpbin = "dumpbin /SYMBOLS /OUT:dumpbin.out";
|
|
Packit Service |
e3b512 |
int i = 3;
|
|
Packit Service |
e3b512 |
|
|
Packit Service |
e3b512 |
for(;i
|
|
Packit Service |
e3b512 |
dumpbin += " ";
|
|
Packit Service |
e3b512 |
dumpbin += argv[i++];
|
|
Packit Service |
e3b512 |
}
|
|
Packit Service |
e3b512 |
|
|
Packit Service |
e3b512 |
FILE * dump;
|
|
Packit Service |
e3b512 |
|
|
Packit Service |
e3b512 |
if( (dump = _popen(dumpbin.c_str(),"r")) == NULL ) {
|
|
Packit Service |
e3b512 |
cerr << "could not popen dumpbin" << endl;
|
|
Packit Service |
e3b512 |
return 3;
|
|
Packit Service |
e3b512 |
}
|
|
Packit Service |
e3b512 |
|
|
Packit Service |
e3b512 |
// CG : Wait for the dumpbin process to finish and open dumpbin.out.
|
|
Packit Service |
e3b512 |
_pclose(dump);
|
|
Packit Service |
e3b512 |
dump=fopen("dumpbin.out","r");
|
|
Packit Service |
e3b512 |
|
|
Packit Service |
e3b512 |
ofstream def_file(argv[1]);
|
|
Packit Service |
e3b512 |
|
|
Packit Service |
e3b512 |
def_file << "LIBRARY " << argv[2] << endl;
|
|
Packit Service |
e3b512 |
def_file << "EXPORTS" << endl;
|
|
Packit Service |
e3b512 |
|
|
Packit Service |
e3b512 |
i=0;
|
|
Packit Service |
e3b512 |
while( !feof(dump)) {
|
|
Packit Service |
e3b512 |
char buf [65000];
|
|
Packit Service |
e3b512 |
|
|
Packit Service |
e3b512 |
if( fgets( buf, 64999, dump ) != NULL ) {
|
|
Packit Service |
e3b512 |
if(!strstr(buf," UNDEF ") && strstr(buf," External ")) {
|
|
Packit Service |
e3b512 |
char *s = strchr(buf,'|') + 1;
|
|
Packit Service |
e3b512 |
while(*s == ' ' || *s == '\t') s++;
|
|
Packit Service |
e3b512 |
char *e=s;
|
|
Packit Service |
e3b512 |
while(*e != ' ' && *e != '\t' && *e != '\0' && *e!= '\n') e++;
|
|
Packit Service |
e3b512 |
*e = '\0';
|
|
Packit Service |
e3b512 |
|
|
Packit Service |
e3b512 |
if(strchr(s,'?')==0 && s[0]=='_' && strchr(s,'@') == 0 )//this is a C export type: _fct -> fct
|
|
Packit Service |
e3b512 |
def_file << " " << (s+1) << endl;
|
|
Packit Service |
e3b512 |
else
|
|
Packit Service |
e3b512 |
if(strchr(s,'?')!=0 && strncmp(s,"??_G",4)!=0 && strncmp(s,"??_E",4)!=0) {
|
|
Packit Service |
e3b512 |
def_file << " " << s << endl;
|
|
Packit Service |
e3b512 |
}
|
|
Packit Service |
e3b512 |
}
|
|
Packit Service |
e3b512 |
}
|
|
Packit Service |
e3b512 |
}
|
|
Packit Service |
e3b512 |
|
|
Packit Service |
e3b512 |
// CG : Close dumpbin.out and delete it.
|
|
Packit Service |
e3b512 |
fclose(dump);
|
|
Packit Service |
e3b512 |
remove("dumpbin.out");
|
|
Packit Service |
e3b512 |
|
|
Packit Service |
e3b512 |
cout << dumpbin.c_str() << endl;
|
|
Packit Service |
e3b512 |
}
|