blob: c0dc05e1969e82c1777247fe4d8653e1cf3714dc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
|
// file : bpkg/pkg-configure.cxx -*- C++ -*-
// copyright : Copyright (c) 2014-2015 Code Synthesis Ltd
// license : MIT; see accompanying LICENSE file
#include <bpkg/pkg-configure>
#include <bpkg/types>
#include <bpkg/package>
#include <bpkg/package-odb>
#include <bpkg/utility>
#include <bpkg/database>
#include <bpkg/diagnostics>
#include <bpkg/pkg-disfigure>
using namespace std;
using namespace butl;
namespace bpkg
{
void
pkg_configure (const pkg_configure_options& o, cli::scanner& args)
{
tracer trace ("pkg_configure");
const dir_path& c (o.directory ());
level4 ([&]{trace << "configuration: " << c;});
// Sort arguments into the package name and configuration variables.
//
string n;
strings vars;
while (args.more ())
{
string a (args.next ());
if (a.find ('=') != string::npos)
vars.push_back (move (a));
else if (n.empty ())
n = move (a);
else
fail << "unexpected argument '" << a << "'";
}
if (n.empty ())
fail << "package name argument expected" <<
info << "run 'bpkg help pkg-configure' for more information";
database db (open (c, trace));
transaction t (db.begin ());
shared_ptr<package> p (db.find<package> (n));
if (p == nullptr)
fail << "package " << n << " does not exist in configuration " << c;
if (p->state != state::unpacked)
fail << "package " << n << " is " << p->state <<
info << "expected it to be unpacked";
level4 ([&]{trace << p->name << " " << p->version;});
// Calculate package's src_root and out_root.
//
assert (p->src_root); // Must be set since unpacked.
dir_path src_root (p->src_root->absolute ()
? *p->src_root
: c / *p->src_root);
dir_path out_root (c / dir_path (p->name + "-" + p->version.string ()));
level4 ([&]{trace << "src_root: " << src_root << ", "
<< "out_root: " << out_root;});
// Form the buildspec.
//
string bspec;
if (src_root == out_root)
bspec = "configure(" + out_root.string () + "/)";
else
bspec = "configure(" +
src_root.string () + "/@" +
out_root.string () + "/)";
level4 ([&]{trace << "buildspec: " << bspec;});
// Configure.
//
try
{
run_b (bspec);
}
catch (const failed&)
{
// If we failed to configure the package, make sure we revert
// it back to the unpacked state by running disfigure (it is
// valid to run disfigure on an un-configured build). And if
// disfigure fails as well, then the package will be set into
// the broken state.
//
// Pretend we are configured.
//
p->out_root = out_root.leaf ();
p->state = state::configured;
pkg_disfigure (c, t, p); // Commits the transaction.
throw;
}
p->out_root = out_root.leaf ();
p->state = state::configured;
db.update (p);
t.commit ();
if (verb)
text << "configured " << p->name << " " << p->version;
}
}
|