BSD 4_4 release

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

diff --git a/usr/src/contrib/ed/e.c b/usr/src/contrib/ed/e.c
index 833454d..0e09ff3 100644 (file)
--- a/usr/src/contrib/ed/e.c
+++ b/usr/src/contrib/ed/e.c
@@ -1,18 +1,61 @@
 /*-
 /*-

- * Copyright (c) 1992 The Regents of the University of California.
- * All rights reserved.
+ * Copyright (c) 1992, 1993
+ *     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.
  *
  *
  * This code is derived from software contributed to Berkeley by
  * Rodney Ruddock of the University of Guelph.
  *

- * %sccs.include.redist.c%
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *     This product includes software developed by the University of
+ *     California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.

  */
 
 #ifndef lint
  */
 
 #ifndef lint

-static char sccsid[] = "@(#)e.c        5.1 (Berkeley) %G%";
+static char sccsid[] = "@(#)e.c        8.1 (Berkeley) 5/31/93";

 #endif /* not lint */
 
 #endif /* not lint */
 

+#include <sys/types.h>
+#include <sys/stat.h>
+
+#include <fcntl.h>
+#include <limits.h>
+#include <regex.h>
+#include <setjmp.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <unistd.h>
+
+#ifdef DBI
+#include <db.h>
+#endif
+

 #include "ed.h"
 #include "ed.h"

+#include "extern.h"

 
 /*
  * Places a new file in the buffer to be editted. The current contents
 
 /*
  * Places a new file in the buffer to be editted. The current contents


@@ -23,126 +66,136 @@ static char sccsid[] = "@(#)e.c   5.1 (Berkeley) %G%";
 
 void
 e(inputt, errnum)
 
 void
 e(inputt, errnum)

-
-FILE *inputt;
-int *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;
+       int l_which;            /* which is it? 'e' or 'E' */
+       char *l_temp;
+
+       l_which = ss;
+
+       l_temp = filename(inputt, errnum);
+       if (*errnum == 1) {
+               sigspecial++;
+               free(filename_current);
+               filename_current = l_temp;
+               sigspecial--;
+               if (sigint_flag && (!sigspecial))
+                       SIGINT_ACTION;
+       } 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 */
+       }
+
+       /* An 'e' clears all traces of last doc'mt, even in 'g'. */
+       u_clr_stk();
+       if (*errnum < 0)
+               return;
+       *errnum = 0;

 #ifdef STDIO
 #ifdef STDIO

-  if (fhtmp > NULL)
-    {
-      fclose(fhtmp);
-      unlink(template);
-    }
+       if (fhtmp > NULL) {
+               fclose(fhtmp);
+               unlink(template);
+       }

 #endif
 #ifdef DBI
 #endif
 #ifdef DBI

-  if (dbhtmp != NULL)
-    {
-      (dbhtmp->close)(dbhtmp);
-      unlink(template);
-    }
+       if (dbhtmp != NULL) {
+               (dbhtmp->close) (dbhtmp);
+               unlink(template);
+       }

 #endif
 
 #endif
 

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

 
 

+       *errnum = 1;
+}

 
 

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

 void
 e2(inputt, errnum)
 void
 e2(inputt, errnum)

-
-FILE *inputt;
-int *errnum;
-
+       FILE *inputt;
+       int *errnum;

 {
 {

-#ifdef DBI
-  RECNOINFO l_dbaccess;
+       char *tmp_path;
+
+       sigspecial++;
+#ifndef MEMORY
+       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 */
+       tmp_path = getenv("TMPDIR");
+       sprintf(template, "%s/_4.4bsd_ed_XXXXXX", tmp_path ? tmp_path : "/tmp");
+       mktemp(template);

 #endif
 #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
 #ifdef STDIO

-  fhtmp = fopen(template, "w+");
-  file_seek = 0;
+       fhtmp = fopen(template, "w+");
+       if (fhtmp == NULL) {
+               ed_exit(5); /* unable to create buffer */
+       }
+       fwrite("R", sizeof(char), 1, fhtmp);
+       file_seek = 0;

 #endif
 #ifdef DBI
 #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);
+       /* open using btree only, recno will mess things up
+        * because of garbage collection and how recno operates
+        * with delete.
+        */
+       dbhtmp = dbopen(template, O_CREAT | O_RDWR,
+           S_IRUSR | S_IWUSR, (DBTYPE) DB_BTREE, NULL);
+       if (dbhtmp == NULL) {
+               ed_exit(5); /* unable to create buffer */
+       }

 #endif
 #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 */
+       current = top;
+       Start = top;
+       End = bottom;
+
+       sigspecial--;
+       if (sigint_flag &&(!sigspecial))
+               SIGINT_ACTION;
+
+       change_flag = 1;
+       if (name_set) {
+               /* So 'r' knows the filename is already read in. */
+               filename_flag = 1;
+               r(inputt, errnum);
+               gut_num = line_number(bottom) + 512;
+               if (gut == NULL) {
+                       gut = malloc(sizeof(LINE **) * gut_num);
+                       if (gut == NULL) {
+                               *errnum = -1;
+                               strcpy(help_msg, "out of memory error");
+                               return;
+                       }
+               }
+       }
+       change_flag = 0;
+       *errnum = 1;
+}