1 files changed, 141 insertions, 4 deletions

diff --git a/mod/types-parsers.cxx b/mod/types-parsers.cxx
index dad1c02..f135608 100644
--- a/mod/types-parsers.cxx
+++ b/mod/types-parsers.cxx
@@ -1,13 +1,19 @@
 // file      : mod/types-parsers.cxx -*- C++ -*-
-// copyright : Copyright (c) 2014-2019 Code Synthesis Ltd
 // license   : MIT; see accompanying LICENSE file
 
 #include <mod/types-parsers.hxx>
 
-#include <mod/options.hxx>
+#include <sstream>
+
+#include <libbutl/regex.hxx>
+#include <libbutl/timestamp.hxx> // from_string()
+
+#include <mod/module-options.hxx>
 
 using namespace std;
+using namespace butl;
 using namespace bpkg;
+using namespace bbot;
 using namespace web::xhtml;
 
 namespace brep
@@ -51,6 +57,40 @@ namespace brep
       parse_path (x, s);
     }
 
+    // Parse time of day.
+    //
+    void parser<duration>::
+    parse (duration& x, bool& xs, scanner& s)
+    {
+      xs = true;
+
+      const char* o (s.next ());
+
+      if (!s.more ())
+        throw missing_value (o);
+
+      const char* v (s.next ());
+
+      // To avoid the manual time of day parsing and validation, let's parse
+      // it as the first Epoch day time and convert the result (timestamp) to
+      // the time elapsed since Epoch (duration).
+      //
+      try
+      {
+        string t ("1970-01-01 ");
+        t += v;
+
+        x = from_string (t.c_str (),
+                         "%Y-%m-%d %H:%M",
+                         false /* local */).time_since_epoch ();
+        return;
+      }
+      catch (const invalid_argument&) {}
+      catch (const system_error&) {}
+
+      throw invalid_value (o, v);
+    }
+
     // Parse repository_location.
     //
     void parser<repository_location>::
@@ -75,6 +115,29 @@ namespace brep
       }
     }
 
+    // Parse interactive_mode.
+    //
+    void parser<interactive_mode>::
+    parse (interactive_mode& x, bool& xs, scanner& s)
+    {
+      xs = true;
+      const char* o (s.next ());
+
+      if (!s.more ())
+        throw missing_value (o);
+
+      const string v (s.next ());
+
+      try
+      {
+        x = to_interactive_mode (v);
+      }
+      catch (const invalid_argument&)
+      {
+        throw invalid_value (o, v);
+      }
+    }
+
     // Parse page_form.
     //
     void parser<page_form>::
@@ -141,10 +204,84 @@ namespace brep
       {
         x = fragment (v, o);
       }
-      catch (const xml::parsing&)
+      catch (const xml::parsing& e)
       {
-        throw invalid_value (o, v);
+        throw invalid_value (o, v, e.what ());
       }
     }
+
+    // Parse the '/regex/replacement/' string into the regex/replacement pair.
+    //
+    void parser<pair<std::regex, string>>::
+    parse (pair<std::regex, string>& x, bool& xs, scanner& s)
+    {
+      xs = true;
+      const char* o (s.next ());
+
+      if (!s.more ())
+        throw missing_value (o);
+
+      const char* v (s.next ());
+
+      try
+      {
+        x = regex_replace_parse (v);
+      }
+      catch (const invalid_argument& e)
+      {
+        throw invalid_value (o, v, e.what ());
+      }
+      catch (const regex_error& e)
+      {
+        // Sanitize the description.
+        //
+        ostringstream os;
+        os << e;
+
+        throw invalid_value (o, v, os.str ());
+      }
+    }
+
+    // Parse build_order.
+    //
+    void parser<build_order>::
+    parse (build_order& x, bool& xs, scanner& s)
+    {
+      xs = true;
+      const char* o (s.next ());
+
+      if (!s.more ())
+        throw missing_value (o);
+
+      const string v (s.next ());
+      if (v == "stable")
+        x = build_order::stable;
+      else if (v == "random")
+        x = build_order::random;
+      else
+        throw invalid_value (o, v);
+    }
+
+    // Parse build_email.
+    //
+    void parser<build_email>::
+    parse (build_email& x, bool& xs, scanner& s)
+    {
+      xs = true;
+      const char* o (s.next ());
+
+      if (!s.more ())
+        throw missing_value (o);
+
+      const string v (s.next ());
+      if (v == "none")
+        x = build_email::none;
+      else if (v == "latest")
+        x = build_email::latest;
+      else if (v == "all")
+        x = build_email::all;
+      else
+        throw invalid_value (o, v);
+    }
   }
 }