=======================================================================
*/
-#include "depend.h"
-#include "genint.h"
-#include "int.h"
-#include "process.h"
-#include "intproto.h"
+#include "depend.h"
+#include "genint.h"
+#include "int.h"
+#include "process.h"
+#include "intproto.h"
#include <stdio.h>
/* File I/O routines */
-void loadfile(status, ftype, am, fp) /* Load parameters of current file */
-word status; /* expected status of file */
-word *ftype; /* file type */
-word *am; /* file object address */
-FILE **fp; /* file stream pointer */
-{
- word s;
- virtaddr virt;
-
- loadvirt(virt, currfile);
- if (member(&virt, am)) /* file object exists */
- {
- s = M[ *am+FSTAT ]; /* check status */
- if (status != s && status != UNKNOWN) errsignal(RTEILLIO);
- *ftype = M[ *am+FTYPE ];
- *fp = MF(*am+FFILE);
- }
- else errsignal(RTEREFTN); /* file not opened yet */
-} /* end loadfile */
-
-
-/* Open file object
- */
-void genfileobj(ftemp, ftyp, fnam, virt, am)
-bool ftemp; /* TRUE iff file is temporary */
-word ftyp; /* file type */
-char *fnam; /* file name */
-virtaddr *virt; /* output virtual address */
-word *am; /* output physical address */
+/**
+ * Load parameters of current file
+ * @parameter expected status of file
+ * @parameter file type
+ * @parameter file object address
+ * @parameter file stream pointer
+ */
+void loadfile(word status, word *ftype, word *am, FILE **fp)
{
- word t1;
-
- request((word) APFILE, &t1, am); /* generate file object */
- virt->addr = t1;
- virt->mark = M[ t1+1 ];
- M[ *am+PROTNUM ] = FILEOBJECT;
- M[ *am+FSTAT ] = UNKNOWN;
- M[ *am+FTEMP ] = lbool(ftemp);
- M[ *am+FTYPE ] = ftyp;
- MN(*am+FNAME) = fnam;
-} /* end genfileobj */
+ word s;
+ virtaddr virt;
+
+ loadvirt(virt, currfile);
+ /* file object exists */
+ if (member(&virt, am)) {
+ /* check status */
+ s = M[*am + FSTAT];
+ if (status != s && status != UNKNOWN)
+ errsignal(RTEILLIO);
+ *ftype = M[*am + FTYPE];
+ *fp = MF(*am + FFILE);
+ } else {
+ /* file not opened yet */
+ errsignal(RTEREFTN);
+ }
+}
-void reset(am) /* Prepare file for reading */
-word am;
+/**
+ * Open file object
+ * @parameter TRUE iff file is temporary
+ * @parameter file type
+ * @parameter file name
+ * @parameter output virtual address
+ * @parameter output physical address
+ */
+void genfileobj(bool ftemp, word ftyp, char *fnam, virtaddr *virt, word *am)
{
- FILE *fp;
-
- if (M[ am+FSTAT ] != UNKNOWN) /* first close file if opened */
- if (fclose(MF(am+FFILE))) errsignal(RTEIOERR);
- switch ((int) M[ am+FTYPE ])
- {
- case TEXTF : /* open text file for reading */
- fp = fopen(MN(am+FNAME), "r");
- M[ am+FSTAT ] = READING;
- break;
-
- case CHARF : /* open binary file for reading */
- case INTF :
- case REALF :
- fp = fopen(MN(am+FNAME), BINARYREAD);
- M[ am+FSTAT ] = READING;
+ word t1;
+
+ /* generate file object */
+ request((word) APFILE, &t1, am);
+ virt->addr = t1;
+ virt->mark = M[t1 + 1];
+ M[*am + PROTNUM] = FILEOBJECT;
+ M[*am + FSTAT] = UNKNOWN;
+ M[*am + FTEMP] = lbool(ftemp);
+ M[*am + FTYPE] = ftyp;
+ MN(*am + FNAME) = fnam;
+}
+
+/* Prepare file for reading */
+void reset(word am)
+{
+ FILE *fp;
+
+ /* first close file if opened */
+ if (M[am + FSTAT] != UNKNOWN)
+ if (fclose(MF(am + FFILE)))
+ errsignal(RTEIOERR);
+
+ switch ((int) M[am + FTYPE]) {
+ /* open text file for reading */
+ case TEXTF:
+ fp = fopen(MN(am + FNAME), "r");
+ M[am + FSTAT] = READING;
break;
-
- case DIRECT : /* open existing file for update */
- fp = fopen(MN(am+FNAME), DIRECTOLD);
- M[ am+FSTAT ] = UPDATING;
+
+ /* open binary file for reading */
+ case CHARF:
+ case INTF:
+ case REALF:
+ fp = fopen(MN(am + FNAME), BINARYREAD);
+ M[am + FSTAT] = READING;
break;
- }
- if (fp == NULL)
- {
- M[ am+FSTAT ] = UNKNOWN;
- errsignal(RTECNTOP);
- }
- MF(am+FFILE) = fp; /* store stream pointer */
-} /* end reset */
-
-
-void rewrite(am) /* Prepare file for writing */
-word am;
-{
- FILE *fp;
- if (M[ am+FSTAT ] != UNKNOWN) /* first close file if opened */
- if (fclose(MF(am+FFILE))) errsignal(RTEIOERR);
+ /* open existing file for update */
+ case DIRECT:
+ fp = fopen(MN(am + FNAME), DIRECTOLD);
+ M[am + FSTAT] = UPDATING;
+ break;
+ }
+ if (fp == NULL) {
+ M[am + FSTAT] = UNKNOWN;
+ errsignal(RTECNTOP);
+ }
+ /* store stream pointer */
+ MF(am + FFILE) = fp;
+}
- switch ((int) M[ am+FTYPE ])
- {
- case TEXTF : /* open text file for writing */
- fp = fopen(MN(am+FNAME), "w");
- M[ am+FSTAT ] = WRITING;
+/**
+ * Prepare file for writing
+ */
+void rewrite(word am)
+{
+ FILE *fp;
+
+ /* first close file if opened */
+ if (M[ am+FSTAT ] != UNKNOWN)
+ if (fclose(MF(am + FFILE)))
+ errsignal(RTEIOERR);
+
+ switch ((int) M[am + FTYPE]) {
+ /* open text file for writing */
+ case TEXTF:
+ fp = fopen(MN(am + FNAME), "w");
+ M[am + FSTAT] = WRITING;
break;
-
- case CHARF : /* open binary file for writing */
- case INTF :
- case REALF :
- fp = fopen(MN(am+FNAME), BINARYWRITE);
- M[ am+FSTAT ] = WRITING;
+
+ /* open binary file for writing */
+ case CHARF:
+ case INTF:
+ case REALF:
+ fp = fopen(MN(am + FNAME), BINARYWRITE);
+ M[am + FSTAT] = WRITING;
break;
-
- case DIRECT : /* create new file for update */
+
+ /* create new file for update */
+ case DIRECT:
fp = fopen(MN(am+FNAME), DIRECTNEW);
- M[ am+FSTAT ] = UPDATING;
+ M[am + FSTAT] = UPDATING;
break;
- }
- if (fp == NULL)
- {
- M[ am+FSTAT ] = UNKNOWN;
- errsignal(RTECNTOP);
- }
- MF(am+FFILE) = fp; /* store stream pointer */
-} /* end rewrite */
-
-
-void delete(virt) /* Delete file */
-virtaddr *virt;
-{
- word am;
+ }
- if (member(virt, &am))
- {
- if (M[ am+FSTAT ] != UNKNOWN) /* first close file if opened */
- if (fclose(MF(am+FFILE))) errsignal(RTEIOERR);
- if (unlink(MN(am+FNAME))) errsignal(RTEIOERR); /* delete file */
- free(MN(am+FNAME)); /* free memory used by file name */
- disp(virt); /* and kill file object */
- }
- else errsignal(RTEREFTN);
-} /* end delete */
+ if (fp == NULL) {
+ M[am + FSTAT] = UNKNOWN;
+ errsignal(RTECNTOP);
+ }
+ /* store stream pointer */
+ MF(am + FFILE) = fp;
+}
+/**
+ * Delete file
+ */
+void delete(virtaddr *virt)
+{
+ word am;
+
+ if (member(virt, &am)) {
+ /* first close file if opened */
+ if (M[am + FSTAT ] != UNKNOWN)
+ if (fclose(MF(am+FFILE))) errsignal(RTEIOERR);
+
+ /* delete file */
+ if (unlink(MN(am+FNAME)))
+ errsignal(RTEIOERR);
+ /* free memory used by file name */
+ free(MN(am+FNAME));
+ /* and kill file object */
+ disp(virt);
+ } else {
+ errsignal(RTEREFTN);
+ }
+}
-char *tempfilename() /* Generate temporary file name */
+/**
+ * Generate temporary file name
+ */
+char *tempfilename()
{
- char *cp;
- static int tempcnt = 0;
+ char *cp;
+ static int tempcnt = 0;
- cp = ballocate(10);
- if (cp == NULL) errsignal(RTEMEMOV);
- sprintf(cp, "LOG%05d", tempcnt++);
- return (cp);
-} /* end tempfilename */
+ cp = ballocate(10);
+ if (cp == NULL)
+ errsignal(RTEMEMOV);
+ sprintf(cp, "LOG%05d", tempcnt++);
+ return cp;
+}
-bool testeof(fp) /* Test for end of file */
-FILE *fp;
+/**
+ * Test for end of file
+ */
+bool testeof(FILE *fp)
{
- int ch;
+ int ch;
- ch = getc(fp);
- ungetc(ch, fp);
- return (ch == EOF);
-} /* end testeof */
+ ch = getc(fp);
+ ungetc(ch, fp);
+ return (ch == EOF);
+}
-
-bool testeoln(fp) /* Test for end of line */
-FILE *fp;
+/**
+ * Test for end of line
+ */
+bool testeoln(FILE *fp)
{
- int ch;
+ int ch;
- ch = getc(fp);
- ungetc(ch, fp);
- return (ch == '\n');
-} /* end testeoln */
+ ch = getc(fp);
+ ungetc(ch, fp);
+ return (ch == '\n');
+}
+/**
+ * Skip to end of line
+ */
+void readln(FILE *fp)
+{
+ int ch, st;
+ G_MESSAGE msg;
+ if (fp == stdin) {
+ read_line();
+ }
+ else {
+ while (ch != '\n' && ch != EOF) {
+ ch = getc(fp);
+ }
+ }
+}
-void readln(fp) /* Skip to end of line */
-FILE *fp;
+static char str[10];
+/**
+ * Read integer
+ */
+word readint(FILE *fp)
{
- int ch,st;
- G_MESSAGE msg;
- if (fp == stdin)
- {
- read_line();
- }
- else
- while (ch != '\n' && ch != EOF)
- ch=getc(fp);
+ long i = 0L;
+ int j = 0, c = 0;
+ int bool = 0;
-} /* end readln */
+ while(c < '0' || c > '9') {
+ if(c == '-')
+ bool = 1;
+ else
+ bool = 0;
-static char str[10];
-word readint(fp) /* Read integer */
-FILE *fp;
-{
- long i=0L;
- int j=0,c=0;
- int bool=0;
+ c=fgetc(fp);
+ if(c == EOF) {
+ errsignal(RTEBADFM);
+ goto END;
+ }
+ }
- while(c<'0' || c>'9'){
- if(c=='-') bool=1;
- else bool=0;
-
- c=fgetc(fp);
-
- if(c==EOF){
- errsignal(RTEBADFM);
- goto END;
- }
- }
-
- do{
- i=10*i+(c-'0');
- j++;
- c=fgetc(fp);
- }while(c>='0' && c<='9');
- if(c!=EOF) ungetc(c,fp);
- if (j == 0 ) errsignal(RTEBADFM);
- END:
- if(bool)
- return(-i);
- else
- return (i);
-} /* end readint */
-
-
-double readreal(fp) /* Read real */
-FILE *fp;
+ do {
+ i = 10*i + (c - '0');
+ j++;
+ c = fgetc(fp);
+ } while(c >= '0' && c <= '9');
+
+ if(c != EOF)
+ ungetc(c, fp);
+ if (j == 0 )
+ errsignal(RTEBADFM);
+
+END:
+ if (bool)
+ return -i;
+ else
+ return i;
+}
+
+/**
+ * Read real
+ */
+double readreal(FILE *fp)
{
- double r;
+ double r;
- if (fscanf(fp, "%lf", &r) != 1) errsignal(RTEBADFM);
- return (r);
-} /* end readreal */
+ if (fscanf(fp, "%lf", &r) != 1)
+ errsignal(RTEBADFM);
+ return r;
+}
-void writeint(n, field, fp) /* Write integer */
-word n, field;
-FILE *fp;
+/**
+ * Write integer
+ */
+void writeint(word n, word field, FILE *fp)
{
- static char format[ 32 ];
+ static char format[32];
- sprintf(format,"%*ld",(int)field, (long)n);
- if (fp == stdout) write_str(format); else
- if (fprintf(fp, "%*ld", (int)field, (long) n) == 0) errsignal(RTEIOERR);
-} /* end writeint */
+ sprintf(format,"%*ld",(int)field, (long)n);
+ if (fp == stdout)
+ write_str(format);
+ else if (fprintf(fp, "%*ld", (int)field, (long) n) == 0)
+ errsignal(RTEIOERR);
+}
-void writereal(r, field1, field2, fp) /* Write real */
-double r;
-word field1, field2;
-FILE *fp;
+/**
+ * Write real
+ */
+void writereal(double r, word field1, word field2, FILE *fp)
{
- char format[ 32 ];
-
- sprintf(format, "%*.*lf", (int) field1, (int) field2,r);
- if (fp == stdout) write_str(format); else
- if (fprintf(fp,"%*.*lf", (int)field1, (int)field2, r) == 0)
- errsignal(RTEIOERR);
-} /* end writereal */
+ char format[32];
+ sprintf(format, "%*.*lf", (int) field1, (int) field2,r);
+ if (fp == stdout)
+ write_str(format);
+ else if (fprintf(fp,"%*.*lf", (int)field1, (int)field2, r) == 0)
+ errsignal(RTEIOERR);
+}
-void writestring(offset, field, fp) /* Write string */
-word offset;
-word field;
-FILE *fp;
+/**
+ * Write string
+ */
+void writestring(word offset, word field, FILE *fp)
{
- word len, addr;
- int i;
- char *cp;
- char s[256];
-
- addr = strings+offset;
- len = M[ addr ];
- cp = (char *) &M[ addr+1 ]; /* pointer to first char of string */
- if (fp == stdout)
- {
- for(i=0;i<len;i++) s[i] = *cp++;
- s[len] = '\0';
- write_str(s);
- } else
- while (len-- > 0 && field-- != 0)
- if (putc(*cp++, fp) == EOF) errsignal(RTEIOERR);
-} /* end writestring */
-
-
-word directio(buf, len, action, fp) /* Perform direct access read/write */
-virtaddr *buf; /* buffer array */
-word len; /* number of bytes to transfer */
+ word len, addr;
+ int i;
+ char *cp;
+ char s[256];
+
+ addr = strings + offset;
+ len = M[addr];
+ /* pointer to first char of string */
+ cp = (char *) &M[ addr+1 ];
+ if (fp == stdout) {
+ for(i = 0; i < len; i++)
+ s[i] = *cp++;
+ s[len] = '\0';
+ write_str(s);
+ } else {
+ while (len-- > 0 && field-- != 0) {
+ if (putc(*cp++, fp) == EOF)
+ errsignal(RTEIOERR);
+ }
+ }
+}
+
+/**
+ * Perform direct access read/write
+ * @parameter buffer array
+ * @parameter number of bytes to transfer
+ * @parameter fread() or fwrite()
+ * @parameter stream pointer
+ */
#ifndef NO_PROTOTYPES
-int (*action)(char *,int,int,FILE *); /* fread() or fwrite() */
+word directio(virtaddr *buf, word len, int (*action)(char *,int, int, FILE *),
+ FILE *fp)
#else
-int (*action)(); /* fread() or fwrite() */
+word directio(virtaddr *buf, word len, int (*action)(), FILE *fp)
#endif
-FILE *fp; /* stream pointer */
{
- word am, t1, result;
- int n;
-
- if (member(buf, &am)) /* file not none */
- {
- if (fseek(fp, 0L, 1)) errsignal(RTEIOERR); /* seek to current */
- /* position required */
- len = min(len, (M[ am ]-3)*sizeof(word)); /* check appetite */
- result = 0; /* number of bytes transfered */
- t1 = am+3; /* address in memory for transfer */
- while (len >= IOBLOCK) /* transfer full blocks */
- {
- n = (*action)((char *) &M[ t1 ], 1, IOBLOCK, fp);
- result += n;
- if (n != IOBLOCK) return(result);
- len -= IOBLOCK;
- t1 += IOBLOCK/sizeof(word);
+ word am, t1, result;
+ int n;
+
+ /* file not none */
+ if (member(buf, &am)) {
+ /* seek to current position required*/
+ if (fseek(fp, 0L, 1))
+ errsignal(RTEIOERR);
+
+ /* check appetite */
+ len = min(len, (M[ am ]-3)*sizeof(word));
+ /* number of bytes transfered */
+ result = 0;
+ /* address in memory for transfer */
+ t1 = am+3;
+ /* transfer full blocks */
+ while (len >= IOBLOCK) {
+ n = (*action)((char *) &M[t1], 1, IOBLOCK, fp);
+ result += n;
+ if (n != IOBLOCK)
+ return result;
+ len -= IOBLOCK;
+ t1 += IOBLOCK / sizeof(word);
+ }
+ /* transfer last unfilled block */
+ if (len > 0) {
+ n = (*action)((char *) &M[t1], 1, (int) len, fp);
+ result += n;
+ }
+ return(result);
}
- if (len > 0) /* transfer last unfilled block */
- {
- n = (*action)((char *) &M[ t1 ], 1, (int) len, fp);
- result += n;
+ else {
+ errsignal(RTEREFTN);
}
- return(result);
- }
- else errsignal(RTEREFTN);
-} /* end directio */
+}
projects / vlp.git / commitdiff