src/base/string/cl_sstring.cc

   1 // cl_sstring().
   2
   3 // General includes.
   4 #include "cl_sysdep.h"
   5
   6 // Specification.
   7 #include "cl_sstring.h"
   8
   9
  10 // Implementation.
  11
  12 #include "cl_malloc.h"
  13
  14 char * cl_sstring (const char * ptr, uintL len)
  15 {
  16         var char * string = (char *) cl_malloc_hook(len+1);
  17         {
  18                 var const char* ptr1 = ptr;
  19                 var char* ptr2 = string;
  20                 var uintL count;
  21                 for (count = len; count > 0; count--)
  22                         *ptr2++ = *ptr1++;
  23                 *ptr2++ = '\0';
  24         }
  25         return string;
  26 }