# Europagate, 1994-1995.
#
# $Log: Makefile,v $
-# Revision 1.6 1995/04/17 09:36:03 adam
+# Revision 1.7 1995/05/03 07:38:16 adam
+# New functions gw_res_int and gw_res_bool.
+#
+# Revision 1.6 1995/04/17 09:36:03 adam
# Minor changes.
#
# Revision 1.5 1995/03/27 12:51:10 adam
TPROG1=gw-log-test
TPROG2=gw-res-test
LIB=../lib/libres+log.a
-PO=gw-log.o gw-res.o
+PO=gw-log.o gw-res.o gw-res-bool.o gw-res-int.o
DEFS=$(INCLUDE)
all: $(TPROG1) $(TPROG2)
--- /dev/null
+/*
+ * Implementation of resource management.
+ *
+ * Europagate, 1994-1995.
+ *
+ * $Log: gw-res-bool.c,v $
+ * Revision 1.1 1995/05/03 07:38:18 adam
+ * New functions gw_res_int and gw_res_bool.
+ *
+ */
+#include <assert.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+#include <gw-log.h>
+#include <gw-res.h>
+
+int gw_res_bool (GwRes res, const char *name, int def_val)
+{
+ const char *cp;
+
+ cp = gw_res_get (res, name, NULL);
+ if (!cp)
+ return def_val;
+ if (strchr ("1TYty", *cp))
+ return 1;
+ return 0;
+}
+
--- /dev/null
+/*
+ * Implementation of resource management.
+ *
+ * Europagate, 1994-1995.
+ *
+ * $Log: gw-res-int.c,v $
+ * Revision 1.1 1995/05/03 07:38:18 adam
+ * New functions gw_res_int and gw_res_bool.
+ *
+ */
+#include <assert.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+#include <gw-log.h>
+#include <gw-res.h>
+
+int gw_res_int (GwRes res, const char *name, int def_val)
+{
+ const char *cp;
+ int val;
+
+ cp = gw_res_get (res, name, NULL);
+ if (!cp)
+ return def_val;
+ if (sscanf (cp, "%d", &val) == 1)
+ return val;
+ gw_log (GW_LOG_WARN, "res", "Missing integer for resource %s", name);
+ return def_val;
+}
+