Use CLI-generated classes to parse testscript builtin options

1 files changed, 3759 insertions, 0 deletions

diff --git a/libbuild2/test/script/builtin-options.cxx b/libbuild2/test/script/builtin-options.cxx
new file mode 100644
index 0000000..95cd051
--- /dev/null
+++ b/libbuild2/test/script/builtin-options.cxx
@@ -0,0 +1,3759 @@
+// -*- C++ -*-
+//
+// This file was generated by CLI, a command line interface
+// compiler for C++.
+//
+
+// Begin prologue.
+//
+//
+// End prologue.
+
+#include <libbuild2/test/script/builtin-options.hxx>
+
+#include <map>
+#include <set>
+#include <string>
+#include <vector>
+#include <ostream>
+#include <sstream>
+
+namespace build2
+{
+  namespace test
+  {
+    namespace script
+    {
+      namespace cli
+      {
+        // unknown_option
+        //
+        unknown_option::
+        ~unknown_option () throw ()
+        {
+        }
+
+        void unknown_option::
+        print (::std::ostream& os) const
+        {
+          os << "unknown option '" << option ().c_str () << "'";
+        }
+
+        const char* unknown_option::
+        what () const throw ()
+        {
+          return "unknown option";
+        }
+
+        // unknown_argument
+        //
+        unknown_argument::
+        ~unknown_argument () throw ()
+        {
+        }
+
+        void unknown_argument::
+        print (::std::ostream& os) const
+        {
+          os << "unknown argument '" << argument ().c_str () << "'";
+        }
+
+        const char* unknown_argument::
+        what () const throw ()
+        {
+          return "unknown argument";
+        }
+
+        // missing_value
+        //
+        missing_value::
+        ~missing_value () throw ()
+        {
+        }
+
+        void missing_value::
+        print (::std::ostream& os) const
+        {
+          os << "missing value for option '" << option ().c_str () << "'";
+        }
+
+        const char* missing_value::
+        what () const throw ()
+        {
+          return "missing option value";
+        }
+
+        // invalid_value
+        //
+        invalid_value::
+        ~invalid_value () throw ()
+        {
+        }
+
+        void invalid_value::
+        print (::std::ostream& os) const
+        {
+          os << "invalid value '" << value ().c_str () << "' for option '"
+             << option ().c_str () << "'";
+
+          if (!message ().empty ())
+            os << ": " << message ().c_str ();
+        }
+
+        const char* invalid_value::
+        what () const throw ()
+        {
+          return "invalid option value";
+        }
+
+        // eos_reached
+        //
+        void eos_reached::
+        print (::std::ostream& os) const
+        {
+          os << what ();
+        }
+
+        const char* eos_reached::
+        what () const throw ()
+        {
+          return "end of argument stream reached";
+        }
+
+        // scanner
+        //
+        scanner::
+        ~scanner ()
+        {
+        }
+
+        // argv_scanner
+        //
+        bool argv_scanner::
+        more ()
+        {
+          return i_ < argc_;
+        }
+
+        const char* argv_scanner::
+        peek ()
+        {
+          if (i_ < argc_)
+            return argv_[i_];
+          else
+            throw eos_reached ();
+        }
+
+        const char* argv_scanner::
+        next ()
+        {
+          if (i_ < argc_)
+          {
+            const char* r (argv_[i_]);
+
+            if (erase_)
+            {
+              for (int i (i_ + 1); i < argc_; ++i)
+                argv_[i - 1] = argv_[i];
+
+              --argc_;
+              argv_[argc_] = 0;
+            }
+            else
+              ++i_;
+
+            return r;
+          }
+          else
+            throw eos_reached ();
+        }
+
+        void argv_scanner::
+        skip ()
+        {
+          if (i_ < argc_)
+            ++i_;
+          else
+            throw eos_reached ();
+        }
+
+        // vector_scanner
+        //
+        bool vector_scanner::
+        more ()
+        {
+          return i_ < v_.size ();
+        }
+
+        const char* vector_scanner::
+        peek ()
+        {
+          if (i_ < v_.size ())
+            return v_[i_].c_str ();
+          else
+            throw eos_reached ();
+        }
+
+        const char* vector_scanner::
+        next ()
+        {
+          if (i_ < v_.size ())
+            return v_[i_++].c_str ();
+          else
+            throw eos_reached ();
+        }
+
+        void vector_scanner::
+        skip ()
+        {
+          if (i_ < v_.size ())
+            ++i_;
+          else
+            throw eos_reached ();
+        }
+
+        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>
+        struct parser<std::set<X> >
+        {
+          static void
+          parse (std::set<X>& 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>
+        struct parser<std::map<K, V> >
+        {
+          static void
+          parse (std::map<K, V>& 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 build2
+{
+  namespace test
+  {
+    namespace script
+    {
+      // cleanup_options
+      //
+
+      cleanup_options::
+      cleanup_options ()
+      : no_cleanup_ ()
+      {
+      }
+
+      typedef
+      std::map<std::string, void (*) (cleanup_options&, ::build2::test::script::cli::scanner&)>
+      _cli_cleanup_options_map;
+
+      static _cli_cleanup_options_map _cli_cleanup_options_map_;
+
+      struct _cli_cleanup_options_map_init
+      {
+        _cli_cleanup_options_map_init ()
+        {
+          _cli_cleanup_options_map_["--no-cleanup"] = 
+          &::build2::test::script::cli::thunk< cleanup_options, bool, &cleanup_options::no_cleanup_ >;
+        }
+      };
+
+      static _cli_cleanup_options_map_init _cli_cleanup_options_map_init_;
+
+      bool cleanup_options::
+      _parse (const char* o, ::build2::test::script::cli::scanner& s)
+      {
+        _cli_cleanup_options_map::const_iterator i (_cli_cleanup_options_map_.find (o));
+
+        if (i != _cli_cleanup_options_map_.end ())
+        {
+          (*(i->second)) (*this, s);
+          return true;
+        }
+
+        return false;
+      }
+
+      // cat_options
+      //
+
+      cat_options::
+      cat_options ()
+      {
+      }
+
+      cat_options::
+      cat_options (int& argc,
+                   char** argv,
+                   bool erase,
+                   ::build2::test::script::cli::unknown_mode opt,
+                   ::build2::test::script::cli::unknown_mode arg)
+      {
+        ::build2::test::script::cli::argv_scanner s (argc, argv, erase);
+        _parse (s, opt, arg);
+      }
+
+      cat_options::
+      cat_options (int start,
+                   int& argc,
+                   char** argv,
+                   bool erase,
+                   ::build2::test::script::cli::unknown_mode opt,
+                   ::build2::test::script::cli::unknown_mode arg)
+      {
+        ::build2::test::script::cli::argv_scanner s (start, argc, argv, erase);
+        _parse (s, opt, arg);
+      }
+
+      cat_options::
+      cat_options (int& argc,
+                   char** argv,
+                   int& end,
+                   bool erase,
+                   ::build2::test::script::cli::unknown_mode opt,
+                   ::build2::test::script::cli::unknown_mode arg)
+      {
+        ::build2::test::script::cli::argv_scanner s (argc, argv, erase);
+        _parse (s, opt, arg);
+        end = s.end ();
+      }
+
+      cat_options::
+      cat_options (int start,
+                   int& argc,
+                   char** argv,
+                   int& end,
+                   bool erase,
+                   ::build2::test::script::cli::unknown_mode opt,
+                   ::build2::test::script::cli::unknown_mode arg)
+      {
+        ::build2::test::script::cli::argv_scanner s (start, argc, argv, erase);
+        _parse (s, opt, arg);
+        end = s.end ();
+      }
+
+      cat_options::
+      cat_options (::build2::test::script::cli::scanner& s,
+                   ::build2::test::script::cli::unknown_mode opt,
+                   ::build2::test::script::cli::unknown_mode arg)
+      {
+        _parse (s, opt, arg);
+      }
+
+      typedef
+      std::map<std::string, void (*) (cat_options&, ::build2::test::script::cli::scanner&)>
+      _cli_cat_options_map;
+
+      static _cli_cat_options_map _cli_cat_options_map_;
+
+      struct _cli_cat_options_map_init
+      {
+        _cli_cat_options_map_init ()
+        {
+        }
+      };
+
+      static _cli_cat_options_map_init _cli_cat_options_map_init_;
+
+      bool cat_options::
+      _parse (const char* o, ::build2::test::script::cli::scanner& s)
+      {
+        _cli_cat_options_map::const_iterator i (_cli_cat_options_map_.find (o));
+
+        if (i != _cli_cat_options_map_.end ())
+        {
+          (*(i->second)) (*this, s);
+          return true;
+        }
+
+        return false;
+      }
+
+      bool cat_options::
+      _parse (::build2::test::script::cli::scanner& s,
+              ::build2::test::script::cli::unknown_mode opt_mode,
+              ::build2::test::script::cli::unknown_mode arg_mode)
+      {
+        // Can't skip combined flags (--no-combined-flags).
+        //
+        assert (opt_mode != ::build2::test::script::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)
+                };
+
+                ::build2::test::script::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 ::build2::test::script::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
+                    };
+
+                    ::build2::test::script::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 ::build2::test::script::cli::unknown_mode::skip:
+                {
+                  s.skip ();
+                  r = true;
+                  continue;
+                }
+                case ::build2::test::script::cli::unknown_mode::stop:
+                {
+                  break;
+                }
+                case ::build2::test::script::cli::unknown_mode::fail:
+                {
+                  throw ::build2::test::script::cli::unknown_option (o);
+                }
+              }
+
+              break;
+            }
+          }
+
+          switch (arg_mode)
+          {
+            case ::build2::test::script::cli::unknown_mode::skip:
+            {
+              s.skip ();
+              r = true;
+              continue;
+            }
+            case ::build2::test::script::cli::unknown_mode::stop:
+            {
+              break;
+            }
+            case ::build2::test::script::cli::unknown_mode::fail:
+            {
+              throw ::build2::test::script::cli::unknown_argument (o);
+            }
+          }
+
+          break;
+        }
+
+        return r;
+      }
+
+      // cp_options
+      //
+
+      cp_options::
+      cp_options ()
+      : recursive_ (),
+        preserve_ ()
+      {
+      }
+
+      cp_options::
+      cp_options (int& argc,
+                  char** argv,
+                  bool erase,
+                  ::build2::test::script::cli::unknown_mode opt,
+                  ::build2::test::script::cli::unknown_mode arg)
+      : recursive_ (),
+        preserve_ ()
+      {
+        ::build2::test::script::cli::argv_scanner s (argc, argv, erase);
+        _parse (s, opt, arg);
+      }
+
+      cp_options::
+      cp_options (int start,
+                  int& argc,
+                  char** argv,
+                  bool erase,
+                  ::build2::test::script::cli::unknown_mode opt,
+                  ::build2::test::script::cli::unknown_mode arg)
+      : recursive_ (),
+        preserve_ ()
+      {
+        ::build2::test::script::cli::argv_scanner s (start, argc, argv, erase);
+        _parse (s, opt, arg);
+      }
+
+      cp_options::
+      cp_options (int& argc,
+                  char** argv,
+                  int& end,
+                  bool erase,
+                  ::build2::test::script::cli::unknown_mode opt,
+                  ::build2::test::script::cli::unknown_mode arg)
+      : recursive_ (),
+        preserve_ ()
+      {
+        ::build2::test::script::cli::argv_scanner s (argc, argv, erase);
+        _parse (s, opt, arg);
+        end = s.end ();
+      }
+
+      cp_options::
+      cp_options (int start,
+                  int& argc,
+                  char** argv,
+                  int& end,
+                  bool erase,
+                  ::build2::test::script::cli::unknown_mode opt,
+                  ::build2::test::script::cli::unknown_mode arg)
+      : recursive_ (),
+        preserve_ ()
+      {
+        ::build2::test::script::cli::argv_scanner s (start, argc, argv, erase);
+        _parse (s, opt, arg);
+        end = s.end ();
+      }
+
+      cp_options::
+      cp_options (::build2::test::script::cli::scanner& s,
+                  ::build2::test::script::cli::unknown_mode opt,
+                  ::build2::test::script::cli::unknown_mode arg)
+      : recursive_ (),
+        preserve_ ()
+      {
+        _parse (s, opt, arg);
+      }
+
+      typedef
+      std::map<std::string, void (*) (cp_options&, ::build2::test::script::cli::scanner&)>
+      _cli_cp_options_map;
+
+      static _cli_cp_options_map _cli_cp_options_map_;
+
+      struct _cli_cp_options_map_init
+      {
+        _cli_cp_options_map_init ()
+        {
+          _cli_cp_options_map_["--recursive"] = 
+          &::build2::test::script::cli::thunk< cp_options, bool, &cp_options::recursive_ >;
+          _cli_cp_options_map_["-R"] = 
+          &::build2::test::script::cli::thunk< cp_options, bool, &cp_options::recursive_ >;
+          _cli_cp_options_map_["-r"] = 
+          &::build2::test::script::cli::thunk< cp_options, bool, &cp_options::recursive_ >;
+          _cli_cp_options_map_["--preserve"] = 
+          &::build2::test::script::cli::thunk< cp_options, bool, &cp_options::preserve_ >;
+          _cli_cp_options_map_["-p"] = 
+          &::build2::test::script::cli::thunk< cp_options, bool, &cp_options::preserve_ >;
+        }
+      };
+
+      static _cli_cp_options_map_init _cli_cp_options_map_init_;
+
+      bool cp_options::
+      _parse (const char* o, ::build2::test::script::cli::scanner& s)
+      {
+        _cli_cp_options_map::const_iterator i (_cli_cp_options_map_.find (o));
+
+        if (i != _cli_cp_options_map_.end ())
+        {
+          (*(i->second)) (*this, s);
+          return true;
+        }
+
+        // cleanup_options base
+        //
+        if (::build2::test::script::cleanup_options::_parse (o, s))
+          return true;
+
+        return false;
+      }
+
+      bool cp_options::
+      _parse (::build2::test::script::cli::scanner& s,
+              ::build2::test::script::cli::unknown_mode opt_mode,
+              ::build2::test::script::cli::unknown_mode arg_mode)
+      {
+        // Can't skip combined flags (--no-combined-flags).
+        //
+        assert (opt_mode != ::build2::test::script::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)
+                };
+
+                ::build2::test::script::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 ::build2::test::script::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
+                    };
+
+                    ::build2::test::script::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 ::build2::test::script::cli::unknown_mode::skip:
+                {
+                  s.skip ();
+                  r = true;
+                  continue;
+                }
+                case ::build2::test::script::cli::unknown_mode::stop:
+                {
+                  break;
+                }
+                case ::build2::test::script::cli::unknown_mode::fail:
+                {
+                  throw ::build2::test::script::cli::unknown_option (o);
+                }
+              }
+
+              break;
+            }
+          }
+
+          switch (arg_mode)
+          {
+            case ::build2::test::script::cli::unknown_mode::skip:
+            {
+              s.skip ();
+              r = true;
+              continue;
+            }
+            case ::build2::test::script::cli::unknown_mode::stop:
+            {
+              break;
+            }
+            case ::build2::test::script::cli::unknown_mode::fail:
+            {
+              throw ::build2::test::script::cli::unknown_argument (o);
+            }
+          }
+
+          break;
+        }
+
+        return r;
+      }
+
+      // ln_options
+      //
+
+      ln_options::
+      ln_options ()
+      : symbolic_ ()
+      {
+      }
+
+      ln_options::
+      ln_options (int& argc,
+                  char** argv,
+                  bool erase,
+                  ::build2::test::script::cli::unknown_mode opt,
+                  ::build2::test::script::cli::unknown_mode arg)
+      : symbolic_ ()
+      {
+        ::build2::test::script::cli::argv_scanner s (argc, argv, erase);
+        _parse (s, opt, arg);
+      }
+
+      ln_options::
+      ln_options (int start,
+                  int& argc,
+                  char** argv,
+                  bool erase,
+                  ::build2::test::script::cli::unknown_mode opt,
+                  ::build2::test::script::cli::unknown_mode arg)
+      : symbolic_ ()
+      {
+        ::build2::test::script::cli::argv_scanner s (start, argc, argv, erase);
+        _parse (s, opt, arg);
+      }
+
+      ln_options::
+      ln_options (int& argc,
+                  char** argv,
+                  int& end,
+                  bool erase,
+                  ::build2::test::script::cli::unknown_mode opt,
+                  ::build2::test::script::cli::unknown_mode arg)
+      : symbolic_ ()
+      {
+        ::build2::test::script::cli::argv_scanner s (argc, argv, erase);
+        _parse (s, opt, arg);
+        end = s.end ();
+      }
+
+      ln_options::
+      ln_options (int start,
+                  int& argc,
+                  char** argv,
+                  int& end,
+                  bool erase,
+                  ::build2::test::script::cli::unknown_mode opt,
+                  ::build2::test::script::cli::unknown_mode arg)
+      : symbolic_ ()
+      {
+        ::build2::test::script::cli::argv_scanner s (start, argc, argv, erase);
+        _parse (s, opt, arg);
+        end = s.end ();
+      }
+
+      ln_options::
+      ln_options (::build2::test::script::cli::scanner& s,
+                  ::build2::test::script::cli::unknown_mode opt,
+                  ::build2::test::script::cli::unknown_mode arg)
+      : symbolic_ ()
+      {
+        _parse (s, opt, arg);
+      }
+
+      typedef
+      std::map<std::string, void (*) (ln_options&, ::build2::test::script::cli::scanner&)>
+      _cli_ln_options_map;
+
+      static _cli_ln_options_map _cli_ln_options_map_;
+
+      struct _cli_ln_options_map_init
+      {
+        _cli_ln_options_map_init ()
+        {
+          _cli_ln_options_map_["--symbolic"] = 
+          &::build2::test::script::cli::thunk< ln_options, bool, &ln_options::symbolic_ >;
+          _cli_ln_options_map_["-s"] = 
+          &::build2::test::script::cli::thunk< ln_options, bool, &ln_options::symbolic_ >;
+        }
+      };
+
+      static _cli_ln_options_map_init _cli_ln_options_map_init_;
+
+      bool ln_options::
+      _parse (const char* o, ::build2::test::script::cli::scanner& s)
+      {
+        _cli_ln_options_map::const_iterator i (_cli_ln_options_map_.find (o));
+
+        if (i != _cli_ln_options_map_.end ())
+        {
+          (*(i->second)) (*this, s);
+          return true;
+        }
+
+        // cleanup_options base
+        //
+        if (::build2::test::script::cleanup_options::_parse (o, s))
+          return true;
+
+        return false;
+      }
+
+      bool ln_options::
+      _parse (::build2::test::script::cli::scanner& s,
+              ::build2::test::script::cli::unknown_mode opt_mode,
+              ::build2::test::script::cli::unknown_mode arg_mode)
+      {
+        // Can't skip combined flags (--no-combined-flags).
+        //
+        assert (opt_mode != ::build2::test::script::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)
+                };
+
+                ::build2::test::script::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 ::build2::test::script::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
+                    };
+
+                    ::build2::test::script::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 ::build2::test::script::cli::unknown_mode::skip:
+                {
+                  s.skip ();
+                  r = true;
+                  continue;
+                }
+                case ::build2::test::script::cli::unknown_mode::stop:
+                {
+                  break;
+                }
+                case ::build2::test::script::cli::unknown_mode::fail:
+                {
+                  throw ::build2::test::script::cli::unknown_option (o);
+                }
+              }
+
+              break;
+            }
+          }
+
+          switch (arg_mode)
+          {
+            case ::build2::test::script::cli::unknown_mode::skip:
+            {
+              s.skip ();
+              r = true;
+              continue;
+            }
+            case ::build2::test::script::cli::unknown_mode::stop:
+            {
+              break;
+            }
+            case ::build2::test::script::cli::unknown_mode::fail:
+            {
+              throw ::build2::test::script::cli::unknown_argument (o);
+            }
+          }
+
+          break;
+        }
+
+        return r;
+      }
+
+      // mkdir_options
+      //
+
+      mkdir_options::
+      mkdir_options ()
+      : parents_ ()
+      {
+      }
+
+      mkdir_options::
+      mkdir_options (int& argc,
+                     char** argv,
+                     bool erase,
+                     ::build2::test::script::cli::unknown_mode opt,
+                     ::build2::test::script::cli::unknown_mode arg)
+      : parents_ ()
+      {
+        ::build2::test::script::cli::argv_scanner s (argc, argv, erase);
+        _parse (s, opt, arg);
+      }
+
+      mkdir_options::
+      mkdir_options (int start,
+                     int& argc,
+                     char** argv,
+                     bool erase,
+                     ::build2::test::script::cli::unknown_mode opt,
+                     ::build2::test::script::cli::unknown_mode arg)
+      : parents_ ()
+      {
+        ::build2::test::script::cli::argv_scanner s (start, argc, argv, erase);
+        _parse (s, opt, arg);
+      }
+
+      mkdir_options::
+      mkdir_options (int& argc,
+                     char** argv,
+                     int& end,
+                     bool erase,
+                     ::build2::test::script::cli::unknown_mode opt,
+                     ::build2::test::script::cli::unknown_mode arg)
+      : parents_ ()
+      {
+        ::build2::test::script::cli::argv_scanner s (argc, argv, erase);
+        _parse (s, opt, arg);
+        end = s.end ();
+      }
+
+      mkdir_options::
+      mkdir_options (int start,
+                     int& argc,
+                     char** argv,
+                     int& end,
+                     bool erase,
+                     ::build2::test::script::cli::unknown_mode opt,
+                     ::build2::test::script::cli::unknown_mode arg)
+      : parents_ ()
+      {
+        ::build2::test::script::cli::argv_scanner s (start, argc, argv, erase);
+        _parse (s, opt, arg);
+        end = s.end ();
+      }
+
+      mkdir_options::
+      mkdir_options (::build2::test::script::cli::scanner& s,
+                     ::build2::test::script::cli::unknown_mode opt,
+                     ::build2::test::script::cli::unknown_mode arg)
+      : parents_ ()
+      {
+        _parse (s, opt, arg);
+      }
+
+      typedef
+      std::map<std::string, void (*) (mkdir_options&, ::build2::test::script::cli::scanner&)>
+      _cli_mkdir_options_map;
+
+      static _cli_mkdir_options_map _cli_mkdir_options_map_;
+
+      struct _cli_mkdir_options_map_init
+      {
+        _cli_mkdir_options_map_init ()
+        {
+          _cli_mkdir_options_map_["--parents"] = 
+          &::build2::test::script::cli::thunk< mkdir_options, bool, &mkdir_options::parents_ >;
+          _cli_mkdir_options_map_["-p"] = 
+          &::build2::test::script::cli::thunk< mkdir_options, bool, &mkdir_options::parents_ >;
+        }
+      };
+
+      static _cli_mkdir_options_map_init _cli_mkdir_options_map_init_;
+
+      bool mkdir_options::
+      _parse (const char* o, ::build2::test::script::cli::scanner& s)
+      {
+        _cli_mkdir_options_map::const_iterator i (_cli_mkdir_options_map_.find (o));
+
+        if (i != _cli_mkdir_options_map_.end ())
+        {
+          (*(i->second)) (*this, s);
+          return true;
+        }
+
+        // cleanup_options base
+        //
+        if (::build2::test::script::cleanup_options::_parse (o, s))
+          return true;
+
+        return false;
+      }
+
+      bool mkdir_options::
+      _parse (::build2::test::script::cli::scanner& s,
+              ::build2::test::script::cli::unknown_mode opt_mode,
+              ::build2::test::script::cli::unknown_mode arg_mode)
+      {
+        // Can't skip combined flags (--no-combined-flags).
+        //
+        assert (opt_mode != ::build2::test::script::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)
+                };
+
+                ::build2::test::script::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 ::build2::test::script::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
+                    };
+
+                    ::build2::test::script::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 ::build2::test::script::cli::unknown_mode::skip:
+                {
+                  s.skip ();
+                  r = true;
+                  continue;
+                }
+                case ::build2::test::script::cli::unknown_mode::stop:
+                {
+                  break;
+                }
+                case ::build2::test::script::cli::unknown_mode::fail:
+                {
+                  throw ::build2::test::script::cli::unknown_option (o);
+                }
+              }
+
+              break;
+            }
+          }
+
+          switch (arg_mode)
+          {
+            case ::build2::test::script::cli::unknown_mode::skip:
+            {
+              s.skip ();
+              r = true;
+              continue;
+            }
+            case ::build2::test::script::cli::unknown_mode::stop:
+            {
+              break;
+            }
+            case ::build2::test::script::cli::unknown_mode::fail:
+            {
+              throw ::build2::test::script::cli::unknown_argument (o);
+            }
+          }
+
+          break;
+        }
+
+        return r;
+      }
+
+      // mv_options
+      //
+
+      mv_options::
+      mv_options ()
+      : force_ ()
+      {
+      }
+
+      mv_options::
+      mv_options (int& argc,
+                  char** argv,
+                  bool erase,
+                  ::build2::test::script::cli::unknown_mode opt,
+                  ::build2::test::script::cli::unknown_mode arg)
+      : force_ ()
+      {
+        ::build2::test::script::cli::argv_scanner s (argc, argv, erase);
+        _parse (s, opt, arg);
+      }
+
+      mv_options::
+      mv_options (int start,
+                  int& argc,
+                  char** argv,
+                  bool erase,
+                  ::build2::test::script::cli::unknown_mode opt,
+                  ::build2::test::script::cli::unknown_mode arg)
+      : force_ ()
+      {
+        ::build2::test::script::cli::argv_scanner s (start, argc, argv, erase);
+        _parse (s, opt, arg);
+      }
+
+      mv_options::
+      mv_options (int& argc,
+                  char** argv,
+                  int& end,
+                  bool erase,
+                  ::build2::test::script::cli::unknown_mode opt,
+                  ::build2::test::script::cli::unknown_mode arg)
+      : force_ ()
+      {
+        ::build2::test::script::cli::argv_scanner s (argc, argv, erase);
+        _parse (s, opt, arg);
+        end = s.end ();
+      }
+
+      mv_options::
+      mv_options (int start,
+                  int& argc,
+                  char** argv,
+                  int& end,
+                  bool erase,
+                  ::build2::test::script::cli::unknown_mode opt,
+                  ::build2::test::script::cli::unknown_mode arg)
+      : force_ ()
+      {
+        ::build2::test::script::cli::argv_scanner s (start, argc, argv, erase);
+        _parse (s, opt, arg);
+        end = s.end ();
+      }
+
+      mv_options::
+      mv_options (::build2::test::script::cli::scanner& s,
+                  ::build2::test::script::cli::unknown_mode opt,
+                  ::build2::test::script::cli::unknown_mode arg)
+      : force_ ()
+      {
+        _parse (s, opt, arg);
+      }
+
+      typedef
+      std::map<std::string, void (*) (mv_options&, ::build2::test::script::cli::scanner&)>
+      _cli_mv_options_map;
+
+      static _cli_mv_options_map _cli_mv_options_map_;
+
+      struct _cli_mv_options_map_init
+      {
+        _cli_mv_options_map_init ()
+        {
+          _cli_mv_options_map_["--force"] = 
+          &::build2::test::script::cli::thunk< mv_options, bool, &mv_options::force_ >;
+          _cli_mv_options_map_["-f"] = 
+          &::build2::test::script::cli::thunk< mv_options, bool, &mv_options::force_ >;
+        }
+      };
+
+      static _cli_mv_options_map_init _cli_mv_options_map_init_;
+
+      bool mv_options::
+      _parse (const char* o, ::build2::test::script::cli::scanner& s)
+      {
+        _cli_mv_options_map::const_iterator i (_cli_mv_options_map_.find (o));
+
+        if (i != _cli_mv_options_map_.end ())
+        {
+          (*(i->second)) (*this, s);
+          return true;
+        }
+
+        // cleanup_options base
+        //
+        if (::build2::test::script::cleanup_options::_parse (o, s))
+          return true;
+
+        return false;
+      }
+
+      bool mv_options::
+      _parse (::build2::test::script::cli::scanner& s,
+              ::build2::test::script::cli::unknown_mode opt_mode,
+              ::build2::test::script::cli::unknown_mode arg_mode)
+      {
+        // Can't skip combined flags (--no-combined-flags).
+        //
+        assert (opt_mode != ::build2::test::script::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)
+                };
+
+                ::build2::test::script::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 ::build2::test::script::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
+                    };
+
+                    ::build2::test::script::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 ::build2::test::script::cli::unknown_mode::skip:
+                {
+                  s.skip ();
+                  r = true;
+                  continue;
+                }
+                case ::build2::test::script::cli::unknown_mode::stop:
+                {
+                  break;
+                }
+                case ::build2::test::script::cli::unknown_mode::fail:
+                {
+                  throw ::build2::test::script::cli::unknown_option (o);
+                }
+              }
+
+              break;
+            }
+          }
+
+          switch (arg_mode)
+          {
+            case ::build2::test::script::cli::unknown_mode::skip:
+            {
+              s.skip ();
+              r = true;
+              continue;
+            }
+            case ::build2::test::script::cli::unknown_mode::stop:
+            {
+              break;
+            }
+            case ::build2::test::script::cli::unknown_mode::fail:
+            {
+              throw ::build2::test::script::cli::unknown_argument (o);
+            }
+          }
+
+          break;
+        }
+
+        return r;
+      }
+
+      // rm_options
+      //
+
+      rm_options::
+      rm_options ()
+      : recursive_ (),
+        force_ ()
+      {
+      }
+
+      rm_options::
+      rm_options (int& argc,
+                  char** argv,
+                  bool erase,
+                  ::build2::test::script::cli::unknown_mode opt,
+                  ::build2::test::script::cli::unknown_mode arg)
+      : recursive_ (),
+        force_ ()
+      {
+        ::build2::test::script::cli::argv_scanner s (argc, argv, erase);
+        _parse (s, opt, arg);
+      }
+
+      rm_options::
+      rm_options (int start,
+                  int& argc,
+                  char** argv,
+                  bool erase,
+                  ::build2::test::script::cli::unknown_mode opt,
+                  ::build2::test::script::cli::unknown_mode arg)
+      : recursive_ (),
+        force_ ()
+      {
+        ::build2::test::script::cli::argv_scanner s (start, argc, argv, erase);
+        _parse (s, opt, arg);
+      }
+
+      rm_options::
+      rm_options (int& argc,
+                  char** argv,
+                  int& end,
+                  bool erase,
+                  ::build2::test::script::cli::unknown_mode opt,
+                  ::build2::test::script::cli::unknown_mode arg)
+      : recursive_ (),
+        force_ ()
+      {
+        ::build2::test::script::cli::argv_scanner s (argc, argv, erase);
+        _parse (s, opt, arg);
+        end = s.end ();
+      }
+
+      rm_options::
+      rm_options (int start,
+                  int& argc,
+                  char** argv,
+                  int& end,
+                  bool erase,
+                  ::build2::test::script::cli::unknown_mode opt,
+                  ::build2::test::script::cli::unknown_mode arg)
+      : recursive_ (),
+        force_ ()
+      {
+        ::build2::test::script::cli::argv_scanner s (start, argc, argv, erase);
+        _parse (s, opt, arg);
+        end = s.end ();
+      }
+
+      rm_options::
+      rm_options (::build2::test::script::cli::scanner& s,
+                  ::build2::test::script::cli::unknown_mode opt,
+                  ::build2::test::script::cli::unknown_mode arg)
+      : recursive_ (),
+        force_ ()
+      {
+        _parse (s, opt, arg);
+      }
+
+      typedef
+      std::map<std::string, void (*) (rm_options&, ::build2::test::script::cli::scanner&)>
+      _cli_rm_options_map;
+
+      static _cli_rm_options_map _cli_rm_options_map_;
+
+      struct _cli_rm_options_map_init
+      {
+        _cli_rm_options_map_init ()
+        {
+          _cli_rm_options_map_["--recursive"] = 
+          &::build2::test::script::cli::thunk< rm_options, bool, &rm_options::recursive_ >;
+          _cli_rm_options_map_["-r"] = 
+          &::build2::test::script::cli::thunk< rm_options, bool, &rm_options::recursive_ >;
+          _cli_rm_options_map_["--force"] = 
+          &::build2::test::script::cli::thunk< rm_options, bool, &rm_options::force_ >;
+          _cli_rm_options_map_["-f"] = 
+          &::build2::test::script::cli::thunk< rm_options, bool, &rm_options::force_ >;
+        }
+      };
+
+      static _cli_rm_options_map_init _cli_rm_options_map_init_;
+
+      bool rm_options::
+      _parse (const char* o, ::build2::test::script::cli::scanner& s)
+      {
+        _cli_rm_options_map::const_iterator i (_cli_rm_options_map_.find (o));
+
+        if (i != _cli_rm_options_map_.end ())
+        {
+          (*(i->second)) (*this, s);
+          return true;
+        }
+
+        return false;
+      }
+
+      bool rm_options::
+      _parse (::build2::test::script::cli::scanner& s,
+              ::build2::test::script::cli::unknown_mode opt_mode,
+              ::build2::test::script::cli::unknown_mode arg_mode)
+      {
+        // Can't skip combined flags (--no-combined-flags).
+        //
+        assert (opt_mode != ::build2::test::script::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)
+                };
+
+                ::build2::test::script::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 ::build2::test::script::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
+                    };
+
+                    ::build2::test::script::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 ::build2::test::script::cli::unknown_mode::skip:
+                {
+                  s.skip ();
+                  r = true;
+                  continue;
+                }
+                case ::build2::test::script::cli::unknown_mode::stop:
+                {
+                  break;
+                }
+                case ::build2::test::script::cli::unknown_mode::fail:
+                {
+                  throw ::build2::test::script::cli::unknown_option (o);
+                }
+              }
+
+              break;
+            }
+          }
+
+          switch (arg_mode)
+          {
+            case ::build2::test::script::cli::unknown_mode::skip:
+            {
+              s.skip ();
+              r = true;
+              continue;
+            }
+            case ::build2::test::script::cli::unknown_mode::stop:
+            {
+              break;
+            }
+            case ::build2::test::script::cli::unknown_mode::fail:
+            {
+              throw ::build2::test::script::cli::unknown_argument (o);
+            }
+          }
+
+          break;
+        }
+
+        return r;
+      }
+
+      // rmdir_options
+      //
+
+      rmdir_options::
+      rmdir_options ()
+      : force_ ()
+      {
+      }
+
+      rmdir_options::
+      rmdir_options (int& argc,
+                     char** argv,
+                     bool erase,
+                     ::build2::test::script::cli::unknown_mode opt,
+                     ::build2::test::script::cli::unknown_mode arg)
+      : force_ ()
+      {
+        ::build2::test::script::cli::argv_scanner s (argc, argv, erase);
+        _parse (s, opt, arg);
+      }
+
+      rmdir_options::
+      rmdir_options (int start,
+                     int& argc,
+                     char** argv,
+                     bool erase,
+                     ::build2::test::script::cli::unknown_mode opt,
+                     ::build2::test::script::cli::unknown_mode arg)
+      : force_ ()
+      {
+        ::build2::test::script::cli::argv_scanner s (start, argc, argv, erase);
+        _parse (s, opt, arg);
+      }
+
+      rmdir_options::
+      rmdir_options (int& argc,
+                     char** argv,
+                     int& end,
+                     bool erase,
+                     ::build2::test::script::cli::unknown_mode opt,
+                     ::build2::test::script::cli::unknown_mode arg)
+      : force_ ()
+      {
+        ::build2::test::script::cli::argv_scanner s (argc, argv, erase);
+        _parse (s, opt, arg);
+        end = s.end ();
+      }
+
+      rmdir_options::
+      rmdir_options (int start,
+                     int& argc,
+                     char** argv,
+                     int& end,
+                     bool erase,
+                     ::build2::test::script::cli::unknown_mode opt,
+                     ::build2::test::script::cli::unknown_mode arg)
+      : force_ ()
+      {
+        ::build2::test::script::cli::argv_scanner s (start, argc, argv, erase);
+        _parse (s, opt, arg);
+        end = s.end ();
+      }
+
+      rmdir_options::
+      rmdir_options (::build2::test::script::cli::scanner& s,
+                     ::build2::test::script::cli::unknown_mode opt,
+                     ::build2::test::script::cli::unknown_mode arg)
+      : force_ ()
+      {
+        _parse (s, opt, arg);
+      }
+
+      typedef
+      std::map<std::string, void (*) (rmdir_options&, ::build2::test::script::cli::scanner&)>
+      _cli_rmdir_options_map;
+
+      static _cli_rmdir_options_map _cli_rmdir_options_map_;
+
+      struct _cli_rmdir_options_map_init
+      {
+        _cli_rmdir_options_map_init ()
+        {
+          _cli_rmdir_options_map_["--force"] = 
+          &::build2::test::script::cli::thunk< rmdir_options, bool, &rmdir_options::force_ >;
+          _cli_rmdir_options_map_["-f"] = 
+          &::build2::test::script::cli::thunk< rmdir_options, bool, &rmdir_options::force_ >;
+        }
+      };
+
+      static _cli_rmdir_options_map_init _cli_rmdir_options_map_init_;
+
+      bool rmdir_options::
+      _parse (const char* o, ::build2::test::script::cli::scanner& s)
+      {
+        _cli_rmdir_options_map::const_iterator i (_cli_rmdir_options_map_.find (o));
+
+        if (i != _cli_rmdir_options_map_.end ())
+        {
+          (*(i->second)) (*this, s);
+          return true;
+        }
+
+        return false;
+      }
+
+      bool rmdir_options::
+      _parse (::build2::test::script::cli::scanner& s,
+              ::build2::test::script::cli::unknown_mode opt_mode,
+              ::build2::test::script::cli::unknown_mode arg_mode)
+      {
+        // Can't skip combined flags (--no-combined-flags).
+        //
+        assert (opt_mode != ::build2::test::script::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)
+                };
+
+                ::build2::test::script::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 ::build2::test::script::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
+                    };
+
+                    ::build2::test::script::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 ::build2::test::script::cli::unknown_mode::skip:
+                {
+                  s.skip ();
+                  r = true;
+                  continue;
+                }
+                case ::build2::test::script::cli::unknown_mode::stop:
+                {
+                  break;
+                }
+                case ::build2::test::script::cli::unknown_mode::fail:
+                {
+                  throw ::build2::test::script::cli::unknown_option (o);
+                }
+              }
+
+              break;
+            }
+          }
+
+          switch (arg_mode)
+          {
+            case ::build2::test::script::cli::unknown_mode::skip:
+            {
+              s.skip ();
+              r = true;
+              continue;
+            }
+            case ::build2::test::script::cli::unknown_mode::stop:
+            {
+              break;
+            }
+            case ::build2::test::script::cli::unknown_mode::fail:
+            {
+              throw ::build2::test::script::cli::unknown_argument (o);
+            }
+          }
+
+          break;
+        }
+
+        return r;
+      }
+
+      // sed_options
+      //
+
+      sed_options::
+      sed_options ()
+      : quiet_ (),
+        in_place_ (),
+        expression_ (),
+        expression_specified_ (false)
+      {
+      }
+
+      sed_options::
+      sed_options (int& argc,
+                   char** argv,
+                   bool erase,
+                   ::build2::test::script::cli::unknown_mode opt,
+                   ::build2::test::script::cli::unknown_mode arg)
+      : quiet_ (),
+        in_place_ (),
+        expression_ (),
+        expression_specified_ (false)
+      {
+        ::build2::test::script::cli::argv_scanner s (argc, argv, erase);
+        _parse (s, opt, arg);
+      }
+
+      sed_options::
+      sed_options (int start,
+                   int& argc,
+                   char** argv,
+                   bool erase,
+                   ::build2::test::script::cli::unknown_mode opt,
+                   ::build2::test::script::cli::unknown_mode arg)
+      : quiet_ (),
+        in_place_ (),
+        expression_ (),
+        expression_specified_ (false)
+      {
+        ::build2::test::script::cli::argv_scanner s (start, argc, argv, erase);
+        _parse (s, opt, arg);
+      }
+
+      sed_options::
+      sed_options (int& argc,
+                   char** argv,
+                   int& end,
+                   bool erase,
+                   ::build2::test::script::cli::unknown_mode opt,
+                   ::build2::test::script::cli::unknown_mode arg)
+      : quiet_ (),
+        in_place_ (),
+        expression_ (),
+        expression_specified_ (false)
+      {
+        ::build2::test::script::cli::argv_scanner s (argc, argv, erase);
+        _parse (s, opt, arg);
+        end = s.end ();
+      }
+
+      sed_options::
+      sed_options (int start,
+                   int& argc,
+                   char** argv,
+                   int& end,
+                   bool erase,
+                   ::build2::test::script::cli::unknown_mode opt,
+                   ::build2::test::script::cli::unknown_mode arg)
+      : quiet_ (),
+        in_place_ (),
+        expression_ (),
+        expression_specified_ (false)
+      {
+        ::build2::test::script::cli::argv_scanner s (start, argc, argv, erase);
+        _parse (s, opt, arg);
+        end = s.end ();
+      }
+
+      sed_options::
+      sed_options (::build2::test::script::cli::scanner& s,
+                   ::build2::test::script::cli::unknown_mode opt,
+                   ::build2::test::script::cli::unknown_mode arg)
+      : quiet_ (),
+        in_place_ (),
+        expression_ (),
+        expression_specified_ (false)
+      {
+        _parse (s, opt, arg);
+      }
+
+      typedef
+      std::map<std::string, void (*) (sed_options&, ::build2::test::script::cli::scanner&)>
+      _cli_sed_options_map;
+
+      static _cli_sed_options_map _cli_sed_options_map_;
+
+      struct _cli_sed_options_map_init
+      {
+        _cli_sed_options_map_init ()
+        {
+          _cli_sed_options_map_["--quiet"] = 
+          &::build2::test::script::cli::thunk< sed_options, bool, &sed_options::quiet_ >;
+          _cli_sed_options_map_["-n"] = 
+          &::build2::test::script::cli::thunk< sed_options, bool, &sed_options::quiet_ >;
+          _cli_sed_options_map_["--in-place"] = 
+          &::build2::test::script::cli::thunk< sed_options, bool, &sed_options::in_place_ >;
+          _cli_sed_options_map_["-i"] = 
+          &::build2::test::script::cli::thunk< sed_options, bool, &sed_options::in_place_ >;
+          _cli_sed_options_map_["--expression"] = 
+          &::build2::test::script::cli::thunk< sed_options, strings, &sed_options::expression_,
+            &sed_options::expression_specified_ >;
+          _cli_sed_options_map_["-e"] = 
+          &::build2::test::script::cli::thunk< sed_options, strings, &sed_options::expression_,
+            &sed_options::expression_specified_ >;
+        }
+      };
+
+      static _cli_sed_options_map_init _cli_sed_options_map_init_;
+
+      bool sed_options::
+      _parse (const char* o, ::build2::test::script::cli::scanner& s)
+      {
+        _cli_sed_options_map::const_iterator i (_cli_sed_options_map_.find (o));
+
+        if (i != _cli_sed_options_map_.end ())
+        {
+          (*(i->second)) (*this, s);
+          return true;
+        }
+
+        return false;
+      }
+
+      bool sed_options::
+      _parse (::build2::test::script::cli::scanner& s,
+              ::build2::test::script::cli::unknown_mode opt_mode,
+              ::build2::test::script::cli::unknown_mode arg_mode)
+      {
+        // Can't skip combined flags (--no-combined-flags).
+        //
+        assert (opt_mode != ::build2::test::script::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)
+                };
+
+                ::build2::test::script::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 ::build2::test::script::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
+                    };
+
+                    ::build2::test::script::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 ::build2::test::script::cli::unknown_mode::skip:
+                {
+                  s.skip ();
+                  r = true;
+                  continue;
+                }
+                case ::build2::test::script::cli::unknown_mode::stop:
+                {
+                  break;
+                }
+                case ::build2::test::script::cli::unknown_mode::fail:
+                {
+                  throw ::build2::test::script::cli::unknown_option (o);
+                }
+              }
+
+              break;
+            }
+          }
+
+          switch (arg_mode)
+          {
+            case ::build2::test::script::cli::unknown_mode::skip:
+            {
+              s.skip ();
+              r = true;
+              continue;
+            }
+            case ::build2::test::script::cli::unknown_mode::stop:
+            {
+              break;
+            }
+            case ::build2::test::script::cli::unknown_mode::fail:
+            {
+              throw ::build2::test::script::cli::unknown_argument (o);
+            }
+          }
+
+          break;
+        }
+
+        return r;
+      }
+
+      // set_options
+      //
+
+      set_options::
+      set_options ()
+      : exact_ (),
+        newline_ (),
+        whitespace_ ()
+      {
+      }
+
+      set_options::
+      set_options (int& argc,
+                   char** argv,
+                   bool erase,
+                   ::build2::test::script::cli::unknown_mode opt,
+                   ::build2::test::script::cli::unknown_mode arg)
+      : exact_ (),
+        newline_ (),
+        whitespace_ ()
+      {
+        ::build2::test::script::cli::argv_scanner s (argc, argv, erase);
+        _parse (s, opt, arg);
+      }
+
+      set_options::
+      set_options (int start,
+                   int& argc,
+                   char** argv,
+                   bool erase,
+                   ::build2::test::script::cli::unknown_mode opt,
+                   ::build2::test::script::cli::unknown_mode arg)
+      : exact_ (),
+        newline_ (),
+        whitespace_ ()
+      {
+        ::build2::test::script::cli::argv_scanner s (start, argc, argv, erase);
+        _parse (s, opt, arg);
+      }
+
+      set_options::
+      set_options (int& argc,
+                   char** argv,
+                   int& end,
+                   bool erase,
+                   ::build2::test::script::cli::unknown_mode opt,
+                   ::build2::test::script::cli::unknown_mode arg)
+      : exact_ (),
+        newline_ (),
+        whitespace_ ()
+      {
+        ::build2::test::script::cli::argv_scanner s (argc, argv, erase);
+        _parse (s, opt, arg);
+        end = s.end ();
+      }
+
+      set_options::
+      set_options (int start,
+                   int& argc,
+                   char** argv,
+                   int& end,
+                   bool erase,
+                   ::build2::test::script::cli::unknown_mode opt,
+                   ::build2::test::script::cli::unknown_mode arg)
+      : exact_ (),
+        newline_ (),
+        whitespace_ ()
+      {
+        ::build2::test::script::cli::argv_scanner s (start, argc, argv, erase);
+        _parse (s, opt, arg);
+        end = s.end ();
+      }
+
+      set_options::
+      set_options (::build2::test::script::cli::scanner& s,
+                   ::build2::test::script::cli::unknown_mode opt,
+                   ::build2::test::script::cli::unknown_mode arg)
+      : exact_ (),
+        newline_ (),
+        whitespace_ ()
+      {
+        _parse (s, opt, arg);
+      }
+
+      typedef
+      std::map<std::string, void (*) (set_options&, ::build2::test::script::cli::scanner&)>
+      _cli_set_options_map;
+
+      static _cli_set_options_map _cli_set_options_map_;
+
+      struct _cli_set_options_map_init
+      {
+        _cli_set_options_map_init ()
+        {
+          _cli_set_options_map_["--exact"] = 
+          &::build2::test::script::cli::thunk< set_options, bool, &set_options::exact_ >;
+          _cli_set_options_map_["-e"] = 
+          &::build2::test::script::cli::thunk< set_options, bool, &set_options::exact_ >;
+          _cli_set_options_map_["--newline"] = 
+          &::build2::test::script::cli::thunk< set_options, bool, &set_options::newline_ >;
+          _cli_set_options_map_["-n"] = 
+          &::build2::test::script::cli::thunk< set_options, bool, &set_options::newline_ >;
+          _cli_set_options_map_["--whitespace"] = 
+          &::build2::test::script::cli::thunk< set_options, bool, &set_options::whitespace_ >;
+          _cli_set_options_map_["-w"] = 
+          &::build2::test::script::cli::thunk< set_options, bool, &set_options::whitespace_ >;
+        }
+      };
+
+      static _cli_set_options_map_init _cli_set_options_map_init_;
+
+      bool set_options::
+      _parse (const char* o, ::build2::test::script::cli::scanner& s)
+      {
+        _cli_set_options_map::const_iterator i (_cli_set_options_map_.find (o));
+
+        if (i != _cli_set_options_map_.end ())
+        {
+          (*(i->second)) (*this, s);
+          return true;
+        }
+
+        return false;
+      }
+
+      bool set_options::
+      _parse (::build2::test::script::cli::scanner& s,
+              ::build2::test::script::cli::unknown_mode opt_mode,
+              ::build2::test::script::cli::unknown_mode arg_mode)
+      {
+        // Can't skip combined flags (--no-combined-flags).
+        //
+        assert (opt_mode != ::build2::test::script::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)
+                };
+
+                ::build2::test::script::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 ::build2::test::script::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
+                    };
+
+                    ::build2::test::script::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 ::build2::test::script::cli::unknown_mode::skip:
+                {
+                  s.skip ();
+                  r = true;
+                  continue;
+                }
+                case ::build2::test::script::cli::unknown_mode::stop:
+                {
+                  break;
+                }
+                case ::build2::test::script::cli::unknown_mode::fail:
+                {
+                  throw ::build2::test::script::cli::unknown_option (o);
+                }
+              }
+
+              break;
+            }
+          }
+
+          switch (arg_mode)
+          {
+            case ::build2::test::script::cli::unknown_mode::skip:
+            {
+              s.skip ();
+              r = true;
+              continue;
+            }
+            case ::build2::test::script::cli::unknown_mode::stop:
+            {
+              break;
+            }
+            case ::build2::test::script::cli::unknown_mode::fail:
+            {
+              throw ::build2::test::script::cli::unknown_argument (o);
+            }
+          }
+
+          break;
+        }
+
+        return r;
+      }
+
+      // sleep_options
+      //
+
+      sleep_options::
+      sleep_options ()
+      {
+      }
+
+      sleep_options::
+      sleep_options (int& argc,
+                     char** argv,
+                     bool erase,
+                     ::build2::test::script::cli::unknown_mode opt,
+                     ::build2::test::script::cli::unknown_mode arg)
+      {
+        ::build2::test::script::cli::argv_scanner s (argc, argv, erase);
+        _parse (s, opt, arg);
+      }
+
+      sleep_options::
+      sleep_options (int start,
+                     int& argc,
+                     char** argv,
+                     bool erase,
+                     ::build2::test::script::cli::unknown_mode opt,
+                     ::build2::test::script::cli::unknown_mode arg)
+      {
+        ::build2::test::script::cli::argv_scanner s (start, argc, argv, erase);
+        _parse (s, opt, arg);
+      }
+
+      sleep_options::
+      sleep_options (int& argc,
+                     char** argv,
+                     int& end,
+                     bool erase,
+                     ::build2::test::script::cli::unknown_mode opt,
+                     ::build2::test::script::cli::unknown_mode arg)
+      {
+        ::build2::test::script::cli::argv_scanner s (argc, argv, erase);
+        _parse (s, opt, arg);
+        end = s.end ();
+      }
+
+      sleep_options::
+      sleep_options (int start,
+                     int& argc,
+                     char** argv,
+                     int& end,
+                     bool erase,
+                     ::build2::test::script::cli::unknown_mode opt,
+                     ::build2::test::script::cli::unknown_mode arg)
+      {
+        ::build2::test::script::cli::argv_scanner s (start, argc, argv, erase);
+        _parse (s, opt, arg);
+        end = s.end ();
+      }
+
+      sleep_options::
+      sleep_options (::build2::test::script::cli::scanner& s,
+                     ::build2::test::script::cli::unknown_mode opt,
+                     ::build2::test::script::cli::unknown_mode arg)
+      {
+        _parse (s, opt, arg);
+      }
+
+      typedef
+      std::map<std::string, void (*) (sleep_options&, ::build2::test::script::cli::scanner&)>
+      _cli_sleep_options_map;
+
+      static _cli_sleep_options_map _cli_sleep_options_map_;
+
+      struct _cli_sleep_options_map_init
+      {
+        _cli_sleep_options_map_init ()
+        {
+        }
+      };
+
+      static _cli_sleep_options_map_init _cli_sleep_options_map_init_;
+
+      bool sleep_options::
+      _parse (const char* o, ::build2::test::script::cli::scanner& s)
+      {
+        _cli_sleep_options_map::const_iterator i (_cli_sleep_options_map_.find (o));
+
+        if (i != _cli_sleep_options_map_.end ())
+        {
+          (*(i->second)) (*this, s);
+          return true;
+        }
+
+        return false;
+      }
+
+      bool sleep_options::
+      _parse (::build2::test::script::cli::scanner& s,
+              ::build2::test::script::cli::unknown_mode opt_mode,
+              ::build2::test::script::cli::unknown_mode arg_mode)
+      {
+        // Can't skip combined flags (--no-combined-flags).
+        //
+        assert (opt_mode != ::build2::test::script::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)
+                };
+
+                ::build2::test::script::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 ::build2::test::script::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
+                    };
+
+                    ::build2::test::script::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 ::build2::test::script::cli::unknown_mode::skip:
+                {
+                  s.skip ();
+                  r = true;
+                  continue;
+                }
+                case ::build2::test::script::cli::unknown_mode::stop:
+                {
+                  break;
+                }
+                case ::build2::test::script::cli::unknown_mode::fail:
+                {
+                  throw ::build2::test::script::cli::unknown_option (o);
+                }
+              }
+
+              break;
+            }
+          }
+
+          switch (arg_mode)
+          {
+            case ::build2::test::script::cli::unknown_mode::skip:
+            {
+              s.skip ();
+              r = true;
+              continue;
+            }
+            case ::build2::test::script::cli::unknown_mode::stop:
+            {
+              break;
+            }
+            case ::build2::test::script::cli::unknown_mode::fail:
+            {
+              throw ::build2::test::script::cli::unknown_argument (o);
+            }
+          }
+
+          break;
+        }
+
+        return r;
+      }
+
+      // test_options
+      //
+
+      test_options::
+      test_options ()
+      : file_ (),
+        directory_ ()
+      {
+      }
+
+      test_options::
+      test_options (int& argc,
+                    char** argv,
+                    bool erase,
+                    ::build2::test::script::cli::unknown_mode opt,
+                    ::build2::test::script::cli::unknown_mode arg)
+      : file_ (),
+        directory_ ()
+      {
+        ::build2::test::script::cli::argv_scanner s (argc, argv, erase);
+        _parse (s, opt, arg);
+      }
+
+      test_options::
+      test_options (int start,
+                    int& argc,
+                    char** argv,
+                    bool erase,
+                    ::build2::test::script::cli::unknown_mode opt,
+                    ::build2::test::script::cli::unknown_mode arg)
+      : file_ (),
+        directory_ ()
+      {
+        ::build2::test::script::cli::argv_scanner s (start, argc, argv, erase);
+        _parse (s, opt, arg);
+      }
+
+      test_options::
+      test_options (int& argc,
+                    char** argv,
+                    int& end,
+                    bool erase,
+                    ::build2::test::script::cli::unknown_mode opt,
+                    ::build2::test::script::cli::unknown_mode arg)
+      : file_ (),
+        directory_ ()
+      {
+        ::build2::test::script::cli::argv_scanner s (argc, argv, erase);
+        _parse (s, opt, arg);
+        end = s.end ();
+      }
+
+      test_options::
+      test_options (int start,
+                    int& argc,
+                    char** argv,
+                    int& end,
+                    bool erase,
+                    ::build2::test::script::cli::unknown_mode opt,
+                    ::build2::test::script::cli::unknown_mode arg)
+      : file_ (),
+        directory_ ()
+      {
+        ::build2::test::script::cli::argv_scanner s (start, argc, argv, erase);
+        _parse (s, opt, arg);
+        end = s.end ();
+      }
+
+      test_options::
+      test_options (::build2::test::script::cli::scanner& s,
+                    ::build2::test::script::cli::unknown_mode opt,
+                    ::build2::test::script::cli::unknown_mode arg)
+      : file_ (),
+        directory_ ()
+      {
+        _parse (s, opt, arg);
+      }
+
+      typedef
+      std::map<std::string, void (*) (test_options&, ::build2::test::script::cli::scanner&)>
+      _cli_test_options_map;
+
+      static _cli_test_options_map _cli_test_options_map_;
+
+      struct _cli_test_options_map_init
+      {
+        _cli_test_options_map_init ()
+        {
+          _cli_test_options_map_["--file"] = 
+          &::build2::test::script::cli::thunk< test_options, bool, &test_options::file_ >;
+          _cli_test_options_map_["-f"] = 
+          &::build2::test::script::cli::thunk< test_options, bool, &test_options::file_ >;
+          _cli_test_options_map_["--directory"] = 
+          &::build2::test::script::cli::thunk< test_options, bool, &test_options::directory_ >;
+          _cli_test_options_map_["-d"] = 
+          &::build2::test::script::cli::thunk< test_options, bool, &test_options::directory_ >;
+        }
+      };
+
+      static _cli_test_options_map_init _cli_test_options_map_init_;
+
+      bool test_options::
+      _parse (const char* o, ::build2::test::script::cli::scanner& s)
+      {
+        _cli_test_options_map::const_iterator i (_cli_test_options_map_.find (o));
+
+        if (i != _cli_test_options_map_.end ())
+        {
+          (*(i->second)) (*this, s);
+          return true;
+        }
+
+        return false;
+      }
+
+      bool test_options::
+      _parse (::build2::test::script::cli::scanner& s,
+              ::build2::test::script::cli::unknown_mode opt_mode,
+              ::build2::test::script::cli::unknown_mode arg_mode)
+      {
+        // Can't skip combined flags (--no-combined-flags).
+        //
+        assert (opt_mode != ::build2::test::script::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)
+                };
+
+                ::build2::test::script::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 ::build2::test::script::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
+                    };
+
+                    ::build2::test::script::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 ::build2::test::script::cli::unknown_mode::skip:
+                {
+                  s.skip ();
+                  r = true;
+                  continue;
+                }
+                case ::build2::test::script::cli::unknown_mode::stop:
+                {
+                  break;
+                }
+                case ::build2::test::script::cli::unknown_mode::fail:
+                {
+                  throw ::build2::test::script::cli::unknown_option (o);
+                }
+              }
+
+              break;
+            }
+          }
+
+          switch (arg_mode)
+          {
+            case ::build2::test::script::cli::unknown_mode::skip:
+            {
+              s.skip ();
+              r = true;
+              continue;
+            }
+            case ::build2::test::script::cli::unknown_mode::stop:
+            {
+              break;
+            }
+            case ::build2::test::script::cli::unknown_mode::fail:
+            {
+              throw ::build2::test::script::cli::unknown_argument (o);
+            }
+          }
+
+          break;
+        }
+
+        return r;
+      }
+
+      // touch_options
+      //
+
+      touch_options::
+      touch_options ()
+      : after_ (),
+        after_specified_ (false)
+      {
+      }
+
+      touch_options::
+      touch_options (int& argc,
+                     char** argv,
+                     bool erase,
+                     ::build2::test::script::cli::unknown_mode opt,
+                     ::build2::test::script::cli::unknown_mode arg)
+      : after_ (),
+        after_specified_ (false)
+      {
+        ::build2::test::script::cli::argv_scanner s (argc, argv, erase);
+        _parse (s, opt, arg);
+      }
+
+      touch_options::
+      touch_options (int start,
+                     int& argc,
+                     char** argv,
+                     bool erase,
+                     ::build2::test::script::cli::unknown_mode opt,
+                     ::build2::test::script::cli::unknown_mode arg)
+      : after_ (),
+        after_specified_ (false)
+      {
+        ::build2::test::script::cli::argv_scanner s (start, argc, argv, erase);
+        _parse (s, opt, arg);
+      }
+
+      touch_options::
+      touch_options (int& argc,
+                     char** argv,
+                     int& end,
+                     bool erase,
+                     ::build2::test::script::cli::unknown_mode opt,
+                     ::build2::test::script::cli::unknown_mode arg)
+      : after_ (),
+        after_specified_ (false)
+      {
+        ::build2::test::script::cli::argv_scanner s (argc, argv, erase);
+        _parse (s, opt, arg);
+        end = s.end ();
+      }
+
+      touch_options::
+      touch_options (int start,
+                     int& argc,
+                     char** argv,
+                     int& end,
+                     bool erase,
+                     ::build2::test::script::cli::unknown_mode opt,
+                     ::build2::test::script::cli::unknown_mode arg)
+      : after_ (),
+        after_specified_ (false)
+      {
+        ::build2::test::script::cli::argv_scanner s (start, argc, argv, erase);
+        _parse (s, opt, arg);
+        end = s.end ();
+      }
+
+      touch_options::
+      touch_options (::build2::test::script::cli::scanner& s,
+                     ::build2::test::script::cli::unknown_mode opt,
+                     ::build2::test::script::cli::unknown_mode arg)
+      : after_ (),
+        after_specified_ (false)
+      {
+        _parse (s, opt, arg);
+      }
+
+      typedef
+      std::map<std::string, void (*) (touch_options&, ::build2::test::script::cli::scanner&)>
+      _cli_touch_options_map;
+
+      static _cli_touch_options_map _cli_touch_options_map_;
+
+      struct _cli_touch_options_map_init
+      {
+        _cli_touch_options_map_init ()
+        {
+          _cli_touch_options_map_["--after"] = 
+          &::build2::test::script::cli::thunk< touch_options, string, &touch_options::after_,
+            &touch_options::after_specified_ >;
+        }
+      };
+
+      static _cli_touch_options_map_init _cli_touch_options_map_init_;
+
+      bool touch_options::
+      _parse (const char* o, ::build2::test::script::cli::scanner& s)
+      {
+        _cli_touch_options_map::const_iterator i (_cli_touch_options_map_.find (o));
+
+        if (i != _cli_touch_options_map_.end ())
+        {
+          (*(i->second)) (*this, s);
+          return true;
+        }
+
+        // cleanup_options base
+        //
+        if (::build2::test::script::cleanup_options::_parse (o, s))
+          return true;
+
+        return false;
+      }
+
+      bool touch_options::
+      _parse (::build2::test::script::cli::scanner& s,
+              ::build2::test::script::cli::unknown_mode opt_mode,
+              ::build2::test::script::cli::unknown_mode arg_mode)
+      {
+        // Can't skip combined flags (--no-combined-flags).
+        //
+        assert (opt_mode != ::build2::test::script::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)
+                };
+
+                ::build2::test::script::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 ::build2::test::script::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
+                    };
+
+                    ::build2::test::script::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 ::build2::test::script::cli::unknown_mode::skip:
+                {
+                  s.skip ();
+                  r = true;
+                  continue;
+                }
+                case ::build2::test::script::cli::unknown_mode::stop:
+                {
+                  break;
+                }
+                case ::build2::test::script::cli::unknown_mode::fail:
+                {
+                  throw ::build2::test::script::cli::unknown_option (o);
+                }
+              }
+
+              break;
+            }
+          }
+
+          switch (arg_mode)
+          {
+            case ::build2::test::script::cli::unknown_mode::skip:
+            {
+              s.skip ();
+              r = true;
+              continue;
+            }
+            case ::build2::test::script::cli::unknown_mode::stop:
+            {
+              break;
+            }
+            case ::build2::test::script::cli::unknown_mode::fail:
+            {
+              throw ::build2::test::script::cli::unknown_argument (o);
+            }
+          }
+
+          break;
+        }
+
+        return r;
+      }
+    }
+  }
+}
+
+// Begin epilogue.
+//
+//
+// End epilogue.
+