Initial import of the CDE 2.1.30 sources from the Open Group.

cde/lib/tt/mini_isam/isfcbindex.c

@@ -0,0 +1,219 @@
+/*%%  (c) Copyright 1993, 1994 Hewlett-Packard Company			 */
+/*%%  (c) Copyright 1993, 1994 International Business Machines Corp.	 */
+/*%%  (c) Copyright 1993, 1994 Sun Microsystems, Inc.			 */
+/*%%  (c) Copyright 1993, 1994 Novell, Inc. 				 */
+/*%%  $XConsortium: isfcbindex.c /main/3 1995/10/23 11:38:43 rswiston $ 			 				 */
+#ifndef lint
+static char sccsid[] = "@(#)isfcbindex.c 1.3 89/07/17 Copyr 1988 Sun Micro";
+#endif
+/*
+ * Copyright (c) 1988 by Sun Microsystems, Inc.
+ */
+
+/*
+ * isfcbindex.c
+ *
+ * Description: 
+ *	Functions that deal with the key descriptors in FCB
+ *	
+ *
+ */
+
+#include "isam_impl.h"
+
+Static int _keypart2cmp();
+/*
+ * _isfcb_primkeyadd(fcb, keydesc2)
+ *
+ * Add priamry key descriptor to FCB.
+ *
+ */
+
+int
+_isfcb_primkeyadd(fcb, keydesc2)
+    Fcb			*fcb;
+    Keydesc2		*keydesc2;
+{
+    /*
+     * Assign keyid.
+     */
+    keydesc2->k2_keyid = ++fcb->lastkeyid;
+
+    fcb->keys[0] = *keydesc2;
+
+    return (ISOK);
+}
+
+/*
+ * _isfcb_primkeyel(fcb)
+ *
+ * Delete primary key
+ *
+ */
+
+int
+_isfcb_primkeydel(fcb)
+    Fcb			*fcb;
+{
+    if (FCB_NOPRIMARY_KEY(fcb))
+	return (EBADARG);
+
+    memset((char *)&fcb->keys[0], 0, sizeof(fcb->keys[0]));
+
+    return (ISOK);
+}
+
+/*
+ * _isfcb_altkeyadd(fcb, keydesc2)
+ *
+ * Add alternate key descriptor to FCB.
+ *
+ */
+
+int
+_isfcb_altkeyadd(fcb, keydesc2)
+    Fcb			*fcb;
+    Keydesc2		*keydesc2;
+{
+    assert (fcb->nkeys < MAXNKEYS); 
+
+    /*
+     * Assign keyid.
+     */
+    keydesc2->k2_keyid = ++fcb->lastkeyid;
+
+    /*
+     * Reallocate fcb->keys table.
+     */
+    fcb->keys = (Keydesc2 *) 
+	_isrealloc((char *)fcb->keys, 
+		   (unsigned) (sizeof(Keydesc2) * (fcb->nkeys + 1)));
+
+    fcb->keys[fcb->nkeys] = *keydesc2;
+
+    fcb->nkeys++;
+    return (ISOK);
+}
+
+
+/*
+ * pkeydesc2 = _isfcb_findkey(fcb, keydesc2)
+ *
+ * Find key descriptor.
+ *
+ */
+
+Keydesc2 *
+_isfcb_findkey(fcb, keydesc2)
+    register Fcb	*fcb;
+    Keydesc2		*keydesc2;
+{
+    int                 nkeys = fcb->nkeys;
+    register Keydesc2	*kp2;
+    register int	j, i;
+    int			nparts;
+
+    for (i = 0; i < nkeys; i++) {
+	kp2 = fcb->keys + i;
+
+	if (keydesc2->k2_nparts == kp2->k2_nparts) {
+	    
+	    nparts = keydesc2->k2_nparts;
+	    for (j = 0; j < nparts; j++) {
+		if (_keypart2cmp(keydesc2->k2_part + j, kp2->k2_part + j) != 0)
+		    break;
+	    }	
+	    
+	    if (j == nparts)
+		return (kp2);
+	}
+    }  
+    
+    return ((struct keydesc2 *) 0);	     /* Key descriptor not found */
+}
+
+/*
+ * pkeydesc2 = _isfcb_altkeydel(fcb, keydesc2)
+ *
+ * Delete key descriptor from FCB.
+ *
+ */
+
+int
+_isfcb_altkeydel(fcb, keydesc2)
+    register Fcb	*fcb;
+    Keydesc2		*keydesc2;
+{
+    int                 nkeys = fcb->nkeys;
+    register int        i, j;
+    register Keydesc2	*kp2;
+    int			nparts;
+
+    for (i = 0; i < nkeys; i++) {
+	kp2 = fcb->keys + i;
+
+	if (keydesc2->k2_nparts == kp2->k2_nparts) {
+	    
+	    nparts = keydesc2->k2_nparts;
+	    for (j = 0; j < nparts; j++) {
+		if (_keypart2cmp(keydesc2->k2_part + j, kp2->k2_part + j) != 0)
+		    break;
+	    }	
+	    
+	    if (j == nparts)
+		break;			     /* Key found */
+	}
+    }  
+
+    if (i >= nkeys)
+	return (EBADKEY);		     /* Key descriptor not found */
+
+    if (i == 0) {
+	return (EPRIMKEY);		     /* Cannot delete primary key */
+    }
+    
+    /*
+     * Shift the end of the table toward the beginning to delete the entry.
+     */
+    if (i < nkeys - 1) {
+	memcpy( (char *)(fcb->keys + i),(char *)(fcb->keys + i + 1), 
+	      (nkeys - 1 - i) * sizeof (fcb->keys[0]));
+    }
+
+    fcb->nkeys--;
+
+    return (ISOK);
+}
+
+/* compare key parts */
+Static int
+_keypart2cmp(l,r)
+    register struct keypart2 *l, *r;
+{
+    return !(l->kp2_type == r->kp2_type && l->kp2_start == r->kp2_start &&
+	     l->kp2_leng == r->kp2_leng);
+}
+
+/*
+ * pkeydesc2 = _isfcb_indfindkey(fcb, keyind)
+ *
+ * Find key descriptor by its keyind value.
+ *
+ */
+
+Keydesc2 *
+_isfcb_indfindkey(fcb, keyid)
+    register Fcb	*fcb;
+    int			keyid;
+{
+    int                 nkeys = fcb->nkeys;
+    register Keydesc2	*keys = fcb->keys;
+    register int	i;
+    
+    for (i = 0; i < nkeys; i++) {
+	if (keys[i].k2_keyid == keyid)
+	    break;
+    }  
+    
+    return ((i == nkeys) ? NULL : keys + i);
+}