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

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

diff --git a/usr/src/contrib/ed/bang.c b/usr/src/contrib/ed/bang.c
new file mode 100644 (file)
index 0000000..683bccb
--- /dev/null
+++ b/usr/src/contrib/ed/bang.c
@@ -0,0 +1,81 @@
+/*-
+ * 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[] = "@(#)bang.c     5.1 (Berkeley) %G%";
+#endif /* not lint */
+
+#include "ed.h"
+
+/*
+ * Execute a command in sh (and always sh). For those wondering the
+ * proper name for '!' _is_ bang.
+ */
+
+void
+bang(inputt, errnum)
+
+FILE *inputt;
+int *errnum;
+
+{
+  static char l_shellcmd[FILENAME_LEN]; /* static for "!!" */
+  int l_cnt=0, l_esc=0;
+  static int l_cnt_last_pos; /* for "!!", offset in _static_ l_shellcmd */
+
+  while (1)
+       {
+         if (sigint_flag)
+           SIGINT_ACTION;
+         ss = getchar();
+         if ((ss == '\\') && (l_esc == 0))
+           {
+             ss = getchar();
+             l_esc = 1;
+           }
+         else
+           l_esc = 0;
+         if ((ss == '\n') || (ss == EOF))
+           {
+             if (l_cnt==0)
+               {
+                 strcpy(help_msg, "no shell command given");
+                 *errnum = -1;
+                 ungetc('\n', inputt);
+                 return;
+               }
+             l_shellcmd[l_cnt] = '\0';
+             break;
+           }
+         else if ((ss == '!') && (l_esc == 0))
+           l_cnt = l_cnt_last_pos;
+         else if ((ss == '%') && (l_esc == 0))
+           {
+             l_shellcmd[l_cnt] = '\0';
+             strcat(l_shellcmd, filename_current);
+             l_cnt = l_cnt + strlen(filename_current);
+           }
+         else
+           l_shellcmd[l_cnt++] = ss;
+         if (l_cnt >= FILENAME_LEN)
+           {
+             strcpy(help_msg, "shell command too long");
+             *errnum = -1;
+             ungetc('\n', inputt);
+             return;
+           }
+       } /* end-while(1) */
+
+  system(l_shellcmd);
+  if (explain_flag != 0)  /* for the -s option */
+    printf("!\n");
+  l_cnt_last_pos = l_cnt;
+  *errnum = 0;
+} /* end-bang */