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

SCCS-vsn: contrib/ed/e.c 5.1

diff --git a/usr/src/contrib/ed/e.c b/usr/src/contrib/ed/e.c
new file mode 100644 (file)
index 0000000..833454d
--- /dev/null
+++ b/usr/src/contrib/ed/e.c
@@ -0,0 +1,148 @@
+/*-
+ * 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 */