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

cde/lib/tt/mini_isam/isfname.c

@@ -0,0 +1,108 @@
+/*%%  (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: isfname.c /main/3 1995/10/23 11:40:04 rswiston $ 			 				 */
+#ifndef lint
+static char sccsid[] = "@(#)isfname.c 1.3 89/07/17 Copyr 1988 Sun Micro";
+#endif
+/*
+ * Copyright (c) 1988 by Sun Microsystems, Inc.
+ */
+
+/*
+ * isfname.c
+ *
+ * Description:
+ *	Functions to translate ISAM file name to .rec, .ind, and .var file
+ *	names. Also, several auxiliary functions that deal with path names.
+ *
+ */
+
+#include "isam_impl.h"
+
+void _removelast();
+char *_lastelement();
+
+/*
+ * _makedat_isfname(isfname)
+ *
+ * Return path to .rec file corresponding to the ISAM file isfname.
+ * Conversion is done in place.
+ */
+
+void
+_makedat_isfname(isfname)
+    char	*isfname;
+{
+    /* Append .rec */
+    (void) strcat(isfname, DAT_SUFFIX);
+}
+
+/*
+ * _makeind_isfname(isfname)
+ *
+ * Return path to .ind file corresponding to the ISAM file isfname.
+ * Conversion is done in place.
+ */
+
+void
+_makeind_isfname(isfname)
+    char	*isfname;
+{
+    /* Append .ind */
+    (void) strcat(isfname, IND_SUFFIX);
+}
+
+/*
+ * _makevar_isfname(isfname)
+ *
+ * Return path to .var file corresponding to the ISAM file isfname.
+ * Conversion is done in place.
+ */
+
+void
+_makevar_isfname(isfname)
+    char	*isfname;
+{
+    /* Append .var */
+    (void) strcat(isfname, VAR_SUFFIX);
+}
+
+
+/*
+ * _removelast(path)
+ *
+ * Remove last element of path. E.g. /usr/db/part yields /usr/db.
+ */
+
+void
+_removelast(path)
+    char		*path;
+{
+    register char	*p;
+
+    for (p = path + strlen(path); *--p != '/' && p >= path; ) 
+	*p = '\0';
+}
+
+/*
+ * _lastelement(path)
+ *
+ * Return pointer to the last element in the path. 
+ * E.g.: _lastelement("/usr/temp") returns "temp".
+ */
+
+char *
+_lastelement(path)
+    char	*path;
+{
+    register	char	*p;
+    
+    p = path + strlen(path);
+
+    while (*--p != '/' && p > path)
+	{ ; }
+
+    return ((*p == '/') ? (p + 1) : p);
+}