Commit 8a609b97 authored by pokergaming's avatar pokergaming
Browse files

added "libdir" method to [pdinfo] (experimental)

parent b06c0f33
......@@ -828,6 +828,21 @@ void pdinfo_gui(t_pdinfo *x, t_symbol *s, int argc, t_atom *argv)
info_out((t_text *)x, s, 1, at);
}
/* note: this might be wrong. Not sure whether "libdir" means
something like /usr/lib/pd or the path where all the libdir externals
live-- i.e., /usr/lib/pd/extra */
void pdinfo_libdir(t_pdinfo *x, t_symbol *s, int argc, t_atom *argv)
{
t_atom at[1];
t_symbol *nsym;
t_namelist *nl = pd_extrapath;
while (nl->nl_next)
nl = nl->nl_next;
nsym = gensym(nl->nl_string);
SETSYMBOL(at, nsym);
info_out((t_text *)x, s, 1, at);
}
void pdinfo_version(t_pdinfo *x, t_symbol *s, int argc, t_atom *argv)
{
int major=0, minor=0, bugfix=0;
......@@ -892,6 +907,8 @@ void pdinfo_setup(void)
gensym("dsp-status"), A_GIMME, 0);
class_addmethod(pdinfo_class, (t_method)pdinfo_gui,
gensym("gui"), A_GIMME, 0);
class_addmethod(pdinfo_class, (t_method)pdinfo_libdir,
gensym("libdir"), A_GIMME, 0);
class_addmethod(pdinfo_class, (t_method)pdinfo_midi_api,
gensym("midi-api"), A_GIMME, 0);
class_addmethod(pdinfo_class, (t_method)pdinfo_midi_apilist,
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment