flower/string-convert.cc

   1 /*
   2   PROJECT: FlowerSoft C++ library
   3   FILE   : string-convert.cc
   4
   5   --*/
   6
   7 #include "string-convert.hh"
   8
   9 #include <cstring>
  10 #include <cstdio>
  11 using namespace std;
  12
  13 #include "libc-extension.hh"
  14 #include "rational.hh"
  15 #include "std-vector.hh"
  16
  17 using std::string;
  18
  19 /**
  20    A safe length for stringconversion buffers.
  21
  22    worst case would be %f printing HUGE (or 1/HUGE), which is approx
  23    2e318, this number would have approx 318 zero's in its string.
  24
  25    Should enlarge buff dynamically.
  26
  27    @see
  28    man 3 snprintf
  29 */
  30 static const int STRING_BUFFER_LEN = 1024;
  31
  32 string
  33 String_convert::bool_string (bool b)
  34 {
  35   return string (b ? "true" : "false");
  36 }
  37
  38 string
  39 String_convert::bin2hex (Byte bin_char)
  40 {
  41   string str;
  42   str += ::to_string ((char) nibble2hex_byte ((Byte) (bin_char >> 4)));
  43   str += ::to_string ((char) nibble2hex_byte (bin_char++));
  44   return str;
  45 }
  46
  47 string
  48 String_convert::bin2hex (const string &bin_string)
  49 {
  50   string str;
  51   Byte const *byte = (Byte const *)bin_string.data ();
  52   for (ssize i = 0; i < bin_string.length (); i++)
  53     {
  54       str += ::to_string ((char)nibble2hex_byte ((Byte) (*byte >> 4)));
  55       str += ::to_string ((char)nibble2hex_byte (*byte++));
  56     }
  57   return str;
  58 }
  59
  60 int
  61 String_convert::bin2int (const string &bin_string)
  62 {
  63   return bin2unsigned (bin_string);
  64 }
  65
  66 unsigned
  67 String_convert::bin2unsigned (const string &bin_string)
  68 {
  69   assert (bin_string.length () <= (int)sizeof (unsigned));
  70
  71   unsigned result_u = 0;
  72   for (ssize i = 0; i < bin_string.length (); i++)
  73     {
  74       result_u <<= 8;
  75       result_u += (Byte)bin_string[ i ];
  76     }
  77   return result_u;
  78 }
  79
  80 int
  81 String_convert::dec2int (const string &dec_string)
  82 {
  83   if (!dec_string.length ())
  84     return 0;
  85
  86   long l = 0;
  87   if (!sscanf (dec_string.c_str (), "%ld", &l))
  88     assert (false);
  89
  90   return (int)l;
  91 }
  92
  93 string
  94 String_convert::i64_string (I64 i64, char const *fmt)
  95 {
  96   char buffer[STRING_BUFFER_LEN];
  97   snprintf (buffer, STRING_BUFFER_LEN,
  98             (fmt ? fmt : "%Ld"), i64); // assume radix 10
  99   return string (buffer);
 100 }
 101 // breendet imp from string
 102 double
 103 String_convert::dec2double (const string &dec_string)
 104 {
 105   if (!dec_string.length ())
 106     return 0;
 107
 108   double d = 0.0;
 109   if (!sscanf (dec_string.c_str (), "%lf", &d))
 110     assert (false);
 111
 112   return d;
 113 }
 114
 115 int
 116 String_convert::hex2bin (string hex_string, string &bin_string_r)
 117 {
 118   if (hex_string.length () % 2)
 119     hex_string = "0" + hex_string;
 120
 121   bin_string_r = "";
 122   Byte const *byte = (Byte const *) hex_string.data ();
 123   ssize i = 0;
 124   while (i < hex_string.length ())
 125     {
 126       int high_i = hex2nibble (*byte++);
 127       int low_i = hex2nibble (*byte++);
 128       if (high_i < 0 || low_i < 0)
 129         return 1; // invalid char
 130       bin_string_r += ::to_string ((char) (high_i << 4 | low_i), 1);
 131       i += 2;
 132     }
 133   return 0;
 134 }
 135
 136 string
 137 String_convert::hex2bin (const string &hex_string)
 138 {
 139   string str;
 140
 141   if (hex2bin (hex_string, str))
 142     assert (false);
 143
 144   return str;
 145 }
 146
 147 int
 148 String_convert::hex2nibble (Byte byte)
 149 {
 150   if (byte >= '0' && byte <= '9')
 151     return byte - '0';
 152   if (byte >= 'A' && byte <= 'F')
 153     return byte - 'A' + 10;
 154   if (byte >= 'a' && byte <= 'f')
 155     return byte - 'a' + 10;
 156   return -1;
 157 }
 158
 159 // stupido.  Should use int_string ()
 160 string
 161 String_convert::int2dec (int i, size_t length_i, char ch)
 162 {
 163   char fill_char = ch;
 164   if (fill_char)
 165     fill_char = '0';
 166
 167   // ugh
 168   string dec_string = ::to_string (i);
 169
 170   // ugh
 171   return ::to_string (fill_char, ssize_t (length_i - dec_string.length ())) + dec_string;
 172 }
 173
 174 // stupido.  Should use int_string ()
 175 string
 176 String_convert::unsigned2hex (unsigned u, size_t length, char fill_char)
 177 {
 178   string str;
 179   if (!u)
 180     str = "0";
 181
 182 #if 1 // both go...
 183   while (u)
 184     {
 185       str = ::to_string ((char) ((u % 16)["0123456789abcdef"])) + str;
 186       u /= 16;
 187     }
 188 #else
 189   str += int_string (u, "%x");  // hmm. %lx vs. %x -> portability?
 190 #endif
 191
 192   str = ::to_string (fill_char, ssize_t (length - str.length ())) + str;
 193   while ((str.length () > length) && (str[ 0 ] == 'f'))
 194     str = str.substr (2);
 195
 196   return str;
 197 }
 198
 199 string
 200 String_convert::int2hex (int i, size_t length_i, char fill_char)
 201 {
 202   return unsigned2hex ((unsigned)i, length_i, fill_char);
 203 }
 204
 205 Byte
 206 String_convert::nibble2hex_byte (Byte byte)
 207 {
 208   if ((byte & 0x0f) <= 9)
 209     return (Byte) ((byte & 0x0f) + '0');
 210   else
 211     return (Byte) ((byte & 0x0f) - 10 + 'a');
 212 }
 213 /**
 214    Convert an integer to a string
 215
 216    @param
 217    #fmt# is a printf style format, default assumes "%d" as format.
 218 */
 219 string
 220 String_convert::int_string (int i, char const *fmt)
 221 {
 222   char buffer[STRING_BUFFER_LEN];
 223   snprintf (buffer, STRING_BUFFER_LEN,
 224             (fmt ? fmt : "%d"), i); // assume radix 10
 225   return string (buffer);
 226 }
 227
 228 string
 229 String_convert::form_string (char const *format, ...)
 230 {
 231   va_list args;
 232   va_start (args, format);
 233   char buffer[STRING_BUFFER_LEN];
 234   vsnprintf (buffer, STRING_BUFFER_LEN, format, args);
 235   va_end (args);
 236   return string (buffer);
 237 }
 238
 239 string
 240 String_convert::vform_string (char const *format, va_list args)
 241 {
 242   char buffer[STRING_BUFFER_LEN];
 243   vsnprintf (buffer, STRING_BUFFER_LEN, format, args);
 244   return string (buffer);
 245 }
 246
 247 /**
 248    Convert a double to a string.
 249
 250    @param #fmt# is a printf style format, default assumes "%lf" as format
 251 */
 252 string
 253 String_convert::double_string (double f, char const *fmt)
 254 {
 255   char buf[STRING_BUFFER_LEN];
 256
 257   snprintf (buf, STRING_BUFFER_LEN, fmt ? fmt : "%f", f);
 258   return string (buf);
 259 }
 260
 261 /**
 262    Make a string from a single character.
 263
 264    @param
 265    #n# is a repetition count, default value is 1
 266 */
 267 string
 268 String_convert::char_string (char c, int n)
 269 {
 270   n = n >= 0 ? n : 0;
 271   char *ch = new char[ n ];
 272   memset (ch, c, n);
 273   string s (ch, n);
 274
 275   delete[] ch;
 276   return s;
 277 }
 278
 279 string
 280 String_convert::rational_string (Rational r)
 281 {
 282   return r.to_string ();
 283 }
 284
 285 string
 286 String_convert::pointer_string (void const *l)
 287 {
 288   char buffer[STRING_BUFFER_LEN];
 289   snprintf (buffer, STRING_BUFFER_LEN, "%p", l); // assume radix 10
 290   return string (buffer);
 291 }
 292
 293 /**
 294    Convert a double to a string.
 295
 296    @param
 297    #n# is the number of nonzero digits
 298 */
 299 string
 300 String_convert::precision_string (double x, int n)
 301 {
 302   string format = "%." + ::to_string (max (0, n - 1)) + "e";
 303   string str = double_string (abs (x), format.c_str ());
 304
 305   int exp = dec2int (str.substr (str.length () - 3));
 306   str = str.substr (0, str.length () - 4);
 307
 308   while (str[str.length () - 1] == '0')
 309     str = str.substr (0, str.length () - 1);
 310   if (str[str.length () - 1] == '.')
 311     str = str.substr (0, str.length () - 1);
 312
 313   if (exp == 0)
 314     return (sign (x) > 0 ? str : "-" + str);
 315
 316   str = str.substr (0, 1) + str.substr (2);
 317   ssize dot = 1 + exp;
 318   if (dot <= 0)
 319     str = "0." + ::to_string ('0', -dot) + str;
 320   else if (dot >= str.length ())
 321     str += ::to_string ('0', dot - str.length ());
 322   else if ((dot > 0) && (dot < str.length ()))
 323     str = str.substr (0, dot) + "." + str.substr (dot);
 324   else
 325     assert (0);
 326
 327   return (sign (x) > 0 ? str : "-" + str);
 328 }
 329
 330 string
 331 String_convert::long_string (long l)
 332 {
 333   char s[STRING_BUFFER_LEN];
 334   sprintf (s, "%ld", l);
 335   return s;
 336 }
 337
 338 string
 339 String_convert::unsigned_string (unsigned u)
 340 {
 341   char s[STRING_BUFFER_LEN];
 342   sprintf (s, "%u", u);
 343   return s;
 344 }
 345
 346 string
 347 String_convert::unsigned_long_string (unsigned long ul)
 348 {
 349   char s[STRING_BUFFER_LEN];
 350   sprintf (s, "%lu", ul);
 351   return s;
 352 }
 353
 354 string
 355 String_convert::pad_to (const string &s, size_t n)
 356 {
 357   return s + string (max (int (n - s.length ()), 0), ' ');
 358 }
 359
 360 string
 361 String_convert::to_upper (string s)
 362 {
 363   return strnupr (const_cast<char*>(s.c_str ()), s.length ());
 364 }
 365
 366 string
 367 String_convert::to_lower (string s)
 368 {
 369   return strnlwr (const_cast<char*>(s.c_str ()), s.length ());
 370 }
 371
 372 string
 373 String_convert::reverse (string s)
 374 {
 375   return (char *) memrev ((unsigned char *)s.data (), s.length ());
 376 }