Newer
Older
return(JS_TRUE);
}
static JSBool
js_iniGetAllObjects(JSContext *cx, JSObject *obj, uintN argc, jsval *argv, jsval *rval)
{
char* name="name";
char* sec_name;
char* prefix=NULL;
char** sec_list;
jsint i,k;
jsval val;
JSObject* array;
JSObject* object;
private_t* p;
named_string_t** key_list;
*rval = JSVAL_NULL;
if((p=(private_t*)JS_GetPrivate(cx,obj))==NULL) {
JS_ReportError(cx,getprivate_failure,WHERE);
return(JS_FALSE);
}
if(p->fp==NULL)
return(JS_TRUE);
if(argc)
name=JS_GetStringBytes(JS_ValueToString(cx, argv[0]));
if(argc>1)
prefix=JS_GetStringBytes(JS_ValueToString(cx, argv[1]));
array = JS_NewArrayObject(cx, 0, NULL);
rc=JS_SUSPENDREQUEST(cx);
sec_list = iniReadSectionList(p->fp,prefix);
JS_RESUMEREQUEST(cx, rc);
for(i=0;sec_list && sec_list[i];i++) {
object = JS_NewObject(cx, NULL, NULL, obj);
sec_name=sec_list[i];
if(prefix!=NULL)
sec_name+=strlen(prefix);
JS_DefineProperty(cx, object, name
,STRING_TO_JSVAL(JS_NewStringCopyZ(cx,sec_name))
,NULL,NULL,JSPROP_ENUMERATE);
rc=JS_SUSPENDREQUEST(cx);
key_list = iniReadNamedStringList(p->fp,sec_list[i]);
JS_RESUMEREQUEST(cx, rc);
for(k=0;key_list && key_list[k];k++)
JS_DefineProperty(cx, object, key_list[k]->name
,get_value(cx,key_list[k]->value)
,NULL,NULL,JSPROP_ENUMERATE);
rc=JS_SUSPENDREQUEST(cx);
iniFreeNamedStringList(key_list);
JS_RESUMEREQUEST(cx, rc);
val=OBJECT_TO_JSVAL(object);
if(!JS_SetElement(cx, array, i, &val))
break;
}
rc=JS_SUSPENDREQUEST(cx);
iniFreeStringList(sec_list);
JS_RESUMEREQUEST(cx, rc);
*rval = OBJECT_TO_JSVAL(array);
return(JS_TRUE);
}
1076
1077
1078
1079
1080
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098
1099
1100
1101
1102
1103
1104
1105
1106
1107
1108
1109
1110
1111
1112
1113
1114
1115
static JSBool
js_iniSetAllObjects(JSContext *cx, JSObject *obj, uintN argc, jsval *argv, jsval *rval)
{
char* name="name";
jsuint i;
jsuint count;
JSObject* array;
jsval set_argv[2];
*rval = JSVAL_FALSE;
if(!JSVAL_IS_OBJECT(argv[0]))
return(JS_TRUE);
array = JSVAL_TO_OBJECT(argv[0]);
if(!JS_IsArrayObject(cx, array))
return(JS_TRUE);
if(!JS_GetArrayLength(cx, array, &count))
return(JS_TRUE);
if(argc>1)
name=JS_GetStringBytes(JS_ValueToString(cx, argv[1]));
/* enumerate the array */
for(i=0; i<count; i++) {
if(!JS_GetElement(cx, array, i, &set_argv[1]))
break;
if(!JSVAL_IS_OBJECT(set_argv[1])) /* must be an array of objects */
break;
if(!JS_GetProperty(cx, JSVAL_TO_OBJECT(set_argv[1]), name, &set_argv[0]))
continue;
if(!js_iniSetObject(cx, obj, 2, set_argv, rval))
break;
}
return(JS_TRUE);
}
static JSBool
js_write(JSContext *cx, JSObject *obj, uintN argc, jsval *argv, jsval *rval)
{
char* cp;
char* uubuf=NULL;
int len; /* string length */
int tlen; /* total length to write (may be greater than len) */
JSString* str;
*rval = JSVAL_FALSE;
if((p=(private_t*)JS_GetPrivate(cx,obj))==NULL) {
JS_ReportError(cx,getprivate_failure,WHERE);
if(p->fp==NULL)
return(JS_TRUE);
str = JS_ValueToString(cx, argv[0]);
cp = JS_GetStringBytes(str);
len = JS_GetStringLength(str);
rc=JS_SUSPENDREQUEST(cx);
if((p->uuencoded || p->b64encoded || p->yencoded)
&& len && (uubuf=malloc(len))!=NULL) {
if(p->uuencoded)
len=uudecode(uubuf,len,cp,len);
else if(p->yencoded)
len=ydecode(uubuf,len,cp,len);
else
len=b64_decode(uubuf,len,cp,len);
if(len<0) {
free(uubuf);
JS_RESUMEREQUEST(cx, rc);
return(JS_TRUE);
cp=uubuf;
}
if(p->rot13)
rot13(cp);
JS_RESUMEREQUEST(cx, rc);
tlen=len;
if(!JS_ValueToInt32(cx,argv[1],(int32*)&tlen)) {
FREE_AND_NULL(uubuf);
return(JS_FALSE);
if(len>tlen)
len=tlen;
}
rc=JS_SUSPENDREQUEST(cx);
if(fwrite(cp,1,len,p->fp)==(size_t)len) {
if(tlen>len) {
len=tlen-len;
if((cp=malloc(len))==NULL) {
FREE_AND_NULL(uubuf);
dbprintf(TRUE, p, "malloc failure of %u bytes", len);
return(JS_TRUE);
}
memset(cp,p->etx,len);
fwrite(cp,1,len,p->fp);
free(cp);
}
dbprintf(FALSE, p, "wrote %u bytes",tlen);
*rval = JSVAL_TRUE;
} else
dbprintf(TRUE, p, "write of %u bytes failed",len);
FREE_AND_NULL(uubuf);
JS_RESUMEREQUEST(cx, rc);
return(JS_TRUE);
}
static JSBool
js_writeln(JSContext *cx, JSObject *obj, uintN argc, jsval *argv, jsval *rval)
char* cp="";
JSString* str;
private_t* p;
*rval = JSVAL_FALSE;
if((p=(private_t*)JS_GetPrivate(cx,obj))==NULL) {
JS_ReportError(cx,getprivate_failure,WHERE);
if(p->fp==NULL)
return(JS_TRUE);
if(argc) {
if((str = JS_ValueToString(cx, argv[0]))==NULL) {
JS_ReportError(cx,"JS_ValueToString failed");
cp = JS_GetStringBytes(str);
}
rc=JS_SUSPENDREQUEST(cx);
if(p->rot13)
rot13(cp);
if(fprintf(p->fp,"%s\n",cp)!=0)
*rval = JSVAL_TRUE;
JS_RESUMEREQUEST(cx, rc);
js_writebin(JSContext *cx, JSObject *obj, uintN argc, jsval *argv, jsval *rval)
BYTE *b;
WORD *w;
DWORD *l;
size_t count=1;
void *buffer;
JSObject* array=NULL;
jsval elemval;
jsdouble val=0;
*rval = JSVAL_FALSE;
if((p=(private_t*)JS_GetPrivate(cx,obj))==NULL) {
JS_ReportError(cx,getprivate_failure,WHERE);
if(p->fp==NULL)
return(JS_TRUE);
if(JSVAL_IS_OBJECT(argv[0])) {
array = JSVAL_TO_OBJECT(argv[0]);
if(JS_IsArrayObject(cx, array)) {
if(!JS_GetArrayLength(cx, array, &count))
return(JS_TRUE);
}
else
array=NULL;
}
if(array==NULL) {
if(!JS_ValueToNumber(cx,argv[0],&val))
return(JS_FALSE);
}
if(argc>1) {
if(!JS_ValueToInt32(cx,argv[1],(int32*)&size))
return(JS_FALSE);
}
if(size != sizeof(BYTE) && size != sizeof(WORD) && size != sizeof(DWORD)) {
rc=JS_SUSPENDREQUEST(cx);
dbprintf(TRUE, p, "unsupported binary write size: %d",size);
JS_RESUMEREQUEST(cx, rc);
buffer=malloc(size*count);
if(buffer==NULL) {
rc=JS_SUSPENDREQUEST(cx);
dbprintf(TRUE, p, "malloc failure of %u bytes", size*count);
JS_RESUMEREQUEST(cx, rc);
1287
1288
1289
1290
1291
1292
1293
1294
1295
1296
1297
1298
1299
1300
1301
1302
1303
1304
1305
1306
1307
1308
return(JS_FALSE);
}
b=buffer;
w=buffer;
l=buffer;
if(array==NULL) {
switch(size) {
case sizeof(BYTE):
*b=(BYTE)val;
break;
case sizeof(WORD):
*w=(WORD)val;
break;
case sizeof(DWORD):
*l=(DWORD)val;
break;
}
}
else {
for(wr=0; wr<count; wr++) {
if(!JS_GetElement(cx, array, wr, &elemval))
goto end;
if(!JS_ValueToNumber(cx,elemval,&val))
goto end;
switch(size) {
case sizeof(BYTE):
*(b++)=(BYTE)val;
break;
case sizeof(WORD):
*(w++)=(WORD)val;
break;
case sizeof(DWORD):
break;
}
}
}
rc=JS_SUSPENDREQUEST(cx);
wr=fwrite(buffer,size,count,p->fp);
JS_RESUMEREQUEST(cx, rc);
if(wr==count)
*rval=JSVAL_TRUE;
end:
free(buffer);
return(JS_TRUE);
}
static JSBool
js_writeall(JSContext *cx, JSObject *obj, uintN argc, jsval *argv, jsval *rval)
{
jsuint i;
jsuint limit;
JSObject* array;
jsval elemval;
private_t* p;
*rval = JSVAL_FALSE;
if((p=(private_t*)JS_GetPrivate(cx,obj))==NULL) {
JS_ReportError(cx,getprivate_failure,WHERE);
if(p->fp==NULL)
return(JS_TRUE);
if(!JSVAL_IS_OBJECT(argv[0]))
return(JS_TRUE);
array = JSVAL_TO_OBJECT(argv[0]);
if(!JS_IsArrayObject(cx, array))
return(JS_TRUE);
if(!JS_GetArrayLength(cx, array, &limit))
return(JS_FALSE);
*rval = JSVAL_TRUE;
for(i=0;i<limit;i++) {
if(!JS_GetElement(cx, array, i, &elemval))
break;
js_writeln(cx, obj, 1, &elemval, rval);
if(*rval!=JSVAL_TRUE)
}
return(JS_TRUE);
}
js_lock(JSContext *cx, JSObject *obj, uintN argc, jsval *argv, jsval *rval)
int32 offset=0;
int32 len=0;
*rval = JSVAL_FALSE;
if((p=(private_t*)JS_GetPrivate(cx,obj))==NULL) {
JS_ReportError(cx,getprivate_failure,WHERE);
if(p->fp==NULL)
return(JS_TRUE);
/* offset */
if(argc) {
if(!JS_ValueToInt32(cx,argv[0],&offset))
return(JS_FALSE);
}
/* length */
if(argc>1) {
if(!JS_ValueToInt32(cx,argv[1],&len))
return(JS_FALSE);
}
rc=JS_SUSPENDREQUEST(cx);
if(len==0)
len=filelength(fileno(p->fp))-offset;
if(lock(fileno(p->fp),offset,len)==0)
*rval = JSVAL_TRUE;
JS_RESUMEREQUEST(cx, rc);
js_unlock(JSContext *cx, JSObject *obj, uintN argc, jsval *argv, jsval *rval)
int32 offset=0;
int32 len=0;
*rval = JSVAL_FALSE;
if((p=(private_t*)JS_GetPrivate(cx,obj))==NULL) {
JS_ReportError(cx,getprivate_failure,WHERE);
if(p->fp==NULL)
return(JS_TRUE);
/* offset */
if(argc) {
if(!JS_ValueToInt32(cx,argv[0],&offset))
return(JS_FALSE);
}
/* length */
if(argc>1) {
if(!JS_ValueToInt32(cx,argv[1],&len))
return(JS_FALSE);
}
rc=JS_SUSPENDREQUEST(cx);
if(len==0)
len=filelength(fileno(p->fp))-offset;
if(unlock(fileno(p->fp),offset,len)==0)
*rval = JSVAL_TRUE;
JS_RESUMEREQUEST(cx, rc);
return(JS_TRUE);
}
static JSBool
js_delete(JSContext *cx, JSObject *obj, uintN argc, jsval *argv, jsval *rval)
{
private_t* p;
if((p=(private_t*)JS_GetPrivate(cx,obj))==NULL) {
JS_ReportError(cx,getprivate_failure,WHERE);
if(p->fp!=NULL) { /* close it if it's open */
fclose(p->fp);
p->fp=NULL;
}
rc=JS_SUSPENDREQUEST(cx);
*rval = BOOLEAN_TO_JSVAL(remove(p->name)==0);
JS_RESUMEREQUEST(cx, rc);
static JSBool
js_flush(JSContext *cx, JSObject *obj, uintN argc, jsval *argv, jsval *rval)
{
private_t* p;
if((p=(private_t*)JS_GetPrivate(cx,obj))==NULL) {
JS_ReportError(cx,getprivate_failure,WHERE);
rc=JS_SUSPENDREQUEST(cx);
*rval = JSVAL_FALSE;
else
*rval = BOOLEAN_TO_JSVAL(fflush(p->fp)==0);
JS_RESUMEREQUEST(cx, rc);
return(JS_TRUE);
}
static JSBool
js_rewind(JSContext *cx, JSObject *obj, uintN argc, jsval *argv, jsval *rval)
{
private_t* p;
if((p=(private_t*)JS_GetPrivate(cx,obj))==NULL) {
JS_ReportError(cx,getprivate_failure,WHERE);
return(JS_FALSE);
}
rc=JS_SUSPENDREQUEST(cx);
if(p->fp==NULL)
*rval = JSVAL_FALSE;
else {
*rval = JSVAL_TRUE;
rewind(p->fp);
}
JS_RESUMEREQUEST(cx, rc);
return(JS_TRUE);
}
static JSBool
js_truncate(JSContext *cx, JSObject *obj, uintN argc, jsval *argv, jsval *rval)
{
private_t* p;
int32 len=0;
if((p=(private_t*)JS_GetPrivate(cx,obj))==NULL) {
JS_ReportError(cx,getprivate_failure,WHERE);
return(JS_FALSE);
}
if(argc) {
if(!JS_ValueToInt32(cx,argv[0],&len))
return(JS_FALSE);
}
rc=JS_SUSPENDREQUEST(cx);
*rval = JSVAL_FALSE;
if(p->fp!=NULL && chsize(fileno(p->fp),len)==0) {
fseek(p->fp,len,SEEK_SET);
*rval = JSVAL_TRUE;
}
JS_RESUMEREQUEST(cx, rc);
return(JS_TRUE);
}
static JSBool
js_clear_error(JSContext *cx, JSObject *obj, uintN argc, jsval *argv, jsval *rval)
{
private_t* p;
if((p=(private_t*)JS_GetPrivate(cx,obj))==NULL) {
JS_ReportError(cx,getprivate_failure,WHERE);
rc=JS_SUSPENDREQUEST(cx);
*rval = JSVAL_FALSE;
else {
clearerr(p->fp);
*rval = JSVAL_TRUE;
JS_RESUMEREQUEST(cx, rc);
return(JS_TRUE);
}
static JSBool
js_fprintf(JSContext *cx, JSObject *obj, uintN argc, jsval *argv, jsval *rval)
{
char* cp;
private_t* p;
*rval = JSVAL_FALSE;
if((p=(private_t*)JS_GetPrivate(cx,obj))==NULL) {
JS_ReportError(cx,getprivate_failure,WHERE);
if(p->fp==NULL)
return(JS_TRUE);
if((cp=js_sprintf(cx, 0, argc, argv))==NULL) {
JS_ReportError(cx,"js_sprintf failed");
rc=JS_SUSPENDREQUEST(cx);
*rval = INT_TO_JSVAL(fwrite(cp,1,strlen(cp),p->fp));
JS_RESUMEREQUEST(cx, rc);
js_sprintf_free(cp);
return(JS_TRUE);
}
/* File Object Properites */
enum {
FILE_PROP_NAME
,FILE_PROP_MODE
,FILE_PROP_ETX
,FILE_PROP_EXISTS
,FILE_PROP_DATE
,FILE_PROP_IS_OPEN
,FILE_PROP_EOF
,FILE_PROP_ERROR
,FILE_PROP_DESCRIPTOR
,FILE_PROP_DEBUG
,FILE_PROP_POSITION
,FILE_PROP_LENGTH
,FILE_PROP_ATTRIBUTES
,FILE_PROP_YENCODED
,FILE_PROP_UUENCODED
,FILE_PROP_B64ENCODED
,FILE_PROP_ROT13
,FILE_PROP_NETWORK_ORDER
/* dynamically calculated */
,FILE_PROP_CHKSUM
,FILE_PROP_CRC16
,FILE_PROP_CRC32
,FILE_PROP_MD5_HEX
,FILE_PROP_MD5_B64
static JSBool js_file_set(JSContext *cx, JSObject *obj, jsval id, jsval *vp)
{
int32 i=0;
jsint tiny;
private_t* p;
if((p=(private_t*)JS_GetPrivate(cx,obj))==NULL) {
JS_ReportError(cx,getprivate_failure,WHERE);
tiny = JSVAL_TO_INT(id);
rc=JS_SUSPENDREQUEST(cx);
dbprintf(FALSE, p, "setting property %d",tiny);
JS_RESUMEREQUEST(cx, rc);
switch(tiny) {
case FILE_PROP_DEBUG:
JS_ValueToBoolean(cx,*vp,&(p->debug));
case FILE_PROP_YENCODED:
JS_ValueToBoolean(cx,*vp,&(p->yencoded));
break;
case FILE_PROP_UUENCODED:
JS_ValueToBoolean(cx,*vp,&(p->uuencoded));
break;
case FILE_PROP_B64ENCODED:
JS_ValueToBoolean(cx,*vp,&(p->b64encoded));
break;
case FILE_PROP_ROT13:
JS_ValueToBoolean(cx,*vp,&(p->rot13));
break;
case FILE_PROP_NETWORK_ORDER:
JS_ValueToBoolean(cx,*vp,&(p->network_byte_order));
break;
case FILE_PROP_POSITION:
if(p->fp!=NULL) {
if(!JS_ValueToInt32(cx,*vp,&i))
return(JS_FALSE);
rc=JS_SUSPENDREQUEST(cx);
fseek(p->fp,i,SEEK_SET);
JS_RESUMEREQUEST(cx, rc);
}
case FILE_PROP_DATE:
if(!JS_ValueToInt32(cx,*vp,&i))
return(JS_FALSE);
rc=JS_SUSPENDREQUEST(cx);
setfdate(p->name,i);
JS_RESUMEREQUEST(cx, rc);
break;
if(p->fp!=NULL) {
if(!JS_ValueToInt32(cx,*vp,&i))
return(JS_FALSE);
rc=JS_SUSPENDREQUEST(cx);
chsize(fileno(p->fp),i);
JS_RESUMEREQUEST(cx, rc);
}
break;
case FILE_PROP_ATTRIBUTES:
if(!JS_ValueToInt32(cx,*vp,&i))
return(JS_FALSE);
rc=JS_SUSPENDREQUEST(cx);
CHMOD(p->name,i);
JS_RESUMEREQUEST(cx, rc);
if(!JS_ValueToInt32(cx,*vp,&i))
return(JS_FALSE);
p->etx = (uchar)i;
}
return(JS_TRUE);
}
static JSBool js_file_get(JSContext *cx, JSObject *obj, jsval id, jsval *vp)
{
char str[128];
size_t i;
size_t rd;
long offset;
ulong sum=0;
ushort c16=0;
ulong c32=~0;
MD5 md5_ctx;
BYTE block[4096];
BYTE digest[MD5_DIGEST_SIZE];
JSString* js_str=NULL;
jsrefcount rc;
time_t tt;
long lng;
int in;
if((p=(private_t*)JS_GetPrivate(cx,obj))==NULL) {
JS_ReportError(cx,getprivate_failure,WHERE);
tiny = JSVAL_TO_INT(id);
#if 0 /* just too much */
dbprintf(FALSE, sock, "getting property %d",tiny);
#endif
switch(tiny) {
case FILE_PROP_NAME:
if((js_str=JS_NewStringCopyZ(cx, p->name))==NULL)
return(JS_FALSE);
*vp = STRING_TO_JSVAL(js_str);
break;
case FILE_PROP_MODE:
if((js_str=JS_NewStringCopyZ(cx, p->mode))==NULL)
return(JS_FALSE);
*vp = STRING_TO_JSVAL(js_str);
break;
case FILE_PROP_EXISTS:
if(p->fp) /* open? */
*vp = JSVAL_TRUE;
rc=JS_SUSPENDREQUEST(cx);
*vp = BOOLEAN_TO_JSVAL(fexistcase(p->name));
JS_RESUMEREQUEST(cx, rc);
break;
case FILE_PROP_DATE:
rc=JS_SUSPENDREQUEST(cx);
JS_RESUMEREQUEST(cx, rc);
break;
case FILE_PROP_IS_OPEN:
*vp = BOOLEAN_TO_JSVAL(p->fp!=NULL);
break;
case FILE_PROP_EOF:
rc=JS_SUSPENDREQUEST(cx);
*vp = BOOLEAN_TO_JSVAL(feof(p->fp)!=0);
JS_RESUMEREQUEST(cx, rc);
else
*vp = JSVAL_TRUE;
break;
case FILE_PROP_ERROR:
rc=JS_SUSPENDREQUEST(cx);
*vp = INT_TO_JSVAL(ferror(p->fp));
JS_RESUMEREQUEST(cx, rc);
else
*vp = INT_TO_JSVAL(errno);
break;
case FILE_PROP_POSITION:
rc=JS_SUSPENDREQUEST(cx);
JS_RESUMEREQUEST(cx, rc);
else
*vp = INT_TO_JSVAL(-1);
break;
case FILE_PROP_LENGTH:
rc=JS_SUSPENDREQUEST(cx);
JS_RESUMEREQUEST(cx, rc);
break;
case FILE_PROP_ATTRIBUTES:
rc=JS_SUSPENDREQUEST(cx);
JS_RESUMEREQUEST(cx, rc);
break;
case FILE_PROP_DEBUG:
*vp = BOOLEAN_TO_JSVAL(p->debug);
break;
case FILE_PROP_YENCODED:
*vp = BOOLEAN_TO_JSVAL(p->yencoded);
break;
case FILE_PROP_UUENCODED:
*vp = BOOLEAN_TO_JSVAL(p->uuencoded);
case FILE_PROP_B64ENCODED:
*vp = BOOLEAN_TO_JSVAL(p->b64encoded);
break;
case FILE_PROP_ROT13:
*vp = BOOLEAN_TO_JSVAL(p->rot13);
break;
case FILE_PROP_NETWORK_ORDER:
*vp = BOOLEAN_TO_JSVAL(p->network_byte_order);
break;
case FILE_PROP_DESCRIPTOR:
if(p->fp)
*vp = INT_TO_JSVAL(fileno(p->fp));
else
*vp = INT_TO_JSVAL(-1);
case FILE_PROP_ETX:
*vp = INT_TO_JSVAL(p->etx);
break;
case FILE_PROP_CHKSUM:
case FILE_PROP_CRC16:
case FILE_PROP_CRC32:
*vp = JSVAL_ZERO;
if(p->fp==NULL)
break;
/* fall-through */
case FILE_PROP_MD5_HEX:
case FILE_PROP_MD5_B64:
*vp = JSVAL_VOID;
if(p->fp==NULL)
break;
rc=JS_SUSPENDREQUEST(cx);
offset=ftell(p->fp); /* save current file position */
fseek(p->fp,0,SEEK_SET);
/* Initialization */
switch(tiny) {
case FILE_PROP_MD5_HEX:
case FILE_PROP_MD5_B64:
MD5_open(&md5_ctx);
break;
}
/* calculate */
while(!feof(p->fp)) {
if((rd=fread(block,1,sizeof(block),p->fp))<1)
break;
switch(tiny) {
case FILE_PROP_CHKSUM:
for(i=0;i<rd;i++)
sum+=block[i];
break;
case FILE_PROP_CRC16:
for(i=0;i<rd;i++)
c16=ucrc16(block[i],c16);
break;
case FILE_PROP_CRC32:
for(i=0;i<rd;i++)
c32=ucrc32(block[i],c32);
break;
case FILE_PROP_MD5_HEX:
case FILE_PROP_MD5_B64:
MD5_digest(&md5_ctx,block,rd);
break;
}
}
JS_RESUMEREQUEST(cx, rc);
1895
1896
1897
1898
1899
1900
1901
1902
1903
1904
1905
1906
1907
1908
1909
1910
1911
1912
1913
1914
1915
1916
1917
1918
/* finalize */
switch(tiny) {
case FILE_PROP_CHKSUM:
JS_NewNumberValue(cx,sum,vp);
break;
case FILE_PROP_CRC16:
if(!JS_NewNumberValue(cx,c16,vp))
*vp=JSVAL_ZERO;
break;
case FILE_PROP_CRC32:
if(!JS_NewNumberValue(cx,~c32,vp))
*vp=JSVAL_ZERO;
break;
case FILE_PROP_MD5_HEX:
case FILE_PROP_MD5_B64:
MD5_close(&md5_ctx,digest);
if(tiny==FILE_PROP_MD5_HEX)
MD5_hex(str,digest);
else
b64_encode(str,sizeof(str)-1,digest,sizeof(digest));
js_str=JS_NewStringCopyZ(cx, str);
break;
}
rc=JS_SUSPENDREQUEST(cx);
fseek(p->fp,offset,SEEK_SET); /* restore saved file position */
JS_RESUMEREQUEST(cx, rc);
if(js_str!=NULL)
*vp = STRING_TO_JSVAL(js_str);
break;
}
#define FILE_PROP_FLAGS JSPROP_ENUMERATE|JSPROP_READONLY
static jsSyncPropertySpec js_file_properties[] = {
/* name ,tinyid ,flags, ver */
{ "name" ,FILE_PROP_NAME ,FILE_PROP_FLAGS, 310},
{ "mode" ,FILE_PROP_MODE ,FILE_PROP_FLAGS, 310},
{ "exists" ,FILE_PROP_EXISTS ,FILE_PROP_FLAGS, 310},
{ "is_open" ,FILE_PROP_IS_OPEN ,FILE_PROP_FLAGS, 310},
{ "eof" ,FILE_PROP_EOF ,FILE_PROP_FLAGS, 310},
{ "error" ,FILE_PROP_ERROR ,FILE_PROP_FLAGS, 310},
{ "descriptor" ,FILE_PROP_DESCRIPTOR ,FILE_PROP_FLAGS, 310},
{ "etx" ,FILE_PROP_ETX ,JSPROP_ENUMERATE, 310},
{ "debug" ,FILE_PROP_DEBUG ,JSPROP_ENUMERATE, 310},
{ "position" ,FILE_PROP_POSITION ,JSPROP_ENUMERATE, 310},
{ "date" ,FILE_PROP_DATE ,JSPROP_ENUMERATE, 311},
{ "length" ,FILE_PROP_LENGTH ,JSPROP_ENUMERATE, 310},
{ "attributes" ,FILE_PROP_ATTRIBUTES ,JSPROP_ENUMERATE, 310},
{ "network_byte_order",FILE_PROP_NETWORK_ORDER,JSPROP_ENUMERATE, 311},
{ "rot13" ,FILE_PROP_ROT13 ,JSPROP_ENUMERATE, 311},
{ "uue" ,FILE_PROP_UUENCODED ,JSPROP_ENUMERATE, 311},
{ "yenc" ,FILE_PROP_YENCODED ,JSPROP_ENUMERATE, 311},
{ "base64" ,FILE_PROP_B64ENCODED ,JSPROP_ENUMERATE, 311},
/* dynamically calculated */
{ "crc16" ,FILE_PROP_CRC16 ,FILE_PROP_FLAGS, 311},
{ "crc32" ,FILE_PROP_CRC32 ,FILE_PROP_FLAGS, 311},
{ "chksum" ,FILE_PROP_CHKSUM ,FILE_PROP_FLAGS, 311},
{ "md5_hex" ,FILE_PROP_MD5_HEX ,FILE_PROP_FLAGS, 311},
{ "md5_base64" ,FILE_PROP_MD5_B64 ,FILE_PROP_FLAGS, 311},
#ifdef BUILD_JSDOCS
static char* file_prop_desc[] = {
"filename specified in constructor - <small>READ ONLY</small>"
,"mode string specified in <i>open</i> call - <small>READ ONLY</small>"
,"<i>true</i> if the file exists - <small>READ ONLY</small>"
,"<i>true</i> if the file has been opened successfully - <small>READ ONLY</small>"
,"<i>true</i> if the current file position is at the <i>end of file</i> - <small>READ ONLY</small>"
,"the last occurred error value (use clear_error to clear) - <small>READ ONLY</small>"
,"the open file descriptor (advanced use only) - <small>READ ONLY</small>"
,"end-of-text character (advanced use only), if non-zero used by <i>read</i>, <i>readln</i>, and <i>write</i>"
,"the current file position (offset in bytes), change value to seek within file"
,"last modified date/time (in time_t format)"
,"the current length of the file (in bytes)"
,"file mode/attributes"
,"set to <i>true</i> if binary data is to be written and read in Network Byte Order (big end first)"
,"set to <i>true</i> to enable automatic ROT13 translatation of text"
,"set to <i>true</i> to enable automatic Unix-to-Unix encode and decode on <tt>read</tt> and <tt>write</tt> calls"
,"set to <i>true</i> to enable automatic yEnc encode and decode on <tt>read</tt> and <tt>write</tt> calls"
,"set to <i>true</i> to enable automatic Base64 encode and decode on <tt>read</tt> and <tt>write</tt> calls"
,"calculated 16-bit CRC of file contents - <small>READ ONLY</small>"
,"calculated 32-bit CRC of file contents - <small>READ ONLY</small>"
,"calculated 32-bit checksum of file contents - <small>READ ONLY</small>"
,"calculated 128-bit MD5 digest of file contents as hexadecimal string - <small>READ ONLY</small>"
,"calculated 128-bit MD5 digest of file contents as base64-encoded string - <small>READ ONLY</small>"
static jsSyncMethodSpec js_file_functions[] = {
{"open", js_open, 1, JSTYPE_BOOLEAN, JSDOCSTR("[mode=<tt>\"w+\"</tt>] [,shareable=<tt>false</tt>] [,buffer_length]")
,JSDOCSTR("open file, <i>shareable</i> defaults to <i>false</i>, <i>buffer_length</i> defaults to 2048 bytes, "
"mode (default: <tt>'w+'</tt>) specifies the type of access requested for the file, as follows:<br>"
"<tt>r </tt> open for reading; if the file does not exist or cannot be found, the open call fails<br>"
"<tt>w </tt> open an empty file for writing; if the given file exists, its contents are destroyed<br>"
"<tt>a </tt> open for writing at the end of the file (appending); creates the file first if it doesnt exist<br>"
"<tt>r+</tt> open for both reading and writing (the file must exist)<br>"
"<tt>w+</tt> open an empty file for both reading and writing; if the given file exists, its contents are destroyed<br>"