From b06e68ef1f6df69cc86d72356c3a002054a35fad Mon Sep 17 00:00:00 2001
From: Joel Sherrill <joel.sherrill@OARcorp.com>
Date: Thu, 17 Aug 1995 19:51:51 +0000
Subject: Numerous miscellaneous features incorporated from Tony Bennett
 (tbennett@divnc.com) including the following major additions:

  + variable length messages
  + named devices
  + debug monitor
  + association tables/variables
---
 c/src/lib/libmisc/assoc/assoc.c | 258 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 258 insertions(+)
 create mode 100644 c/src/lib/libmisc/assoc/assoc.c

(limited to 'c/src/lib/libmisc/assoc/assoc.c')

diff --git a/c/src/lib/libmisc/assoc/assoc.c b/c/src/lib/libmisc/assoc/assoc.c
new file mode 100644
index 0000000000..c18359ef8a
--- /dev/null
+++ b/c/src/lib/libmisc/assoc/assoc.c
@@ -0,0 +1,258 @@
+/*
+ *	@(#)assoc.c	1.4 - 95/08/02
+ *	
+ *
+ * assoc.c
+ *      rtems assoc routines
+ *
+ *  $Id$
+ */
+
+
+#include <rtems.h>
+#include "assoc.h"
+
+#include <stdio.h>              /* sprintf */
+#include <string.h>             /* strcat, strcmp */
+
+#define STREQ(a,b)      (strcmp((a), (b)) == 0)
+#define rtems_assoc_is_default(ap)  ((ap)->name && STREQ(ap->name, RTEMS_ASSOC_DEFAULT_NAME))
+
+rtems_assoc_t *
+rtems_assoc_ptr_by_name(
+    rtems_assoc_t *ap,
+    char *name
+  )
+{
+    rtems_assoc_t *default_ap = 0;
+
+    if (rtems_assoc_is_default(ap))
+        default_ap = ap++;
+    
+    for ( ; ap->name; ap++)
+        if (strcmp(ap->name, name) == 0)
+            return ap;
+
+    return default_ap;
+}
+
+rtems_assoc_t *
+rtems_assoc_ptr_by_local(
+    rtems_assoc_t *ap,
+    unsigned32     local_value
+  )
+{
+    rtems_assoc_t *default_ap = 0;
+
+    if (rtems_assoc_is_default(ap))
+        default_ap = ap++;
+    
+    for ( ; ap->name; ap++)
+        if (ap->local_value == local_value)
+            return ap;
+
+    return default_ap;
+}
+
+
+rtems_assoc_t *
+rtems_assoc_ptr_by_remote(
+    rtems_assoc_t *ap,
+    unsigned32     remote_value
+  )
+{
+    rtems_assoc_t *default_ap = 0;
+
+    if (rtems_assoc_is_default(ap))
+        default_ap = ap++;
+    
+    for ( ; ap->name; ap++)
+        if (ap->remote_value == remote_value)
+            return ap;
+
+    return default_ap;
+}
+
+
+/*
+ * Get values
+ */
+
+unsigned32
+rtems_assoc_remote_by_local(
+    rtems_assoc_t *ap,
+    unsigned32     local_value
+  )
+{
+    rtems_assoc_t *nap;
+    nap = rtems_assoc_ptr_by_local(ap, local_value);
+    if (nap)
+        return nap->remote_value;
+    
+    return 0;
+}
+
+unsigned32
+rtems_assoc_local_by_remote(
+    rtems_assoc_t *ap,
+    unsigned32     remote_value
+  )
+{
+    rtems_assoc_t *nap;
+    nap = rtems_assoc_ptr_by_remote(ap, remote_value);
+    if (nap)
+        return nap->local_value;
+    
+    return 0;
+}
+
+unsigned32
+rtems_assoc_remote_by_name(
+    rtems_assoc_t *ap,
+    char          *name
+  )
+{
+    rtems_assoc_t *nap;
+    nap = rtems_assoc_ptr_by_name(ap, name);
+    if (nap)
+        return nap->remote_value;
+    
+    return 0;
+}
+
+unsigned32
+rtems_assoc_local_by_name(
+    rtems_assoc_t *ap,
+    char          *name
+  )
+{
+    rtems_assoc_t *nap;
+    nap = rtems_assoc_ptr_by_name(ap, name);
+    if (nap)
+        return nap->local_value;
+    
+    return 0;
+}
+
+/*
+ * what to return if a value is not found
+ * this is not reentrant, but it really shouldn't be invoked anyway
+ */
+
+char *
+rtems_assoc_name_bad(
+    unsigned32 bad_value
+)
+{
+    static char bad_buffer[32];
+
+    sprintf(bad_buffer, "< %d [0x%x] >", bad_value, bad_value);
+    return bad_buffer;
+}
+
+
+char *
+rtems_assoc_name_by_local(
+    rtems_assoc_t *ap,
+    unsigned32     local_value
+  )
+{
+    rtems_assoc_t *nap;
+    nap = rtems_assoc_ptr_by_local(ap, local_value);
+    if (nap)
+        return nap->name;
+    
+    return rtems_assoc_name_bad(local_value);
+}
+
+char *
+rtems_assoc_name_by_remote(
+    rtems_assoc_t *ap,
+    unsigned32     remote_value
+  )
+{
+    rtems_assoc_t *nap;
+    nap = rtems_assoc_ptr_by_remote(ap, remote_value);
+    if (nap)
+        return nap->name;
+    
+    return rtems_assoc_name_bad(remote_value);
+}
+
+/*
+ * Bitfield functions assume just 1 bit set in each of remote and local
+ *      entries; they do not check for this.
+ */
+
+unsigned32 rtems_assoc_remote_by_local_bitfield(
+    rtems_assoc_t *ap,
+    unsigned32     local_value
+  )
+{  
+    unsigned32 b;
+    unsigned32 remote_value = 0;
+
+    for (b = 1; b; b <<= 1)
+        if (b & local_value)
+            remote_value |= rtems_assoc_remote_by_local(ap, b);
+        
+    return remote_value;
+}
+
+
+unsigned32 rtems_assoc_local_by_remote_bitfield(
+    rtems_assoc_t *ap,
+    unsigned32     remote_value
+  )
+{  
+    unsigned32 b;
+    unsigned32 local_value = 0;
+
+    for (b = 1; b; b <<= 1)
+        if (b & remote_value)
+            local_value |= rtems_assoc_local_by_remote(ap, b);
+        
+    return local_value;
+}
+
+char *rtems_assoc_name_by_remote_bitfield(
+    rtems_assoc_t *ap,
+    unsigned32     value,
+    char          *buffer
+  )
+{  
+    unsigned32 b;
+
+    *buffer = 0;
+
+    for (b = 1; b; b <<= 1)
+        if (b & value)
+        {
+            if (*buffer)
+                strcat(buffer, " ");
+            strcat(buffer, rtems_assoc_name_by_remote(ap, b));
+        }
+        
+    return buffer;
+}
+
+char *rtems_assoc_name_by_local_bitfield(
+    rtems_assoc_t *ap,
+    unsigned32     value,
+    char          *buffer
+  )
+{  
+    unsigned32 b;
+
+    *buffer = 0;
+
+    for (b = 1; b; b <<= 1)
+        if (b & value)
+        {
+            if (*buffer)
+                strcat(buffer, " ");
+            strcat(buffer, rtems_assoc_name_by_local(ap, b));
+        }
+        
+    return buffer;
+}
-- 
cgit v1.2.3