Initial revision

lang/m2/m2mm/options.c

@@ -0,0 +1,80 @@
+/*
+ * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
+ * See the copyright notice in the ACK home directory, in the file "Copyright".
+ *
+ * Author: Ceriel J.H. Jacobs
+ */
+
+/* U S E R   O P T I O N - H A N D L I N G */
+
+/* stripped down version from the one in the Modula-2 compiler */
+
+/* $Header$ */
+
+#include	<alloc.h>
+#include	"main.h"
+
+static int	ndirs = 1;
+
+DoOption(text)
+	register char *text;
+{
+	extern char *mflags;
+	extern char *suff;
+	extern char *compiler;
+
+	switch(*text++)	{
+
+	case 'I' :
+		AddInclDir(text);
+		break;
+	
+	case 'M':
+		mflags = text;
+		break;
+
+	case 'C':
+		compiler = text;
+		break;
+
+	case 'S':
+		suff = text;
+		break;
+
+	default:
+		Gerror("Unrecognized option: -%s", text-1);
+		break;
+	}
+}
+
+AddInclDir(text)
+	char *text;
+{
+	register int i;
+	register char *new = text;
+
+	if (! *text) {
+		DEFPATH[ndirs] = 0;
+		return;
+	}
+
+	if (++nDEF > mDEF) {
+		char **n = (char **)
+			Malloc((unsigned)((10+mDEF)*sizeof(char *)));
+
+		for (i = 0; i < mDEF; i++) {
+			n[i] = DEFPATH[i];
+		}
+		free((char *) DEFPATH);
+		DEFPATH = n;
+		mDEF += 10;
+	}
+
+	i = ndirs++;
+	while (new) {
+		register char *tmp = DEFPATH[i];
+
+		DEFPATH[i++] = new;
+		new = tmp;
+	}
+}