/*+-------------------------------------------------------------------------	pcmdfile.c - ecu file-related procedure commands	wht@n4hgf.Mt-Park.GA.US  Defined functions:	_file_not_open(filenum)	_gfilenum(param,filenum)	_param_to_stat(param,pstat_rtnd)	ifunc_fatime(param,pvalue)	ifunc_fmode(param,pvalue)	ifunc_fmtime(param,pvalue)	ifunc_fsize(param,pvalue)	ifunc_ftell(param,pvalue)	ifunc_ischr(param,pvalue)	ifunc_isdir(param,pvalue)	ifunc_isreg(param,pvalue)	pcmd_fchmod(param)	pcmd_fclose(param)	pcmd_fdel(param)	pcmd_fgetc(param)	pcmd_fgets(param)	pcmd_fopen(param)	pcmd_fputc(param)	pcmd_fputs(param)	pcmd_fread(param)	pcmd_fseek(param)	pcmd_fwrite(param)	pcmd_mkdir(param)	pcmd_pclose(param)	pcmd_popen(param)	proc_file_reset()	str_to_filemode(modestr,filemode)--------------------------------------------------------------------------*//*+:EDITS:*//*:09-10-1992-14:00-wht@n4hgf-ECU release 3.20 *//*:08-22-1992-15:39-wht@n4hgf-ECU release 3.20 BETA *//*:07-03-1992-12:48-wht@n4hgf-why not let fchmod set any bits? *//*:07-25-1991-12:59-wht@n4hgf-ECU release 3.10 *//*:06-27-1991-13:45-wht@n4hgf-$i0 wasn't always plugged on failures *//*:08-14-1990-20:40-wht@n4hgf-ecu3.00-flush old edit history */#include "ecu.h"#include "ecukey.h"#include "ecuerror.h"#include "esd.h"#include "var.h"#include "proc.h"#if !defined(S_IRUSR)#define	S_IRUSR	00400		/* read permission: owner */#define	S_IWUSR	00200		/* write permission: owner */#define	S_IXUSR	00100		/* execute permission: owner */#define	S_IRWXG	00070		/* read, write, execute: group */#define	S_IRGRP	00040		/* read permission: group */#define	S_IWGRP	00020		/* write permission: group */#define	S_IXGRP	00010		/* execute permission: group */#define	S_IRWXO	00007		/* read, write, execute: other */#define	S_IROTH	00004		/* read permission: other */#define	S_IWOTH	00002		/* write permission: other */#define	S_IXOTH	00001		/* execute permission: other */#endifextern PCB *pcb_stack[];#define FILE_MAX	5typedef struct pfile_struct{	FILE *f;	/* file pointer */	ESD *n;		/* file name */} PFILE;PFILE pfile[FILE_MAX];char fwrite_error_fmt[] = "file %d write error (not open for write?)\n";/*+-------------------------------------------------------------------------	proc_file_reset()--------------------------------------------------------------------------*/voidproc_file_reset(){register itmp;	for(itmp = 0; itmp < FILE_MAX; itmp++)	{		if(pfile[itmp].f)		{			fclose(pfile[itmp].f);			pfile[itmp].f = (FILE *)0;			esdfree(pfile[itmp].n);		}	}}	/* end of proc_file_reset *//*+-------------------------------------------------------------------------	_file_not_open(filenum)--------------------------------------------------------------------------*/int_file_not_open(filenum)int filenum;{	pprintf("file %d not open\n",filenum);	return(eFATAL_ALREADY);}	/* end of _file_not_open *//*+-------------------------------------------------------------------------	_gfilenum(param,filenum)--------------------------------------------------------------------------*/int_gfilenum(param,filenum)ESD *param;int *filenum;{int erc;ulong lvarnum;int old_index;	skip_cmd_break(param);	old_index = param->old_index;	if(erc = gint(param,&lvarnum))		return(erc);	if(lvarnum > FILE_MAX)		return(eBadFileNumber);	*filenum = (int)lvarnum;	param->old_index = old_index;	return(0);}	/* end of _gfilenum *//*+-------------------------------------------------------------------------	str_to_filemode(modestr,filemode) - "rwxrwxrwx" to mode integer--------------------------------------------------------------------------*/str_to_filemode(modestr,filemode)char *modestr;long *filemode;{register i;register mode = 0;int erc = 0;	if(strlen(modestr) != 9)	{		pprintf("bad length: '%s'\n",modestr);		return(eFATAL_ALREADY);	}	for(i=0; i < 9; i++)	{		switch(modestr[i])		{		case 'r':			if(i == 0)				mode |= S_IRUSR;			else if(i == 3)				mode |= S_IRGRP;			else if(i == 6)				mode |= S_IROTH;			else				erc = eSyntaxError;			break;		case 'w':			if(i == 1)				mode |= S_IWUSR;			else if(i == 4)				mode |= S_IWGRP;			else if(i == 7)				mode |= S_IWOTH;			else				erc = eSyntaxError;			break;		case 'x':			if(i == 2)				mode |= S_IXUSR;			else if(i == 5)				mode |= S_IXGRP;			else if(i == 8)				mode |= S_IXOTH;			else				erc = eSyntaxError;			break;		case 's':			if(i == 2)			{				mode |= S_ISUID;				mode |= S_IXUSR;			}			else if(i == 5)			{				mode |= S_ISGID;				mode |= S_IXGRP;			}			else if(i == 7)			{				mode |= S_ISGID;				mode |= S_IXGRP;			}			else				erc = eSyntaxError;			break;		case 't':#if defined(FULL_FEATURE_CHMODE)			if(i == 8)			{				mode |= S_ISVTX;				mode |= S_IXOTH;			}			else				erc = eSyntaxError;#else			pputs("set sticky bit not allowed\n");			erc = eFATAL_ALREADY;#endif /* defined(FULL_FEATURE_CHMODE) */			break;		case 'l':			if(i == 5)			{				mode |= S_ISGID;				mode &= ~S_IXGRP;			}			else				erc = eSyntaxError;			break;		case '-':			break;		default:			erc = eSyntaxError;		}	/* end switch */		if(erc)			break;	}		/* end for */	if(erc)	{		if(erc != eFATAL_ALREADY)			pputs("invalid mode specifier\n");		pputs(modestr);		while(i--)			pputc(' ');		pputs("^\n");			}	else		*filemode = (long)mode;	return(erc);}	/* end of str_to_filemode *//*+-------------------------------------------------------------------------	pcmd_fgetc(param)fgetc <filenum-int> [$][i<varspec> | $s<varspec>]int variable receives 0 if EOFstr var receives null str on eof--------------------------------------------------------------------------*/intpcmd_fgetc(param)ESD *param;{int erc;int filenum;int vartype;int inchar;ESD *svptr;long *ivptr;	if(!proc_level)		return(eNotExecutingProc);	if(erc = _gfilenum(param,&filenum))		return(erc);	if(!pfile[filenum].f)		return(_file_not_open(filenum));	skip_cmd_char(param,'$');	if((param->index >= param->cb) ||		( ((vartype = to_lower(*(param->pb + param->index))) != 'i') &&			(vartype != 's')))		return(eIllegalVarType);	param->index++;	switch(vartype)	{		case 'i':			erc = get_ivptr(param,&ivptr,1);			break;		default:			erc = get_svptr(param,&svptr,1);			break;	}	if(erc)		return(erc);	if((inchar = fgetc(pfile[filenum].f)) == EOF)	{		if(proctrace)			pputs("fgetc EOF\n");		if(vartype == 'i')			*ivptr = -1;		else			esdzero(svptr);	}	else if(vartype == 'i')		*ivptr = inchar;	else	{		*svptr->pb = inchar;		svptr->cb = 1;	}	if(proctrace)	{		pputs("fgetc set ");		pputs((vartype == 'i') ? "int" : "str");		pprintf(" var = %lu (0x%02x)\n",inchar,inchar);	}	return(0);}	/* end of pcmd_fgetc *//*+-------------------------------------------------------------------------	pcmd_fread(param)--------------------------------------------------------------------------*//*ARGSUSED*/intpcmd_fread(param)ESD *param;{	return(eNotImplemented);}	/* end of pcmd_fread *//*+-------------------------------------------------------------------------	pcmd_fgets(param)fgetc <filenum-int> [$][s]<varspec>--------------------------------------------------------------------------*/intpcmd_fgets(param)ESD *param;{int erc;int filenum;char ctmp;ESD *svptr;	if(!proc_level)		return(eNotExecutingProc);	if(erc = _gfilenum(param,&filenum))		return(erc);	if(!pfile[filenum].f)		return(_file_not_open(filenum));	skip_cmd_char(param,'$');	if(erc = get_cmd_char(param,&ctmp))		return(erc);	if(to_lower(ctmp) != 's')		return(eIllegalVarType);	if(erc = get_svptr(param,&svptr,1))		return(erc);	*svptr->pb = 0;	svptr->cb = 0;	if(!(iv[0] = !fgets(svptr->pb,svptr->maxcb + 1,pfile[filenum].f)))	{		svptr->cb = strlen(svptr->pb);		if(*(svptr->pb + svptr->cb - 1) == NL)		{			svptr->cb--;			esd_null_terminate(svptr);		}	}	if(proctrace)		pprintf("fgets set str var = '%s'\n",svptr->pb);	return(0);}	/* end of pcmd_fgets *//*+-------------------------------------------------------------------------	pcmd_fclose(param)fclose <filenum-int>--------------------------------------------------------------------------*/intpcmd_fclose(param)ESD *param;{int erc;int filenum;	if(!proc_level)		return(eNotExecutingProc);	if(erc = _gfilenum(param,&filenum))		return(erc);	if(pfile[filenum].f)	{		fclose(pfile[filenum].f);		pfile[filenum].f = (FILE *)0;		esdfree(pfile[filenum].n);	}	return(0);}	/* end of pcmd_fclose *//*+-------------------------------------------------------------------------	pcmd_fputc(param)fputc <file-num> <int>fputc <file-num> <str>--------------------------------------------------------------------------*/intpcmd_fputc(param)ESD *param;{int erc;int filenum;ESD *buf = (ESD *)0;char outchar = 0;long outlong;	if(!proc_level)		return(eNotExecutingProc);	if(erc = _gfilenum(param,&filenum))		return(erc);	if(!pfile[filenum].f)		return(_file_not_open(filenum));	if(!gint(param,&outlong))		outchar = (char)outlong;	else	{		if((buf = esdalloc(64)) == (ESD *)0)			return(eNoMemory);		if(erc = gstr(param,buf,1))			goto RETURN;		if(!buf->cb)		{			pputs("cannot fputc: zero length string\n");			erc = eFATAL_ALREADY;			goto RETURN;		}		outchar = *buf->pb;	}	if(fputc(outchar,pfile[filenum].f) < 0)	{		pprintf(fwrite_error_fmt,filenum);		erc = eFATAL_ALREADY;	}RETURN:	if(buf)		esdfree(buf);	return(erc);}	/* end of pcmd_fputc *//*+-------------------------------------------------------------------------	pcmd_fopen(param)fopen [-<fopen_switches>] <filenum-int> <filename-str>sets $i0 with result--------------------------------------------------------------------------*/intpcmd_fopen(param)ESD *param;{int erc;int filenum;ESD *fname = (ESD *)0;char switches[8];	if(!proc_level)		return(eNotExecutingProc);	if(get_switches(param,switches,sizeof(switches)))	{		strcpy(switches,"-r");		if(proctrace)		{			pputs("Warning: fopen defaulting to read\n");			show_error_position(pcb_stack[proc_level - 1]);		}	}	if(erc = _gfilenum(param,&filenum))		return(erc);	if(pfile[filenum].f)	{		pprintf("file %d already open\n",filenum);		return(eFATAL_ALREADY);	}	if((fname = esdalloc(256)) == (ESD *)0)		return(eNoMemory);	if(erc = gstr(param,fname,1))		goto RETURN;	iv[0] = 0;	if(pfile[filenum].f = fopen(fname->pb,switches + 1))	{		iv[0] = (long)errno;		if(proctrace)		{			pprintf("'%s'",fname->pb);			pperror(" ");		}	}	else if(proctrace)		pprintf("opened '%s' as file %d\n",fname->pb,filenum);	if(!erc)		pfile[filenum].n = fname;RETURN:	if(erc)		esdfree(fname);	return(erc);}	/* end of pcmd_fopen *//*+-------------------------------------------------------------------------	pcmd_fputs(param)fputs [-n] <filenum-int> <str>-n do not output newline after <str><filenum-int> file number for operation<str> string to write to file--------------------------------------------------------------------------*/intpcmd_fputs(param)ESD *param;{int erc;int filenum;ESD *buf = (ESD *)0;char switches[8];	if(!proc_level)		return(eNotExecutingProc);	get_switches(param,switches,sizeof(switches));	if(erc = _gfilenum(param,&filenum))		return(erc);	if(!pfile[filenum].f)		return(_file_not_open(filenum));	if((buf = esdalloc(256)) == (ESD *)0)		return(eNoMemory);	if(erc = gstr(param,buf,1))		goto RETURN;	if(!fputs(buf->pb,pfile[filenum].f) && strlen(buf->pb))	{		pprintf(fwrite_error_fmt,filenum);		erc = eFATAL_ALREADY;		goto RETURN;