1 files changed, 57 insertions, 0 deletions
diff --git a/src/isode/psap/prim2set.c b/src/isode/psap/prim2set.c
new file mode 100644
index 000000000..6640bc9d4
--- /dev/null
+++ b/src/isode/psap/prim2set.c
@@ -0,0 +1,57 @@
+/* prim2flag.c - presentation element to set */
+
+#ifndef	lint
+static char *rcsid = "$Header$";
+#endif
+
+/* 
+ * $Header$
+ *
+ *
+ * $Log$
+ * Revision 1.1  1994/06/10 03:33:52  eichin
+ * autoconfed isode for kerberos work
+ *
+ * Revision 1.1  1994/06/01 00:38:05  eichin
+ * add psap too
+ *
+ * Revision 8.0  91/07/17  12:47:05  isode
+ * Release 7.0
+ * 
+ * 
+ */
+
+/*
+ *				  NOTICE
+ *
+ *    Acquisition, use, and distribution of this module and related
+ *    materials are subject to the restrictions of a license agreement.
+ *    Consult the Preface in the User's Manual for the full terms of
+ *    this agreement.
+ *
+ */
+
+
+/* LINTLIBRARY */
+
+#include <stdio.h>
+#include "psap.h"
+
+/*  */
+
+PE	prim2set (pe)
+register PE	pe;
+{
+    register int    i;
+    register PE	    p;
+
+    if (pe -> pe_form != PE_FORM_CONS)
+	return pe_seterr (pe, PE_ERR_CONS, NULLPE);
+
+    for (i = 0, p = pe -> pe_cons; p; p = p -> pe_next)
+	p -> pe_offset = i++;
+
+    pe -> pe_cardinal = i;
+
+    return pe;
+}