Initial revision

[cln.git] / src / base / string / output / cl_st_print.cc

diff --git a/src/base/string/output/cl_st_print.cc b/src/base/string/output/cl_st_print.cc
new file mode 100644 (file)
index 0000000..8bbbf66
--- /dev/null
+++ b/src/base/string/output/cl_st_print.cc
@@ -0,0 +1,27 @@
+// fprint().
+
+// General includes.
+#include "cl_sysdep.h"
+
+// Specification.
+#include "cl_string.h"
+
+
+// Implementation.
+
+#include "cl_io.h"
+
+void fprint (cl_ostream stream, const cl_string& str)
+{
+#if defined(CL_IO_STDIO)
+       var const char * ptr = str.asciz();
+       var unsigned long i = str.length();
+       while (i > 0) {
+               fprintchar(stream,*ptr);
+               ptr++; i--;
+       }
+#endif
+#if defined(CL_IO_IOSTREAM)
+       stream.write(str.asciz(),str.length());
+#endif
+}