]> www.ginac.de Git - cln.git/blob - src/base/string/output/cl_st_print.cc
8bbbf66446a60371851acde79c930698778a510f
[cln.git] / src / base / string / output / cl_st_print.cc
1 // fprint().
2
3 // General includes.
4 #include "cl_sysdep.h"
5
6 // Specification.
7 #include "cl_string.h"
8
9
10 // Implementation.
11
12 #include "cl_io.h"
13
14 void fprint (cl_ostream stream, const cl_string& str)
15 {
16 #if defined(CL_IO_STDIO)
17         var const char * ptr = str.asciz();
18         var unsigned long i = str.length();
19         while (i > 0) {
20                 fprintchar(stream,*ptr);
21                 ptr++; i--;
22         }
23 #endif
24 #if defined(CL_IO_IOSTREAM)
25         stream.write(str.asciz(),str.length());
26 #endif
27 }