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

cde/lib/tt/mini_isam/iskeyaux.c

@@ -0,0 +1,98 @@
+/*%%  (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: iskeyaux.c /main/3 1995/10/23 11:41:11 rswiston $ 			 				 */
+#ifndef lint
+static char sccsid[] = "@(#)iskeyaux.c 1.7 89/07/27 Copyr 1988 Sun Micro";
+#endif
+/*
+ * Copyright (c) 1988 by Sun Microsystems, Inc.
+ */
+
+
+/*
+ * iskeyaux.c
+ *
+ * Description:
+ *	Auxiliary key related functions
+ */
+
+#include "isam_impl.h"
+
+Blkno _isgetfreekpage();
+
+/* 
+ * _isindex_extract() 
+ *
+ * Extract key parts from record buffer
+ */
+
+void
+_iskey_extract (pkeydesc2, recp, keyp) 
+    Keydesc2	*	pkeydesc2;
+    char		*recp;	
+    char		*keyp;
+{
+    register int 	i;
+    register struct keypart2 *ppart;
+    int 		nparts;
+
+    nparts = pkeydesc2->k2_nparts;
+    ppart = pkeydesc2->k2_part;
+
+    /*
+     * XXX - This is a kludge to fix a problem with keys of an odd (ODD as
+     * not even) length that are extended to the nearest multiple of 2.
+     *
+     * It would be better to use bzero() here and not to call it in
+     * add1key etc. But this change was done just during the FCS process
+     * and may be robust even though it's not the cleanest thing under
+     * the sun.
+     */
+
+    keyp[pkeydesc2->k2_len - 1] = '\0';
+
+    for (i = 0; i < nparts; i++) {
+	memcpy( keyp + ppart->kp2_offset,recp + ppart->kp2_start,
+	       ppart->kp2_leng);
+	ppart++;
+    }
+}
+
+/*
+ * _allockpage()
+ *
+ * Allocate an initialize new key page.
+ */
+
+Bufhdr *
+_allockpage(fcb, capac, level, blkno)
+    Fcb			*fcb;
+    int			capac;
+    int			level;
+    Blkno		*blkno;		     /* Output parameter */
+{
+    Bufhdr		*pbufhdr;
+    char		*p;
+
+    *blkno = _isindfreel_alloc(fcb);
+
+    /* Fix the block in cache */
+    pbufhdr = _isdisk_fix(fcb, fcb->indfd, *blkno, ISFIXNOREAD);
+    
+    p = pbufhdr->isb_buffer;
+
+    memset(p, 0, ISPAGESIZE);
+
+    /* Mark page as B-tree page. */
+    stshort((short)PT_INDEX, p + BT_TYPE_OFF);
+
+    /* Store page capacity. */
+    stshort((short)capac, p + BT_CAPAC_OFF);
+
+    /* Store B-tree level. */
+    stshort((short)level, p + BT_LEVEL_OFF);
+
+    return (pbufhdr);
+}