/*
Write data to the file
function write(data: Object): Number
*/
PUBLIC EjsObj *writeFile(Ejs *ejs, EjsFile *fp, int argc, EjsObj **argv)
{
EjsArray *args;
EjsByteArray *ap;
EjsObj *vp;
EjsString *str;
cchar *buf;
ssize len, written;
int i;
assert(argc == 1 && ejsIs(ejs, argv[0], Array));
args = (EjsArray*) argv[0];
if (!(fp->mode & EJS_FILE_WRITE)) {
ejsThrowStateError(ejs, "File not opened for writing");
return 0;
}
written = 0;
for (i = 0; i < args->length; i++) {
vp = ejsGetProperty(ejs, (EjsObj*) args, i);
assert(vp);
switch (TYPE(vp)->sid) {
case S_ByteArray:
ap = (EjsByteArray*) vp;
// TODO UNICODE ENCODING
buf = (cchar*) &ap->value[ap->readPosition];
len = ap->writePosition - ap->readPosition;
break;
case S_String: // UNICODE
#if UNICODE && FUTURE
buf = awtom(((EjsString*) vp)->value, &len);
#else
buf = ((EjsString*) vp)->value;
len = ((EjsString*) vp)->length;
#endif
break;
default:
str = ejsToString(ejs, vp);
buf = awtom(((EjsString*) str)->value, &len);
break;
}
if (mprWriteFile(fp->file, buf, len) != len) {
ejsThrowIOError(ejs, "Cannot write to %s", fp->path);
return 0;
}
written += len;
/* Use GC to free buf as it may not be allocated */
}
return (EjsObj*) ejsCreateNumber(ejs, (MprNumber) written);
}
/*
function emit(level: Number, ...data): Number
*/
static EjsNumber *lf_emit(Ejs *ejs, EjsObj *unused, int argc, EjsObj **argv)
{
EjsArray *args;
EjsByteArray *ap;
EjsObj *vp;
EjsString *str;
char *msg, *arg;
ssize len, written;
int i, level, paused;
assure(argc >= 2 && ejsIs(ejs, argv[1], Array));
level = ejsGetInt(ejs, argv[0]);
args = (EjsArray*) argv[1];
written = 0;
msg = 0;
paused = ejsBlockGC(ejs);
for (i = 0; i < args->length; i++) {
vp = ejsGetProperty(ejs, args, i);
assure(vp);
switch (TYPE(vp)->sid) {
case S_ByteArray:
ap = (EjsByteArray*) vp;
// TODO ENCODING
arg = (char*) &ap->value[ap->readPosition];
len = ap->writePosition - ap->readPosition;
break;
case S_String:
// MOB - use NULL instead of &len
arg = awtom(((EjsString*) vp)->value, &len);
break;
default:
str = ejsToString(ejs, vp);
// MOB - use NULL instead of &len
arg = awtom(((EjsString*) str)->value, &len);
break;
}
msg = srejoin(msg, arg, NULL);
}
if (msg) {
mprRawLog(level, "%s", msg);
written += slen(msg);
}
ejsUnblockGC(ejs, paused);
return ejsCreateNumber(ejs, (MprNumber) slen(msg));
}
static EjsObj *saveXml(Ejs *ejs, EjsXML *xml, int argc, EjsObj **argv)
{
MprBuf *buf;
MprFile *file;
char *filename;
ssize bytes, len;
if (argc != 1 || !ejsIs(ejs, argv[0], String)) {
ejsThrowArgError(ejs, "Bad args. Usage: save(filename);");
return 0;
}
filename = awtom(((EjsString*) argv[0])->value, NULL);
/*
Create a buffer to hold the output. All in memory.
*/
buf = mprCreateBuf(ME_MAX_BUFFER, -1);
mprPutStringToBuf(buf, "<?xml version=\"1.0\"?>\n");
if (ejsXMLToBuf(ejs, buf, xml, 0) < 0) {
return 0;
}
file = mprOpenFile(filename, O_CREAT | O_TRUNC | O_WRONLY | O_TEXT, 0664);
if (file == 0) {
ejsThrowIOError(ejs, "Cannot open: %s, %d", filename, mprGetOsError(ejs));
return 0;
}
len = mprGetBufLength(buf);
bytes = mprWriteFile(file, buf->start, len);
if (bytes != len) {
ejsThrowIOError(ejs, "Cannot write to: %s", filename);
mprCloseFile(file);
return 0;
}
mprWriteFile(file, "\n", 1);
mprCloseFile(file);
return 0;
}
