-#include <stdexcept>
-#include <vector>
-#include <msp/fs/dir.h>
-#include <msp/fs/utils.h>
-#include <msp/strings/format.h>
-#include "builder.h"
-#include "component.h"
-#include "executable.h"
-#include "externaltask.h"
-#include "gnucxxcompiler.h"
-#include "gnulinker.h"
-#include "objectfile.h"
-#include "sharedlibrary.h"
-#include "sourcepackage.h"
-#include "staticlibrary.h"
-
-using namespace std;
-using namespace Msp;
-
-GnuLinker::GnuLinker(Builder &b):
- Tool(b, "LINK")
-{
- input_suffixes.push_back(".o");
- input_suffixes.push_back(".a");
-
- const Architecture &arch = builder.get_current_arch();
- if(arch.is_native())
- {
- system_path.push_back("/lib");
- system_path.push_back("/usr/lib");
- if(arch.match_name("pc-32-linux"))
- system_path.push_back("/usr/lib/i386-linux-gnu");
- else if(arch.match_name("pc-64-linux"))
- system_path.push_back("/usr/lib/x86_64-linux-gnu");
- }
- else
- system_path.push_back("/usr/"+arch.get_cross_prefix()+"/lib");
-
- default_linker = new Linker(*this, "CC");
- cxx_linker = new Linker(*this, "CXX");
-}
-
-GnuLinker::~GnuLinker()
-{
- delete default_linker;
- delete cxx_linker;
-}
-
-Target *GnuLinker::create_target(const list<Target *> &sources, const std::string &arg) const
-{
- if(sources.empty())
- throw invalid_argument("GnuLinker::create_target");
- list<ObjectFile *> objs;
- Linker *linker = default_linker;
- for(list<Target *>::const_iterator i=sources.begin(); i!=sources.end(); ++i)
- {
- if(ObjectFile *obj = dynamic_cast<ObjectFile *>(*i))
- {
- objs.push_back(obj);
- if(obj->get_tool()->get_tag()=="CXX")
- linker = cxx_linker;
- }
- else
- throw invalid_argument("GnuLinker::create_target");
- }
-
- const Component &comp = objs.front()->get_component();
- Binary *bin = 0;
- if(arg=="shared")
- bin = new SharedLibrary(builder, comp, objs);
- else
- bin = new Executable(builder, comp, objs);
- bin->set_tool(*linker);
- return bin;
-}
-
-Task *GnuLinker::run(const Target &) const
-{
- throw logic_error("GnuLinker should not be run directly");
-}
-
-
-GnuLinker::Linker::Linker(GnuLinker &p, const string &compiler_tag):
- SubTool(p)
-{
- if(compiler_tag=="CC")
- command = "gcc";
- else if(compiler_tag=="CXX")
- command = "g++";
- else
- throw invalid_argument("GnuLinker::Linker::Linker");
-}
-
-Target *GnuLinker::Linker::create_target(const list<Target *> &sources, const string &arg) const
-{
- return parent.create_target(sources, arg);
-}
-
-Task *GnuLinker::Linker::run(const Target &target) const
-{
- const Binary &bin = dynamic_cast<const Binary &>(target);
-
- vector<string> argv;
- argv.push_back(command);
-
- const Component &comp = *bin.get_component();
-
- if(const SharedLibrary *shlib = dynamic_cast<const SharedLibrary *>(&bin))
- {
- argv.push_back("-shared");
- argv.push_back("-fPIC");
- if(!shlib->get_soname().empty())
- argv.push_back("-Wl,-soname,"+shlib->get_soname());
- }
- else if(comp.get_package().get_library_mode()==ALL_STATIC)
- argv.push_back("-static");
-
- const BuildInfo &binfo = comp.get_build_info();
- for(BuildInfo::PathList::const_iterator i=binfo.libpath.begin(); i!=binfo.libpath.end(); ++i)
- argv.push_back("-L"+i->str());
- if(binfo.strip)
- argv.push_back("-s");
- if(binfo.threads)
- argv.push_back("-pthread");
-
- const Architecture &arch = builder.get_current_arch();
- const Architecture &native_arch = builder.get_native_arch();
- if(arch.get_bits()!=native_arch.get_bits())
- argv.push_back(format("-m%d", arch.get_bits()));
-
- FS::Path work_dir = comp.get_package().get_source();
-
- argv.push_back("-o");
- argv.push_back(relative(bin.get_path(), work_dir).str());
-
- const Target::Dependencies &depends = target.get_depends();
- for(Target::Dependencies::const_iterator i=depends.begin(); i!=depends.end(); ++i)
- {
- Target *tgt = (*i)->get_real_target();
-
- if(ObjectFile *obj = dynamic_cast<ObjectFile *>(tgt))
- argv.push_back(relative(obj->get_path(), work_dir).str());
- else if(StaticLibrary *stlib = dynamic_cast<StaticLibrary *>(tgt))
- argv.push_back(stlib->get_path().str());
- else if(SharedLibrary *shlib = dynamic_cast<SharedLibrary *>(tgt))
- argv.push_back("-l"+shlib->get_libname());
- }
-
- if(!builder.get_dry_run())
- FS::mkpath(FS::dirname(bin.get_path()), 0755);
-
- return new ExternalTask(argv, work_dir);
-}