+/**
+ * Returns the length of the string represented by an ident.
+ *
+ * @param handle the handle for the set
+ * @param id the ident
+ *
+ * Default implementation using libfirm sets.
+ */
+static int set_get_id_wcslen(void *handle, ident *id)
+{
+ struct set_entry *entry = (struct set_entry *)id;
+
+ /* len + \0 is stored for wchar_t */
+ return entry->size / sizeof(wchar_t) - 1;
+}
+
+/**
+ * Default implementation if no new_id_from_wcs() is provided.
+ */
+static ident *def_new_id_from_wcs(void *handle, const wchar_t *wstr)
+{
+ return impl.new_id_from_wchars(handle, wstr, wcslen(wstr));
+}
+
+/**
+ * Default implementation if no new_id_from_wchars() is provided.
+ */
+static ident *def_new_id_from_wchars(void *handle, const wchar_t *wstr, int len)
+{
+ return impl.new_id_from_chars(handle, (const char *)wstr, (len + 1) * sizeof(wchar_t));
+}
+
+/**
+ * Default implementation if no get_id_wcs() is provided.
+ */
+static const wchar_t *def_get_id_wcs(void *handle, ident *id)
+{
+ return (const wchar_t *)impl.get_id_str(handle, id);
+}
+
+/**
+ * Default implementation if no get_id_wcslen() is provided.
+ */
+static int def_get_id_wcslen(void *handle, ident *id)
+{
+ return wcslen(impl.get_id_wcs(handle, id));
+}
+#endif /* FIRM_ENABLE_WCHAR */
+
+/* Initialize the ident module. */
+void init_ident(ident_if_t *id_if, int initial_n_idents)
+{
+ if (id_if) {
+ memcpy(&impl, id_if, sizeof(impl));
+
+ if (! impl.new_id_from_str)
+ impl.new_id_from_str = def_new_id_from_str;
+ if (! impl.get_id_strlen)
+ impl.get_id_strlen = def_get_id_strlen;
+
+#ifdef FIRM_ENABLE_WCHAR
+ if (! impl.new_id_from_wcs)
+ impl.new_id_from_wcs = def_new_id_from_wcs;
+ if (! impl.new_id_from_wchars)
+ impl.new_id_from_wchars = def_new_id_from_wchars;
+ if (! impl.get_id_wcs)
+ impl.get_id_wcs = def_get_id_wcs;
+ if (! impl.get_id_wcslen)
+ impl.get_id_wcslen = def_get_id_wcslen;
+#endif /* FIRM_ENABLE_WCHAR */
+ }
+ else {
+ impl.new_id_from_str = set_new_id_from_str;
+ impl.new_id_from_chars = set_new_id_from_chars;
+ impl.get_id_str = set_get_id_str;
+ impl.get_id_strlen = set_get_id_strlen;
+ impl.finish_ident = set_finish_ident;
+#ifdef FIRM_ENABLE_WCHAR
+ impl.new_id_from_wcs = set_new_id_from_wcs;
+ impl.new_id_from_wchars = set_new_id_from_wchars;
+ impl.get_id_wcs = set_get_id_wcs;
+ impl.get_id_wcslen = set_get_id_wcslen;
+#endif /* FIRM_ENABLE_WCHAR */
+
+ /* it's ok to use memcmp here, we check only strings */
+ impl.handle = new_set(memcmp, initial_n_idents);