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

cde/lib/tt/mini_isam/isperm.c

@@ -0,0 +1,79 @@
+/*%%  (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: isperm.c /main/3 1995/10/23 11:43:03 rswiston $ 			 				 */
+#ifndef lint
+static char sccsid[] = "@(#)isperm.c 1.3 89/07/17 Copyr 1988 Sun Micro";
+#endif
+/*
+ * Copyright (c) 1988 by Sun Microsystems, Inc.
+ */
+
+/*
+ * isperm.c
+ *
+ * Description:
+ *	Extract permissions from mode functions.
+ */
+
+#include "isam_impl.h"
+
+
+/*
+ * _getopenmode(mode)
+ *
+ * Extract open mode (ISINPUT, ISOUTPUT, ISINOUT) from mode.
+ */
+
+enum openmode
+_getopenmode(mode)
+    int		mode;
+{
+    switch (mode & ISOPENMODE) {
+    case ISINPUT:
+	return (OM_INPUT);
+    case ISOUTPUT:
+	return (OM_OUTPUT);
+    case ISINOUT:
+	return (OM_INOUT);
+    default:
+	return (OM_BADMODE);
+    }
+}
+
+/*
+ * _getreadmode(mode)
+ *
+ * Extract read mode from mode.
+ */
+
+enum readmode
+_getreadmode(mode)
+    int		mode;
+{
+    switch (mode & ISREADMODE) {
+    case ISFIRST:
+	return (RM_FIRST);
+    case ISLAST:
+	return (RM_LAST);
+    case ISNEXT:
+	return (RM_NEXT);
+    case ISPREV:
+	return (RM_PREV);
+    case ISCURR:
+	return (RM_CURR);
+    case ISEQUAL:
+	return (RM_EQUAL);
+    case ISGREAT:
+	return (RM_GREAT);
+    case ISGTEQ:
+	return (RM_GTEQ);
+    case ISLESS:
+	return (RM_LESS);
+    case ISLTEQ:
+	return (RM_LTEQ);
+    default:
+	return (RM_BADMODE);
+    }
+}