Make changes required for testtest

6 files changed, 1695 insertions, 0 deletions

diff --git a/monitor/module-options.cxx b/monitor/module-options.cxx
new file mode 100644
index 0000000..86078f3
--- /dev/null
+++ b/monitor/module-options.cxx
@@ -0,0 +1,453 @@
+// -*- C++ -*-
+//
+// This file was generated by CLI, a command line interface
+// compiler for C++.
+//
+
+// Begin prologue.
+//
+//
+// End prologue.
+
+#include <monitor/module-options.hxx>
+
+#include <map>
+#include <set>
+#include <string>
+#include <vector>
+#include <ostream>
+#include <sstream>
+
+namespace brep
+{
+  namespace cli
+  {
+    template <typename X>
+    struct parser
+    {
+      static void
+      parse (X& x, bool& xs, scanner& s)
+      {
+        using namespace std;
+
+        const char* o (s.next ());
+        if (s.more ())
+        {
+          string v (s.next ());
+          istringstream is (v);
+          if (!(is >> x && is.peek () == istringstream::traits_type::eof ()))
+            throw invalid_value (o, v);
+        }
+        else
+          throw missing_value (o);
+
+        xs = true;
+      }
+    };
+
+    template <>
+    struct parser<bool>
+    {
+      static void
+      parse (bool& x, scanner& s)
+      {
+        s.next ();
+        x = true;
+      }
+    };
+
+    template <>
+    struct parser<std::string>
+    {
+      static void
+      parse (std::string& x, bool& xs, scanner& s)
+      {
+        const char* o (s.next ());
+
+        if (s.more ())
+          x = s.next ();
+        else
+          throw missing_value (o);
+
+        xs = true;
+      }
+    };
+
+    template <typename X>
+    struct parser<std::vector<X> >
+    {
+      static void
+      parse (std::vector<X>& c, bool& xs, scanner& s)
+      {
+        X x;
+        bool dummy;
+        parser<X>::parse (x, dummy, s);
+        c.push_back (x);
+        xs = true;
+      }
+    };
+
+    template <typename X, typename C>
+    struct parser<std::set<X, C> >
+    {
+      static void
+      parse (std::set<X, C>& c, bool& xs, scanner& s)
+      {
+        X x;
+        bool dummy;
+        parser<X>::parse (x, dummy, s);
+        c.insert (x);
+        xs = true;
+      }
+    };
+
+    template <typename K, typename V, typename C>
+    struct parser<std::map<K, V, C> >
+    {
+      static void
+      parse (std::map<K, V, C>& m, bool& xs, scanner& s)
+      {
+        const char* o (s.next ());
+
+        if (s.more ())
+        {
+          std::string ov (s.next ());
+          std::string::size_type p = ov.find ('=');
+
+          K k = K ();
+          V v = V ();
+          std::string kstr (ov, 0, p);
+          std::string vstr (ov, (p != std::string::npos ? p + 1 : ov.size ()));
+
+          int ac (2);
+          char* av[] =
+          {
+            const_cast<char*> (o),
+            0
+          };
+
+          bool dummy;
+          if (!kstr.empty ())
+          {
+            av[1] = const_cast<char*> (kstr.c_str ());
+            argv_scanner s (0, ac, av);
+            parser<K>::parse (k, dummy, s);
+          }
+
+          if (!vstr.empty ())
+          {
+            av[1] = const_cast<char*> (vstr.c_str ());
+            argv_scanner s (0, ac, av);
+            parser<V>::parse (v, dummy, s);
+          }
+
+          m[k] = v;
+        }
+        else
+          throw missing_value (o);
+
+        xs = true;
+      }
+    };
+
+    template <typename X, typename T, T X::*M>
+    void
+    thunk (X& x, scanner& s)
+    {
+      parser<T>::parse (x.*M, s);
+    }
+
+    template <typename X, typename T, T X::*M, bool X::*S>
+    void
+    thunk (X& x, scanner& s)
+    {
+      parser<T>::parse (x.*M, x.*S, s);
+    }
+  }
+}
+
+#include <map>
+#include <cstring>
+
+namespace brep
+{
+  namespace options
+  {
+    // module
+    //
+
+    module::
+    module ()
+    {
+    }
+
+    bool module::
+    parse (int& argc,
+           char** argv,
+           bool erase,
+           ::brep::cli::unknown_mode opt,
+           ::brep::cli::unknown_mode arg)
+    {
+      ::brep::cli::argv_scanner s (argc, argv, erase);
+      bool r = _parse (s, opt, arg);
+      return r;
+    }
+
+    bool module::
+    parse (int start,
+           int& argc,
+           char** argv,
+           bool erase,
+           ::brep::cli::unknown_mode opt,
+           ::brep::cli::unknown_mode arg)
+    {
+      ::brep::cli::argv_scanner s (start, argc, argv, erase);
+      bool r = _parse (s, opt, arg);
+      return r;
+    }
+
+    bool module::
+    parse (int& argc,
+           char** argv,
+           int& end,
+           bool erase,
+           ::brep::cli::unknown_mode opt,
+           ::brep::cli::unknown_mode arg)
+    {
+      ::brep::cli::argv_scanner s (argc, argv, erase);
+      bool r = _parse (s, opt, arg);
+      end = s.end ();
+      return r;
+    }
+
+    bool module::
+    parse (int start,
+           int& argc,
+           char** argv,
+           int& end,
+           bool erase,
+           ::brep::cli::unknown_mode opt,
+           ::brep::cli::unknown_mode arg)
+    {
+      ::brep::cli::argv_scanner s (start, argc, argv, erase);
+      bool r = _parse (s, opt, arg);
+      end = s.end ();
+      return r;
+    }
+
+    bool module::
+    parse (::brep::cli::scanner& s,
+           ::brep::cli::unknown_mode opt,
+           ::brep::cli::unknown_mode arg)
+    {
+      bool r = _parse (s, opt, arg);
+      return r;
+    }
+
+    typedef
+    std::map<std::string, void (*) (module&, ::brep::cli::scanner&)>
+    _cli_module_map;
+
+    static _cli_module_map _cli_module_map_;
+
+    struct _cli_module_map_init
+    {
+      _cli_module_map_init ()
+      {
+      }
+    };
+
+    static _cli_module_map_init _cli_module_map_init_;
+
+    bool module::
+    _parse (const char* o, ::brep::cli::scanner& s)
+    {
+      _cli_module_map::const_iterator i (_cli_module_map_.find (o));
+
+      if (i != _cli_module_map_.end ())
+      {
+        (*(i->second)) (*this, s);
+        return true;
+      }
+
+      // build_task base
+      //
+      if (::brep::options::build_task::_parse (o, s))
+        return true;
+
+      return false;
+    }
+
+    bool module::
+    _parse (::brep::cli::scanner& s,
+            ::brep::cli::unknown_mode opt_mode,
+            ::brep::cli::unknown_mode arg_mode)
+    {
+      // Can't skip combined flags (--no-combined-flags).
+      //
+      assert (opt_mode != ::brep::cli::unknown_mode::skip);
+
+      bool r = false;
+      bool opt = true;
+
+      while (s.more ())
+      {
+        const char* o = s.peek ();
+
+        if (std::strcmp (o, "--") == 0)
+        {
+          opt = false;
+          s.skip ();
+          r = true;
+          continue;
+        }
+
+        if (opt)
+        {
+          if (_parse (o, s))
+          {
+            r = true;
+            continue;
+          }
+
+          if (std::strncmp (o, "-", 1) == 0 && o[1] != '\0')
+          {
+            // Handle combined option values.
+            //
+            std::string co;
+            if (const char* v = std::strchr (o, '='))
+            {
+              co.assign (o, 0, v - o);
+              ++v;
+
+              int ac (2);
+              char* av[] =
+              {
+                const_cast<char*> (co.c_str ()),
+                const_cast<char*> (v)
+              };
+
+              ::brep::cli::argv_scanner ns (0, ac, av);
+
+              if (_parse (co.c_str (), ns))
+              {
+                // Parsed the option but not its value?
+                //
+                if (ns.end () != 2)
+                  throw ::brep::cli::invalid_value (co, v);
+
+                s.next ();
+                r = true;
+                continue;
+              }
+              else
+              {
+                // Set the unknown option and fall through.
+                //
+                o = co.c_str ();
+              }
+            }
+
+            // Handle combined flags.
+            //
+            char cf[3];
+            {
+              const char* p = o + 1;
+              for (; *p != '\0'; ++p)
+              {
+                if (!((*p >= 'a' && *p <= 'z') ||
+                      (*p >= 'A' && *p <= 'Z') ||
+                      (*p >= '0' && *p <= '9')))
+                  break;
+              }
+
+              if (*p == '\0')
+              {
+                for (p = o + 1; *p != '\0'; ++p)
+                {
+                  std::strcpy (cf, "-");
+                  cf[1] = *p;
+                  cf[2] = '\0';
+
+                  int ac (1);
+                  char* av[] =
+                  {
+                    cf
+                  };
+
+                  ::brep::cli::argv_scanner ns (0, ac, av);
+
+                  if (!_parse (cf, ns))
+                    break;
+                }
+
+                if (*p == '\0')
+                {
+                  // All handled.
+                  //
+                  s.next ();
+                  r = true;
+                  continue;
+                }
+                else
+                {
+                  // Set the unknown option and fall through.
+                  //
+                  o = cf;
+                }
+              }
+            }
+
+            switch (opt_mode)
+            {
+              case ::brep::cli::unknown_mode::skip:
+              {
+                s.skip ();
+                r = true;
+                continue;
+              }
+              case ::brep::cli::unknown_mode::stop:
+              {
+                break;
+              }
+              case ::brep::cli::unknown_mode::fail:
+              {
+                throw ::brep::cli::unknown_option (o);
+              }
+            }
+
+            break;
+          }
+        }
+
+        switch (arg_mode)
+        {
+          case ::brep::cli::unknown_mode::skip:
+          {
+            s.skip ();
+            r = true;
+            continue;
+          }
+          case ::brep::cli::unknown_mode::stop:
+          {
+            break;
+          }
+          case ::brep::cli::unknown_mode::fail:
+          {
+            throw ::brep::cli::unknown_argument (o);
+          }
+        }
+
+        break;
+      }
+
+      return r;
+    }
+  }
+}
+
+// Begin epilogue.
+//
+//
+// End epilogue.
+
diff --git a/monitor/module-options.hxx b/monitor/module-options.hxx
new file mode 100644
index 0000000..d4eaf16
--- /dev/null
+++ b/monitor/module-options.hxx
@@ -0,0 +1,91 @@
+// -*- C++ -*-
+//
+// This file was generated by CLI, a command line interface
+// compiler for C++.
+//
+
+#ifndef MONITOR_MODULE_OPTIONS_HXX
+#define MONITOR_MODULE_OPTIONS_HXX
+
+// Begin prologue.
+//
+//
+// End prologue.
+
+#include <mod/module-options.hxx>
+
+namespace brep
+{
+  namespace options
+  {
+    class module: public ::brep::options::build_task
+    {
+      public:
+      module ();
+
+      // Return true if anything has been parsed.
+      //
+      bool
+      parse (int& argc,
+             char** argv,
+             bool erase = false,
+             ::brep::cli::unknown_mode option = ::brep::cli::unknown_mode::fail,
+             ::brep::cli::unknown_mode argument = ::brep::cli::unknown_mode::stop);
+
+      bool
+      parse (int start,
+             int& argc,
+             char** argv,
+             bool erase = false,
+             ::brep::cli::unknown_mode option = ::brep::cli::unknown_mode::fail,
+             ::brep::cli::unknown_mode argument = ::brep::cli::unknown_mode::stop);
+
+      bool
+      parse (int& argc,
+             char** argv,
+             int& end,
+             bool erase = false,
+             ::brep::cli::unknown_mode option = ::brep::cli::unknown_mode::fail,
+             ::brep::cli::unknown_mode argument = ::brep::cli::unknown_mode::stop);
+
+      bool
+      parse (int start,
+             int& argc,
+             char** argv,
+             int& end,
+             bool erase = false,
+             ::brep::cli::unknown_mode option = ::brep::cli::unknown_mode::fail,
+             ::brep::cli::unknown_mode argument = ::brep::cli::unknown_mode::stop);
+
+      bool
+      parse (::brep::cli::scanner&,
+             ::brep::cli::unknown_mode option = ::brep::cli::unknown_mode::fail,
+             ::brep::cli::unknown_mode argument = ::brep::cli::unknown_mode::stop);
+
+      // Option accessors.
+      //
+      // Implementation details.
+      //
+      protected:
+      bool
+      _parse (const char*, ::brep::cli::scanner&);
+
+      private:
+      bool
+      _parse (::brep::cli::scanner&,
+              ::brep::cli::unknown_mode option,
+              ::brep::cli::unknown_mode argument);
+
+      public:
+    };
+  }
+}
+
+#include <monitor/module-options.ixx>
+
+// Begin epilogue.
+//
+//
+// End epilogue.
+
+#endif // MONITOR_MODULE_OPTIONS_HXX
diff --git a/monitor/module-options.ixx b/monitor/module-options.ixx
new file mode 100644
index 0000000..e456fc4
--- /dev/null
+++ b/monitor/module-options.ixx
@@ -0,0 +1,24 @@
+// -*- C++ -*-
+//
+// This file was generated by CLI, a command line interface
+// compiler for C++.
+//
+
+// Begin prologue.
+//
+//
+// End prologue.
+
+namespace brep
+{
+  namespace options
+  {
+    // module
+    //
+  }
+}
+
+// Begin epilogue.
+//
+//
+// End epilogue.
diff --git a/monitor/monitor-options.cxx b/monitor/monitor-options.cxx
new file mode 100644
index 0000000..fb085d9
--- /dev/null
+++ b/monitor/monitor-options.cxx
@@ -0,0 +1,779 @@
+// -*- C++ -*-
+//
+// This file was generated by CLI, a command line interface
+// compiler for C++.
+//
+
+// Begin prologue.
+//
+//
+// End prologue.
+
+#include <monitor/monitor-options.hxx>
+
+#include <map>
+#include <set>
+#include <string>
+#include <vector>
+#include <ostream>
+#include <sstream>
+
+namespace brep
+{
+  namespace cli
+  {
+    template <typename X>
+    struct parser
+    {
+      static void
+      parse (X& x, bool& xs, scanner& s)
+      {
+        using namespace std;
+
+        const char* o (s.next ());
+        if (s.more ())
+        {
+          string v (s.next ());
+          istringstream is (v);
+          if (!(is >> x && is.peek () == istringstream::traits_type::eof ()))
+            throw invalid_value (o, v);
+        }
+        else
+          throw missing_value (o);
+
+        xs = true;
+      }
+    };
+
+    template <>
+    struct parser<bool>
+    {
+      static void
+      parse (bool& x, scanner& s)
+      {
+        s.next ();
+        x = true;
+      }
+    };
+
+    template <>
+    struct parser<std::string>
+    {
+      static void
+      parse (std::string& x, bool& xs, scanner& s)
+      {
+        const char* o (s.next ());
+
+        if (s.more ())
+          x = s.next ();
+        else
+          throw missing_value (o);
+
+        xs = true;
+      }
+    };
+
+    template <typename X>
+    struct parser<std::vector<X> >
+    {
+      static void
+      parse (std::vector<X>& c, bool& xs, scanner& s)
+      {
+        X x;
+        bool dummy;
+        parser<X>::parse (x, dummy, s);
+        c.push_back (x);
+        xs = true;
+      }
+    };
+
+    template <typename X, typename C>
+    struct parser<std::set<X, C> >
+    {
+      static void
+      parse (std::set<X, C>& c, bool& xs, scanner& s)
+      {
+        X x;
+        bool dummy;
+        parser<X>::parse (x, dummy, s);
+        c.insert (x);
+        xs = true;
+      }
+    };
+
+    template <typename K, typename V, typename C>
+    struct parser<std::map<K, V, C> >
+    {
+      static void
+      parse (std::map<K, V, C>& m, bool& xs, scanner& s)
+      {
+        const char* o (s.next ());
+
+        if (s.more ())
+        {
+          std::string ov (s.next ());
+          std::string::size_type p = ov.find ('=');
+
+          K k = K ();
+          V v = V ();
+          std::string kstr (ov, 0, p);
+          std::string vstr (ov, (p != std::string::npos ? p + 1 : ov.size ()));
+
+          int ac (2);
+          char* av[] =
+          {
+            const_cast<char*> (o),
+            0
+          };
+
+          bool dummy;
+          if (!kstr.empty ())
+          {
+            av[1] = const_cast<char*> (kstr.c_str ());
+            argv_scanner s (0, ac, av);
+            parser<K>::parse (k, dummy, s);
+          }
+
+          if (!vstr.empty ())
+          {
+            av[1] = const_cast<char*> (vstr.c_str ());
+            argv_scanner s (0, ac, av);
+            parser<V>::parse (v, dummy, s);
+          }
+
+          m[k] = v;
+        }
+        else
+          throw missing_value (o);
+
+        xs = true;
+      }
+    };
+
+    template <typename X, typename T, T X::*M>
+    void
+    thunk (X& x, scanner& s)
+    {
+      parser<T>::parse (x.*M, s);
+    }
+
+    template <typename X, typename T, T X::*M, bool X::*S>
+    void
+    thunk (X& x, scanner& s)
+    {
+      parser<T>::parse (x.*M, x.*S, s);
+    }
+  }
+}
+
+#include <map>
+#include <cstring>
+
+namespace brep
+{
+  namespace options
+  {
+    // monitor
+    //
+
+    monitor::
+    monitor ()
+    : build_timeout_ (),
+      build_timeout_specified_ (false),
+      report_timeout_ (),
+      report_timeout_specified_ (false),
+      full_report_ (),
+      clean_ (),
+      build_db_user_ (),
+      build_db_user_specified_ (false),
+      build_db_password_ (),
+      build_db_password_specified_ (false),
+      build_db_name_ ("brep_package"),
+      build_db_name_specified_ (false),
+      build_db_host_ (),
+      build_db_host_specified_ (false),
+      build_db_port_ (),
+      build_db_port_specified_ (false),
+      pager_ (),
+      pager_specified_ (false),
+      pager_option_ (),
+      pager_option_specified_ (false),
+      help_ (),
+      version_ ()
+    {
+    }
+
+    monitor::
+    monitor (int& argc,
+             char** argv,
+             bool erase,
+             ::brep::cli::unknown_mode opt,
+             ::brep::cli::unknown_mode arg)
+    : build_timeout_ (),
+      build_timeout_specified_ (false),
+      report_timeout_ (),
+      report_timeout_specified_ (false),
+      full_report_ (),
+      clean_ (),
+      build_db_user_ (),
+      build_db_user_specified_ (false),
+      build_db_password_ (),
+      build_db_password_specified_ (false),
+      build_db_name_ ("brep_package"),
+      build_db_name_specified_ (false),
+      build_db_host_ (),
+      build_db_host_specified_ (false),
+      build_db_port_ (),
+      build_db_port_specified_ (false),
+      pager_ (),
+      pager_specified_ (false),
+      pager_option_ (),
+      pager_option_specified_ (false),
+      help_ (),
+      version_ ()
+    {
+      ::brep::cli::argv_scanner s (argc, argv, erase);
+      _parse (s, opt, arg);
+    }
+
+    monitor::
+    monitor (int start,
+             int& argc,
+             char** argv,
+             bool erase,
+             ::brep::cli::unknown_mode opt,
+             ::brep::cli::unknown_mode arg)
+    : build_timeout_ (),
+      build_timeout_specified_ (false),
+      report_timeout_ (),
+      report_timeout_specified_ (false),
+      full_report_ (),
+      clean_ (),
+      build_db_user_ (),
+      build_db_user_specified_ (false),
+      build_db_password_ (),
+      build_db_password_specified_ (false),
+      build_db_name_ ("brep_package"),
+      build_db_name_specified_ (false),
+      build_db_host_ (),
+      build_db_host_specified_ (false),
+      build_db_port_ (),
+      build_db_port_specified_ (false),
+      pager_ (),
+      pager_specified_ (false),
+      pager_option_ (),
+      pager_option_specified_ (false),
+      help_ (),
+      version_ ()
+    {
+      ::brep::cli::argv_scanner s (start, argc, argv, erase);
+      _parse (s, opt, arg);
+    }
+
+    monitor::
+    monitor (int& argc,
+             char** argv,
+             int& end,
+             bool erase,
+             ::brep::cli::unknown_mode opt,
+             ::brep::cli::unknown_mode arg)
+    : build_timeout_ (),
+      build_timeout_specified_ (false),
+      report_timeout_ (),
+      report_timeout_specified_ (false),
+      full_report_ (),
+      clean_ (),
+      build_db_user_ (),
+      build_db_user_specified_ (false),
+      build_db_password_ (),
+      build_db_password_specified_ (false),
+      build_db_name_ ("brep_package"),
+      build_db_name_specified_ (false),
+      build_db_host_ (),
+      build_db_host_specified_ (false),
+      build_db_port_ (),
+      build_db_port_specified_ (false),
+      pager_ (),
+      pager_specified_ (false),
+      pager_option_ (),
+      pager_option_specified_ (false),
+      help_ (),
+      version_ ()
+    {
+      ::brep::cli::argv_scanner s (argc, argv, erase);
+      _parse (s, opt, arg);
+      end = s.end ();
+    }
+
+    monitor::
+    monitor (int start,
+             int& argc,
+             char** argv,
+             int& end,
+             bool erase,
+             ::brep::cli::unknown_mode opt,
+             ::brep::cli::unknown_mode arg)
+    : build_timeout_ (),
+      build_timeout_specified_ (false),
+      report_timeout_ (),
+      report_timeout_specified_ (false),
+      full_report_ (),
+      clean_ (),
+      build_db_user_ (),
+      build_db_user_specified_ (false),
+      build_db_password_ (),
+      build_db_password_specified_ (false),
+      build_db_name_ ("brep_package"),
+      build_db_name_specified_ (false),
+      build_db_host_ (),
+      build_db_host_specified_ (false),
+      build_db_port_ (),
+      build_db_port_specified_ (false),
+      pager_ (),
+      pager_specified_ (false),
+      pager_option_ (),
+      pager_option_specified_ (false),
+      help_ (),
+      version_ ()
+    {
+      ::brep::cli::argv_scanner s (start, argc, argv, erase);
+      _parse (s, opt, arg);
+      end = s.end ();
+    }
+
+    monitor::
+    monitor (::brep::cli::scanner& s,
+             ::brep::cli::unknown_mode opt,
+             ::brep::cli::unknown_mode arg)
+    : build_timeout_ (),
+      build_timeout_specified_ (false),
+      report_timeout_ (),
+      report_timeout_specified_ (false),
+      full_report_ (),
+      clean_ (),
+      build_db_user_ (),
+      build_db_user_specified_ (false),
+      build_db_password_ (),
+      build_db_password_specified_ (false),
+      build_db_name_ ("brep_package"),
+      build_db_name_specified_ (false),
+      build_db_host_ (),
+      build_db_host_specified_ (false),
+      build_db_port_ (),
+      build_db_port_specified_ (false),
+      pager_ (),
+      pager_specified_ (false),
+      pager_option_ (),
+      pager_option_specified_ (false),
+      help_ (),
+      version_ ()
+    {
+      _parse (s, opt, arg);
+    }
+
+    ::brep::cli::usage_para monitor::
+    print_usage (::std::ostream& os, ::brep::cli::usage_para p)
+    {
+      CLI_POTENTIALLY_UNUSED (os);
+
+      if (p != ::brep::cli::usage_para::none)
+        os << ::std::endl;
+
+      os << "\033[1mOPTIONS\033[0m" << ::std::endl;
+
+      os << std::endl
+         << "\033[1m--build-timeout\033[0m \033[4mseconds\033[0m  Time to wait (in seconds) before considering a package" << ::std::endl
+         << "                         build as delayed. If unspecified, it is the sum of the" << ::std::endl
+         << "                         package rebuild timeout (normal rebuild timeout if the" << ::std::endl
+         << "                         alternative timeout is unspecified and the maximum of" << ::std::endl
+         << "                         two otherwise) and the build result timeout (see the" << ::std::endl
+         << "                         \033[1mbuild-normal-rebuild-timeout\033[0m, \033[1mbuild-alt-rebuild-*\033[0m, and" << ::std::endl
+         << "                         \033[1mbuild-result-timeout\033[0m brep\033[0m module configuration options" << ::std::endl
+         << "                         for details)." << ::std::endl
+         << ::std::endl
+         << "                         Note that a package that was not built before it was" << ::std::endl
+         << "                         archived is always considered as delayed. However, to" << ::std::endl
+         << "                         distinguish this case from a situation where a package" << ::std::endl
+         << "                         was archived before a configuration have been added," << ::std::endl
+         << "                         \033[1mbrep-monitor\033[0m needs to observe the package as buildable" << ::std::endl
+         << "                         for this configuration before it is archived. As" << ::std::endl
+         << "                         result, if you run \033[1mbrep-monitor\033[0m periodically (for" << ::std::endl
+         << "                         example, as a cron job), then make sure its running" << ::std::endl
+         << "                         period is less than the tenant archive timeout." << ::std::endl;
+
+      os << std::endl
+         << "\033[1m--report-timeout\033[0m \033[4mseconds\033[0m Time to wait (in seconds) before repeating a report of" << ::std::endl
+         << "                         a package build delay. By default there is no timeout" << ::std::endl
+         << "                         and all reports are repeated." << ::std::endl;
+
+      os << std::endl
+         << "\033[1m--full-report\033[0m            Print the list of delayed package builds rather than" << ::std::endl
+         << "                         just their number per build configuration." << ::std::endl;
+
+      os << std::endl
+         << "\033[1m--clean\033[0m                  Additionally clean the monitor state removing outdated" << ::std::endl
+         << "                         information related to non-existent packages," << ::std::endl
+         << "                         configurations, etc." << ::std::endl;
+
+      os << std::endl
+         << "\033[1m--build-db-user\033[0m|\033[1m-u\033[0m \033[4muser\033[0m  \033[1mbuild\033[0m database user name. If unspecified, then" << ::std::endl
+         << "                         operating system (login) name is used." << ::std::endl;
+
+      os << std::endl
+         << "\033[1m--build-db-password\033[0m \033[4mpass\033[0m \033[1mbuild\033[0m database password. If unspecified, then login" << ::std::endl
+         << "                         without password is expected to work." << ::std::endl;
+
+      os << std::endl
+         << "\033[1m--build-db-name\033[0m|\033[1m-n\033[0m \033[4mname\033[0m  \033[1mbuild\033[0m database name. If unspecified, then \033[1mbrep\033[0m's" << ::std::endl
+         << "                         \033[1mbuild-db-name\033[0m configuration option value is used." << ::std::endl;
+
+      os << std::endl
+         << "\033[1m--build-db-host\033[0m|\033[1m-h\033[0m \033[4mhost\033[0m  \033[1mbuild\033[0m database host name, address, or socket. If" << ::std::endl
+         << "                         unspecified, then \033[1mbrep\033[0m's \033[1mbuild-db-host\033[0m configuration" << ::std::endl
+         << "                         option value is used." << ::std::endl;
+
+      os << std::endl
+         << "\033[1m--build-db-port\033[0m|\033[1m-p\033[0m \033[4mport\033[0m  \033[1mbuild\033[0m database port number. If unspecified, then" << ::std::endl
+         << "                         \033[1mbrep\033[0m's \033[1mbuild-db-port\033[0m configuration option value is" << ::std::endl
+         << "                         used." << ::std::endl;
+
+      os << std::endl
+         << "\033[1m--pager\033[0m \033[4mpath\033[0m             The pager program to be used to show long text." << ::std::endl
+         << "                         Commonly used pager programs are \033[1mless\033[0m and \033[1mmore\033[0m. You" << ::std::endl
+         << "                         can also specify additional options that should be" << ::std::endl
+         << "                         passed to the pager program with \033[1m--pager-option\033[0m. If an" << ::std::endl
+         << "                         empty string is specified as the pager program, then" << ::std::endl
+         << "                         no pager will be used. If the pager program is not" << ::std::endl
+         << "                         explicitly specified, then \033[1mbrep-monitor\033[0m will try to" << ::std::endl
+         << "                         use \033[1mless\033[0m. If it is not available, then no pager will" << ::std::endl
+         << "                         be used." << ::std::endl;
+
+      os << std::endl
+         << "\033[1m--pager-option\033[0m \033[4mopt\033[0m       Additional option to be passed to the pager program." << ::std::endl
+         << "                         See \033[1m--pager\033[0m for more information on the pager program." << ::std::endl
+         << "                         Repeat this option to specify multiple pager options." << ::std::endl;
+
+      os << std::endl
+         << "\033[1m--help\033[0m                   Print usage information and exit." << ::std::endl;
+
+      os << std::endl
+         << "\033[1m--version\033[0m                Print version and exit." << ::std::endl;
+
+      p = ::brep::cli::usage_para::option;
+
+      return p;
+    }
+
+    typedef
+    std::map<std::string, void (*) (monitor&, ::brep::cli::scanner&)>
+    _cli_monitor_map;
+
+    static _cli_monitor_map _cli_monitor_map_;
+
+    struct _cli_monitor_map_init
+    {
+      _cli_monitor_map_init ()
+      {
+        _cli_monitor_map_["--build-timeout"] =
+        &::brep::cli::thunk< monitor, std::size_t, &monitor::build_timeout_,
+          &monitor::build_timeout_specified_ >;
+        _cli_monitor_map_["--report-timeout"] =
+        &::brep::cli::thunk< monitor, std::size_t, &monitor::report_timeout_,
+          &monitor::report_timeout_specified_ >;
+        _cli_monitor_map_["--full-report"] =
+        &::brep::cli::thunk< monitor, bool, &monitor::full_report_ >;
+        _cli_monitor_map_["--clean"] =
+        &::brep::cli::thunk< monitor, bool, &monitor::clean_ >;
+        _cli_monitor_map_["--build-db-user"] =
+        &::brep::cli::thunk< monitor, std::string, &monitor::build_db_user_,
+          &monitor::build_db_user_specified_ >;
+        _cli_monitor_map_["-u"] =
+        &::brep::cli::thunk< monitor, std::string, &monitor::build_db_user_,
+          &monitor::build_db_user_specified_ >;
+        _cli_monitor_map_["--build-db-password"] =
+        &::brep::cli::thunk< monitor, std::string, &monitor::build_db_password_,
+          &monitor::build_db_password_specified_ >;
+        _cli_monitor_map_["--build-db-name"] =
+        &::brep::cli::thunk< monitor, std::string, &monitor::build_db_name_,
+          &monitor::build_db_name_specified_ >;
+        _cli_monitor_map_["-n"] =
+        &::brep::cli::thunk< monitor, std::string, &monitor::build_db_name_,
+          &monitor::build_db_name_specified_ >;
+        _cli_monitor_map_["--build-db-host"] =
+        &::brep::cli::thunk< monitor, std::string, &monitor::build_db_host_,
+          &monitor::build_db_host_specified_ >;
+        _cli_monitor_map_["-h"] =
+        &::brep::cli::thunk< monitor, std::string, &monitor::build_db_host_,
+          &monitor::build_db_host_specified_ >;
+        _cli_monitor_map_["--build-db-port"] =
+        &::brep::cli::thunk< monitor, std::uint16_t, &monitor::build_db_port_,
+          &monitor::build_db_port_specified_ >;
+        _cli_monitor_map_["-p"] =
+        &::brep::cli::thunk< monitor, std::uint16_t, &monitor::build_db_port_,
+          &monitor::build_db_port_specified_ >;
+        _cli_monitor_map_["--pager"] =
+        &::brep::cli::thunk< monitor, std::string, &monitor::pager_,
+          &monitor::pager_specified_ >;
+        _cli_monitor_map_["--pager-option"] =
+        &::brep::cli::thunk< monitor, std::vector<std::string>, &monitor::pager_option_,
+          &monitor::pager_option_specified_ >;
+        _cli_monitor_map_["--help"] =
+        &::brep::cli::thunk< monitor, bool, &monitor::help_ >;
+        _cli_monitor_map_["--version"] =
+        &::brep::cli::thunk< monitor, bool, &monitor::version_ >;
+      }
+    };
+
+    static _cli_monitor_map_init _cli_monitor_map_init_;
+
+    bool monitor::
+    _parse (const char* o, ::brep::cli::scanner& s)
+    {
+      _cli_monitor_map::const_iterator i (_cli_monitor_map_.find (o));
+
+      if (i != _cli_monitor_map_.end ())
+      {
+        (*(i->second)) (*this, s);
+        return true;
+      }
+
+      return false;
+    }
+
+    bool monitor::
+    _parse (::brep::cli::scanner& s,
+            ::brep::cli::unknown_mode opt_mode,
+            ::brep::cli::unknown_mode arg_mode)
+    {
+      // Can't skip combined flags (--no-combined-flags).
+      //
+      assert (opt_mode != ::brep::cli::unknown_mode::skip);
+
+      bool r = false;
+      bool opt = true;
+
+      while (s.more ())
+      {
+        const char* o = s.peek ();
+
+        if (std::strcmp (o, "--") == 0)
+        {
+          opt = false;
+          s.skip ();
+          r = true;
+          continue;
+        }
+
+        if (opt)
+        {
+          if (_parse (o, s))
+          {
+            r = true;
+            continue;
+          }
+
+          if (std::strncmp (o, "-", 1) == 0 && o[1] != '\0')
+          {
+            // Handle combined option values.
+            //
+            std::string co;
+            if (const char* v = std::strchr (o, '='))
+            {
+              co.assign (o, 0, v - o);
+              ++v;
+
+              int ac (2);
+              char* av[] =
+              {
+                const_cast<char*> (co.c_str ()),
+                const_cast<char*> (v)
+              };
+
+              ::brep::cli::argv_scanner ns (0, ac, av);
+
+              if (_parse (co.c_str (), ns))
+              {
+                // Parsed the option but not its value?
+                //
+                if (ns.end () != 2)
+                  throw ::brep::cli::invalid_value (co, v);
+
+                s.next ();
+                r = true;
+                continue;
+              }
+              else
+              {
+                // Set the unknown option and fall through.
+                //
+                o = co.c_str ();
+              }
+            }
+
+            // Handle combined flags.
+            //
+            char cf[3];
+            {
+              const char* p = o + 1;
+              for (; *p != '\0'; ++p)
+              {
+                if (!((*p >= 'a' && *p <= 'z') ||
+                      (*p >= 'A' && *p <= 'Z') ||
+                      (*p >= '0' && *p <= '9')))
+                  break;
+              }
+
+              if (*p == '\0')
+              {
+                for (p = o + 1; *p != '\0'; ++p)
+                {
+                  std::strcpy (cf, "-");
+                  cf[1] = *p;
+                  cf[2] = '\0';
+
+                  int ac (1);
+                  char* av[] =
+                  {
+                    cf
+                  };
+
+                  ::brep::cli::argv_scanner ns (0, ac, av);
+
+                  if (!_parse (cf, ns))
+                    break;
+                }
+
+                if (*p == '\0')
+                {
+                  // All handled.
+                  //
+                  s.next ();
+                  r = true;
+                  continue;
+                }
+                else
+                {
+                  // Set the unknown option and fall through.
+                  //
+                  o = cf;
+                }
+              }
+            }
+
+            switch (opt_mode)
+            {
+              case ::brep::cli::unknown_mode::skip:
+              {
+                s.skip ();
+                r = true;
+                continue;
+              }
+              case ::brep::cli::unknown_mode::stop:
+              {
+                break;
+              }
+              case ::brep::cli::unknown_mode::fail:
+              {
+                throw ::brep::cli::unknown_option (o);
+              }
+            }
+
+            break;
+          }
+        }
+
+        switch (arg_mode)
+        {
+          case ::brep::cli::unknown_mode::skip:
+          {
+            s.skip ();
+            r = true;
+            continue;
+          }
+          case ::brep::cli::unknown_mode::stop:
+          {
+            break;
+          }
+          case ::brep::cli::unknown_mode::fail:
+          {
+            throw ::brep::cli::unknown_argument (o);
+          }
+        }
+
+        break;
+      }
+
+      return r;
+    }
+  }
+}
+
+::brep::cli::usage_para
+print_usage (::std::ostream& os, ::brep::cli::usage_para p)
+{
+  CLI_POTENTIALLY_UNUSED (os);
+
+  if (p != ::brep::cli::usage_para::none)
+    os << ::std::endl;
+
+  os << "\033[1mSYNOPSIS\033[0m" << ::std::endl
+     << ::std::endl
+     << "\033[1mbrep-monitor --help\033[0m" << ::std::endl
+     << "\033[1mbrep-monitor --version\033[0m" << ::std::endl
+     << "\033[1mbrep-monitor\033[0m [\033[4moptions\033[0m] \033[4mbrep-config\033[0m \033[4mtoolchain\033[0m [\033[4mtoolchain\033[0m...]\033[0m" << ::std::endl
+     << ::std::endl
+     << "\033[4mtoolchain\033[0m = \033[4mname\033[0m[\033[1m/\033[0m\033[4mversion\033[0m]\033[0m" << ::std::endl
+     << ::std::endl
+     << "\033[1mDESCRIPTION\033[0m" << ::std::endl
+     << ::std::endl
+     << "\033[1mbrep-monitor\033[0m analyzes the \033[1mbrep\033[0m internal state and reports the infrastructure" << ::std::endl
+     << "issues printing their descriptions to \033[1mstderr\033[0m." << ::std::endl
+     << ::std::endl
+     << "The specified \033[1mbrep\033[0m module configuration file (\033[4mbrep-config\033[0m) is used to retrieve" << ::std::endl
+     << "information required to access the databases and deduce the expected behavior." << ::std::endl
+     << "Most of this information can be overridden via the command line options." << ::std::endl
+     << ::std::endl
+     << "Currently, only delayed package builds for the specified toolchains are" << ::std::endl
+     << "reported. If toolchain version is omitted then all package builds with this" << ::std::endl
+     << "toolchain name are considered." << ::std::endl
+     << ::std::endl
+     << "\033[1mbrep-monitor\033[0m maintains its own state in the brep \033[1mbuild\033[0m database. In particular," << ::std::endl
+     << "it records timestamps of the reported package build delays and optionally omits" << ::std::endl
+     << "them from being reported again during the timeout specified with the" << ::std::endl
+     << "\033[1m--report-timeout\033[0m option. If the timeout is unspecified, then the report" << ::std::endl
+     << "timestamps are not updated. To report all delays and still update the" << ::std::endl
+     << "timestamps specify the zero report timeout." << ::std::endl
+     << ::std::endl
+     << "By default, a brief report is printed. Use the \033[1m--full-report\033[0m option to obtain" << ::std::endl
+     << "the full report (which may be large)." << ::std::endl
+     << ::std::endl
+     << "Note that \033[1mbrep-monitor\033[0m expects the \033[1mbuild\033[0m database schema to have already been" << ::std::endl
+     << "created using \033[1mbrep-migrate(1)\033[0m." << ::std::endl;
+
+  p = ::brep::options::monitor::print_usage (os, ::brep::cli::usage_para::text);
+
+  if (p != ::brep::cli::usage_para::none)
+    os << ::std::endl;
+
+  os << "\033[1mEXIT STATUS\033[0m" << ::std::endl
+     << ::std::endl
+     << "\033[1m0\033[0m" << ::std::endl
+     << "    Success." << ::std::endl
+     << "\033[1m1\033[0m" << ::std::endl
+     << "    Fatal error." << ::std::endl
+     << "\033[1m2\033[0m" << ::std::endl
+     << "    An instance of \033[1mbrep-monitor\033[0m or some other \033[1mbrep\033[0m utility is already running." << ::std::endl
+     << "    Try again." << ::std::endl
+     << "\033[1m3\033[0m" << ::std::endl
+     << "    Recoverable database error. Try again." << ::std::endl;
+
+  p = ::brep::cli::usage_para::text;
+
+  return p;
+}
+
+// Begin epilogue.
+//
+//
+// End epilogue.
+
diff --git a/monitor/monitor-options.hxx b/monitor/monitor-options.hxx
new file mode 100644
index 0000000..aaeefd5
--- /dev/null
+++ b/monitor/monitor-options.hxx
@@ -0,0 +1,192 @@
+// -*- C++ -*-
+//
+// This file was generated by CLI, a command line interface
+// compiler for C++.
+//
+
+#ifndef MONITOR_MONITOR_OPTIONS_HXX
+#define MONITOR_MONITOR_OPTIONS_HXX
+
+// Begin prologue.
+//
+//
+// End prologue.
+
+#include <vector>
+
+#include <string>
+
+#include <cstddef>
+
+#include <cstdint>
+
+#include <mod/module-options.hxx>
+
+namespace brep
+{
+  namespace options
+  {
+    class monitor
+    {
+      public:
+      monitor ();
+
+      monitor (int& argc,
+               char** argv,
+               bool erase = false,
+               ::brep::cli::unknown_mode option = ::brep::cli::unknown_mode::fail,
+               ::brep::cli::unknown_mode argument = ::brep::cli::unknown_mode::stop);
+
+      monitor (int start,
+               int& argc,
+               char** argv,
+               bool erase = false,
+               ::brep::cli::unknown_mode option = ::brep::cli::unknown_mode::fail,
+               ::brep::cli::unknown_mode argument = ::brep::cli::unknown_mode::stop);
+
+      monitor (int& argc,
+               char** argv,
+               int& end,
+               bool erase = false,
+               ::brep::cli::unknown_mode option = ::brep::cli::unknown_mode::fail,
+               ::brep::cli::unknown_mode argument = ::brep::cli::unknown_mode::stop);
+
+      monitor (int start,
+               int& argc,
+               char** argv,
+               int& end,
+               bool erase = false,
+               ::brep::cli::unknown_mode option = ::brep::cli::unknown_mode::fail,
+               ::brep::cli::unknown_mode argument = ::brep::cli::unknown_mode::stop);
+
+      monitor (::brep::cli::scanner&,
+               ::brep::cli::unknown_mode option = ::brep::cli::unknown_mode::fail,
+               ::brep::cli::unknown_mode argument = ::brep::cli::unknown_mode::stop);
+
+      // Option accessors.
+      //
+      const std::size_t&
+      build_timeout () const;
+
+      bool
+      build_timeout_specified () const;
+
+      const std::size_t&
+      report_timeout () const;
+
+      bool
+      report_timeout_specified () const;
+
+      const bool&
+      full_report () const;
+
+      const bool&
+      clean () const;
+
+      const std::string&
+      build_db_user () const;
+
+      bool
+      build_db_user_specified () const;
+
+      const std::string&
+      build_db_password () const;
+
+      bool
+      build_db_password_specified () const;
+
+      const std::string&
+      build_db_name () const;
+
+      bool
+      build_db_name_specified () const;
+
+      const std::string&
+      build_db_host () const;
+
+      bool
+      build_db_host_specified () const;
+
+      const std::uint16_t&
+      build_db_port () const;
+
+      bool
+      build_db_port_specified () const;
+
+      const std::string&
+      pager () const;
+
+      bool
+      pager_specified () const;
+
+      const std::vector<std::string>&
+      pager_option () const;
+
+      bool
+      pager_option_specified () const;
+
+      const bool&
+      help () const;
+
+      const bool&
+      version () const;
+
+      // Print usage information.
+      //
+      static ::brep::cli::usage_para
+      print_usage (::std::ostream&,
+                   ::brep::cli::usage_para = ::brep::cli::usage_para::none);
+
+      // Implementation details.
+      //
+      protected:
+      bool
+      _parse (const char*, ::brep::cli::scanner&);
+
+      private:
+      bool
+      _parse (::brep::cli::scanner&,
+              ::brep::cli::unknown_mode option,
+              ::brep::cli::unknown_mode argument);
+
+      public:
+      std::size_t build_timeout_;
+      bool build_timeout_specified_;
+      std::size_t report_timeout_;
+      bool report_timeout_specified_;
+      bool full_report_;
+      bool clean_;
+      std::string build_db_user_;
+      bool build_db_user_specified_;
+      std::string build_db_password_;
+      bool build_db_password_specified_;
+      std::string build_db_name_;
+      bool build_db_name_specified_;
+      std::string build_db_host_;
+      bool build_db_host_specified_;
+      std::uint16_t build_db_port_;
+      bool build_db_port_specified_;
+      std::string pager_;
+      bool pager_specified_;
+      std::vector<std::string> pager_option_;
+      bool pager_option_specified_;
+      bool help_;
+      bool version_;
+    };
+  }
+}
+
+// Print page usage information.
+//
+::brep::cli::usage_para
+print_usage (::std::ostream&,
+             ::brep::cli::usage_para = ::brep::cli::usage_para::none);
+
+#include <monitor/monitor-options.ixx>
+
+// Begin epilogue.
+//
+//
+// End epilogue.
+
+#endif // MONITOR_MONITOR_OPTIONS_HXX
diff --git a/monitor/monitor-options.ixx b/monitor/monitor-options.ixx
new file mode 100644
index 0000000..95af345
--- /dev/null
+++ b/monitor/monitor-options.ixx
@@ -0,0 +1,156 @@
+// -*- C++ -*-
+//
+// This file was generated by CLI, a command line interface
+// compiler for C++.
+//
+
+// Begin prologue.
+//
+//
+// End prologue.
+
+namespace brep
+{
+  namespace options
+  {
+    // monitor
+    //
+
+    inline const std::size_t& monitor::
+    build_timeout () const
+    {
+      return this->build_timeout_;
+    }
+
+    inline bool monitor::
+    build_timeout_specified () const
+    {
+      return this->build_timeout_specified_;
+    }
+
+    inline const std::size_t& monitor::
+    report_timeout () const
+    {
+      return this->report_timeout_;
+    }
+
+    inline bool monitor::
+    report_timeout_specified () const
+    {
+      return this->report_timeout_specified_;
+    }
+
+    inline const bool& monitor::
+    full_report () const
+    {
+      return this->full_report_;
+    }
+
+    inline const bool& monitor::
+    clean () const
+    {
+      return this->clean_;
+    }
+
+    inline const std::string& monitor::
+    build_db_user () const
+    {
+      return this->build_db_user_;
+    }
+
+    inline bool monitor::
+    build_db_user_specified () const
+    {
+      return this->build_db_user_specified_;
+    }
+
+    inline const std::string& monitor::
+    build_db_password () const
+    {
+      return this->build_db_password_;
+    }
+
+    inline bool monitor::
+    build_db_password_specified () const
+    {
+      return this->build_db_password_specified_;
+    }
+
+    inline const std::string& monitor::
+    build_db_name () const
+    {
+      return this->build_db_name_;
+    }
+
+    inline bool monitor::
+    build_db_name_specified () const
+    {
+      return this->build_db_name_specified_;
+    }
+
+    inline const std::string& monitor::
+    build_db_host () const
+    {
+      return this->build_db_host_;
+    }
+
+    inline bool monitor::
+    build_db_host_specified () const
+    {
+      return this->build_db_host_specified_;
+    }
+
+    inline const std::uint16_t& monitor::
+    build_db_port () const
+    {
+      return this->build_db_port_;
+    }
+
+    inline bool monitor::
+    build_db_port_specified () const
+    {
+      return this->build_db_port_specified_;
+    }
+
+    inline const std::string& monitor::
+    pager () const
+    {
+      return this->pager_;
+    }
+
+    inline bool monitor::
+    pager_specified () const
+    {
+      return this->pager_specified_;
+    }
+
+    inline const std::vector<std::string>& monitor::
+    pager_option () const
+    {
+      return this->pager_option_;
+    }
+
+    inline bool monitor::
+    pager_option_specified () const
+    {
+      return this->pager_option_specified_;
+    }
+
+    inline const bool& monitor::
+    help () const
+    {
+      return this->help_;
+    }
+
+    inline const bool& monitor::
+    version () const
+    {
+      return this->version_;
+    }
+  }
+}
+
+// Begin epilogue.
+//
+//
+// End epilogue.