ING_DB

WEGA/contrib/ingres/dbs/src/amx_lib/AAmove.c

@@ -0,0 +1,31 @@
+# include	"AA_liba.h"
+
+
+/* scan_dom to dom */
+AAdmove(src, dst, len, pad)
+char		*src;
+register char	*dst;
+int		len;
+register int	pad;
+{
+	dst = AAbmove(src, dst, len);
+
+	while (--pad >= 0)
+		*dst++ = ' ';
+}
+
+
+/* scan_dom to c_var */
+AAvmove(src, dst, len)
+register char	*src;
+register char	*dst;
+register int	len;
+{
+	src += len++;
+	while (--len && *--src == ' ')
+		continue;
+	dst += len++;
+	*dst = 0;
+	while (--len)
+		*--dst = *src--;
+}

WEGA/contrib/ingres/dbs/src/amx_lib/AAsectup.c

@@ -0,0 +1,40 @@
+# include	"AA_liba.h"
+
+DESCXX		*AAp_desc;	/* global primary description   */
+char		*AAold_tuple;	/* global primary tuple pointer */
+
+char		AA_SET_ALL_KEYS[] = {1,1,1,1,1,1,1,0};
+
+
+AAsectup(itup, pdom, tidp)
+register char	*itup;	/* index tuple buffer */
+register char	*pdom;	/* indexed domains */
+long		*tidp;	/* value for "tidp" domain */
+{
+	register DESCXX		*p;	/* primary relation */
+	register char		*poff;	/* offset in primary tuple */
+	register int		len;
+
+	p = AAp_desc;
+
+# ifdef AMX_TRACE
+	AAtTfp(20, 0,
+# ifdef MSDOS
+		"index tuple\t`%.10s'\n",
+# else
+		"index tuple\t`%.14s'\n",
+# endif
+		p->xx_desc.reldum.relid);
+# endif
+
+	do			/* copy value of included domains */
+	{
+		len = *pdom;
+		poff = AAold_tuple + p->xx_desc.reloff[len];
+		len = ctou(p->xx_desc.relfrml[len]);
+		itup = AAbmove(poff, itup, len);
+	} while (*++pdom);
+
+	/* copy value for tidp */
+	AAbmove(tidp, itup, sizeof AA_TID);
+}