2 #include <msp/fs/utils.h>
3 #include <msp/strings/format.h>
4 #include "architecture.h"
7 #include "exportdefinitions.h"
8 #include "externaltask.h"
9 #include "importlibrary.h"
10 #include "installedfile.h"
11 #include "mingwdlltool.h"
12 #include "objectfile.h"
13 #include "sharedlibrary.h"
14 #include "sourcepackage.h"
19 MingwDllTool::MingwDllTool(Builder &b, const Architecture &a):
23 Target *MingwDllTool::create_target(const list<Target *> &sources, const string &)
26 throw invalid_argument("MingwDllTool::create_target");
27 SharedLibrary &shlib = dynamic_cast<SharedLibrary &>(*sources.front());
29 list<ObjectFile *> objs;
30 const Target::Dependencies &depends = shlib.get_dependencies();
31 for(Target::Dependencies::const_iterator i=depends.begin(); i!=depends.end(); ++i)
32 if(ObjectFile *obj = dynamic_cast<ObjectFile *>(*i))
35 ExportDefinitions *exp = new ExportDefinitions(builder, *shlib.get_component(), objs);
38 ImportLibrary *imp = new ImportLibrary(builder, *shlib.get_component(), shlib, *exp);
44 Target *MingwDllTool::create_install(Target &target) const
46 if(ImportLibrary *imp = dynamic_cast<ImportLibrary *>(&target))
48 Tool © = builder.get_toolchain().get_tool("CP");
49 InstalledFile *inst_tgt = dynamic_cast<InstalledFile *>(copy.create_target(target));
50 string link_name = format("lib%s.dll.a", imp->get_shared_library()->get_libname());
51 if(link_name!=FS::basename(inst_tgt->get_path()))
52 inst_tgt->set_symlink(link_name);
59 void MingwDllTool::do_prepare()
61 string command = "dlltool";
62 if(architecture->is_cross())
63 command = format("%s-%s", architecture->get_cross_prefix(), command);
64 executable = builder.get_vfs().find_binary(command);
67 Task *MingwDllTool::run(const Target &target) const
69 const ImportLibrary *imp = dynamic_cast<const ImportLibrary *>(&target);
70 const ExportDefinitions *exp = 0;
72 exp = &dynamic_cast<const ExportDefinitions &>(*imp->get_dependencies().front());
74 exp = dynamic_cast<const ExportDefinitions *>(&target);
76 throw invalid_argument("MingwDllTool::run");
79 argv.push_back(executable->get_path().str());
81 /* dlltool is stupid and puts temporary files in the working directory by
83 argv.push_back("--temp-prefix");
85 for(unsigned i=0; i<8; ++i)
86 random[i] = 'a'+(rand()%26);
87 argv.push_back(string("/tmp/")+string(random, 8));
89 const Component &comp = *target.get_component();
90 FS::Path work_dir = comp.get_package().get_source_directory();
94 const SharedLibrary &shlib = *imp->get_shared_library();
97 argv.push_back(relative(exp->get_path(), work_dir).str());
100 if(shlib.get_install_filename().empty())
101 argv.push_back(FS::basename(shlib.get_path()));
103 argv.push_back(shlib.get_install_filename());
105 argv.push_back("-l");
106 argv.push_back(relative(imp->get_path(), work_dir).str());
110 const Target::Dependencies &depends = exp->get_dependencies();
111 for(Target::Dependencies::const_iterator i=depends.begin(); i!=depends.end(); ++i)
113 if(ObjectFile *obj = dynamic_cast<ObjectFile *>(*i))
114 argv.push_back(relative(obj->get_path(), work_dir).str());
117 // XXX Should use dllexport, but that has some other problems to solve
118 argv.push_back("--export-all-symbols");
120 argv.push_back("-z");
121 argv.push_back(relative(exp->get_path(), work_dir).str());
124 return new ExternalTask(argv, work_dir);