js_file.c 24.9 KB
Newer Older
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
/* js_file.c */

/* Synchronet JavaScript "File" Object */

/* $Id$ */

/****************************************************************************
 * @format.tab-size 4		(Plain Text/Source Code File Header)			*
 * @format.use-tabs true	(see http://www.synchro.net/ptsc_hdr.html)		*
 *																			*
 * Copyright 2001 Rob Swindell - http://www.synchro.net/copyright.html		*
 *																			*
 * This program is free software; you can redistribute it and/or			*
 * modify it under the terms of the GNU General Public License				*
 * as published by the Free Software Foundation; either version 2			*
 * of the License, or (at your option) any later version.					*
 * See the GNU General Public License for more details: gpl.txt or			*
 * http://www.fsf.org/copyleft/gpl.html										*
 *																			*
 * Anonymous FTP access to the most recent released source is available at	*
 * ftp://vert.synchro.net, ftp://cvs.synchro.net and ftp://ftp.synchro.net	*
 *																			*
 * Anonymous CVS access to the development source and modification history	*
 * is available at cvs.synchro.net:/cvsroot/sbbs, example:					*
 * cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs login			*
 *     (just hit return, no password is necessary)							*
 * cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs checkout src		*
 *																			*
 * For Synchronet coding style and modification guidelines, see				*
 * http://www.synchro.net/source.html										*
 *																			*
 * You are encouraged to submit any modifications (preferably in Unix diff	*
 * format) via e-mail to mods@synchro.net									*
 *																			*
 * Note: If this box doesn't appear square, then you need to fix your tabs.	*
 ****************************************************************************/

#include "sbbs.h"

#ifdef JAVASCRIPT

typedef struct
{
44
	FILE*	fp;
45
46
	char	name[MAX_PATH+1];
	char	mode[4];
47
	uchar	etx;
48
49
50
51
52
	BOOL	external;	/* externally created, don't close */
	BOOL	debug;

} private_t;

53
static const char* getprivate_failure = "line %d %s JS_GetPrivate failed";
54
55
56
57
58
59
60
61
62
63

static void dbprintf(BOOL error, private_t* p, char* fmt, ...)
{
	va_list argptr;
	char sbuf[1024];

	if(p==NULL || (!p->debug && !error))
		return;

    va_start(argptr,fmt);
64
65
    vsnprintf(sbuf,sizeof(sbuf),fmt,argptr);
	sbuf[sizeof(sbuf)-1]=0;
66
67
    va_end(argptr);
	
68
	lprintf("%04u File %s%s",p->fp ? fileno(p->fp) : 0,error ? "ERROR: ":"",sbuf);
69
70
}

71
72
73
74
75
76
77
78
/* Converts fopen() style 'mode' string into open() style 'flags' integer */

static int fopenflags(char *mode)
{
	int flags=0;

	if(strchr(mode,'b'))
		flags|=O_BINARY;
79
80
	else
		flags|=O_TEXT;
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108

	if(strchr(mode,'w')) {
		flags|=O_CREAT|O_TRUNC;
		if(strchr(mode,'+'))
			flags|=O_RDWR;
		else
			flags|=O_WRONLY;
		return(flags);
	}

	if(strchr(mode,'a')) {
		flags|=O_CREAT|O_APPEND;
		if(strchr(mode,'+'))
			flags|=O_RDWR;
		else
			flags|=O_WRONLY;
		return(flags);
	}

	if(strchr(mode,'r')) {
		if(strchr(mode,'+'))
			flags|=O_RDWR;
		else
			flags|=O_RDONLY;
	}

	return(flags);
}
109
110
111
112
113
114
115

/* File Object Methods */

static JSBool
js_open(JSContext *cx, JSObject *obj, uintN argc, jsval *argv, jsval *rval)
{
	char*		mode="w+";	/* default mode */
116
117
	BOOL		shareable=FALSE;
	int			file;
118
	uintN		i;
119
	jsint		bufsize=2*1024;
120
121
122
	JSString*	str;
	private_t*	p;

123
	*rval = JSVAL_FALSE;
124

125
	if((p=(private_t*)JS_GetPrivate(cx,obj))==NULL) {
126
		JS_ReportError(cx,getprivate_failure,WHERE);
127
		return(JS_FALSE);
128
	}
129
130
131

	if(p->fp!=NULL)  
		return(JS_TRUE);
132
133
134
135

	for(i=0;i<argc;i++) {
		if(JSVAL_IS_STRING(argv[i])) {	/* mode */
			if((str = JS_ValueToString(cx, argv[i]))==NULL) {
136
137
				JS_ReportError(cx,"Invalid mode specified: %s",str);
				return(JS_TRUE);
138
139
			}
			mode=JS_GetStringBytes(str);
140
141
142
		} else if(JSVAL_IS_BOOLEAN(argv[i]))	/* shareable */
			shareable=JSVAL_TO_BOOLEAN(argv[i]);
		else	/* bufsize */
143
			JS_ValueToInt32(cx,argv[i],&bufsize);
144
	}
145
	SAFECOPY(p->mode,mode);
146

147
148
149
150
151
152
153
154
	if(shareable)
		p->fp=fopen(p->name,p->mode);
	else {
		if((file=nopen(p->name,fopenflags(p->mode)))!=-1) {
			if((p->fp=fdopen(file,p->mode))==NULL)
				close(file);
		}
	}
155
	if(p->fp!=NULL) {
156
		*rval = JSVAL_TRUE;
157
		dbprintf(FALSE, p, "opened: %s",p->name);
158
159
160
161
162
		if(!bufsize)
			setvbuf(p->fp,NULL,_IONBF,0);	/* no buffering */
		else
			setvbuf(p->fp,NULL,_IOFBF,bufsize);
	}
163
164
165
166
167
168
169
170
171
172

	return(JS_TRUE);
}


static JSBool
js_close(JSContext *cx, JSObject *obj, uintN argc, jsval *argv, jsval *rval)
{
	private_t*	p;

173
	if((p=(private_t*)JS_GetPrivate(cx,obj))==NULL) {
174
		JS_ReportError(cx,getprivate_failure,WHERE);
175
		return(JS_FALSE);
176
	}
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192

	*rval = JSVAL_VOID;

	if(p->fp==NULL)
		return(JS_TRUE);

	fclose(p->fp);

	dbprintf(FALSE, p, "closed");

	p->fp=NULL; 

	return(JS_TRUE);
}

static JSBool
193
js_read(JSContext *cx, JSObject *obj, uintN argc, jsval *argv, jsval *rval)
194
195
{
	char*		cp;
196
	char*		buf;
197
	int32		len=512;
198
199
200
	JSString*	str;
	private_t*	p;

201
202
	*rval = JSVAL_NULL;

203
	if((p=(private_t*)JS_GetPrivate(cx,obj))==NULL) {
204
		JS_ReportError(cx,getprivate_failure,WHERE);
205
		return(JS_FALSE);
206
	}
207

208
209
	if(p->fp==NULL)
		return(JS_TRUE);
210

211
	if(argc)
212
		JS_ValueToInt32(cx,argv[0],&len);
213

214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
	if((buf=malloc(len+1))==NULL)
		return(JS_TRUE);

	len = fread(buf,1,len,p->fp);
	if(len<0) 
		len=0;
	buf[len]=0;

	if(p->etx) {
		cp=strchr(buf,p->etx);
		if(cp) *cp=0; 
	}

	str = JS_NewStringCopyZ(cx, buf);

	free(buf);

231
232
233
	if(str==NULL)
		return(JS_FALSE);

234
235
236
	*rval = STRING_TO_JSVAL(str);

	dbprintf(FALSE, p, "read %u bytes",len);
237
238
239
240
241
		
	return(JS_TRUE);
}

static JSBool
242
js_readln(JSContext *cx, JSObject *obj, uintN argc, jsval *argv, jsval *rval)
243
{
244
245
	char*		cp;
	char*		buf;
246
	int32		len=512;
247
	JSString*	js_str;
248
249
	private_t*	p;

250
	*rval = JSVAL_NULL;
251

252
	if((p=(private_t*)JS_GetPrivate(cx,obj))==NULL) {
253
		JS_ReportError(cx,getprivate_failure,WHERE);
254
		return(JS_FALSE);
255
	}
256
257
258

	if(p->fp==NULL)
		return(JS_TRUE);
259
260
	
	if(argc)
261
		JS_ValueToInt32(cx,argv[0],&len);
262

263
264
265
266
	if((buf=malloc(len))==NULL)
		return(JS_TRUE);

	if(fgets(buf,len,p->fp)!=NULL) {
267
268
269
270
		len=strlen(buf);
		while(len>0 && (buf[len-1]=='\r' || buf[len-1]=='\n'))
			len--;
		buf[len]=0;
271
272
273
274
		if(p->etx) {
			cp=strchr(buf,p->etx);
			if(cp) *cp=0; 
		}
275
276
		if((js_str=JS_NewStringCopyZ(cx,buf))!=NULL)
			*rval = STRING_TO_JSVAL(js_str);
277
278
	}

279
280
	free(buf);

281
282
283
284
	return(JS_TRUE);
}

static JSBool
285
js_readbin(JSContext *cx, JSObject *obj, uintN argc, jsval *argv, jsval *rval)
286
287
288
289
290
291
292
{
	BYTE		b;
	WORD		w;
	DWORD		l;
	size_t		size=sizeof(DWORD);
	private_t*	p;

293
	*rval = INT_TO_JSVAL(-1);
294

295
	if((p=(private_t*)JS_GetPrivate(cx,obj))==NULL) {
296
		JS_ReportError(cx,getprivate_failure,WHERE);
297
		return(JS_FALSE);
298
	}
299
300
301
302

	if(p->fp==NULL)
		return(JS_TRUE);

303
	if(argc) 
304
		JS_ValueToInt32(cx,argv[0],(int32*)&size);
305
306
307

	switch(size) {
		case sizeof(BYTE):
308
309
			if(fread(&b,1,size,p->fp)==size)
				*rval = INT_TO_JSVAL(b);
310
311
			break;
		case sizeof(WORD):
312
313
			if(fread(&w,1,size,p->fp)==size)
				*rval = INT_TO_JSVAL(w);
314
315
			break;
		case sizeof(DWORD):
316
317
			if(fread(&l,1,size,p->fp)==size)
				*rval = INT_TO_JSVAL(l);
318
319
320
321
322
323
324
			break;
	}
		
	return(JS_TRUE);
}

static JSBool
325
js_readall(JSContext *cx, JSObject *obj, uintN argc, jsval *argv, jsval *rval)
326
{
327
328
329
    jsint       len=0;
    jsval       line;
    JSObject*	array;
330
331
	private_t*	p;

332
333
	*rval = JSVAL_NULL;

334
	if((p=(private_t*)JS_GetPrivate(cx,obj))==NULL) {
335
		JS_ReportError(cx,getprivate_failure,WHERE);
336
		return(JS_FALSE);
337
	}
338

339
340
	if(p->fp==NULL)
		return(JS_TRUE);
341

342
    array = JS_NewArrayObject(cx, 0, NULL);
343

344
345
346
347
    while(!feof(p->fp)) {
		js_readln(cx, obj, 0, NULL, &line); 
		if(line==JSVAL_NULL)
			break;
348
349
        if(!JS_SetElement(cx, array, len++, &line))
			break;
350
	}
351
    *rval = OBJECT_TO_JSVAL(array);
352

353
354
    return(JS_TRUE);
}
355

356
357
358
359
static JSBool
js_write(JSContext *cx, JSObject *obj, uintN argc, jsval *argv, jsval *rval)
{
	char*		cp;
360
361
	size_t		len;	/* string length */
	size_t		tlen;	/* total length to write (may be greater than len) */
362
363
	JSString*	str;
	private_t*	p;
364

365
	*rval = JSVAL_FALSE;
366

367
	if((p=(private_t*)JS_GetPrivate(cx,obj))==NULL) {
368
		JS_ReportError(cx,getprivate_failure,WHERE);
369
		return(JS_FALSE);
370
	}
371
372
373
374
375
376
377

	if(p->fp==NULL)
		return(JS_TRUE);

	str = JS_ValueToString(cx, argv[0]);
	cp = JS_GetStringBytes(str);
	len = strlen(cp);
378
379
	tlen = len;
	if(argc>1) {
380
		JS_ValueToInt32(cx,argv[1],(int32*)&tlen);
381
382
383
		if(len>tlen)
			len=tlen;
	}
384
	if(fwrite(cp,1,len,p->fp)==len) {
385
386
387
388
		if(tlen>len) {
			len=tlen-len;
			if((cp=malloc(len))==NULL) {
				dbprintf(TRUE, p, "malloc failure of %u bytes", len);
389
				*rval = JSVAL_FALSE;
390
391
392
393
394
395
396
				return(JS_TRUE);
			}
			memset(cp,p->etx,len);
			fwrite(cp,1,len,p->fp);
			free(cp);
		}
		dbprintf(FALSE, p, "wrote %u bytes",tlen);
397
		*rval = JSVAL_TRUE;
398
399
	} else 
		dbprintf(TRUE, p, "write of %u bytes failed",len);
400
401
402
403
404
		
	return(JS_TRUE);
}

static JSBool
405
js_writeln(JSContext *cx, JSObject *obj, uintN argc, jsval *argv, jsval *rval)
406
{
407
408
409
410
	char*		cp="";
	JSString*	str;
	private_t*	p;

411
	*rval = JSVAL_FALSE;
412

413
	if((p=(private_t*)JS_GetPrivate(cx,obj))==NULL) {
414
		JS_ReportError(cx,getprivate_failure,WHERE);
415
		return(JS_FALSE);
416
	}
417
418
419
420
421

	if(p->fp==NULL)
		return(JS_TRUE);

	if(argc) {
422
423
		if((str = JS_ValueToString(cx, argv[0]))==NULL) {
			JS_ReportError(cx,"JS_ValueToString failed");
424
			return(JS_FALSE);
425
		}
426
427
428
429
		cp = JS_GetStringBytes(str);
	}

	if(fprintf(p->fp,"%s\n",cp)!=0)
430
		*rval = JSVAL_TRUE;
431

432
433
	return(JS_TRUE);
}
434

435
static JSBool
436
js_writebin(JSContext *cx, JSObject *obj, uintN argc, jsval *argv, jsval *rval)
437
{
438
439
440
	BYTE		b;
	WORD		w;
	DWORD		l;
441
	int32		val=0;
442
	size_t		wr=0;
443
	size_t		size=sizeof(DWORD);
444
445
	private_t*	p;

446
	*rval = JSVAL_FALSE;
447

448
	if((p=(private_t*)JS_GetPrivate(cx,obj))==NULL) {
449
		JS_ReportError(cx,getprivate_failure,WHERE);
450
		return(JS_FALSE);
451
	}
452

453
454
	if(p->fp==NULL)
		return(JS_TRUE);
455

456
	if(argc>1) 
457
		JS_ValueToInt32(cx,argv[1],(int32*)&size);
458

459
460
	switch(size) {
		case sizeof(BYTE):
461
462
			JS_ValueToInt32(cx,argv[0],&val);
			b = (BYTE)val;
463
			wr=fwrite(&b,1,size,p->fp);
464
465
			break;
		case sizeof(WORD):
466
467
			JS_ValueToInt32(cx,argv[0],&val);
			w = (WORD)val;
468
			wr=fwrite(&w,1,size,p->fp);
469
470
			break;
		case sizeof(DWORD):
471
472
			JS_ValueToInt32(cx,argv[0],&val);
			l = val;
473
474
475
476
477
			wr=fwrite(&l,1,size,p->fp);
			break;
		default:	
			/* unknown size */
			dbprintf(TRUE, p, "unsupported binary write size: %d",size);
478
479
			break;
	}
480
	if(wr==size)
481
		*rval = JSVAL_TRUE;
482
		
483
484
485
	return(JS_TRUE);
}

486
487
488
489
490
491
492
493
494
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;

495
	*rval = JSVAL_FALSE;
496

497
	if((p=(private_t*)JS_GetPrivate(cx,obj))==NULL) {
498
		JS_ReportError(cx,getprivate_failure,WHERE);
499
		return(JS_FALSE);
500
	}
501
502
503
504

	if(p->fp==NULL)
		return(JS_TRUE);

505
	if(!JSVAL_IS_OBJECT(argv[0]))
506
507
508
509
		return(JS_TRUE);

    array = JSVAL_TO_OBJECT(argv[0]);

510
511
512
    if(!JS_IsArrayObject(cx, array))
		return(JS_TRUE);

513
514
    if(!JS_GetArrayLength(cx, array, &limit))
		return(JS_FALSE);
515

516
    *rval = JSVAL_TRUE;
517

518
519
520
521
    for(i=0;i<limit;i++) {
        if(!JS_GetElement(cx, array, i, &elemval))
			break;
        js_writeln(cx, obj, 1, &elemval, rval);
522
		if(*rval!=JSVAL_TRUE)
523
			break;
524
525
526
527
528
    }

    return(JS_TRUE);
}

529
static JSBool
530
js_lock(JSContext *cx, JSObject *obj, uintN argc, jsval *argv, jsval *rval)
531
{
532
533
	int32		offset=0;
	int32		len=0;
534
535
	private_t*	p;

536
	*rval = JSVAL_FALSE;
537

538
	if((p=(private_t*)JS_GetPrivate(cx,obj))==NULL) {
539
		JS_ReportError(cx,getprivate_failure,WHERE);
540
		return(JS_FALSE);
541
	}
542
543
544
545

	if(p->fp==NULL)
		return(JS_TRUE);

546
547
548
549
550
551
552
553
554
555
556
557
	/* offset */
	if(argc)
		JS_ValueToInt32(cx,argv[0],&offset);

	/* length */
	if(argc>1)
		JS_ValueToInt32(cx,argv[1],&len);

	if(len==0)
		len=filelength(fileno(p->fp))-offset;

	if(lock(fileno(p->fp),offset,len)==0)
558
		*rval = JSVAL_TRUE;
559

560
561
	return(JS_TRUE);
}
562

563
static JSBool
564
js_unlock(JSContext *cx, JSObject *obj, uintN argc, jsval *argv, jsval *rval)
565
{
566
567
	int32		offset=0;
	int32		len=0;
568
569
	private_t*	p;

570
	*rval = JSVAL_FALSE;
571

572
	if((p=(private_t*)JS_GetPrivate(cx,obj))==NULL) {
573
		JS_ReportError(cx,getprivate_failure,WHERE);
574
		return(JS_FALSE);
575
	}
576
577
578
579

	if(p->fp==NULL)
		return(JS_TRUE);

580
581
582
583
584
585
586
587
588
589
590
	/* offset */
	if(argc)
		JS_ValueToInt32(cx,argv[0],&offset);

	/* length */
	if(argc>1)
		JS_ValueToInt32(cx,argv[1],&len);

	if(len==0)
		len=filelength(fileno(p->fp))-offset;

591
	if(unlock(fileno(p->fp),offset,len)==0)
592
		*rval = JSVAL_TRUE;
593

594
595
596
	return(JS_TRUE);
}

597
598
599
600
601
static JSBool
js_delete(JSContext *cx, JSObject *obj, uintN argc, jsval *argv, jsval *rval)
{
	private_t*	p;

602
	if((p=(private_t*)JS_GetPrivate(cx,obj))==NULL) {
603
		JS_ReportError(cx,getprivate_failure,WHERE);
604
		return(JS_FALSE);
605
	}
606
607
608
609
610
611
612
613
614
615

	if(p->fp!=NULL) {	/* close it if it's open */
		fclose(p->fp);
		p->fp=NULL;
	}

	*rval = BOOLEAN_TO_JSVAL(remove(p->name)==0);

	return(JS_TRUE);
}
616
617
618
619
620
621

static JSBool
js_flush(JSContext *cx, JSObject *obj, uintN argc, jsval *argv, jsval *rval)
{
	private_t*	p;

622
	if((p=(private_t*)JS_GetPrivate(cx,obj))==NULL) {
623
		JS_ReportError(cx,getprivate_failure,WHERE);
624
		return(JS_FALSE);
625
	}
626
627

	if(p->fp==NULL)
628
		*rval = JSVAL_FALSE;
629
630
631
632
633
634
635
636
637
638
639
	else 
		*rval = BOOLEAN_TO_JSVAL(fflush(p->fp)==0);

	return(JS_TRUE);
}

static JSBool
js_clear_error(JSContext *cx, JSObject *obj, uintN argc, jsval *argv, jsval *rval)
{
	private_t*	p;

640
	if((p=(private_t*)JS_GetPrivate(cx,obj))==NULL) {
641
		JS_ReportError(cx,getprivate_failure,WHERE);
642
		return(JS_FALSE);
643
	}
644
645

	if(p->fp==NULL)
646
		*rval = JSVAL_FALSE;
647
648
	else  {
		clearerr(p->fp);
649
		*rval = JSVAL_TRUE;
650
651
652
653
654
	}

	return(JS_TRUE);
}

655
656
657
658
659
660
661
662
663
664
static JSBool
js_fprintf(JSContext *cx, JSObject *obj, uintN argc, jsval *argv, jsval *rval)
{
	char*		cp;
    uintN		i;
	JSString *	fmt;
    JSString *	str;
	va_list		arglist[64];
	private_t*	p;

665
	*rval = JSVAL_FALSE;
666

667
	if((p=(private_t*)JS_GetPrivate(cx,obj))==NULL) {
668
		JS_ReportError(cx,getprivate_failure,WHERE);
669
		return(JS_FALSE);
670
	}
671
672
673
674

	if(p->fp==NULL)
		return(JS_TRUE);

675
676
	if((fmt=JS_ValueToString(cx, argv[0]))==NULL) {
		JS_ReportError(cx,"JS_ValueToString failed");
677
		return(JS_FALSE);
678
	}
679
680
681
682
683

	memset(arglist,0,sizeof(arglist));	/* Initialize arglist to NULLs */

    for (i = 1; i < argc && i<sizeof(arglist)/sizeof(arglist[0]); i++) {
		if(JSVAL_IS_STRING(argv[i])) {
684
685
			if((str=JS_ValueToString(cx, argv[i]))==NULL) {
				JS_ReportError(cx,"JS_ValueToString failed");
686
			    return(JS_FALSE);
687
			}
688
689
690
691
692
693
694
695
696
697
			arglist[i-1]=JS_GetStringBytes(str);	/* exception here July-29-2002 */
		}
		else if(JSVAL_IS_DOUBLE(argv[i]))
			arglist[i-1]=(char*)(unsigned long)*JSVAL_TO_DOUBLE(argv[i]);
		else if(JSVAL_IS_INT(argv[i]) || JSVAL_IS_BOOLEAN(argv[i]))
			arglist[i-1]=(char *)JSVAL_TO_INT(argv[i]);
		else
			arglist[i-1]=NULL;
	}

698
699
	if((cp=JS_vsmprintf(JS_GetStringBytes(fmt),(char*)arglist))==NULL) {
		JS_ReportError(cx,"JS_vsmprintf failed");
700
		return(JS_FALSE);
701
	}
702
703
704
705
706
707
708

	*rval = INT_TO_JSVAL(fwrite(cp,1,strlen(cp),p->fp));
	JS_smprintf_free(cp);
	
    return(JS_TRUE);
}

709
710
711
712

/* File Object Properites */
enum {
	 FILE_PROP_NAME		
713
714
	,FILE_PROP_MODE
	,FILE_PROP_ETX
715
716
717
718
719
720
721
722
723
724
725
726
	,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
};

rswindell's avatar
rswindell committed
727

728
729
730
731
732
static JSBool js_file_set(JSContext *cx, JSObject *obj, jsval id, jsval *vp)
{
    jsint       tiny;
	private_t*	p;

733
	if((p=(private_t*)JS_GetPrivate(cx,obj))==NULL) {
734
		JS_ReportError(cx,getprivate_failure,WHERE);
735
		return(JS_FALSE);
736
	}
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756

    tiny = JSVAL_TO_INT(id);

	dbprintf(FALSE, p, "setting property %d",tiny);

	switch(tiny) {
		case FILE_PROP_DEBUG:
			p->debug = JSVAL_TO_BOOLEAN(*vp);
			break;
		case FILE_PROP_POSITION:
			if(p->fp!=NULL)
				fseek(p->fp,JSVAL_TO_INT(*vp),SEEK_SET);
			break;
		case FILE_PROP_LENGTH:
			if(p->fp!=NULL)
				chsize(fileno(p->fp),JSVAL_TO_INT(*vp));
			break;
		case FILE_PROP_ATTRIBUTES:
			CHMOD(p->name,JSVAL_TO_INT(*vp));
			break;
757
758
759
		case FILE_PROP_ETX:
			p->etx = (uchar)JSVAL_TO_INT(*vp);
			break;
760
761
762
763
764
765
766
767
	}

	return(JS_TRUE);
}

static JSBool js_file_get(JSContext *cx, JSObject *obj, jsval id, jsval *vp)
{
    jsint       tiny;
768
	JSString*	js_str;
769
770
	private_t*	p;

771
	if((p=(private_t*)JS_GetPrivate(cx,obj))==NULL) {
772
		JS_ReportError(cx,getprivate_failure,WHERE);
773
		return(JS_FALSE);
774
	}
775
776
777
778
779
780
781
782
783

    tiny = JSVAL_TO_INT(id);

#if 0 /* just too much */
	dbprintf(FALSE, sock, "getting property %d",tiny);
#endif

	switch(tiny) {
		case FILE_PROP_NAME:
784
785
786
			if((js_str=JS_NewStringCopyZ(cx, p->name))==NULL)
				return(JS_FALSE);
			*vp = STRING_TO_JSVAL(js_str);
787
788
			break;
		case FILE_PROP_MODE:
789
790
791
			if((js_str=JS_NewStringCopyZ(cx, p->mode))==NULL)
				return(JS_FALSE);
			*vp = STRING_TO_JSVAL(js_str);
792
793
794
			break;
		case FILE_PROP_EXISTS:
			if(p->fp)	/* open? */
795
				*vp = JSVAL_TRUE;
796
797
798
799
800
801
802
803
804
805
			else
				*vp = BOOLEAN_TO_JSVAL(fexist(p->name));
			break;
		case FILE_PROP_DATE:
			*vp = INT_TO_JSVAL(fdate(p->name));
			break;
		case FILE_PROP_IS_OPEN:
			*vp = BOOLEAN_TO_JSVAL(p->fp!=NULL);
			break;
		case FILE_PROP_EOF:
806
807
808
			if(p->fp)
				*vp = BOOLEAN_TO_JSVAL(feof(p->fp)!=0);
			else
809
				*vp = JSVAL_TRUE;
810
811
			break;
		case FILE_PROP_ERROR:
812
813
814
815
			if(p->fp)
				*vp = INT_TO_JSVAL(ferror(p->fp));
			else
				*vp = INT_TO_JSVAL(0);
816
817
			break;
		case FILE_PROP_POSITION:
818
819
820
821
			if(p->fp)
				*vp = INT_TO_JSVAL(ftell(p->fp));
			else
				*vp = INT_TO_JSVAL(-1);
822
823
824
825
826
827
828
829
830
831
832
833
834
835
			break;
		case FILE_PROP_LENGTH:
			if(p->fp)	/* open? */
				*vp = INT_TO_JSVAL(filelength(fileno(p->fp)));
			else
				*vp = INT_TO_JSVAL(flength(p->name));
			break;
		case FILE_PROP_ATTRIBUTES:
			*vp = INT_TO_JSVAL(getfattr(p->name));
			break;
		case FILE_PROP_DEBUG:
			*vp = INT_TO_JSVAL(p->debug);
			break;
		case FILE_PROP_DESCRIPTOR:
836
837
838
839
			if(p->fp)
				*vp = INT_TO_JSVAL(fileno(p->fp));
			else
				*vp = INT_TO_JSVAL(-1);
840
			break;
841
842
843
		case FILE_PROP_ETX:
			*vp = INT_TO_JSVAL(p->etx);
			break;
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
	}

	return(TRUE);
}

#define FILE_PROP_FLAGS JSPROP_ENUMERATE|JSPROP_READONLY

static struct JSPropertySpec js_file_properties[] = {
/*		 name				,tinyid					,flags,				getter,	setter	*/
	{	"name"				,FILE_PROP_NAME			,FILE_PROP_FLAGS,	NULL,NULL},
	{	"mode"				,FILE_PROP_MODE			,FILE_PROP_FLAGS,	NULL,NULL},
	{	"exists"			,FILE_PROP_EXISTS		,FILE_PROP_FLAGS,	NULL,NULL},
	{	"date"				,FILE_PROP_DATE			,FILE_PROP_FLAGS,	NULL,NULL},
	{	"is_open"			,FILE_PROP_IS_OPEN		,FILE_PROP_FLAGS,	NULL,NULL},
	{	"eof"				,FILE_PROP_EOF			,FILE_PROP_FLAGS,	NULL,NULL},
	{	"error"				,FILE_PROP_ERROR		,FILE_PROP_FLAGS,	NULL,NULL},
	{	"descriptor"		,FILE_PROP_DESCRIPTOR	,FILE_PROP_FLAGS,	NULL,NULL},
	/* writeable */
862
	{	"etx"				,FILE_PROP_ETX			,JSPROP_ENUMERATE,  NULL,NULL},
863
864
865
866
867
868
869
	{	"debug"				,FILE_PROP_DEBUG		,JSPROP_ENUMERATE,	NULL,NULL},
	{	"position"			,FILE_PROP_POSITION		,JSPROP_ENUMERATE,	NULL,NULL},
	{	"length"			,FILE_PROP_LENGTH		,JSPROP_ENUMERATE,	NULL,NULL},
	{	"attributes"		,FILE_PROP_ATTRIBUTES	,JSPROP_ENUMERATE,	NULL,NULL},
	{0}
};

rswindell's avatar
rswindell committed
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
#ifdef _DEBUG
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>"
	,"last modified date/time (time_t format) - <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 <b>end of file</b> - <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>"
	,"<i>true</i> if debug output is enabled"
	,"the current file position (offset in bytes), change value to seek within file"
	,"the current length of the file (in bytes)"
	,"file mode/attributes"
	,NULL
};
#endif


890
static jsMethodSpec js_file_functions[] = {
891
	{"open",			js_open,			1,	JSTYPE_BOOLEAN,	JSDOCSTR("[string mode, boolean shareable, number buflen]")
rswindell's avatar
rswindell committed
892
893
894
895
896
897
898
899
900
	,JSDOCSTR("open file, <i>shareable</i> defaults to <i>false</i>, <i>buflen</i> defaults to 2048 bytes, "
		"mode (default: <tt>w+</tt>) specifies the type of access requested for the file, as follows:<br>"
		"<tt>r&nbsp</tt> open for reading; if the file does not exist or cannot be found, the open call fails<br>"
		"<tt>w&nbsp</tt> open an empty file for writing; if the given file exists, its contents are destroyed<br>"
		"<tt>a&nbsp</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>"
		"<tt>a+</tt> open for reading and appending<br>"
		"<tt>b&nbsp</tt> open in binary (untranslated) mode; translations involving carriage-return and linefeed characters are suppressed (e.g. <tt>r+b</tt>)<br>"
rswindell's avatar
rswindell committed
901
		)
902
903
	},		
	{"close",			js_close,			0,	JSTYPE_VOID,	""
904
	,JSDOCSTR("close file")
905
	},		
906
907
	{"remove",			js_delete,			0,	JSTYPE_BOOLEAN, ""
	,JSDOCSTR("remove the file from the disk")
908
	},
909
	{"clearError",		js_clear_error,		0,	JSTYPE_ALIAS },
910
	{"clear_error",		js_clear_error,		0,	JSTYPE_BOOLEAN, ""
rswindell's avatar
rswindell committed
911
	,JSDOCSTR("clears the current error value (AKA clearError)")
912
913
	},
	{"flush",			js_flush,			0,	JSTYPE_BOOLEAN,	""
rswindell's avatar
rswindell committed
914
	,JSDOCSTR("flush/commit buffers to disk")
915
	},
916
	{"lock",			js_lock,			2,	JSTYPE_BOOLEAN,	JSDOCSTR("[offset, length]")
rswindell's avatar
rswindell committed
917
	,JSDOCSTR("lock file record for exclusive access (file must be opened <i>shareable</i>)")
918
	},		
919
	{"unlock",			js_unlock,			2,	JSTYPE_BOOLEAN,	JSDOCSTR("[offset, length]")
rswindell's avatar
rswindell committed
920
	,JSDOCSTR("unlock file record for exclusive access")
921
	},		
922
923
	{"read",			js_read,			0,	JSTYPE_STRING,	JSDOCSTR("[number maxlen]")
	,JSDOCSTR("read a string from file, maxlen defaults to 512 characters")
924
	},
925
926
	{"readln",			js_readln,			0,	JSTYPE_STRING,	JSDOCSTR("[number maxlen]")
	,JSDOCSTR("read a line-feed terminated string, maxlen defaults 512 characters")
927
	},		
928
929
	{"readBin",			js_readbin,			0,	JSTYPE_NUMBER,	JSDOCSTR("[number bytes]")
	,JSDOCSTR("read a binary integer from the file, default number of bytes is 4 (32-bits)")
930
931
	},
	{"readAll",			js_readall,			0,	JSTYPE_ARRAY,	""
932
	,JSDOCSTR("read all lines into an array of strings")
933
	},
934
935
	{"write",			js_write,			1,	JSTYPE_BOOLEAN,	JSDOCSTR("string text [,number len]")
	,JSDOCSTR("write a string to the file")
936
	},
937
938
	{"writeln",			js_writeln,			0,	JSTYPE_BOOLEAN, JSDOCSTR("[string text]")
	,JSDOCSTR("write a line-feed terminated string to the file")
939
	},
940
941
	{"writeBin",		js_writebin,		1,	JSTYPE_BOOLEAN,	JSDOCSTR("number value [,number bytes]")
	,JSDOCSTR("write a binary integer to the file, default number of bytes is 4 (32-bits)")
942
	},
943
944
	{"writeAll",		js_writeall,		0,	JSTYPE_BOOLEAN,	JSDOCSTR("array lines")
	,JSDOCSTR("write an array of strings to file")
945
	},		
946
	{"printf",			js_fprintf,			0,	JSTYPE_NUMBER,	JSDOCSTR("string format [,args]")
rswindell's avatar
rswindell committed
947
	,JSDOCSTR("write a formatted string to the file (ala fprintf)")
948
	},		
949
950
951
	{0}
};

952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
/* File Destructor */

static void js_finalize_file(JSContext *cx, JSObject *obj)
{
	private_t* p;
	
	if((p=(private_t*)JS_GetPrivate(cx,obj))==NULL)
		return;

	if(p->external==JS_FALSE && p->fp!=NULL)
		fclose(p->fp);

	dbprintf(FALSE, p, "closed: %s",p->name);

	free(p);

	JS_SetPrivate(cx, obj, NULL);
}

static JSClass js_file_class = {
     "File"					/* name			*/
    ,JSCLASS_HAS_PRIVATE	/* flags		*/
	,JS_PropertyStub		/* addProperty	*/
	,JS_PropertyStub		/* delProperty	*/
	,js_file_get			/* getProperty	*/
	,js_file_set			/* setProperty	*/
	,JS_EnumerateStub		/* enumerate	*/
	,JS_ResolveStub			/* resolve		*/
	,JS_ConvertStub			/* convert		*/
	,js_finalize_file		/* finalize		*/
};

/* File Constructor (creates file descriptor) */

static JSBool
js_file_constructor(JSContext *cx, JSObject *obj, uintN argc, jsval *argv, jsval *rval)
{
	JSString*	str;
	private_t*	p;

	if((str = JS_ValueToString(cx, argv[0]))==NULL) {
993
		JS_ReportError(cx,"No filename specified");
994
995
996
997
998
999
		return(JS_FALSE);
	}

	*rval = JSVAL_VOID;

	if((p=(private_t*)calloc(1,sizeof(private_t)))==NULL) {
1000
		JS_ReportError(cx,"calloc failed");
1001
1002
1003
1004
1005
1006
1007
1008
1009
1010
		return(JS_FALSE);
	}

	SAFECOPY(p->name,JS_GetStringBytes(str));

	if(!JS_SetPrivate(cx, obj, p)) {
		dbprintf(TRUE, p, "JS_SetPrivate failed");
		return(JS_FALSE);
	}

1011
	if(!js_DefineMethods(cx, obj, js_file_functions, FALSE)) {
1012
1013
1014
1015
1016
		dbprintf(TRUE, p, "js_DefineMethods failed");
		return(JS_FALSE);
	}

#ifdef _DEBUG
rswindell's avatar
rswindell committed
1017
	js_DescribeObject(cx,obj,"Class used for opening/creating files on the local file system");
rswindell's avatar
rswindell committed
1018
	js_DescribeConstructor(cx,obj,"To create a new File object: <tt>var f = new File(filename)</tt>");
rswindell's avatar
rswindell committed
1019
	js_CreateArrayOfStrings(cx, obj, "_property_desc_list", file_prop_desc, JSPROP_READONLY);
1020
1021
1022
1023
1024
#endif

	dbprintf(FALSE, p, "object constructed");
	return(JS_TRUE);
}
1025
1026
1027
1028
1029
1030
1031
1032

JSObject* DLLCALL js_CreateFileClass(JSContext* cx, JSObject* parent)
{
	JSObject*	sockobj;

	sockobj = JS_InitClass(cx, parent, NULL
		,&js_file_class
		,js_file_constructor
1033
		,1		/* number of constructor args */
1034
		,js_file_properties
1035
		,NULL	/* funcs, set in constructor */
1036
1037
1038
1039
1040
1041
1042
1043
1044
1045
		,NULL,NULL);

	return(sockobj);
}

JSObject* DLLCALL js_CreateFileObject(JSContext* cx, JSObject* parent, char *name, FILE* fp)
{
	JSObject* obj;
	private_t*	p;

1046
	obj = JS_DefineObject(cx, parent, name, &js_file_class, NULL, JSPROP_ENUMERATE);
1047
1048
1049
1050
1051
1052
1053

	if(obj==NULL)
		return(NULL);

	if(!JS_DefineProperties(cx, obj, js_file_properties))
		return(NULL);

1054
	if (!js_DefineMethods(cx, obj, js_file_functions, FALSE)) 
1055
1056
1057
1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
		return(NULL);

	if((p=(private_t*)calloc(1,sizeof(private_t)))==NULL)
		return(NULL);

	p->fp=fp;
	p->debug=JS_FALSE;
	p->external=JS_TRUE;

	if(!JS_SetPrivate(cx, obj, p)) {
		dbprintf(TRUE, p, "JS_SetPrivate failed");
		return(NULL);
	}

	dbprintf(FALSE, p, "object created");

	return(obj);
}


1075
#endif	/* JAVSCRIPT */