From: Rafał Długołęcki Date: Wed, 17 Jul 2013 07:28:03 +0000 (+0200) Subject: vlp-10 using coding style in fileio.c X-Git-Tag: 3.1~35 X-Git-Url: https://git.dlugolecki.net.pl/?a=commitdiff_plain;h=b5e1866d5f3289ebae0bb7e863e38677ec3ad81f;p=vlp.git vlp-10 using coding style in fileio.c --- diff --git a/src/int/fileio.c b/src/int/fileio.c index f809124..50dfc0e 100644 --- a/src/int/fileio.c +++ b/src/int/fileio.c @@ -28,329 +28,389 @@ or Andrzej Salwicki ======================================================================= */ -#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 /* 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 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 */ +}