Adding upstream version 0.8.7.upstream/0.8.7upstream

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 188 insertions, 0 deletions

diff --git a/src/sexp-object.cpp b/src/sexp-object.cpp
new file mode 100644
index 0000000..d01ae11
--- /dev/null
+++ b/src/sexp-object.cpp
@@ -0,0 +1,188 @@
+/**

+ *

+ * Copyright 2021-2023 Ribose Inc. (https://www.ribose.com)

+ *

+ * Permission is hereby granted, free of charge, to any person obtaining a copy of

+ * this software and associated documentation files (the "Software"), to deal in

+ * the Software without restriction, including without limitation the rights to

+ * use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of

+ * the Software, and to permit persons to whom the Software is furnished to do so,

+ * subject to the following conditions:

+ *

+ * The above copyright notice and this permission notice shall be included in all

+ * copies or substantial portions of the Software.

+ *

+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR

+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS

+ * FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR

+ * COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER

+ * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN

+ * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

+ *

+ * Original copyright

+ *

+ * SEXP implementation code sexp-output.c

+ * Ron Rivest

+ * 5/5/1997

+ */

+

+#include "sexpp/sexp.h"

+

+namespace sexp {

+

+/*

+ * sexp_string_t::parse(sis)

+ * Parses the strin from input stream

+ */

+

+void sexp_string_t::parse(sexp_input_stream_t *sis)

+{

+    if (sis->get_next_char() == '[') { /* scan presentation hint */

+        sis->skip_char('[');

+        set_presentation_hint(sis->scan_simple_string());

+        sis->skip_white_space()->skip_char(']')->skip_white_space();

+    }

+    set_string(sis->scan_simple_string());

+}

+

+/*

+ * sexp_string_t::print_canonical(os)

+ * Prints out sexp string onto output stream os

+ */

+sexp_output_stream_t *sexp_string_t::print_canonical(sexp_output_stream_t *os) const

+{

+    if (with_presentation_hint) {

+        os->var_put_char('[');

+        presentation_hint.print_canonical_verbatim(os);

+        os->var_put_char(']');

+    }

+    data_string.print_canonical_verbatim(os);

+    return os;

+}

+

+/*

+ * sexp_string_t::print_advanced(os)

+ * Prints out sexp string onto output stream os

+ */

+sexp_output_stream_t *sexp_string_t::print_advanced(sexp_output_stream_t *os) const

+{

+    sexp_object_t::print_advanced(os);

+    if (with_presentation_hint) {

+        os->put_char('[');

+        presentation_hint.print_advanced(os);

+        os->put_char(']');

+    }

+    data_string.print_advanced(os);

+    return os;

+}

+

+/*

+ * sexp_string_t::advanced_length(os)

+ * Returns length of printed image of string

+ */

+size_t sexp_string_t::advanced_length(sexp_output_stream_t *os) const

+{

+    size_t len = 0;

+    if (with_presentation_hint)

+        len += 2 + presentation_hint.advanced_length(os);

+    len += data_string.advanced_length(os);

+    return len;

+}

+

+/*

+ * sexp_list_t::parse(sis)

+ * Parses the list from input stream

+ */

+

+void sexp_list_t::parse(sexp_input_stream_t *sis)

+{

+    sis->open_list()->skip_white_space();

+    if (sis->get_next_char() == ')') {

+        ;

+    } else {

+        push_back(sis->scan_object());

+    }

+

+    while (true) {

+        sis->skip_white_space();

+        if (sis->get_next_char() == ')') { /* we just grabbed last element of list */

+            sis->close_list();

+            return;

+

+        } else {

+            push_back(sis->scan_object());

+        }

+    }

+}

+

+/*

+ * sexp_list_t::print_canonical(os)

+ * Prints out the list "list" onto output stream os

+ */

+sexp_output_stream_t *sexp_list_t::print_canonical(sexp_output_stream_t *os) const

+{

+    os->var_open_list();

+    std::for_each(begin(), end(), [os](const std::shared_ptr<sexp_object_t> &obj) {

+        obj->print_canonical(os);

+    });

+    os->var_close_list();

+    return os;

+}

+

+/*

+ * sexp_list_t::print_advanced(os)

+ * Prints out the list onto output stream os.

+ * Uses print-length to determine length of the image.  If it all fits

+ * on the current line, then it is printed that way.  Otherwise, it is

+ * written out in "vertical" mode, with items of the list starting in

+ * the same column on successive lines.

+ */

+sexp_output_stream_t *sexp_list_t::print_advanced(sexp_output_stream_t *os) const

+{

+    sexp_object_t::print_advanced(os);

+    int vertical = false;

+    int firstelement = true;

+    os->open_list()->inc_indent();

+    vertical = (advanced_length(os) > os->get_max_column() - os->get_column());

+

+    std::for_each(begin(), end(), [&](const std::shared_ptr<sexp_object_t> &obj) {

+        if (!firstelement) {

+            if (vertical)

+                os->new_line(sexp_output_stream_t::advanced);

+            else

+                os->put_char(' ');

+        }

+        obj->print_advanced(os);

+        firstelement = false;

+    });

+

+    if (os->get_max_column() > 0 && os->get_column() > os->get_max_column() - 2)

+        os->new_line(sexp_output_stream_t::advanced);

+    return os->dec_indent()->put_char(')');

+}

+

+/*

+ * sexp_list_t::advanced_length(os)

+ * Returns length of printed image of list given as iterator

+ */

+size_t sexp_list_t::advanced_length(sexp_output_stream_t *os) const

+{

+    size_t len = 1; /* for left paren */

+    std::for_each(begin(), end(), [&](const std::shared_ptr<sexp_object_t> &obj) {

+        len += obj->advanced_length(os);

+    });

+    return (len + 1); /* for final paren */

+}

+

+/*

+ * sexp_object_t::print_advanced(os)

+ * Prints out object on output stream os

+ */

+sexp_output_stream_t *sexp_object_t::print_advanced(sexp_output_stream_t *os) const

+{

+    if (os->get_max_column() > 0 && os->get_column() > os->get_max_column() - 4)

+        os->new_line(sexp_output_stream_t::advanced);

+    return os;

+}

+

+} // namespace sexp
\ No newline at end of file