From: Christian Thalinger <twisti@complang.tuwien.ac.at>
Date: Wed, 19 Sep 2007 14:39:51 +0000 (+0200)
Subject: * src/vm/properties.c (properties_dump): New function.
X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=commitdiff_plain;h=36fce955c0b7712e694d2a873c1a5a811c32fb81;p=cacao.git

* 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 de7550bb3..70fea72c1 100644
--- 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 7c21aa635..a468aec57 100644
--- 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 */