X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fstr.c;h=db17cea6dead784c3e8612ccbfa98efafeb8d1e5;hb=e35ff8ccb29404f2098e6f2fccace1c99c61b7be;hp=98a8e52e3caf543b1afe47313ca59e9fcb98a732;hpb=def7e6026513a3ee7c2b38416b30a2e890e34311;p=pspp diff --git a/src/str.c b/src/str.c index 98a8e52e3c..db17cea6de 100644 --- a/src/str.c +++ b/src/str.c @@ -19,7 +19,7 @@ #include #include "str.h" -#include +#include "error.h" #include #include #include @@ -104,51 +104,36 @@ mm_find_reverse (const char *haystack, size_t haystack_len, return 0; } -/* Compares S0 of length S0L to S1 of length S1L. The shorter string - is considered to be padded with spaces to the length of the - longer. */ +/* Compares A of length A_LEN to B of length B_LEN. The shorter + string is considered to be padded with spaces to the length of + the longer. */ int -st_compare_pad (const char *s0, int s0l, const char *s1, int s1l) +st_compare_pad (const char *a, size_t a_len, const char *b, size_t b_len) { - /* 254 spaces. */ - static char blanks[254] = - " " - " " - " " - " " - " "; - - int diff = s0l - s1l; - int r; + size_t min_len; + int result; - if (diff == 0) - { - if (s0l == 0) - return 0; - return memcmp (s0, s1, s0l); - } - else if (diff > 0) + min_len = a_len < b_len ? a_len : b_len; + result = memcmp (a, b, min_len); + if (result != 0) + return result; + else { - /* s0l > s1l */ - if (s1l) - { - r = memcmp (s0, s1, s1l); - if (r) - return r; - } - return memcmp (&s0[s1l], blanks, diff); - } - else - /* diff<0 */ - { - /* s0l < s1l */ - if (s0l) - { - r = memcmp (s0, s1, s0l); - if (r) - return r; - } - return memcmp (blanks, &s1[s0l], -diff); + size_t idx; + + if (a_len < b_len) + { + for (idx = min_len; idx < b_len; idx++) + if (' ' != b[idx]) + return ' ' > b[idx] ? 1 : -1; + } + else + { + for (idx = min_len; idx < a_len; idx++) + if (a[idx] != ' ') + return a[idx] > ' ' ? 1 : -1; + } + return 0; } } @@ -178,10 +163,10 @@ void st_bare_pad_len_copy (char *dest, const char *src, size_t n, size_t len) { if (len >= n) - memcpy (dest, src, n); + memmove (dest, src, n); else { - memcpy (dest, src, len); + memmove (dest, src, len); memset (&dest[len], ' ', n - len); } } @@ -209,31 +194,52 @@ st_pad_copy (char *dest, const char *src, size_t n) dest[n - 1] = 0; } } + +/* Copies SRC to DST, truncating DST to N-1 characters if + necessary. Always appends a null character. */ +void +st_trim_copy (char *dst, const char *src, size_t n) +{ + size_t len = strlen (src); + assert (n > 0); + if (len + 1 < n) + memcpy (dst, src, len + 1); + else + { + memcpy (dst, src, n - 1); + dst[n - 1] = '\0'; + } +} + + +/* Converts each character in S to uppercase. */ +void +st_uppercase (char *s) +{ + for (; *s != '\0'; s++) + *s = toupper ((unsigned char) *s); +} -/* Initializes ST inside pool POOL (which may be a null pointer) with - initial contents S. */ +/* Initializes ST with initial contents S. */ void -ds_create (struct pool *pool, struct string *st, const char *s) +ds_create (struct string *st, const char *s) { - st->pool = pool; st->length = strlen (s); - st->size = 8 + st->length * 2; - st->string = pool_malloc (pool, st->size + 1); + st->capacity = 8 + st->length * 2; + st->string = xmalloc (st->capacity + 1); strcpy (st->string, s); } -/* Initializes ST inside POOL (which may be null), making room for at - least SIZE characters. */ +/* Initializes ST, making room for at least CAPACITY characters. */ void -ds_init (struct pool *pool, struct string *st, size_t size) +ds_init (struct string *st, size_t capacity) { - st->pool = pool; st->length = 0; - if (size > 8) - st->size = size; + if (capacity > 8) + st->capacity = capacity; else - st->size = 8; - st->string = pool_malloc (pool, st->size + 1); + st->capacity = 8; + st->string = xmalloc (st->capacity + 1); } /* Replaces the contents of ST with STRING. STRING may overlap with @@ -241,17 +247,28 @@ ds_init (struct pool *pool, struct string *st, size_t size) void ds_replace (struct string *st, const char *string) { - char *s = st->string; - st->string = NULL; - ds_create (st->pool, st, string); - pool_free (st->pool, s); + size_t new_length = strlen (string); + if (new_length > st->capacity) + { + /* The new length is longer than the allocated length, so + there can be no overlap. */ + st->length = 0; + ds_concat (st, string, new_length); + } + else + { + /* Overlap is possible, but the new string will fit in the + allocated space, so we can just copy data. */ + st->length = new_length; + memmove (st->string, string, st->length); + } } /* Frees ST. */ void ds_destroy (struct string *st) { - pool_free (st->pool, st->string); + free (st->string); } /* Truncates ST to zero length. */ @@ -261,29 +278,45 @@ ds_clear (struct string *st) st->length = 0; } -/* Ensures that ST can hold at least MIN_SIZE characters plus a null +/* Pad ST on the right with copies of PAD until ST is at least + LENGTH characters in size. If ST is initially LENGTH + characters or longer, this is a no-op. */ +void +ds_rpad (struct string *st, size_t length, char pad) +{ + assert (st != NULL); + if (st->length < length) + { + if (st->capacity < length) + ds_extend (st, length); + memset (&st->string[st->length], pad, length - st->length); + st->length = length; + } +} + +/* Ensures that ST can hold at least MIN_CAPACITY characters plus a null terminator. */ void -ds_extend (struct string *st, size_t min_size) +ds_extend (struct string *st, size_t min_capacity) { - if (min_size > st->size) + if (min_capacity > st->capacity) { - st->size *= 2; - if (st->size < min_size) - st->size = min_size * 2; + st->capacity *= 2; + if (st->capacity < min_capacity) + st->capacity = min_capacity * 2; - st->string = pool_realloc (st->pool, st->string, st->size + 1); + st->string = xrealloc (st->string, st->capacity + 1); } } -/* Shrink ST to the minimum size need to contain its content. */ +/* Shrink ST to the minimum capacity need to contain its content. */ void ds_shrink (struct string *st) { - if (st->size != st->length) + if (st->capacity != st->length) { - st->size = st->length; - st->string = pool_realloc (st->pool, st->string, st->size + 1); + st->capacity = st->length; + st->string = xrealloc (st->string, st->capacity + 1); } } @@ -305,21 +338,28 @@ ds_length (const struct string *st) /* Returns the allocation size of ST. */ size_t -ds_size (const struct string *st) +ds_capacity (const struct string *st) { - return st->size; + return st->capacity; } /* Returns the value of ST as a null-terminated string. */ char * -ds_value (const struct string *st) +ds_c_str (const struct string *st) { ((char *) st->string)[st->length] = '\0'; return st->string; } +/* Returns the string data inside ST. */ +char * +ds_data (const struct string *st) +{ + return st->string; +} + /* Returns a pointer to the null terminator ST. - This might not be an actual null character unless ds_value() has + This might not be an actual null character unless ds_c_str() has been called since the last modification to ST. */ char * ds_end (const struct string *st) @@ -329,7 +369,7 @@ ds_end (const struct string *st) /* Concatenates S onto ST. */ void -ds_concat (struct string *st, const char *s) +ds_puts (struct string *st, const char *s) { size_t s_len; @@ -343,7 +383,7 @@ ds_concat (struct string *st, const char *s) /* Concatenates LEN characters from BUF onto ST. */ void -ds_concat_buffer (struct string *st, const char *buf, size_t len) +ds_concat (struct string *st, const char *buf, size_t len) { ds_extend (st, st->length + len); memcpy (st->string + st->length, buf, len); @@ -376,7 +416,7 @@ ds_vprintf (struct string *st, const char *format, va_list args) int avail, needed; - avail = st->size - st->length + 1; + avail = st->capacity - st->length + 1; needed = vsnprintf (st->string + st->length, avail, format, args); @@ -389,8 +429,8 @@ ds_vprintf (struct string *st, const char *format, va_list args) else while (needed == -1) { - ds_extend (st, (st->size + 1) * 2); - avail = st->size - st->length + 1; + ds_extend (st, (st->capacity + 1) * 2); + avail = st->capacity - st->length + 1; needed = vsnprintf (st->string + st->length, avail, format, args); @@ -401,21 +441,21 @@ ds_vprintf (struct string *st, const char *format, va_list args) /* Appends character CH to ST. */ void -ds_putchar (struct string *st, int ch) +ds_putc (struct string *st, int ch) { - if (st->length == st->size) + if (st->length == st->capacity) ds_extend (st, st->length + 1); st->string[st->length++] = ch; } -/* Reads a newline-terminated line from STREAM into ST. +/* Appends to ST a newline-terminated line read from STREAM. Newline is the last character of ST on return, unless an I/O error or end of file is encountered after reading some characters. Returns 1 if a line is successfully read, or 0 if no characters at all were read before an I/O error or end of file was encountered. */ int -ds_getline (struct string *st, FILE *stream) +ds_gets (struct string *st, FILE *stream) { int c; @@ -425,7 +465,7 @@ ds_getline (struct string *st, FILE *stream) for (;;) { - ds_putchar (st, c); + ds_putc (st, c); if (c == '\n') return 1; @@ -453,7 +493,7 @@ ds_get_config_line (FILE *stream, struct string *st, struct file_locator *where) /* Read the first line. */ ds_clear (st); where->line_number++; - if (!ds_getline (st, stream)) + if (!ds_gets (st, stream)) return 0; /* Read additional lines, if any. */ @@ -461,7 +501,7 @@ ds_get_config_line (FILE *stream, struct string *st, struct file_locator *where) { /* Remove trailing whitespace. */ { - char *s = ds_value (st); + char *s = ds_c_str (st); size_t len = ds_length (st); while (len > 0 && isspace ((unsigned char) s[len - 1])) @@ -470,13 +510,13 @@ ds_get_config_line (FILE *stream, struct string *st, struct file_locator *where) } /* Check for trailing \. Remove if found, bail otherwise. */ - if (ds_length (st) == 0 || ds_value (st)[ds_length (st) - 1] != '\\') + if (ds_length (st) == 0 || ds_c_str (st)[ds_length (st) - 1] != '\\') break; ds_truncate (st, ds_length (st) - 1); /* Append another line and go around again. */ { - int success = ds_getline (st, stream); + int success = ds_gets (st, stream); where->line_number++; if (!success) return 1; @@ -488,7 +528,7 @@ ds_get_config_line (FILE *stream, struct string *st, struct file_locator *where) char *cp; int quote = 0; - for (cp = ds_value (st); *cp; cp++) + for (cp = ds_c_str (st); *cp; cp++) if (quote) { if (*cp == quote) @@ -500,7 +540,7 @@ ds_get_config_line (FILE *stream, struct string *st, struct file_locator *where) quote = *cp; else if (*cp == '#') { - ds_truncate (st, cp - ds_value (st)); + ds_truncate (st, cp - ds_c_str (st)); break; } } @@ -510,31 +550,31 @@ ds_get_config_line (FILE *stream, struct string *st, struct file_locator *where) /* Lengthed strings. */ -/* Creates a new lengthed string LS in POOL with contents as a copy of +/* Creates a new lengthed string LS with contents as a copy of S. */ void -ls_create (struct pool *pool, struct len_string *ls, const char *s) +ls_create (struct fixed_string *ls, const char *s) { ls->length = strlen (s); - ls->string = pool_alloc (pool, ls->length + 1); + ls->string = xmalloc (ls->length + 1); memcpy (ls->string, s, ls->length + 1); } -/* Creates a new lengthed string LS in POOL with contents as a copy of +/* Creates a new lengthed string LS with contents as a copy of BUFFER with length LEN. */ void -ls_create_buffer (struct pool *pool, struct len_string *ls, +ls_create_buffer (struct fixed_string *ls, const char *buffer, size_t len) { ls->length = len; - ls->string = pool_malloc (pool, len + 1); + ls->string = xmalloc (len + 1); memcpy (ls->string, buffer, len); ls->string[len] = '\0'; } /* Sets the fields of LS to the specified values. */ void -ls_init (struct len_string *ls, const char *string, size_t length) +ls_init (struct fixed_string *ls, const char *string, size_t length) { ls->string = (char *) string; ls->length = length; @@ -542,49 +582,49 @@ ls_init (struct len_string *ls, const char *string, size_t length) /* Copies the fields of SRC to DST. */ void -ls_shallow_copy (struct len_string *dst, const struct len_string *src) +ls_shallow_copy (struct fixed_string *dst, const struct fixed_string *src) { *dst = *src; } -/* Frees the memory in POOL backing LS. */ +/* Frees the memory backing LS. */ void -ls_destroy (struct pool *pool, struct len_string *ls) +ls_destroy (struct fixed_string *ls) { - pool_free (pool, ls->string); + free (ls->string); } /* Sets LS to a null pointer value. */ void -ls_null (struct len_string *ls) +ls_null (struct fixed_string *ls) { ls->string = NULL; } /* Returns nonzero only if LS has a null pointer value. */ int -ls_null_p (const struct len_string *ls) +ls_null_p (const struct fixed_string *ls) { return ls->string == NULL; } /* Returns nonzero only if LS is a null pointer or has length 0. */ int -ls_empty_p (const struct len_string *ls) +ls_empty_p (const struct fixed_string *ls) { return ls->string == NULL || ls->length == 0; } /* Returns the length of LS, which must not be null. */ size_t -ls_length (const struct len_string *ls) +ls_length (const struct fixed_string *ls) { return ls->length; } /* Returns a pointer to the character string in LS. */ char * -ls_value (const struct len_string *ls) +ls_c_str (const struct fixed_string *ls) { return (char *) ls->string; } @@ -592,7 +632,7 @@ ls_value (const struct len_string *ls) /* Returns a pointer to the null terminator of the character string in LS. */ char * -ls_end (const struct len_string *ls) +ls_end (const struct fixed_string *ls) { return (char *) (ls->string + ls->length); }