From 34f0540da418b01dd4d49f6ecf72569d3cfecfdf Mon Sep 17 00:00:00 2001
From: Ben Longbons <b.r.longbons@gmail.com>
Date: Sat, 25 Jan 2014 09:43:09 -0800
Subject: Implement unified config parsing (mostly)

---
 src/common/config_parse.cpp | 154 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 154 insertions(+)
 create mode 100644 src/common/config_parse.cpp

(limited to 'src/common/config_parse.cpp')

diff --git a/src/common/config_parse.cpp b/src/common/config_parse.cpp
new file mode 100644
index 0000000..d677d8e
--- /dev/null
+++ b/src/common/config_parse.cpp
@@ -0,0 +1,154 @@
+#include "config_parse.hpp"
+//    config_parse.hpp - Framework for per-server config parsers.
+//
+//    Copyright © 2014 Ben Longbons <b.r.longbons@gmail.com>
+//
+//    This file is part of The Mana World (Athena server)
+//
+//    This program is free software: you can redistribute it and/or modify
+//    it under the terms of the GNU General Public License as published by
+//    the Free Software Foundation, either version 3 of the License, or
+//    (at your option) any later version.
+//
+//    This program is distributed in the hope that it will be useful,
+//    but WITHOUT ANY WARRANTY; without even the implied warranty of
+//    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+//    GNU General Public License for more details.
+//
+//    You should have received a copy of the GNU General Public License
+//    along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+#include "../strings/xstring.hpp"
+#include "../strings/zstring.hpp"
+
+#include "../io/cxxstdio.hpp"
+#include "../io/line.hpp"
+
+#include "version.hpp"
+
+#include "../poison.hpp"
+
+bool is_comment(XString line)
+{
+    return not line or line.startswith("//");
+}
+
+template<class ZS>
+inline
+bool config_split_impl(ZS line, XString *key, ZS *value)
+{
+    // unconditionally fail if line contains control characters
+    if (std::find_if(line.begin(), line.end(),
+                [](unsigned char c) { return c < ' '; }
+                ) != line.end())
+        return false;
+    // try to find a colon, fail if not found
+    typename ZS::iterator colon = std::find(line.begin(), line.end(), ':');
+    if (colon == line.end())
+        return false;
+
+    *key = line.xislice_h(colon).strip();
+    // move past the colon and any spaces
+    ++colon;
+    *value = line.xislice_t(colon).lstrip();
+    return true;
+}
+
+// eventually this should go away
+bool config_split(ZString line, XString *key, ZString *value)
+{
+    return config_split_impl(line, key, value);
+}
+// and use this instead
+bool config_split(XString line, XString *key, XString *value)
+{
+    return config_split_impl(line, key, value);
+}
+
+/// Master config parser. This handles 'import' and 'version-ge' etc.
+/// Then it defers to the inferior parser for a line it does not understand.
+bool load_config_file(ZString filename, ConfigItemParser slave)
+{
+    io::LineReader in(filename);
+    if (!in.is_open())
+    {
+        PRINTF("Unable to open file: %s\n", filename);
+        return false;
+    }
+    io::Line line;
+    bool rv = true;
+    while (in.read_line(line))
+    {
+        if (is_comment(line.text))
+            continue;
+        XString key;
+        ZString value;
+        if (!config_split(line.text, &key, &value))
+        {
+            line.error("Bad config line");
+            rv = false;
+            continue;
+        }
+        if (key == "import")
+        {
+            rv &= load_config_file(value, slave);
+            continue;
+        }
+        else if (key == "version-lt")
+        {
+            Version vers;
+            if (!extract(value, &vers))
+            {
+                rv = false;
+                continue;
+            }
+            if (CURRENT_VERSION < vers)
+                continue;
+            break;
+        }
+        else if (key == "version-le")
+        {
+            Version vers;
+            if (!extract(value, &vers))
+            {
+                rv = false;
+                continue;
+            }
+            if (CURRENT_VERSION <= vers)
+                continue;
+            break;
+        }
+        else if (key == "version-gt")
+        {
+            Version vers;
+            if (!extract(value, &vers))
+            {
+                rv = false;
+                continue;
+            }
+            if (CURRENT_VERSION > vers)
+                continue;
+            break;
+        }
+        else if (key == "version-ge")
+        {
+            Version vers;
+            if (!extract(value, &vers))
+            {
+                rv = false;
+                continue;
+            }
+            if (CURRENT_VERSION >= vers)
+                continue;
+            break;
+        }
+        else if (!slave(key, value))
+        {
+            line.error("Bad config key or value");
+            rv = false;
+            continue;
+        }
+        // nothing to see here, move along
+    }
+    return rv;
+}
-- 
cgit v1.2.3-70-g09d2