bpkg/pkg-command.cxx


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

// file      : bpkg/pkg-command.cxx -*- C++ -*-
// copyright : Copyright (c) 2014-2015 Code Synthesis Ltd
// license   : MIT; see accompanying LICENSE file

#include <bpkg/pkg-command>

#include <bpkg/types>
#include <bpkg/package>
#include <bpkg/package-odb>
#include <bpkg/utility>
#include <bpkg/database>
#include <bpkg/diagnostics>

using namespace std;
using namespace butl;

namespace bpkg
{
  void
  pkg_command (const string& cmd,
               const dir_path& c,
               const common_options& o,
               const shared_ptr<selected_package>& p)
  {
    tracer trace ("pkg_command");

    assert (p->state == package_state::configured);
    assert (p->out_root); // Should be present since configured.

    level4 ([&]{trace << "command: " << cmd;});

    dir_path out_root (c / *p->out_root); // Always relative.
    level4 ([&]{trace << "out_root: " << out_root;});

    // Form the buildspec.
    //
    string bspec (cmd + "(" + out_root.string () + "/)");
    level4 ([&]{trace << "buildspec: " << bspec;});

    run_b (o, bspec);
  }

  int
  pkg_command (const string& cmd,
               const configuration_options& o,
               cli::scanner& args)
  {
    tracer trace ("pkg_command");

    const dir_path& c (o.directory ());
    level4 ([&]{trace << "configuration: " << c;});

    if (!args.more ())
      fail << "package name argument expected" <<
        info << "run 'bpkg help pkg-" << cmd << "' for more information";

    string n (args.next ());

    database db (open (c, trace));

    transaction t (db.begin ());
    shared_ptr<selected_package> p (db.find<selected_package> (n));
    t.commit ();

    if (p == nullptr)
      fail << "package " << n << " does not exist in configuration " << c;

    if (p->state != package_state::configured)
      fail << "package " << n << " is " << p->state <<
        info << "expected it to be configured";

    level4 ([&]{trace << p->name << " " << p->version;});

    pkg_command (cmd, c, o, p);

    if (verb)
      text << cmd << (cmd.back () != 'e' ? "ed " : "d ")
           << p->name << " " << p->version;

    return 0;
  }
}