libk  emitc.fn.c at [9408112a57]

File mod/kstr/emitc.fn.c artifact 0654040df9 part of check-in 9408112a57

#include <k/type.h>
#include <k/str.h>
#include <k/io.h>

kcond
ksemitc(const char** array, sz bufsz, kiochan channel) {
	ubyte cache [sizeof(ksbuf) + bufsz];
	ksbuf* out = ksbufmk(cache, channel, bufsz);

	kcond c = ksbufwrite(out, array);
	if (!kokay(c)) return c;

	return ksbufflush(out);
}