date and time created 93/01/23 11:13:03 by bostic

[unix-history] / usr / src / contrib / ed / e.c

/*-
 * Copyright (c) 1992 The Regents of the University of California.
 * All rights reserved.
 *
 * This code is derived from software contributed to Berkeley by
 * Rodney Ruddock of the University of Guelph.
 *
 * %sccs.include.redist.c%
 */

#ifndef lint
static char sccsid[] = "@(#)e.c	5.1 (Berkeley) %G%";
#endif /* not lint */

#include "ed.h"

/*
 * Places a new file in the buffer to be editted. The current contents
 * of the buffer are deleted - no undo can be perfomed. A warning is
 * issued once if no write has occurred since the last buffer
 * modification (unless 'E' spec'd).
 */

void
e(inputt, errnum)

FILE *inputt;
int *errnum;

{
  int l_which;  /* which is it? 'e' or 'E' */
  char *l_temp;

  l_which = ss;

  l_temp = filename(inputt, errnum);
  if (sigint_flag)
    SIGINT_ACTION;
  if (*errnum == 1)
    {
      free(filename_current);
      filename_current = l_temp;
    }
  else if (*errnum == -2)
    while (((ss = getc(inputt)) != '\n') || (ss == EOF))
         ;
  else if (*errnum < 0)
    return;
  *errnum = 0;

  /* note: 'E' will bypass this if stmt., which warns of no save */
  if ((change_flag == 1L) && (l_which == 'e'))
    {
      change_flag = 0L;
      strcpy(help_msg, "warning: buffer changes not saved");
      *errnum = -1;
      ungetc('\n', inputt);
      return;
    }

  start = top;
  End = bottom;
  start_default = End_default = 0;
  if (start == NULL && bottom == NULL)
    ;
  else
    {
      ungetc(ss, inputt);
      d(inputt, errnum);  /* delete the whole buffer */
    }
  if (sigint_flag)
    SIGINT_ACTION;
  u_clr_stk();  /* an 'e' clears all traces of last doc'mt, even in 'g' */
  if (*errnum  < 0)
    return;
  *errnum = 0;
#ifdef STDIO
  if (fhtmp > NULL)
    {
      fclose(fhtmp);
      unlink(template);
    }
#endif
#ifdef DBI
  if (dbhtmp != NULL)
    {
      (dbhtmp->close)(dbhtmp);
      unlink(template);
    }
#endif

  name_set = 1;
  e2(inputt, errnum);
  
  *errnum = 1;
} /* end-e */


 /* This is pulled out of e.c to make the "simulated 'e'" at startup
  * easier to handle.
  */

void
e2(inputt, errnum)

FILE *inputt;
int *errnum;

{
#ifdef DBI
  RECNOINFO l_dbaccess;
#endif

  if (template == NULL)
    {
      template = (char *)calloc(FILENAME_LEN, sizeof(char));
      if (template == NULL)
        ed_exit(4);
    }

  /* create the buffer using the method favored at compile time */
  bcopy("/tmp/_4.4bsd_ed_XXXXXX\0", template, 22);
  mktemp(template);
#ifdef STDIO
  fhtmp = fopen(template, "w+");
  file_seek = 0;
#endif
#ifdef DBI
  (l_dbaccess.bval) = (u_char)'\0';
  (l_dbaccess.cachesize) = 0;
  (l_dbaccess.flags) = R_NOKEY;
  (l_dbaccess.lorder) = 0;
  (l_dbaccess.reclen) = 0;
  dbhtmp = dbopen(template, (O_CREAT | O_RDWR), (S_IRUSR | S_IWUSR), (DBTYPE)DB_RECNO, &l_dbaccess);
#endif
  current = top;
  start = top;
  End = bottom;

  if (sigint_flag)
    SIGINT_ACTION;
  if (name_set)
    {
      filename_flag = 1; /* so 'r' knows the filename is already read in */
      r(inputt, errnum);
    }
  change_flag = 0;
} /* end-e2 */