1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
/*
This file is part of LilyPond, the GNU music typesetter.
Copyright (C) 2004--2015 Han-Wen Nienhuys <hanwen@xs4all.nl>
LilyPond is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.
LilyPond is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with LilyPond. If not, see <http://www.gnu.org/licenses/>.
*/
#include <cstring>
#include <map>
using namespace std;
#include "std-string.hh"
#include "lily-guile.hh"
#include "warn.hh"
/* 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"
static SCM doc_hash_table;
void
ly_check_name (const string &cxx, const string &scm_name)
{
string mangle = mangle_cxx_identifier (cxx);
if (mangle != scm_name)
{
programming_error ("wrong cxx name: " + mangle + ", " + cxx + ", " + scm_name);
}
}
void
ly_add_function_documentation (SCM func,
const string &fname,
const string &varlist,
const string &doc)
{
if (doc == "")
return;
if (!doc_hash_table)
doc_hash_table = scm_permanent_object (scm_c_make_hash_table (59));
string s = string (" - ") + "LilyPond procedure: " + fname + " " + varlist
+ "\n" + doc;
scm_set_procedure_property_x (func, ly_symbol2scm ("documentation"),
ly_string2scm (s));
SCM entry = scm_cons (ly_string2scm (varlist), ly_string2scm (doc));
scm_hashq_set_x (doc_hash_table, ly_symbol2scm (fname.c_str ()), entry);
}
LY_DEFINE (ly_get_all_function_documentation, "ly:get-all-function-documentation",
0, 0, 0, (),
"Get a hash table with all LilyPond Scheme extension functions.")
{
return doc_hash_table;
}
map<void *, string> type_names;
void
ly_add_type_predicate (void *ptr,
const string &name)
{
type_names[ptr] = name;
}
string
predicate_to_typename (void *ptr)
{
if (type_names.find (ptr) == type_names.end ())
{
programming_error ("Unknown type predicate");
return "unknown type";
}
else
return type_names[ptr];
}
void
init_func_doc ()
{
ly_add_type_predicate ((void *) &is_direction, "direction");
ly_add_type_predicate ((void *) &ly_is_port, "port");
ly_add_type_predicate ((void *) &ly_cheap_is_list, "list");
ly_add_type_predicate ((void *) &unsmob<Global_context>, "Global_context");
ly_add_type_predicate ((void *) &unsmob<Paper_score>, "Paper_score");
ly_add_type_predicate ((void *) &unsmob<Performance>, "Performance");
ly_add_type_predicate ((void *) &is_axis, "axis");
ly_add_type_predicate ((void *) &is_number_pair, "number pair");
ly_add_type_predicate ((void *) &ly_is_list, "list");
ly_add_type_predicate ((void *) &ly_is_procedure, "procedure");
ly_add_type_predicate ((void *) &ly_is_symbol, "symbol");
ly_add_type_predicate ((void *) &scm_is_bool, "boolean");
ly_add_type_predicate ((void *) &scm_is_integer, "integer");
ly_add_type_predicate ((void *) &scm_is_number, "number");
ly_add_type_predicate ((void *) &scm_is_pair, "pair");
ly_add_type_predicate ((void *) &scm_is_rational, "rational");
ly_add_type_predicate ((void *) &scm_is_string, "string");
ly_add_type_predicate ((void *) &scm_is_vector, "vector");
ly_add_type_predicate ((void *) &unsmob<Item>, "Item");
ly_add_type_predicate ((void *) &unsmob<Music>, "Music");
ly_add_type_predicate ((void *) &unsmob<Spanner>, "Spanner");
ly_add_type_predicate ((void *) &unsmob<Stream_event>, "Stream_event");
}
ADD_SCM_INIT_FUNC (func_doc, init_func_doc);
|
