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

diff --git a/mg/main.c b/mg/main.c
new file mode 100644
index 0000000..c93eb9f
--- /dev/null
+++ b/mg/main.c
@@ -0,0 +1,245 @@
+/*	$OpenBSD: main.c,v 1.67 2012/05/29 06:08:48 lum Exp $	*/
+
+/* This file is in the public domain. */
+
+/*
+ *	Mainline.
+ */
+
+#include "def.h"
+#include "kbd.h"
+#include "funmap.h"
+#include "macro.h"
+
+#include <err.h>
+
+int		 thisflag;			/* flags, this command	*/
+int		 lastflag;			/* flags, last command	*/
+int		 curgoal;			/* goal column		*/
+int		 startrow;			/* row to start		*/
+struct buffer	*curbp;				/* current buffer	*/
+struct buffer	*bheadp;			/* BUFFER list head	*/
+struct mgwin	*curwp;				/* current window	*/
+struct mgwin	*wheadp;			/* MGWIN listhead	*/
+char		 pat[NPAT];			/* pattern		*/
+
+static void	 edinit(struct buffer *);
+static __dead void usage(void);
+
+extern char	*__progname;
+extern void     closetags(void);
+
+static __dead void
+usage()
+{
+	fprintf(stderr, "usage: %s [-n] [-f mode] [+number] [file ...]\n",
+	    __progname);
+	exit(1);
+}
+
+int
+main(int argc, char **argv)
+{
+	char		*cp, *init_fcn_name = NULL;
+	PF		 init_fcn = NULL;
+	int	 	 o, i, nfiles;
+	int	  	 nobackups = 0;
+	struct buffer	*bp = NULL;
+
+	while ((o = getopt(argc, argv, "nf:")) != -1)
+		switch (o) {
+		case 'n':
+			nobackups = 1;
+			break;
+		case 'f':
+			if (init_fcn_name != NULL)
+				errx(1, "cannot specify more than one "
+				    "initial function");
+			init_fcn_name = optarg;
+			break;
+		default:
+			usage();
+		}
+	argc -= optind;
+	argv += optind;
+
+	maps_init();		/* Keymaps and modes.		*/
+	funmap_init();		/* Functions.			*/
+
+	/*
+	 * This is where we initialize standalone extensions that should
+	 * be loaded dynamically sometime in the future.
+	 */
+	{
+		extern void grep_init(void);
+		extern void theo_init(void);
+		extern void cmode_init(void);
+		extern void dired_init(void);
+
+		dired_init();
+		grep_init();
+		theo_init();
+		cmode_init();
+	}
+
+	if (init_fcn_name &&
+	    (init_fcn = name_function(init_fcn_name)) == NULL)
+		errx(1, "Unknown function `%s'", init_fcn_name);
+
+	vtinit();		/* Virtual terminal.		*/
+	dirinit();		/* Get current directory.	*/
+	edinit(bp);		/* Buffers, windows.		*/
+	ttykeymapinit();	/* Symbols, bindings.		*/
+
+	/*
+	 * doing update() before reading files causes the error messages from
+	 * the file I/O show up on the screen.	(and also an extra display of
+	 * the mode line if there are files specified on the command line.)
+	 */
+	update();
+
+	/* user startup file. */
+	if ((cp = startupfile(NULL)) != NULL)
+		(void)load(cp);
+
+	/* 
+	 * Now ensure any default buffer modes from the startup file are
+	 * given to any files opened when parsing the startup file.
+	 * Note *scratch* will also be updated.
+	 */
+	for (bp = bheadp; bp != NULL; bp = bp->b_bufp) {
+		bp->b_flag = defb_flag;
+		for (i = 0; i <= defb_nmodes; i++) {
+                	bp->b_modes[i] = defb_modes[i];
+        	}
+	}
+
+	/* Force FFOTHARG=1 so that this mode is enabled, not simply toggled */
+	if (init_fcn)
+		init_fcn(FFOTHARG, 1);
+
+	if (nobackups)
+		makebkfile(FFARG, 0);
+
+	for (nfiles = 0, i = 0; i < argc; i++) {
+		if (argv[i][0] == '+' && strlen(argv[i]) >= 2) {
+			long long lval;
+			const char *errstr;
+
+			lval = strtonum(&argv[i][1], INT_MIN, INT_MAX, &errstr);
+			if (argv[i][1] == '\0' || errstr != NULL)
+				goto notnum;
+			startrow = lval;
+		} else {
+notnum:
+			cp = adjustname(argv[i], FALSE);
+			if (cp != NULL) {
+				if (nfiles == 1)
+					splitwind(0, 1);
+
+				if ((curbp = findbuffer(cp)) == NULL) {
+					vttidy();
+					errx(1, "Can't find current buffer!");
+				}
+				(void)showbuffer(curbp, curwp, 0);
+				if (readin(cp) != TRUE)
+					killbuffer(curbp);
+				else {
+					/* Ensure enabled, not just toggled */
+					if (init_fcn_name)
+						init_fcn(FFOTHARG, 1);
+					nfiles++;
+				}
+			}
+		}
+	}
+
+	if (nfiles > 2)
+		listbuffers(0, 1);
+
+	/* fake last flags */
+	thisflag = 0;
+	for (;;) {
+		if (epresf == KCLEAR)
+			eerase();
+		if (epresf == TRUE)
+			epresf = KCLEAR;
+		if (winch_flag) {
+			do_redraw(0, 0, TRUE);
+			winch_flag = 0;
+		}
+		update();
+		lastflag = thisflag;
+		thisflag = 0;
+
+		switch (doin()) {
+		case TRUE:
+			break;
+		case ABORT:
+			ewprintf("Quit");
+			/* FALLTHRU */
+		case FALSE:
+		default:
+			ttbeep();
+			macrodef = FALSE;
+		}
+	}
+}
+
+/*
+ * Initialize default buffer and window. Default buffer is called *scratch*.
+ */
+static void
+edinit(struct buffer *bp)
+{
+	struct mgwin	*wp;
+
+	bheadp = NULL;
+	bp = bfind("*scratch*", TRUE);		/* Text buffer.          */
+	if (bp == NULL)
+		panic("edinit");
+
+	wp = new_window(bp);
+	if (wp == NULL)
+		panic("edinit: Out of memory");
+
+	curbp = bp;				/* Current buffer.	 */
+	wheadp = wp;
+	curwp = wp;
+	wp->w_wndp = NULL;			/* Initialize window.	 */
+	wp->w_linep = wp->w_dotp = bp->b_headp;
+	wp->w_ntrows = nrow - 2;		/* 2 = mode, echo.	 */
+	wp->w_rflag = WFMODE | WFFULL;		/* Full.		 */
+}
+
+/*
+ * Quit command.  If an argument, always quit.  Otherwise confirm if a buffer
+ * has been changed and not written out.  Normally bound to "C-X C-C".
+ */
+/* ARGSUSED */
+int
+quit(int f, int n)
+{
+	int	 s;
+
+	if ((s = anycb(FALSE)) == ABORT)
+		return (ABORT);
+	if (s == FALSE
+	    || eyesno("Modified buffers exist; really exit") == TRUE) {
+		vttidy();
+		closetags();
+		exit(GOOD);
+	}
+	return (TRUE);
+}
+
+/*
+ * User abort.  Should be called by any input routine that sees a C-g to abort
+ * whatever C-g is aborting these days. Currently does nothing.
+ */
+/* ARGSUSED */
+int
+ctrlg(int f, int n)
+{
+	return (ABORT);
+}