date and time created 82/01/18 19:02:37 by linton

SCCS-vsn: usr.bin/pascal/pdx/main.h 1.1

diff --git a/usr/src/usr.bin/pascal/pdx/main.h b/usr/src/usr.bin/pascal/pdx/main.h
new file mode 100644 (file)
index 0000000..82eef8c
--- /dev/null
+++ b/usr/src/usr.bin/pascal/pdx/main.h
@@ -0,0 +1,19 @@
+/* Copyright (c) 1982 Regents of the University of California */
+
+static char sccsid[] = "@(#)main.h 1.1 %G%";
+
+/*
+ * Definitions for main program.
+ *
+ * The main program just handles the command arguments and then
+ * gives control to the command module.  It's also the center of
+ * error recovery, since non-fatal errors longjmp into the main routine.
+ */
+
+BOOLEAN opt[26];       /* true if command line option given */
+
+#define option(c)      opt[(c)-'a']
+
+main();                        /* debugger main routine */
+init();                        /* read in source and object data */
+erecover();            /* does non-local goto for error recovery */