--- /dev/null
+/*
+* Name : astring
+* Author : Chris Koeritz
+**
+* Copyright (c) 1992-$now By Author. 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 2 of *
+* the License or (at your option) any later version. This is online at: *
+* http://www.fsf.org/copyleft/gpl.html *
+* Please send any updates to: fred@gruntose.com *
+*/
+
+#include "astring.h"
+#include "definitions.h"
+#include "functions.h"
+#include "guards.h"
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+#ifdef __WIN32__
+ #undef strcasecmp
+ #undef strncasecmp
+ #define strcasecmp strcmpi
+ #define strncasecmp strnicmp
+#endif
+
+//#define DEBUG_STRING
+ // uncomment for debugging version.
+
+#define no_increment
+ // macro just documents a blank parameter in the code.
+
+namespace basis {
+
+const int LONGEST_SPRINTF = 600; // the longest a simple sprintf can be here.
+
+const char CASE_DIFFERENCE = char('A' - 'a');
+ // the measurement of the difference between upper and lower case.
+
+// this factor is used to bias dynamic sprintfs for cases where the length
+// is specified, but the actual string is shorter than that length.
+const int MAX_FIELD_FUDGE_FACTOR = 64;
+
+const abyte empty_char_star[] = { 0 };
+ // used to initialize empty strings.
+
+//////////////
+
+bool astring_comparator(const astring &a, const astring &b) { return a.equal_to(b); }
+
+int calculate_proper_length(int repeat) { return negative(repeat)? 1 : repeat + 1; }
+
+//////////////
+
+astring::astring()
+: c_character_manager(1, empty_char_star),
+ c_held_string((char * const *)c_character_manager.internal_offset_mem())
+{}
+
+astring::astring(const base_string &initial)
+: c_character_manager(strlen(initial.observe()) + 1, (abyte *)initial.observe()),
+ c_held_string((char * const *)c_character_manager.internal_offset_mem())
+{}
+
+astring::astring(char initial, int repeat)
+: c_character_manager(calculate_proper_length(repeat))
+{
+ if (!initial) initial = ' '; // for nulls, we use spaces.
+ int new_size = c_character_manager.length() - 1;
+ memset(c_character_manager.access(), initial, new_size);
+ c_character_manager.put(new_size, '\0');
+ c_held_string = (char * const *)c_character_manager.internal_offset_mem();
+}
+
+astring::astring(const astring &s1)
+: base_string(),
+ c_character_manager(s1.c_character_manager),
+ c_held_string((char * const *)c_character_manager.internal_offset_mem())
+{
+}
+
+astring::astring(const char *initial)
+: c_character_manager(calculate_proper_length(initial? int(strlen(initial)) : 0))
+{
+ c_character_manager.put(0, '\0');
+ if (!initial) return; // bail because there's no string to copy.
+ strcpy(access(), initial);
+ c_held_string = (char * const *)c_character_manager.internal_offset_mem();
+}
+
+astring::astring(special_flag flag, const char *initial, ...)
+: c_character_manager(1, empty_char_star),
+ c_held_string((char * const *)c_character_manager.internal_offset_mem())
+{
+ if (!initial) return;
+ if ( (flag != UNTERMINATED) && (flag != SPRINTF) ) {
+ operator = (astring(astring::SPRINTF, "unknown flag %d", flag));
+ return;
+ }
+
+ va_list args;
+ va_start(args, initial);
+
+ if (flag == UNTERMINATED) {
+ // special process for grabbing a string that has no terminating nil.
+ int length = va_arg(args, int); // get the length of the string out.
+ c_character_manager.reset(length, (abyte *)initial);
+ c_character_manager += abyte(0);
+ va_end(args);
+ return;
+ }
+
+ // only other flag currently supported is sprintf, so we do that...
+ base_sprintf(initial, args);
+ va_end(args);
+}
+
+astring::~astring() { c_held_string = NIL; }
+
+const astring &astring::empty_string() { return bogonic<astring>(); }
+
+void astring::text_form(base_string &state_fill) const { state_fill.assign(*this); }
+
+int astring::length() const { return c_character_manager.length() - 1; }
+
+byte_array &astring::get_implementation() { return c_character_manager; }
+
+char *astring::access() { return (char *)c_character_manager.access(); }
+
+char astring::get(int index) const { return (char)c_character_manager.get(index); }
+
+const char *astring::observe() const
+{ return (const char *)c_character_manager.observe(); }
+
+bool astring::equal_to(const equalizable &s2) const
+{
+ const astring *s2_cast = cast_or_throw(s2, *this);
+ return comparator(*s2_cast) == 0;
+}
+
+bool astring::less_than(const orderable &s2) const
+{
+ const astring *s2_cast = dynamic_cast<const astring *>(&s2);
+ if (!s2_cast) throw "error: astring::<: unknown type";
+ return comparator(*s2_cast) < 0;
+}
+
+int astring::comparator(const astring &s2) const
+{ return strcmp(observe(), s2.observe()); }
+
+bool astring::equal_to(const char *that) const
+{ return strcmp(observe(), that) == 0; }
+
+bool astring::contains(const astring &to_find) const
+{ return (find(to_find, 0) < 0) ? false : true; }
+
+astring &astring::operator += (const astring &s1)
+{ insert(length(), s1); return *this; }
+
+void astring::shrink()
+{
+ astring copy_of_this(observe());
+ c_character_manager.swap_contents(copy_of_this.c_character_manager);
+}
+
+astring &astring::sprintf(const char *initial, ...)
+{
+ va_list args;
+ va_start(args, initial);
+ astring &to_return = base_sprintf(initial, args);
+ va_end(args);
+ return to_return;
+}
+
+astring &astring::base_sprintf(const char *initial, va_list &args)
+{
+ reset();
+ if (!initial) return *this; // skip null strings.
+ if (!initial[0]) return *this; // skip empty strings.
+
+ // these accumulate parts of the sprintf format within the loop.
+ char flag_chars[23], width_chars[23], precision_chars[23], modifier_chars[23];
+
+ // thanks for the inspiration to k&r page 156.
+ for (const char *traverser = initial; *traverser; traverser++) {
+#ifdef DEBUG_STRING
+ printf("index=%d, char=%c\n", traverser - initial, *traverser);
+#endif
+
+ if (*traverser != '%') {
+ // not a special character, so just drop it in.
+ *this += *traverser;
+ continue;
+ }
+ traverser++; // go to the next character.
+#ifdef DEBUG_STRING
+ printf("index=%d, char=%c\n", traverser - initial, *traverser);
+#endif
+ if (*traverser == '%') {
+ // capture the "%%" style format specifier.
+ *this += *traverser;
+ continue;
+ }
+ bool failure = false;
+ // becomes set to true if something didn't match in a necessary area.
+
+ seek_flag(traverser, flag_chars, failure);
+ if (failure) {
+ *this += '%';
+ *this += flag_chars;
+ continue;
+ }
+ seek_width(traverser, width_chars);
+ seek_precision(traverser, precision_chars);
+ seek_modifier(traverser, modifier_chars);
+ get_type_character(traverser, args, *this, flag_chars,
+ width_chars, precision_chars, modifier_chars);
+ }
+ return *this;
+}
+
+void astring::seek_flag(const char *&traverser, char *flag_chars, bool &failure)
+{
+ flag_chars[0] = '\0';
+ failure = false;
+ bool keep_going = true;
+ while (!failure && keep_going) {
+ switch (*traverser) {
+ case '-': case '+': case ' ': case '\011': case '#':
+ flag_chars[strlen(flag_chars) + 1] = '\0';
+ flag_chars[strlen(flag_chars)] = *traverser++;
+ break;
+ default:
+ // we found a character that doesn't belong in the flags.
+ keep_going = false;
+ break;
+ }
+ }
+#ifdef DEBUG_STRING
+ if (strlen(flag_chars)) printf("[flag=%s]\n", flag_chars);
+ else printf("no flags\n");
+#endif
+}
+
+void astring::seek_width(const char *&traverser, char *width_chars)
+{
+ width_chars[0] = '\0';
+ bool no_more_nums = false;
+ bool first_num = true;
+ while (!no_more_nums) {
+ char wideness[2] = { *traverser, '\0' };
+ if (first_num && (wideness[0] == '0')) {
+ strcpy(width_chars, wideness);
+ traverser++;
+ } else if (first_num && (wideness[0] == '*') ) {
+ strcpy(width_chars, wideness);
+ traverser++;
+ no_more_nums = true;
+ } else if ( (wideness[0] <= '9') && (wideness[0] >= '0') ) {
+ // a failure?
+ strcat(width_chars, wideness);
+ traverser++;
+ } else no_more_nums = true;
+ first_num = false;
+ }
+#ifdef DEBUG_STRING
+ if (strlen(width_chars)) printf("[width=%s]\n", width_chars);
+ else printf("no widths\n");
+#endif
+}
+
+void astring::seek_precision(const char *&traverser, char *precision_chars)
+{
+ precision_chars[0] = '\0';
+ if (*traverser != '.') return;
+ strcpy(precision_chars, ".");
+ traverser++;
+ bool no_more_nums = false;
+ bool first_num = true;
+ while (!no_more_nums) {
+ char preciseness[2] = { *traverser, '\0' };
+ if (first_num && (preciseness[0] == '0')) {
+ strcat(precision_chars, preciseness);
+ traverser++;
+ no_more_nums = true;
+ } else if (first_num && (preciseness[0] == '*') ) {
+ strcat(precision_chars, preciseness);
+ traverser++;
+ no_more_nums = true;
+ } else if ( (preciseness[0] <= '9') && (preciseness[0] >= '0') ) {
+ strcat(precision_chars, preciseness);
+ traverser++;
+ } else no_more_nums = true;
+ first_num = false;
+ }
+#ifdef DEBUG_STRING
+ if (strlen(precision_chars)) printf("[precis=%s]\n", precision_chars);
+ else printf("no precision\n");
+#endif
+}
+
+void astring::seek_modifier(const char *&traverser, char *modifier_chars)
+{
+ modifier_chars[0] = '\0';
+ switch (*traverser) {
+ case 'F': case 'N': case 'h': case 'l': case 'L': {
+ modifier_chars[strlen(modifier_chars) + 1] = '\0';
+ modifier_chars[strlen(modifier_chars)] = *traverser++;
+ break;
+ }
+ }
+#ifdef DEBUG_STRING
+ if (strlen(modifier_chars)) printf("[mod=%s]\n", modifier_chars);
+ else printf("no modifiers\n");
+#endif
+}
+
+void astring::get_type_character(const char * &traverser, va_list &args,
+ astring &output_string, const char *flag_chars, const char *width_chars,
+ const char *precision_chars, const char *modifier_chars)
+{
+ char formatting[120];
+ strcpy(formatting, "%");
+ strcat(formatting, flag_chars);
+ strcat(formatting, width_chars);
+ strcat(formatting, precision_chars);
+ strcat(formatting, modifier_chars);
+ char tmposh[2] = { *traverser, '\0' };
+ strcat(formatting, tmposh);
+#ifdef DEBUG_STRING
+ printf("format: %s\n", formatting);
+#endif
+
+ enum argument_size { bits_8, bits_16, bits_32, bits_64, bits_80 };
+ bool ints_are_32_bits;
+#ifdef __WIN32__
+ ints_are_32_bits = true;
+#elif defined(__OS2__)
+ ints_are_32_bits = true;
+#elif defined(__MSDOS__)
+ ints_are_32_bits = false;
+#elif defined(__WIN32__)
+ ints_are_32_bits = false;
+#else
+ ints_are_32_bits = true;
+#endif
+ argument_size next_argument;
+ bool use_dynamic_sprintf = false; // for dynamic printing of strings only.
+ // get the type character first and ensure it's valid.
+ switch (*traverser) {
+ case 'd': case 'i': case 'o': case 'u': case 'x': case 'X':
+ next_argument = bits_16;
+ if (ints_are_32_bits) next_argument = bits_32;
+ break;
+ case 'f': case 'e': case 'g': case 'E': case 'G':
+ next_argument = bits_64;
+ break;
+ case 'c':
+ next_argument = bits_8;
+ break;
+ case 's':
+ next_argument = bits_32;
+ use_dynamic_sprintf = true;
+ break;
+ case 'n':
+ next_argument = bits_32; //?????
+ break;
+ case 'p':
+ next_argument = bits_32; //????
+ break;
+ default:
+ // this is an error; the character is not recognized, so spew out
+ // any characters accumulated so far as just themselves.
+#ifdef DEBUG_STRING
+ printf("failure in type char: %c\n", *traverser);
+#endif
+ output_string += formatting;
+ return;
+ }
+/* hmmm: not supported yet.
+ if (width_chars && (width_chars[0] == '*')) {
+ }
+ if (precision_chars && (precision_chars[0] == '*')) {
+ }
+*/
+ if (strlen(modifier_chars)) {
+ switch (modifier_chars[0]) {
+ case 'N': // near pointer.
+ next_argument = bits_16;
+ if (ints_are_32_bits) next_argument = bits_32;
+ break;
+ case 'F': // far pointer.
+ next_argument = bits_32;
+ break;
+ case 'h': // short int.
+ next_argument = bits_16;
+ break;
+ case 'l': // long.
+ next_argument = bits_32;
+ break;
+ case 'L': // long double;
+ next_argument = bits_80;
+ break;
+ default:
+ // a failure has occurred because the modifier character is not
+ // one of the recognized values. everything is just spewed out.
+#ifdef DEBUG_STRING
+ printf("failure in modifier: %s\n", modifier_chars);
+#endif
+ output_string += formatting;
+ return;
+ }
+ }
+ // action time: the output string is given a tasty value.
+ char temp[LONGEST_SPRINTF];
+ char *temp2 = NIL; // for dynamic only.
+ switch (next_argument) {
+//hmmm: this switch is where support would need to be added for having two
+// arguments (for the '*' case).
+ case bits_8: case bits_16:
+ if (ints_are_32_bits) ::sprintf(temp, formatting, va_arg(args, long));
+ else ::sprintf(temp, formatting, va_arg(args, int));
+ break;
+ case bits_32:
+ if (use_dynamic_sprintf) {
+ // currently we only do dynamic sprintf for strings.
+ char *to_print = va_arg(args, char *);
+ // check if it's valid and if we really need to do it dynamically.
+ if (!to_print) {
+ // bogus string; put in a complaint.
+ use_dynamic_sprintf = false;
+ ::sprintf(temp, "{error:parm=NIL}");
+ } else if (strlen(to_print) < LONGEST_SPRINTF - 2) {
+ // we're within our bounds, plus some safety room, so just do a
+ // regular sprintf.
+ use_dynamic_sprintf = false;
+ ::sprintf(temp, formatting, to_print);
+ } else {
+ // it's too long, so we definitely need to do it dynamically.
+ temp2 = new char[strlen(to_print) + MAX_FIELD_FUDGE_FACTOR];
+ ::sprintf(temp2, formatting, to_print);
+ }
+ } else ::sprintf(temp, formatting, va_arg(args, void *));
+ break;
+ case bits_64:
+ ::sprintf(temp, formatting, va_arg(args, double));
+ break;
+ case bits_80:
+ ::sprintf(temp, formatting, va_arg(args, long double));
+ break;
+ }
+ if (use_dynamic_sprintf) {
+ output_string += temp2;
+ delete [] temp2;
+ } else output_string += temp;
+}
+
+//hmmm: de-redundify this function, which is identical to the constructor.
+void astring::reset(special_flag flag, const char *initial, ...)
+{
+ reset(); // clear the string out.
+ if (!initial) return;
+ if ( (flag != UNTERMINATED) && (flag != SPRINTF) ) {
+ operator = (astring(astring::SPRINTF, "unknown flag %d", flag));
+ return;
+ }
+
+ va_list args;
+ va_start(args, initial);
+
+ if (flag == UNTERMINATED) {
+ // special process for grabbing a string that has no terminating nil.
+ int length = va_arg(args, int); // get the length of the string out.
+ c_character_manager.reset(length, (abyte *)initial);
+ c_character_manager += abyte(0);
+ va_end(args);
+ return;
+ }
+
+ // only other flag currently supported is sprintf, so we do that...
+ base_sprintf(initial, args);
+ va_end(args);
+}
+
+void astring::pad(int len, char padding)
+{
+ if (length() >= len) return;
+ byte_array pad(len - length());
+ memset(pad.access(), padding, pad.length());
+ operator += (astring(UNTERMINATED, (char *)pad.observe(), pad.length()));
+}
+
+void astring::trim(int len)
+{
+ if (length() <= len) return;
+ zap(len, end());
+}
+
+astring &astring::operator = (const astring &s1)
+{
+ if (this != &s1)
+ c_character_manager = s1.c_character_manager;
+ return *this;
+}
+
+astring &astring::operator = (const char *s1)
+{
+ reset();
+ *this += s1;
+ return *this;
+}
+
+void astring::zap(int position1, int position2)
+{
+ bounds_return(position1, 0, end(), );
+ bounds_return(position2, 0, end(), );
+ c_character_manager.zap(position1, position2);
+}
+
+void astring::to_lower()
+{
+ for (int i = 0; i < length(); i++)
+ if ( (get(i) >= 'A') && (get(i) <= 'Z') )
+ c_character_manager.put(i, char(get(i) - CASE_DIFFERENCE));
+}
+
+void astring::to_upper()
+{
+ for (int i = 0; i < length(); i++)
+ if ( (get(i) >= 'a') && (get(i) <= 'z') )
+ c_character_manager.put(i, char(get(i) + CASE_DIFFERENCE));
+}
+
+astring astring::lower() const
+{
+ astring to_return(*this);
+ to_return.to_lower();
+ return to_return;
+}
+
+astring astring::upper() const
+{
+ astring to_return(*this);
+ to_return.to_upper();
+ return to_return;
+}
+
+void astring::copy(char *array_to_stuff, int how_many) const
+{
+ if (!array_to_stuff) return;
+ array_to_stuff[0] = '\0';
+ if ( (how_many <= 0) || (length() <= 0) ) return;
+ strncpy(array_to_stuff, observe(), minimum(how_many, int(length())));
+ array_to_stuff[minimum(how_many, int(length()))] = '\0';
+}
+
+bool astring::iequals(const astring &that) const
+{ return strcasecmp(observe(), that.observe()) == 0; }
+
+bool astring::iequals(const char *that) const
+{ return strcasecmp(observe(), that) == 0; }
+
+int astring::ifind(char to_find, int position, bool reverse) const
+{ return char_find(to_find, position, reverse, false); }
+
+int astring::find(char to_find, int position, bool reverse) const
+{ return char_find(to_find, position, reverse, true); }
+
+int astring::find_any(const char *to_find, int position, bool reverse) const
+{ return char_find_any(to_find, position, reverse, true); }
+
+int astring::ifind_any(const char *to_find, int position, bool reverse) const
+{ return char_find_any(to_find, position, reverse, false); }
+
+int astring::find_non_match(const char *to_find, int position,
+ bool reverse) const
+{ return char_find_any(to_find, position, reverse, false, true); }
+
+char simple_lower(char input)
+{
+ if ( (input <= 'Z') && (input >= 'A') ) return input - CASE_DIFFERENCE;
+ return input;
+}
+
+int astring::char_find(char to_find, int position, bool reverse,
+ bool case_sense) const
+{
+ if (position < 0) return common::OUT_OF_RANGE;
+ if (position > end()) return common::OUT_OF_RANGE;
+ if (reverse) {
+ for (int i = position; i >= 0; i--) {
+ if (case_sense && (get(i) == to_find)) return i;
+ else if (simple_lower(get(i)) == simple_lower(to_find)) return i;
+ }
+ } else {
+ if (case_sense) {
+ const char *const pos = strchr(observe() + position, to_find);
+ if (pos) return int(pos - observe());
+ } else {
+ for (int i = position; i < length(); i++)
+ if (simple_lower(get(i)) == simple_lower(to_find)) return i;
+ }
+ }
+ return common::NOT_FOUND;
+}
+
+bool imatches_any(char to_check, const astring &list)
+{
+ for (int i = 0; i < list.length(); i++)
+ if (simple_lower(to_check) == simple_lower(list[i])) return true;
+ return false;
+}
+
+bool matches_any(char to_check, const astring &list)
+{
+ for (int i = 0; i < list.length(); i++)
+ if (to_check == list[i]) return true;
+ return false;
+}
+
+bool matches_none(char to_check, const astring &list)
+{
+ bool saw_match = false;
+ for (int i = 0; i < list.length(); i++)
+ if (to_check == list[i]) {
+ saw_match = true;
+ break;
+ }
+ return !saw_match;
+}
+
+int astring::char_find_any(const astring &to_find, int position, bool reverse,
+ bool case_sense, bool invert_find) const
+{
+ if (position < 0) return common::OUT_OF_RANGE;
+ if (position > end()) return common::OUT_OF_RANGE;
+ if (reverse) {
+ for (int i = position; i >= 0; i--) {
+ if (!invert_find) {
+ if (case_sense && matches_any(get(i), to_find)) return i;
+ else if (imatches_any(get(i), to_find)) return i;
+ } else {
+//printf("rev posn=%d char=%c", i, get(i));
+ // case-sensitivity is not used for inverted finds.
+ if (matches_none(get(i), to_find)) return i;
+ }
+ }
+ } else {
+ for (int i = position; i < length(); i++) {
+ if (!invert_find) {
+ if (case_sense && matches_any(get(i), to_find)) return i;
+ else if (imatches_any(get(i), to_find)) return i;
+ } else {
+ // case-sensitivity is not used for inverted finds.
+//printf("fwd posn=%d char=%c", i, get(i));
+ if (matches_none(get(i), to_find)) return i;
+ }
+ }
+ }
+ return common::NOT_FOUND;
+}
+
+int astring::find(const astring &to_find, int posn, bool reverse) const
+{ return str_find(to_find, posn, reverse, true); }
+
+int astring::ifind(const astring &to_find, int posn, bool reverse) const
+{ return str_find(to_find, posn, reverse, false); }
+
+int astring::str_find(const astring &to_find, int posn, bool reverse,
+ bool case_sense) const
+{
+ bounds_return(posn, 0, end(), common::OUT_OF_RANGE);
+ if (!to_find.length()) return common::BAD_INPUT;
+
+ // skip some steps by finding the first place that the first character of
+ // the string resides in our string.
+ if (case_sense)
+ posn = find(to_find[0], posn, reverse);
+ else posn = ifind(to_find[0], posn, reverse);
+ if (posn < 0) return common::NOT_FOUND;
+
+//hmmm: there is a better way to do this loop in terms of the number of
+// comparisons performed. knuth morris pratt algorithm?
+ if (case_sense) {
+//hmmm: this could use strncmp too?
+ if (reverse) {
+ if (posn > length() - to_find.length())
+ posn = length() - to_find.length();
+ for (int i = posn; i >= 0; i--)
+ if (!memcmp((void *)&observe()[i], (void *)to_find.observe(),
+ to_find.length()))
+ return i;
+ } else {
+ const int find_len = to_find.length();
+ const int str_len = length();
+ const char first_char = to_find[0];
+ bounds_return(posn, 0, str_len - find_len, common::OUT_OF_RANGE);
+ for (int i = posn - 1;
+ ( ( (i = find(first_char, i + 1)) >= 0)
+ && (str_len - i >= find_len) ); no_increment) {
+ if (!memcmp((void *)&observe()[i], (void *)to_find.observe(),
+ to_find.length()))
+ return i;
+ }
+ }
+ } else {
+ // not case-sensitive.
+ if (reverse) {
+ if (posn > length() - to_find.length())
+ posn = length() - to_find.length();
+ for (int i = posn; i >= 0; i--)
+ if (!strncasecmp(&observe()[i], to_find.observe(), to_find.length()))
+ return i;
+ } else {
+ bounds_return(posn, 0, length() - to_find.length(), common::OUT_OF_RANGE);
+ for (int i = posn; i < length() - to_find.length() + 1; i++)
+ if (!strncasecmp(&observe()[i], to_find.observe(), to_find.length()))
+ return i;
+ }
+ }
+ return common::NOT_FOUND;
+}
+
+astring astring::operator + (const astring &s1) const
+{
+ astring to_return(*this);
+ to_return += s1;
+ return to_return;
+}
+
+char &astring::operator [] (int position)
+{
+ if (position < 0) position = 0;
+ if (position > end()) position = 0;
+ abyte &found = c_character_manager.use(position);
+ char &to_return = *((char *)(&found));
+ return to_return;
+}
+
+const char &astring::operator [] (int position) const
+{
+ if (position < 0) position = 0;
+ if (position > end()) position = 0;
+ const abyte &found = c_character_manager.get(position);
+ const char &to_return = *((const char *)(&found));
+ return to_return;
+}
+
+int astring::convert(int default_value) const
+{
+ if (!length()) return default_value;
+ int to_return;
+ int fields = sscanf(observe(), "%d", &to_return);
+ if (fields < 1) return default_value;
+ return to_return;
+}
+
+long astring::convert(long default_value) const
+{
+ if (!length()) return default_value;
+ long to_return;
+ int fields = sscanf(observe(), "%ld", &to_return);
+ if (fields < 1) return default_value;
+ return to_return;
+}
+
+float astring::convert(float default_value) const
+{
+ if (!length()) return default_value;
+ float to_return;
+ int fields = sscanf(observe(), "%f", &to_return);
+ if (fields < 1) return default_value;
+ return to_return;
+}
+
+double astring::convert(double default_value) const
+{
+ if (!length()) return default_value;
+ double to_return;
+ int fields = sscanf(observe(), "%lf", &to_return);
+ if (fields < 1) return default_value;
+ return to_return;
+}
+
+astring &astring::operator += (const char *s1)
+{
+ if (!s1) return *this;
+ int len = length();
+ c_character_manager.insert(len, int(strlen(s1)));
+ memmove((char *)&c_character_manager[len], s1, int(strlen(s1)));
+ return *this;
+}
+
+astring &astring::operator += (char s1)
+{
+ int len = length();
+ c_character_manager.insert(len, 1);
+ c_character_manager.put(len, s1);
+ return *this;
+}
+
+bool astring::compare(const astring &to_compare, int start_first,
+ int start_second, int count, bool case_sensitive) const
+{
+ bounds_return(start_first, 0, end(), false);
+ bounds_return(start_second, 0, to_compare.end(), false);
+ bounds_return(start_first + count, start_first, length(), false);
+ bounds_return(start_second + count, start_second, to_compare.length(), false);
+
+ if (!case_sensitive) {
+ return !strncasecmp(&observe()[start_first],
+ &to_compare.observe()[start_second], count);
+ } else {
+ return !memcmp((void *)&observe()[start_first],
+ (void *)&to_compare.observe()[start_second], count);
+ }
+}
+
+/*
+int astring::icompare(const char *to_compare, int length_in) const
+{
+ if (!length_in) return 0; // nothing is equal to nothing.
+ int real_len = length_in;
+ // if they're passing a negative length, we use the full length.
+ if (negative(length_in))
+ real_len = length();
+ // if we have no length, make the obvious returns now.
+ int to_compare_len = int(strlen(to_compare));
+ if (!real_len) return to_compare_len? -1 : 0;
+ // if the second string is empty, it's always less than the non-empty.
+ if (!to_compare_len) return 1;
+ int to_return = strncasecmp(observe(), to_compare, real_len);
+ if (negative(length_in) && !to_return && (to_compare_len > length()) ) {
+ // catch special case for default length when the two are equal except
+ // that the second string is longer--this means the first is less than
+ // second, not equal.
+ return -1;
+ } else
+ return to_return;
+}
+*/
+
+/*
+bool astring::oy_icompare(const astring &to_compare, int start_first,
+ int start_second, int count) const
+{
+ bounds_return(start_first, 0, end(), false);
+ bounds_return(start_second, 0, to_compare.end(), false);
+ bounds_return(start_first + count, start_first, length(), false);
+ bounds_return(start_second + count, start_second, to_compare.length(), false);
+ const char *actual_first = this->observe() + start_first;
+ const char *actual_second = to_compare.observe() + start_second;
+ return !strncasecmp(actual_first, actual_second, count);
+}
+*/
+
+bool astring::substring(astring &target, int start, int bender) const
+{
+ target.reset();
+ if (bender < start) return false;
+ const int last = end(); // final position that's valid in the string.
+ bounds_return(start, 0, last, false);
+ bounds_return(bender, 0, last, false);
+ target.reset(UNTERMINATED, observe() + start, bender - start + 1);
+ return true;
+}
+
+astring astring::substring(int start, int end) const
+{
+ astring to_return;
+ substring(to_return, start, end);
+ return to_return;
+}
+
+astring astring::middle(int start, int count)
+{ return substring(start, start + count - 1); }
+
+astring astring::left(int count)
+{ return substring(0, count - 1); }
+
+astring astring::right(int count)
+{ return substring(end() - count + 1, end()); }
+
+void astring::insert(int position, const astring &to_insert)
+{
+ bounds_return(position, 0, length(), );
+ if (this == &to_insert) {
+ astring copy_of_me(to_insert);
+ insert(position, copy_of_me); // not recursive because no longer == me.
+ } else {
+ c_character_manager.insert(position, to_insert.length());
+ c_character_manager.overwrite(position, to_insert.c_character_manager,
+ to_insert.length());
+ }
+}
+
+bool astring::replace(const astring &tag, const astring &replacement)
+{
+ int where = find(tag);
+ if (negative(where)) return false;
+ zap(where, where + tag.end());
+ insert(where, replacement);
+ return true;
+}
+
+bool astring::replace_all(const astring &to_replace, const astring &new_string)
+{
+ bool did_any = false;
+ for (int i = 0; i < length(); i++) {
+ int indy = find(to_replace, i);
+ if (negative(indy)) break; // get out since there are no more matches.
+ i = indy; // update our position to where we found the string.
+ zap(i, i + to_replace.length() - 1); // remove old string.
+ insert(i, new_string); // plug the new string into the old position.
+ i += new_string.length() - 1; // jump past what we replaced.
+ did_any = true;
+ }
+ return did_any;
+}
+
+bool astring::replace_all(char to_replace, char new_char)
+{
+ bool did_any = false;
+ for (int i = 0; i < length(); i++) {
+ if (get(i) == to_replace) {
+ put(i, new_char);
+ did_any = true;
+ }
+ }
+ return did_any;
+}
+
+bool astring::matches(const astring &match_list, char to_match)
+{
+ for (int i = 0; i < match_list.length(); i++)
+ if (to_match == match_list.get(i)) return true;
+ return false;
+}
+
+void astring::strip(const astring &strip_list, how_to_strip way)
+{
+ if (way & FROM_FRONT)
+ while (length() && matches(strip_list, get(0)))
+ zap(0, 0);
+
+ if (way & FROM_END)
+ while (length() && matches(strip_list, get(end())))
+ zap(end(), end());
+}
+
+int astring::packed_size() const { return length() + 1; }
+
+void astring::pack(byte_array &target) const
+{ attach(target, (char *)c_character_manager.observe()); }
+
+bool astring::unpack(byte_array &source)
+{ return detach(source, *this); }
+
+///int astring::icompare(const astring &to_compare, int length_in) const
+///{ return icompare(to_compare.observe(), length_in); }
+
+/*
+int astring::slow_strncasecmp(const char *first, const char *second, int length)
+{
+ int len1 = int(strlen(first));
+ int len2 = int(strlen(second));
+ if (!length) return 0; // no characters are equal to none.
+ if (!len1 && !len2) return 0; // equal as empty.
+ if (!len1 && len2) return -1; // first < second.
+ if (len1 && !len2) return 1; // first > second.
+ if (positive(length)) {
+ len1 = minimum(length, len1);
+ len2 = minimum(length, len2);
+ }
+ for (int i = 0; i < len1; i++) {
+ if (i > len2 - 1) return 1; // first > second, had more length.
+ if (simple_lower(first[i]) < simple_lower(second[i]))
+ return -1; // first < second.
+ if (simple_lower(first[i]) > simple_lower(second[i]))
+ return 1; // first > second.
+ }
+ // at this point we know second is equal to first up to the length of
+ // first.
+ if (len2 > len1) return -1; // second was longer and therefore greater.
+ return 0; // equal.
+}
+*/
+
+//////////////
+
+a_sprintf::a_sprintf() : astring() {}
+
+a_sprintf::a_sprintf(const astring &s) : astring(s) {}
+
+a_sprintf::a_sprintf(const char *initial, ...)
+: astring()
+{
+ if (!initial) return;
+ va_list args;
+ va_start(args, initial);
+ base_sprintf(initial, args);
+ va_end(args);
+}
+
+//////////////
+
+void attach(byte_array &packed_form, const char *to_attach)
+{
+ const int len = int(strlen(to_attach));
+ const int old_pos = packed_form.last();
+ packed_form.insert(old_pos + 1, len + 1);
+ memmove((char *)packed_form.observe() + old_pos + 1, to_attach, len + 1);
+}
+
+bool detach(byte_array &packed_form, astring &to_detach)
+{
+ if (!packed_form.length()) return false;
+ // locate the zero termination if possible.
+ const void *zero_posn = memchr(packed_form.observe(), '\0',
+ packed_form.length());
+ // make sure we could find the zero termination.
+ if (!zero_posn) {
+ // nope, never saw a zero. good thing we checked.
+ to_detach.reset();
+ return false;
+ }
+ // set the string up using a standard constructor since we found the zero
+ // position; we know the string constructor will be happy.
+ to_detach = (char *)packed_form.observe();
+ // compute the length of the string we found based on the position of the
+ // zero character.
+ int find_len = int((abyte *)zero_posn - packed_form.observe());
+ // whack the portion of the array that we consumed.
+ packed_form.zap(0, find_len);
+ return true;
+}
+
+//////////////
+
+// contract fulfillment area.
+
+base_string &astring::concatenate_string(const base_string &s)
+{
+ const astring *cast = dynamic_cast<const astring *>(&s);
+ if (cast) *this += *cast;
+ else *this += astring(s.observe());
+ return *this;
+}
+
+base_string &astring::concatenate_char(char c)
+{
+ *this += c;
+ return *this;
+}
+
+base_string &astring::assign(const base_string &s)
+{
+ const astring *cast = dynamic_cast<const astring *>(&s);
+ if (cast) *this = *cast;
+ else *this = astring(s.observe());
+ return *this;
+}
+
+base_string &astring::upgrade(const char *s)
+{
+ *this = s;
+ return *this;
+}
+
+bool astring::sub_string(base_string &target, int start, int end) const
+{
+ astring *cast = dynamic_cast<astring *>(&target);
+ if (!cast) throw "error: astring::sub_string: unknown type";
+ return substring(*cast, start, end);
+}
+
+bool astring::sub_compare(const base_string &to_compare, int start_first,
+ int start_second, int count, bool case_sensitive) const
+{
+ const astring *cast = dynamic_cast<const astring *>(&to_compare);
+ if (cast) return compare(*cast, start_first, start_second, count, case_sensitive);
+ else return compare(astring(to_compare.observe()), start_first, start_second,
+ count, case_sensitive);
+}
+
+void astring::insert(int position, const base_string &to_insert)
+{
+ const astring *cast = dynamic_cast<const astring *>(&to_insert);
+ if (cast) this->insert(position, *cast);
+ else this->insert(position, astring(to_insert.observe()));
+}
+
+} //namespace.
+