* src/vm/properties.c (properties_dump): New function.

* src/vm/properties.h: Likewise.

diff --git a/src/vm/properties.c b/src/vm/properties.c
index de7550bb300633e71b5358d6a171af088aacf385..70fea72c19faf8637fa421a7b68dc8a7a2039a8d 100644 (file)
--- a/src/vm/properties.c
+++ b/src/vm/properties.c
@@ -689,6 +689,26 @@ void properties_system_add_all(java_handle_t *p)
 #endif /* defined(ENABLE_JAVASE) */
 
 
+/* properties_dump *************************************************************
+
+   Dump all property entries.
+
+*******************************************************************************/
+
+void properties_dump(void)
+{
+       list_t                  *l;
+       list_properties_entry_t *pe;
+
+       l = list_properties;
+
+       for (pe = list_first_unsynced(l); pe != NULL;
+                pe = list_next_unsynced(l, pe)) {
+               log_println("[properties_dump: key=%s, value=%s]", pe->key, pe->value);
+       }
+}
+
+
 /*
  * These are local overrides for various environment variables in Emacs.
  * Please do not remove this and leave it at the end of the file, where

diff --git a/src/vm/properties.h b/src/vm/properties.h
index 7c21aa6350b7d3df79e628c9c629f553d846f59d..a468aec5769678b5a9c74ca9a9841a38a7e96015 100644 (file)
--- a/src/vm/properties.h
+++ b/src/vm/properties.h
@@ -49,6 +49,8 @@ void  properties_system_add(java_handle_t *p, char *key, char *value);
 void  properties_system_add_all(java_handle_t *p);
 #endif
 
+void  properties_dump(void);
+
 #endif /* _PROPERTIES_H */