Category : Network Files
Archive : KA9Q.ZIP
Filename : VFILE.C
Output of file : VFILE.C contained in archive : KA9Q.ZIP
* Routines for implementing RAM-based virtual files.
* Written for Mark Williams stdio library.
* -- Howard Chu 03:15, 12-07-88
*/
#include
#define MEMSIZ (16*1024)
#define _FMEM 0x40 /* For stdio flags... */
typedef struct vfile {
char buf[MEMSIZ];
short cnt;
struct vfile *next;
} vfile;
int vgetc(),vputc();
static void vfree();
FILE *tmpfile()
{
register FILE *newbuf;
vfile *ptr;
newbuf=(FILE *)malloc(sizeof(struct FILE)+sizeof(struct vfile));
if(newbuf != NULL) {
ptr = (vfile *)((long)newbuf + sizeof(struct FILE));
ptr->next = NULL;
/*
* We'll use _cp as current pointer, _bp as buffer end, and
* _dp as buffer beginning... _cc is number of bytes in this
* block.
*/
newbuf->_cp=newbuf->_dp=newbuf->_bp=(char *)ptr;
newbuf->_cc=0;
newbuf->_gt=vgetc;
newbuf->_pt=vputc;
newbuf->_ff=(_FMEM | _FINUSE | _FSTBUF);
/* Mem, in use, user buffer */
newbuf->_uc=0;
newbuf->_fd=0xff;
}
return newbuf;
}
int
vseek(fp, where, how)
register FILE *fp;
long where;
int how;
{
vfile *ptr;
if(fp->_ff & _FMEM) {
ptr=(vfile *)(fp->_dp);
ptr->cnt = fp->_cc;
switch(how) {
case 0: ptr=(vfile *)((long)fp+sizeof(struct FILE));
while(where > MEMSIZ) {
ptr = ptr->next;
where -= MEMSIZ;
}
fp->_cp = fp->_dp = fp->_bp = (char *)ptr;
fp->_cp += where;
if(ptr)
fp->_bp += ptr->cnt;
break;
default: return (-1); /* Too lazy... */
}
return 0;
} else return fseek(fp, where, how);
}
int
vclose(fp)
register FILE *fp;
{
vfile *ptr;
if(fp->_ff & _FMEM) {
ptr=(vfile *)(fp->_dp);
vfree(ptr->next);
free(fp);
return 0;
} else return(fclose(fp));
}
static void
vfree(ptr)
register vfile *ptr;
{
if(ptr) {
vfree(ptr->next);
free(ptr);
}
}
int
vgetc(fp)
register FILE *fp;
{
register vfile *ptr;
if(fp->_cp < fp->_bp)
return *(fp->_cp++);
if(fp->_bp == fp->_dp) /* No data yet. */
return EOF;
ptr=(vfile *)(fp->_dp);
ptr = ptr->next;
if(!ptr) /* No more blocks in chain */
return EOF;
fp->_cp = fp->_dp = (char *)(ptr); /* Get next block */
fp->_bp = fp->_dp + ptr->cnt;
return *(fp->_cp++);
}
int
vputc(c, fp)
char c;
register FILE *fp;
{
vfile *ptr;
if(fp->_cc < MEMSIZ) {
*(fp->_cp++) = c;
fp->_cc++;
return c;
}
ptr=(vfile *)fp->_dp;
if(!(ptr->next = (vfile *)malloc(sizeof(vfile))))
return EOF; /* End of the line...! */
ptr->cnt = fp->_cc;
ptr->next->next = (vfile *)0;
fp->_cc = 1;
fp->_cp = fp->_bp = fp->_dp = (char *)(ptr->next);
*(fp->_cp++) = c;
return c;
}
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/