home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / emacs / src / readin.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-07-07  |  896 b   |  34 lines
  1. /* included... */
  2. extern FILE * ffp;
  3. extern int ovsub, ovreq, ovsub2, ovreq2;
  4. /*
  5.  * Read file "fname" into the current
  6.  * buffer, blowing away any text found there. Called
  7.  * by both the read and visit commands. Return the final
  8.  * status of the read. Also called by the mainline,
  9.  * to read in a file specified on the command line as
  10.  * an argument.
  11.  */
  12. extern char Argbuf[128];
  13. readin( fname, flag )
  14. char    *fname;
  15. {
  16.     register BUFFER    *bp;
  17.     register int    s;
  18.  
  19.     bp = curbp;
  20.     if ( flag )
  21.     {    if (( s = bclear( bp )) != TRUE )    /* Might be old. */
  22.             return (s);
  23.         strcpy( bp->b_fname, fname );
  24.     }
  25.     bp->b_flag &= ~( BFTEMP | BFCHG );
  26.  
  27. /* set up overlay thread: */
  28.     strcpy( Argbuf, fname );    /* parameter to fopen() */
  29.     ovreq = 32;    /* first call fopen() overlay. */
  30.     ovreq2 = 27;    /* then call ovread27 */
  31.     ovsub2 = flag;    /* parameter for ovread27 */
  32.     return ( TRUE );
  33. }
  34.