X-Git-Url: https://pd.if.org/git/?p=pd_readline;a=blobdiff_plain;f=mg%2Fautoexec.c;fp=mg%2Fautoexec.c;h=ad3b08d85609939a712e45bedbbc5234321eae17;hp=0000000000000000000000000000000000000000;hb=a9843085ec916c175bd245a8398f30e6cc03f984;hpb=26fe4e09c6c3c250334fdeed60ce3061febecde2

diff --git a/mg/autoexec.c b/mg/autoexec.c
new file mode 100644
index 0000000..ad3b08d
--- /dev/null
+++ b/mg/autoexec.c
@@ -0,0 +1,111 @@
+/* $OpenBSD: autoexec.c,v 1.14 2007/02/08 21:40:03 kjell Exp $ */
+/* this file is in the public domain */
+/* Author: Vincent Labrecque <vincent@openbsd.org>	April 2002 */
+
+#include "def.h"
+#include "funmap.h"
+
+#include <fnmatch.h>
+
+struct autoexec {
+	SLIST_ENTRY(autoexec) next;	/* link in the linked list */
+	const char	*pattern;	/* Pattern to match to filenames */
+	PF		 fp;
+};
+
+static SLIST_HEAD(, autoexec)	 autos;
+static int			 ready;
+
+
+#define AUTO_GROW 8
+/*
+ * Return a NULL terminated array of function pointers to be called
+ * when we open a file that matches <fname>.  The list must be free(ed)
+ * after use.
+ */
+PF *
+find_autoexec(const char *fname)
+{
+	PF		*pfl, *npfl;
+	int		 have, used;
+	struct autoexec *ae;
+
+	if (!ready)
+		return (NULL);
+
+	pfl = NULL;
+	have = 0;
+	used = 0;
+	SLIST_FOREACH(ae, &autos, next) {
+		if (fnmatch(ae->pattern, fname, 0) == 0) {
+			if (used >= have) {
+				npfl = realloc(pfl, (have + AUTO_GROW + 1) *
+				    sizeof(PF));
+				if (npfl == NULL)
+					panic("out of memory");
+				pfl = npfl;
+				have += AUTO_GROW;
+			}
+			pfl[used++] = ae->fp;
+		}
+	}
+	if (used)
+		pfl[used] = NULL;
+
+	return (pfl);
+}
+
+int
+add_autoexec(const char *pattern, const char *func)
+{
+	PF		 fp;
+	struct autoexec *ae;
+
+	if (!ready) {
+		SLIST_INIT(&autos);
+		ready = 1;
+	}
+	fp = name_function(func);
+	if (fp == NULL)
+		return (FALSE);
+	ae = malloc(sizeof(*ae));
+	if (ae == NULL)
+		return (FALSE);
+	ae->fp = fp;
+	ae->pattern = strdup(pattern);
+	if (ae->pattern == NULL) {
+		free(ae);
+		return (FALSE);
+	}
+	SLIST_INSERT_HEAD(&autos, ae, next);
+
+	return (TRUE);
+}
+
+/*
+ * Register an auto-execute hook; that is, specify a filename pattern
+ * (conforming to the shell's filename globbing rules) and an associated
+ * function to execute when a file matching the specified pattern
+ * is read into a buffer. 
+*/
+/* ARGSUSED */
+int
+auto_execute(int f, int n)
+{
+	char	patbuf[128], funcbuf[128], *patp, *funcp;
+	int	s;
+
+	if ((patp = eread("Filename pattern: ", patbuf, sizeof(patbuf),
+	    EFNEW | EFCR)) == NULL)
+		return (ABORT);
+	else if (patp[0] == '\0')
+		return (FALSE);
+	if ((funcp = eread("Execute: ", funcbuf, sizeof(funcbuf),
+	    EFNEW | EFCR | EFFUNC)) == NULL)
+		return (ABORT);
+	else if (funcp[0] == '\0')
+		return (FALSE);
+	if ((s = add_autoexec(patp, funcp)) != TRUE)
+		return (s);
+	return (TRUE);
+}