]> www.ginac.de Git - cln.git/blob - src/base/string/cl_sstring.cc
Use paths relative the `src' directory in the #include directives.
[cln.git] / src / base / string / cl_sstring.cc
1 // cl_sstring().
2
3 // General includes.
4 #include "base/cl_sysdep.h"
5
6 // Specification.
7 #include "base/string/cl_sstring.h"
8
9
10 // Implementation.
11
12 #include "cln/malloc.h"
13
14 namespace cln {
15
16 char * cl_sstring (const char * ptr, uintC len)
17 {
18         var char * string = (char *) malloc_hook(len+1);
19         {
20                 var const char* ptr1 = ptr;
21                 var char* ptr2 = string;
22                 var uintC count;
23                 for (count = len; count > 0; count--)
24                         *ptr2++ = *ptr1++;
25                 *ptr2++ = '\0';
26         }
27         return string;
28 }
29
30 }  // namespace cln