Adding upstream version 0.8.7.upstream/0.8.7upstream

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

1 files changed, 191 insertions, 0 deletions

diff --git a/src/sexp-simple-string.cpp b/src/sexp-simple-string.cpp
new file mode 100644
index 0000000..0e4c869
--- /dev/null
+++ b/src/sexp-simple-string.cpp
@@ -0,0 +1,191 @@
+/**

+ *

+ * 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_simple_string_t::print_canonical_verbatim(os)

+ * Print out simple string on output stream os as verbatim string.

+ */

+sexp_output_stream_t *sexp_simple_string_t::print_canonical_verbatim(

+  sexp_output_stream_t *os) const

+{

+    const octet_t *c = c_str();

+    /* print out len: */

+    os->print_decimal(length())->var_put_char(':');

+    /* print characters in fragment */

+    for (uint32_t i = 0; i < length(); i++)

+        os->var_put_char((int) *c++);

+    return os;

+}

+

+/*

+ * sexp_simple_string_t::advanced_length(os)

+ * Returns length of printed image of s

+ */

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

+{

+    if (can_print_as_token(os))

+        return advanced_length_token();

+    else if (can_print_as_quoted_string())

+        return advanced_length_quoted();

+    else if (length() <= 4 && os->get_byte_size() == 8)

+        return advanced_length_hexadecimal();

+    else if (os->get_byte_size() == 8)

+        return advanced_length_base64();

+    else

+        return 0; /* an error condition */

+}

+

+/*

+ * sexp_simple_string_t::print_token(os)

+ * Prints out simple string ss as a token (assumes that this is OK).

+ * May run over max-column, but there is no fragmentation allowed...

+ */

+sexp_output_stream_t *sexp_simple_string_t::print_token(sexp_output_stream_t *os) const

+{

+    const octet_t *c = c_str();

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

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

+    for (uint32_t i = 0; i < length(); i++)

+        os->put_char((int) (*c++));

+    return os;

+}

+

+/*

+ * sexp_simple_string_t::print_base64(os)

+ * Prints out simple string ss as a base64 value.

+ */

+sexp_output_stream_t *sexp_simple_string_t::print_base64(sexp_output_stream_t *os) const

+{

+    const octet_t *c = c_str();

+    os->var_put_char('|')->change_output_byte_size(6, sexp_output_stream_t::advanced);

+    for (uint32_t i = 0; i < length(); i++)

+        os->var_put_char((int) (*c++));

+    return os->flush()

+      ->change_output_byte_size(8, sexp_output_stream_t::advanced)

+      ->var_put_char('|');

+}

+

+/*

+ * sexp_simple_string_t::print_hexadecimal(os)

+ * Prints out simple string as a hexadecimal value.

+ */

+sexp_output_stream_t *sexp_simple_string_t::print_hexadecimal(sexp_output_stream_t *os) const

+{

+    const octet_t *c = c_str();

+    os->put_char('#')->change_output_byte_size(4, sexp_output_stream_t::advanced);

+    for (uint32_t i = 0; i < length(); i++)

+        os->var_put_char((int) (*c++));

+    return os->flush()

+      ->change_output_byte_size(8, sexp_output_stream_t::advanced)

+      ->put_char('#');

+}

+

+/*

+ * sexp_simple_string_t::print_quoted(os)

+ * Prints out simple string ss as a quoted string

+ * This code assumes that all characters are tokenchars and blanks,

+ *  so no escape sequences need to be generated.

+ * May run over max-column, but there is no fragmentation allowed...

+ */

+sexp_output_stream_t *sexp_simple_string_t::print_quoted(sexp_output_stream_t *os) const

+{

+    const octet_t *c = c_str();

+    os->put_char('\"');

+    for (uint32_t i = 0; i < length(); i++) {

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

+            os->put_char('\\')->put_char('\n');

+            os->reset_column();

+        }

+        os->put_char(*c++);

+    }

+    return os->put_char('\"');

+}

+

+/*

+ * sexp_simple_string_t::print_advanced(os)

+ * Prints out simple string onto output stream ss

+ */

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

+{

+    if (can_print_as_token(os))

+        print_token(os);

+    else if (can_print_as_quoted_string())

+        print_quoted(os);

+    else if (length() <= 4 && os->get_byte_size() == 8)

+        print_hexadecimal(os);

+    else if (os->get_byte_size() == 8)

+        print_base64(os);

+    else

+        sexp_error(sexp_exception_t::error,

+                   "Can't print in advanced mode with restricted output character set",

+                   0,

+                   0,

+                   EOF);

+    return os;

+}

+

+/*

+ * sexp_simple_string_t::can_print_as_quoted_string(void)

+ * Returns true if simple string can be printed as a quoted string.

+ * Must have only tokenchars and blanks.

+ */

+bool sexp_simple_string_t::can_print_as_quoted_string(void) const

+{

+    const octet_t *c = c_str();

+    for (uint32_t i = 0; i < length(); i++, c++) {

+        if (!is_token_char((int) (*c)) && *c != ' ')

+            return false;

+    }

+    return true;

+}

+

+/*

+ * sexp_simple_string_t::can_print_as_token(os)

+ * Returns true if simple string can be printed as a token.

+ * Doesn't begin with a digit, and all characters are tokenchars.

+ */

+bool sexp_simple_string_t::can_print_as_token(const sexp_output_stream_t *os) const

+{

+    const octet_t *c = c_str();

+    if (length() <= 0)

+        return false;

+    if (is_dec_digit((int) *c))

+        return false;

+    if (os->get_max_column() > 0 && os->get_column() + length() >= os->get_max_column())

+        return false;

+    for (uint32_t i = 0; i < length(); i++) {

+        if (!is_token_char((int) (*c++)))

+            return false;

+    }

+    return true;

+}

+

+} // namespace sexp