quis: remove the leading `-' from the name, in case we're invoked as a

[mLib] / sym.h

diff --git a/sym.h b/sym.h
index 35a3fa6b05cfb8e6c56488b3b95992bd9aa759d9..82668a17ff84d4bdbb318ebed413c7c38d484037 100644 (file)
--- a/sym.h
+++ b/sym.h
@@ -1,6 +1,6 @@
 /* -*-c-*-
  *
- * $Id: sym.h,v 1.1 1998/06/17 23:44:42 mdw Exp $
+ * $Id: sym.h,v 1.2 1998/11/26 19:27:34 mdw Exp $
  *
  * Symbol table management
  *
@@ -29,8 +29,11 @@
 /*----- Revision history --------------------------------------------------*
  *
  * $Log: sym.h,v $
- * Revision 1.1  1998/06/17 23:44:42  mdw
- * Initial revision
+ * Revision 1.2  1998/11/26 19:27:34  mdw
+ * Move SYM_NAME into the header file.  Fix bugs.
+ *
+ * Revision 1.1.1.1  1998/06/17 23:44:42  mdw
+ * Initial version of mLib
  *
  */
 
@@ -81,6 +84,13 @@ typedef struct sym_base {
   size_t len;                          /* Length of the symbol's name */
 } sym_base;
 
+/* --- A macro to pick a symbol's name out from the mess --- */
+
+#define SYM_NAME(sy)                                                   \
+  (((sym_base *)(sy))->len > SYM_BUFSZ ?                               \
+   ((sym_base *)(sy))->name.p :                                                \
+   ((sym_base *)(sy))->name.b)
+
 /* --- An iterator block --- */
 
 typedef struct sym_iter {