mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-23 16:34:07 +00:00
85 lines
2.9 KiB
C
85 lines
2.9 KiB
C
/****************************************************************************
|
|
*
|
|
* C F I L E O P E N R O U T I N E
|
|
* -------------------------------------
|
|
* Copyright 1982 by Digital Research Inc. All rights reserved.
|
|
*
|
|
* The "open" routine opens a "C" file and returns a file id.
|
|
* Comes in 3 flavors, one for ascii, one for binary, and the default
|
|
* (currently to ascii).
|
|
*
|
|
* Calling Sequence:
|
|
* fid = open(fname,mode)
|
|
* fid = opena(fname,mode)
|
|
* fid = openb(fname,mode)
|
|
* fid = _open(fname,mode,type);
|
|
*
|
|
* Where:
|
|
* fname is the address of a null terminated file name.
|
|
* mode is the open mode:
|
|
* 0 => READ access only
|
|
* 1 => WRITE access only
|
|
* 2 => Both READ and WRITE
|
|
* type is 0 for ASCII files, 1 for BINARY
|
|
*
|
|
*****************************************************************************/
|
|
#include <portab.h> /* */
|
|
#include <cpm.h> /* */
|
|
#include <errno.h> /* */
|
|
EXTERN BYTE __tname[]; /* -> Terminal name */
|
|
EXTERN BYTE __lname[]; /* -> List device name */
|
|
WORD open (f,m)
|
|
BYTE *f; WORD m;
|
|
{ return(_open(f,m,0)); } /* default to ascii */
|
|
|
|
WORD opena (f,m)
|
|
BYTE *f; WORD m;
|
|
{ return(_open(f,m,0)); } /* open ascii file */
|
|
|
|
WORD openb (f,m)
|
|
BYTE *f; WORD m;
|
|
{ return(_open(f,m,1)); } /* open binary file */
|
|
|
|
WORD _open (fname,mode,xtype) /****************************/
|
|
BYTE *fname; /* -> File name */
|
|
WORD mode; /* Open mode */
|
|
WORD xtype; /* File type */
|
|
{ /****************************/
|
|
REG WORD ich; /* Channel number for open */
|
|
REG FD *ch; /* -> CCB for channel */
|
|
/* */
|
|
if((ich = allocc()) < 0) /* Allocate a channel */
|
|
return (FAILURE); /* Can't */
|
|
/* */
|
|
__chinit(ich); /* Clear out channel's ccb */
|
|
ch = _getccb(ich); /* Get address of ccb */
|
|
/* */
|
|
if(mode == READ) /* If read only, */
|
|
ch -> flags |= ISREAD; /* set READONLY bit*/
|
|
if(xtype == 0) /* Is ASCII file? */
|
|
ch -> flags |= ISASCII; /* Yes, mark it */
|
|
/* */
|
|
if(_strcmp(fname,__tname) == 0) /* if a terminal */
|
|
{ /* */
|
|
ch->flags |= ISTTY|OPENED; /* mark as tty */
|
|
return(ich); /* Return file descriptor */
|
|
} /****************************/
|
|
else if(_strcmp(fname,__lname) == 0) /* List device? */
|
|
{ /* */
|
|
ch->flags |= ISLPT|OPENED; /* Mark as printer */
|
|
return(ich); /* Return file descriptor */
|
|
} /* */
|
|
/****************************/
|
|
if(__open(ich,fname,OPEN) != 0) /* Use POS SVC interface */
|
|
{ /* */
|
|
freec(ich); /* deallocate channel */
|
|
RETERR(FAILURE,ENOENT); /* If return <> 0, NFG. */
|
|
} /****************************/
|
|
/* Else: */
|
|
ch -> flags |= OPENED; /* Set OPEN bit */
|
|
lseek(ch->chan, 0L, 2); /* Kludge to set */
|
|
lseek(ch->chan, 0L, 0); /* hiwater mark */
|
|
return(ich); /* Return Channel # */
|
|
} /****************************/
|
|
|