*/
#include <cstring>
+#include <map>
using namespace std;
#include "std-string.hh"
#include "lily-guile.hh"
#include "warn.hh"
-static SCM doc_hash_table;
+/* type predicates. */
+#include "global-context.hh"
+#include "input.hh"
+#include "item.hh"
+#include "music.hh"
+#include "music-function.hh"
+#include "paper-score.hh"
+#include "performance.hh"
+#include "protected-scm.hh"
+#include "spanner.hh"
+#include "stream-event.hh"
+#include "unpure-pure-container.hh"
+
+static Protected_scm doc_hash_table;
void
ly_check_name (const string &cxx, const string &scm_name)
if (doc == "")
return;
- if (!doc_hash_table)
- doc_hash_table = scm_permanent_object (scm_c_make_hash_table (59));
+ if (!doc_hash_table.is_bound ())
+ doc_hash_table = scm_c_make_hash_table (59);
string s = string (" - ") + "LilyPond procedure: " + fname + " " + varlist
+ "\n" + doc;
return doc_hash_table;
}
-#include <map>
-
map<void *, string> type_names;
void
return type_names[ptr];
}
-/* type predicates. */
-#include "global-context.hh"
-#include "input.hh"
-#include "item.hh"
-#include "music.hh"
-#include "music-function.hh"
-#include "paper-score.hh"
-#include "performance.hh"
-#include "spanner.hh"
-#include "stream-event.hh"
-#include "unpure-pure-container.hh"
-
void
init_func_doc ()
{