1 files changed, 0 insertions, 67 deletions
diff --git a/src/isode/psap/pe_cmp.c b/src/isode/psap/pe_cmp.c
deleted file mode 100644
index c9ae50f9f2..0000000000
--- a/src/isode/psap/pe_cmp.c
+++ /dev/null
@@ -1,67 +0,0 @@
-/* pe_cmp.c - compare two presentation elements */
-
-/* 
- * isode/psap/pe_cmp.c
- */
-
-/*
- *				  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"
-
-/*  */
-
-int	pe_cmp (p, q)
-register PE	p,
-		q;
-{
-    register int    i;
-
-    if (p == NULLPE)
-	return (q ? 1 : 0);
-    if (q == NULLPE
-	    || p -> pe_class != q -> pe_class
-	    || p -> pe_form != q -> pe_form
-	    || p -> pe_id != q -> pe_id)
-	return 1;
-
-/* XXX: perhaps compare pe_context ??? */
-
-    switch (p -> pe_form) {
-	case PE_FORM_ICONS:
-	    if (p -> pe_ilen != q -> pe_ilen)
-		return 1;
-	    /* else fall */
-	case PE_FORM_PRIM: 
-	    if (i = p -> pe_len) {
-		if (i != q -> pe_len || PEDcmp (p -> pe_prim, q -> pe_prim, i))
-		    return 1;
-	    }
-	    else
-		if (q -> pe_len)
-		    return 1;
-	    return 0;
-
-	case PE_FORM_CONS: 
-	    for (p = p -> pe_cons, q = q -> pe_cons;
-		    p;
-		    p = p -> pe_next, q = q -> pe_next)
-		if (pe_cmp (p, q))
-		    return 1;
-	    return (q ? 1 : 0);
-
-	default:		/* XXX */
-	    return 1;
-    }
-}