From df47ec00a867bc101e53a64f8703f3231143b067 Mon Sep 17 00:00:00 2001
From: CSRG <csrg@ucbvax.Berkeley.EDU>
Date: Sun, 24 Jun 1990 22:50:36 -0800
Subject: [PATCH] BSD 4_3_Reno development Work on file
 usr/src/kerberosIV/include/kparse.h Work on file usr/src/lib/libF77/complex

Synthesized-from: CSRG/cd2/4.3reno
---
 usr/src/kerberosIV/include/kparse.h | 93 +++++++++++++++++++++++++++++
 usr/src/lib/libF77/complex          |  2 +
 2 files changed, 95 insertions(+)
 create mode 100644 usr/src/kerberosIV/include/kparse.h
 create mode 100644 usr/src/lib/libF77/complex

diff --git a/usr/src/kerberosIV/include/kparse.h b/usr/src/kerberosIV/include/kparse.h
new file mode 100644
index 0000000000..46776403e9
--- /dev/null
+++ b/usr/src/kerberosIV/include/kparse.h
@@ -0,0 +1,93 @@
+/*
+ * $Source: /usr/src/kerberosIV/include/RCS/kparse.h,v $
+ * $Author: kfall $
+ * $Header: /usr/src/kerberosIV/include/RCS/kparse.h,v 4.6 90/06/25 20:50:23 kfall Exp $
+ *
+ * Copyright 1988 by the Massachusetts Institute of Technology.
+ *
+ * For copying and distribution information, please see the file
+ * <mit-copyright.h>.
+ *
+ * Include file for kparse routines.
+ */
+
+#ifdef	ATHENA
+#include <mit-copyright.h>
+#endif
+
+#ifndef KPARSE_DEFS
+#define KPARSE_DEFS
+
+/*
+ * values returned by fGetParameterSet() 
+ */
+
+#define PS_BAD_KEYWORD	  -2	/* unknown or duplicate keyword */
+#define PS_SYNTAX	  -1	/* syntax error */
+#define PS_OKAY		   0	/* got a complete parameter set */
+#define PS_EOF		   1	/* nothing more in the file */
+
+/*
+ * values returned by fGetKeywordValue() 
+ */
+
+#define KV_SYNTAX	 -2	/* syntax error */
+#define KV_EOF		 -1	/* nothing more in the file */
+#define KV_OKAY		  0	/* got a keyword/value pair */
+#define KV_EOL		  1	/* nothing more on this line */
+
+/*
+ * values returned by fGetToken() 
+ */
+
+#define GTOK_BAD_QSTRING -1	/* newline found in quoted string */
+#define GTOK_EOF	  0	/* end of file encountered */
+#define GTOK_QSTRING	  1	/* quoted string */
+#define GTOK_STRING	  2	/* unquoted string */
+#define GTOK_NUMBER	  3	/* one or more digits */
+#define GTOK_PUNK	  4	/* punks are punctuation, newline,
+				 * etc. */
+#define GTOK_WHITE	  5	/* one or more whitespace chars */
+
+/*
+ * extended character classification macros 
+ */
+
+#define ISOCTAL(CH) 	( (CH>='0')  && (CH<='7') )
+#define ISQUOTE(CH) 	( (CH=='\"') || (CH=='\'') || (CH=='\`') )
+#define ISWHITESPACE(C) ( (C==' ')   || (C=='\t') )
+#define ISLINEFEED(C) 	( (C=='\n')  || (C=='\r')  || (C=='\f') )
+
+/*
+ * tokens consist of any printable charcacter except comma, equal, or
+ * whitespace 
+ */
+
+#define ISTOKENCHAR(C) ((C>040) && (C<0177) && (C != ',') && (C != '='))
+
+/*
+ * the parameter table defines the keywords that will be recognized by
+ * fGetParameterSet, and their default values if not specified. 
+ */
+
+typedef struct {
+    char *keyword;
+    char *defvalue;
+    char *value;
+}       parmtable;
+
+#define PARMCOUNT(P) (sizeof(P)/sizeof(P[0]))
+
+extern int LineNbr;		/* current line # in parameter file */
+
+extern char ErrorMsg[];		/*
+				 * meaningful only when KV_SYNTAX,
+ 				 * PS_SYNTAX,  or PS_BAD_KEYWORD is
+				 * returned by fGetKeywordValue or
+				 * fGetParameterSet
+				 */
+
+extern char *strsave();		/* defined in this module */
+extern char *strutol();		/* defined in this module */
+
+#endif /* KPARSE_DEFS */
diff --git a/usr/src/lib/libF77/complex b/usr/src/lib/libF77/complex
new file mode 100644
index 0000000000..1bb1fb0baa
--- /dev/null
+++ b/usr/src/lib/libF77/complex
@@ -0,0 +1,2 @@
+typedef struct { float real, imag; } complex;
+typedef struct { double dreal, dimag; } dcomplex;
-- 
2.20.1