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

cde/programs/dtcm/libDtCmP/resource.c

@@ -0,0 +1,258 @@
+/*******************************************************************************
+**
+**  resource.c
+**
+**  $XConsortium: resource.c /main/3 1995/11/03 10:38:34 rswiston $
+**
+**  RESTRICTED CONFIDENTIAL INFORMATION:
+**
+**  The information in this document is subject to special
+**  restrictions in a confidential disclosure agreement between
+**  HP, IBM, Sun, USL, SCO and Univel.  Do not distribute this
+**  document outside HP, IBM, Sun, USL, SCO, or Univel without
+**  Sun's specific written approval.  This document and all copies
+**  and derivative works thereof must be returned or destroyed at
+**  Sun's request.
+**
+**  Copyright 1993 Sun Microsystems, Inc.  All rights reserved.
+**
+*******************************************************************************/
+
+/*									*
+ * (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. 				*
+ */
+
+#ifndef lint
+static  char sccsid[] = "@(#)resource.c 1.9 94/11/07 Copyr 1993 Sun Microsystems, Inc.";
+#endif
+
+#include <EUSCompat.h>
+#include <stdlib.h>
+#include <stdio.h>
+#include <string.h>
+#include <sys/param.h>
+#include "resource.h"
+#include "util.h"
+
+static const char       COMMENT         = '#';
+static const char       CONTINUATION    = '\\';
+
+#define MAXPROPLEN	MAXNAMELEN * 6
+
+/*
+**  free_resources will step the list of resources and free the allocated space
+*/
+extern void
+free_resources(Resource *r) {
+	if (r) {
+		free_resources(r->next);
+		if (r->resource_name)
+			free(r->resource_name);
+		if (r->resource_value)
+			free(r->resource_value);
+		free(r);
+	}
+}
+
+/*
+**
+**  get_resource will scan the list of resources for the resource
+**  class.application.name (example:  deskset.calendar.start_time) passed and
+**  return that resource's value if found, otherwise, it will return the
+**  passed default.
+**
+*/
+extern char*
+get_resource(Resource *r, char *class_name, char *app_name, char *name,
+	char *default_value)
+{
+	char	*buf, *ret;
+
+	buf = (char *)ckalloc(cm_strlen(class_name) + cm_strlen(app_name)
+		+ cm_strlen(name) + 3);
+	sprintf(buf, "%s.%s.%s", class_name, app_name, name);
+	ret = get_resource_by_val(r, buf, default_value);
+	free(buf);
+	return ret;
+}
+
+/*
+**  Same as get_resource except it just takes the entire resource name instead
+**  of the class.application.name triplet.
+*/
+extern char*
+get_resource_by_val(Resource *r, char *name, char *default_value) {
+	Resource	*step = r;
+
+	while(step && strcasecmp(step->resource_name, name) != 0)
+		step = step->next;
+	if (!step)
+		return default_value;
+	return step->resource_value;
+}
+
+/*
+**  Given a file name, read the list of resources in that file into the
+**  passed Resource instance pointer.
+*/
+extern boolean_t
+load_resources(Resource **r, char *file_name) {
+	int		idx;
+	char		*c_ptr, buffer[MAXPROPLEN], value[MAXPROPLEN];
+	FILE		*rc_file;
+	boolean_t	scan_complete, end_of_file = B_FALSE;
+	Resource	*last = *r, *new_resource;
+
+	if (!(rc_file = fopen(file_name, "r")))
+                return B_FALSE;
+
+	while(last && last->next)
+		last = last->next;
+	while (!end_of_file && fgets(buffer, MAXPROPLEN-1, rc_file)) {
+		if (!(c_ptr = strchr(buffer, ':')))
+			continue;
+
+		/*
+		**  Add the new property to the list
+		*/
+		*c_ptr = '\0';
+		new_resource = (Resource *)ckalloc(sizeof(Resource));
+		new_resource->resource_name = (char *)cm_strdup(buffer);
+		new_resource->resource_value = NULL;
+		new_resource->next = NULL;
+		if (last)
+			last->next = new_resource;
+		else
+		        *r = new_resource;
+		last = new_resource;
+
+		/*
+		**  Initialize and read the property value
+		*/
+		idx = 0;
+                scan_complete = B_FALSE;
+		memset(value, '\0', MAXPROPLEN);
+                c_ptr++;
+
+		while (!scan_complete) {
+			/*
+			**  For the current buffer, skip the beginning white
+			**  space
+			*/
+			while (*c_ptr != '\0' && *c_ptr != '\n'
+				&& (*c_ptr == ' ' || *c_ptr == '\t'))
+				c_ptr++;
+			if (*c_ptr == '\0' || *c_ptr == '\n') {
+				scan_complete = B_TRUE;
+				continue;
+			}
+
+			/*
+			**  We've found a real character, save characters until
+			**  we find a comment, continuation, end of line, or we
+			**  run out of space.
+			*/
+                        while (*c_ptr != '\0' && *c_ptr != '\n' &&
+				(idx < MAXPROPLEN - 2) && *c_ptr != COMMENT &&
+				*c_ptr != CONTINUATION)
+				value[idx++] = *c_ptr++;
+ 
+			/*
+			**  Anything but continuation, cork value and bail
+			*/
+			if (*c_ptr != CONTINUATION) {
+				value[idx] = '\0';
+                                scan_complete = B_TRUE;
+				continue;
+			}
+
+			/*
+			**  A continued line.  Providing we can read another
+			**  line from the file, reset the buffer, insert a
+			**  space, and continue the loop ...
+			*/
+			if (!fgets(buffer, MAXPROPLEN, rc_file)) {
+				value[idx] = '\0';
+				end_of_file = scan_complete = B_TRUE;
+				continue;
+			}
+
+			value[idx++] = ' ';
+                        c_ptr = buffer;
+		}
+		new_resource->resource_value = (char *)cm_strdup(value);
+        }
+	fclose(rc_file);
+        return B_TRUE;
+}
+
+/*
+**  This function will write the resources to disk
+*/
+extern boolean_t
+save_resources(Resource *r, char *file_name) {
+	char		buf[MAXPROPLEN + 3];
+	FILE		*rc_file;
+	Resource	*step = r;
+
+	if (!(rc_file = fopen(file_name, "w")))
+                return B_FALSE;
+	while(step) {
+		sprintf(buf, "%s:\t%s\n",
+			step->resource_name, step->resource_value);
+		fputs(buf, rc_file);
+		step = step->next;
+	}
+	fclose(rc_file);
+	return B_TRUE;
+}
+
+/*
+**  This set's the value for a specified resource
+*/
+extern boolean_t
+set_resource(Resource **r, char *class_name, char *app_name, char *name,
+	char *value)
+{
+	boolean_t	ret;
+	char		*buf;
+
+	buf = (char *)ckalloc(cm_strlen(class_name) + cm_strlen(app_name)
+		+ cm_strlen(name) + 3);
+	sprintf(buf, "%s.%s.%s", class_name, app_name, name);
+	ret = set_resource_by_val(r, buf, value);
+	free(buf);
+	return ret;
+}
+
+/*
+**  As as set_resource except the name passed in the full name
+*/
+extern boolean_t
+set_resource_by_val(Resource **r, char *name, char *value) {
+	Resource	*step, *last;
+
+	last = step = *r;
+	while(step && strcasecmp(step->resource_name, name) != 0)
+		step = step->next;
+	if (step)
+		free(step->resource_value);
+	else {
+		step = (Resource *)ckalloc(sizeof(Resource));
+		step->resource_name = (char *)cm_strdup(name);
+		step->next = NULL;
+
+		while(last && last->next)
+			last = last->next;
+		if (last)
+			last->next = step;
+		else
+		        *r = step;
+	}
+	step->resource_value = (char *)cm_strdup(value);
+
+	return B_TRUE;
+}