X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/b87fc0829538ec066fd077e6c30ee6270b8abd78..2d37e348a09783cda723c7019640ee69de168324:/src/xbt/xbt_str.cpp diff --git a/src/xbt/xbt_str.cpp b/src/xbt/xbt_str.cpp index bead714bd1..0d784a1b22 100644 --- a/src/xbt/xbt_str.cpp +++ b/src/xbt/xbt_str.cpp @@ -1,143 +1,13 @@ -/* xbt_str.cpp - various helping functions to deal with strings */ +/* xbt_str.cpp - various helping functions to deal with strings */ -/* Copyright (c) 2007-2014. The SimGrid Team. - * All rights reserved. */ +/* Copyright (c) 2007-2019. The SimGrid Team. All rights reserved. */ /* This program is free software; you can redistribute it and/or modify it * under the terms of the license (GNU LGPL) which comes with this package. */ -#include +#include "simgrid/Exception.hpp" #include "xbt/misc.h" -#include "xbt/sysdep.h" -#include "xbt/str.h" /* headers of these functions */ - -/** @brief Strip whitespace (or other characters) from the end of a string. - * - * Strips the whitespaces from the end of s. - * By default (when char_list=nullptr), these characters get stripped: - * - * - " " (ASCII 32 (0x20)) space. - * - "\t" (ASCII 9 (0x09)) tab. - * - "\n" (ASCII 10 (0x0A)) line feed. - * - "\r" (ASCII 13 (0x0D)) carriage return. - * - "\0" (ASCII 0 (0x00)) nullptr. - * - "\x0B" (ASCII 11 (0x0B)) vertical tab. - * - * @param s The string to strip. Modified in place. - * @param char_list A string which contains the characters you want to strip. - */ -void xbt_str_rtrim(char *s, const char *char_list) -{ - char *cur = s; - const char *__char_list = " \t\n\r\x0B"; - char white_char[256] = { 1, 0 }; - - if (not s) - return; - - if (not char_list) { - while (*__char_list) { - white_char[(unsigned char) *__char_list++] = 1; - } - } else { - while (*char_list) { - white_char[(unsigned char) *char_list++] = 1; - } - } - - while (*cur) - ++cur; - - while ((cur >= s) && white_char[(unsigned char) *cur]) - --cur; - - *++cur = '\0'; -} - -/** @brief Strip whitespace (or other characters) from the beginning of a string. - * - * Strips the whitespaces from the beginning of s. - * By default (when char_list=nullptr), these characters get stripped: - * - * - " " (ASCII 32 (0x20)) space. - * - "\t" (ASCII 9 (0x09)) tab. - * - "\n" (ASCII 10 (0x0A)) line feed. - * - "\r" (ASCII 13 (0x0D)) carriage return. - * - "\0" (ASCII 0 (0x00)) nullptr. - * - "\x0B" (ASCII 11 (0x0B)) vertical tab. - * - * @param s The string to strip. Modified in place. - * @param char_list A string which contains the characters you want to strip. - */ -void xbt_str_ltrim(char *s, const char *char_list) -{ - char *cur = s; - const char *__char_list = " \t\n\r\x0B"; - char white_char[256] = { 1, 0 }; - - if (not s) - return; - - if (not char_list) { - while (*__char_list) { - white_char[(unsigned char) *__char_list++] = 1; - } - } else { - while (*char_list) { - white_char[(unsigned char) *char_list++] = 1; - } - } - - while (*cur && white_char[(unsigned char) *cur]) - ++cur; - - memmove(s, cur, strlen(cur) + 1); -} - -/** @brief Strip whitespace (or other characters) from the end and the beginning of a string. - * - * Strips the whitespaces from both the beginning and the end of s. - * By default (when char_list=nullptr), these characters get stripped: - * - * - " " (ASCII 32 (0x20)) space. - * - "\t" (ASCII 9 (0x09)) tab. - * - "\n" (ASCII 10 (0x0A)) line feed. - * - "\r" (ASCII 13 (0x0D)) carriage return. - * - "\0" (ASCII 0 (0x00)) nullptr. - * - "\x0B" (ASCII 11 (0x0B)) vertical tab. - * - * @param s The string to strip. - * @param char_list A string which contains the characters you want to strip. - */ -void xbt_str_trim(char *s, const char *char_list) -{ - if (not s) - return; - - xbt_str_rtrim(s, char_list); - xbt_str_ltrim(s, char_list); -} - -/** @brief Substitutes a char for another in a string - * - * @param str the string to modify - * @param from char to search - * @param to char to put instead - * @param occurrence number of changes to do (=0 means all) - */ -void xbt_str_subst(char *str, char from, char to, int occurence) -{ - char *p = str; - while (*p != '\0') { - if (*p == from) { - *p = to; - if (occurence == 1) - return; - occurence--; - } - p++; - } -} +#include "xbt/str.h" /* headers of these functions */ /** @brief Splits a string into a dynar of strings * @@ -196,52 +66,6 @@ xbt_dynar_t xbt_str_split(const char *s, const char *sep) return res; } -/** - * \brief This functions splits a string after using another string as separator - * For example Anot not B!not C split after !! will return the dynar {A,B,C} - * \return An array of dynars containing the string tokens - */ -xbt_dynar_t xbt_str_split_str(const char *s, const char *sep) -{ - xbt_dynar_t res = xbt_dynar_new(sizeof(char *), &xbt_free_ref); - - const char* p = s; - const char* q = s; - int done = 0; - - if (s[0] == '\0') - return res; - if (sep[0] == '\0') { - s = xbt_strdup(s); - xbt_dynar_push(res, &s); - return res; - } - - while (not done) { - char *to_push; - // get the start of the first occurrence of the substring - q = strstr(p, sep); - //if substring was not found add the entire string - if (nullptr == q) { - int v = strlen(p); - to_push = (char*) xbt_malloc(v + 1); - memcpy(to_push, p, v); - to_push[v] = '\0'; - xbt_dynar_push(res, &to_push); - done = 1; - } else { - //get the appearance - to_push = (char*) xbt_malloc(q - p + 1); - memcpy(to_push, p, q - p); - //add string terminator - to_push[q - p] = '\0'; - xbt_dynar_push(res, &to_push); - p = q + strlen(sep); - } - } - return res; -} - /** @brief Just like @ref xbt_str_split_quoted (Splits a string into a dynar of strings), but without memory allocation * * The string passed as argument must be writable (not const) @@ -362,40 +186,12 @@ xbt_dynar_t xbt_str_split_quoted(const char *s) char *q=xbt_strdup(p); xbt_dynar_push(res,&q); } - free(str_to_free); + xbt_free(str_to_free); xbt_dynar_shrink(res, 0); xbt_dynar_free(&parsed); return res; } -/** @brief Join a set of strings as a single string */ -char *xbt_str_join(xbt_dynar_t dyn, const char *sep) -{ - int len = 1; - int dyn_len = xbt_dynar_length(dyn); - unsigned int cpt; - char* cursor; - - if (not dyn_len) - return xbt_strdup(""); - - /* compute the length */ - xbt_dynar_foreach(dyn, cpt, cursor) { - len += strlen(cursor); - } - len += strlen(sep) * dyn_len; - /* Do the job */ - char* res = (char*)xbt_malloc(len); - char* p = res; - xbt_dynar_foreach(dyn, cpt, cursor) { - if ((int) cpt < dyn_len - 1) - p += snprintf(p,len, "%s%s", cursor, sep); - else - p += snprintf(p,len, "%s", cursor); - } - return res; -} - /** @brief Join a set of strings as a single string * * The parameter must be a nullptr-terminated array of chars, @@ -464,103 +260,3 @@ double xbt_str_parse_double(const char* str, const char* error_msg) return res; } - -#ifdef SIMGRID_TEST -#include -#include "xbt/str.h" - -XBT_TEST_SUITE("xbt_str", "String Handling"); - -#define mytest(name, input, expected) \ - xbt_test_add(name); \ - d = xbt_str_split_quoted(input); \ - s = xbt_str_join(d, "XXX"); \ - xbt_test_assert(not strcmp(s, expected), "Input (%s) leads to (%s) instead of (%s)", input, s, expected); \ - free(s); \ - xbt_dynar_free(&d); -XBT_TEST_UNIT("xbt_str_split_quoted", test_split_quoted, "test the function xbt_str_split_quoted") -{ - xbt_dynar_t d; - char *s; - - mytest("Empty", "", ""); - mytest("Basic test", "toto tutu", "totoXXXtutu"); - mytest("Useless backslashes", "\\t\\o\\t\\o \\t\\u\\t\\u", "totoXXXtutu"); - mytest("Protected space", "toto\\ tutu", "toto tutu"); - mytest("Several spaces", "toto tutu", "totoXXXtutu"); - mytest("LTriming", " toto tatu", "totoXXXtatu"); - mytest("Triming", " toto tutu ", "totoXXXtutu"); - mytest("Single quotes", "'toto tutu' tata", "toto tutuXXXtata"); - mytest("Double quotes", "\"toto tutu\" tata", "toto tutuXXXtata"); - mytest("Mixed quotes", "\"toto' 'tutu\" tata", "toto' 'tutuXXXtata"); - mytest("Backslashed quotes", "\\'toto tutu\\' tata", "'totoXXXtutu'XXXtata"); - mytest("Backslashed quotes + quotes", "'toto \\'tutu' tata", "toto 'tutuXXXtata"); -} - -#define mytest_str(name, input, separator, expected) \ - xbt_test_add(name); \ - d = xbt_str_split_str(input, separator); \ - s = xbt_str_join(d, "XXX"); \ - xbt_test_assert(not strcmp(s, expected), "Input (%s) leads to (%s) instead of (%s)", input, s, expected); \ - free(s); \ - xbt_dynar_free(&d); - -XBT_TEST_UNIT("xbt_str_split_str", test_split_str, "test the function xbt_str_split_str") -{ - xbt_dynar_t d; - char *s; - - mytest_str("Empty string and separator", "", "", ""); - mytest_str("Empty string", "", "##", ""); - mytest_str("Empty separator", "toto", "", "toto"); - mytest_str("String with no separator in it", "toto", "##", "toto"); - mytest_str("Basic test", "toto##tutu", "##", "totoXXXtutu"); -} - -#define test_parse_error(function, name, variable, str) \ - do { \ - xbt_test_add(name); \ - try { \ - variable = function(str, "Parse error"); \ - xbt_test_fail("The test '%s' did not detect the problem",name ); \ - } catch(xbt_ex& e) { \ - if (e.category != arg_error) { \ - xbt_test_exception(e); \ - } \ - } \ - } while (0) -#define test_parse_ok(function, name, variable, str, value) \ - do { \ - xbt_test_add(name); \ - try { \ - variable = function(str, "Parse error"); \ - } catch(xbt_ex& e) { \ - xbt_test_exception(e); \ - } \ - xbt_test_assert(variable == value, "Fail to parse '%s'", str); \ - } while (0) - -XBT_TEST_UNIT("xbt_str_parse", test_parse, "Test the parsing functions") -{ - int rint = -9999; - test_parse_ok(xbt_str_parse_int, "Parse int", rint, "42", 42); - test_parse_ok(xbt_str_parse_int, "Parse 0 as an int", rint, "0", 0); - test_parse_ok(xbt_str_parse_int, "Parse -1 as an int", rint, "-1", -1); - - test_parse_error(xbt_str_parse_int, "Parse int + noise", rint, "342 cruft"); - test_parse_error(xbt_str_parse_int, "Parse nullptr as an int", rint, nullptr); - test_parse_error(xbt_str_parse_int, "Parse '' as an int", rint, ""); - test_parse_error(xbt_str_parse_int, "Parse cruft as an int", rint, "cruft"); - - double rdouble = -9999; - test_parse_ok(xbt_str_parse_double, "Parse 42 as a double", rdouble, "42", 42); - test_parse_ok(xbt_str_parse_double, "Parse 42.5 as a double", rdouble, "42.5", 42.5); - test_parse_ok(xbt_str_parse_double, "Parse 0 as a double", rdouble, "0", 0); - test_parse_ok(xbt_str_parse_double, "Parse -1 as a double", rdouble, "-1", -1); - - test_parse_error(xbt_str_parse_double, "Parse double + noise", rdouble, "342 cruft"); - test_parse_error(xbt_str_parse_double, "Parse nullptr as a double", rdouble, nullptr); - test_parse_error(xbt_str_parse_double, "Parse '' as a double", rdouble, ""); - test_parse_error(xbt_str_parse_double, "Parse cruft as a double", rdouble, "cruft"); -} -#endif /* SIMGRID_TEST */