From 8a609b97309856becf87107f03b9d00eb2d557d3 Mon Sep 17 00:00:00 2001
From: Jonathan Wilkes <jancsika@yahoo.com>
Date: Fri, 7 Nov 2014 16:38:56 -0500
Subject: [PATCH] added "libdir" method to [pdinfo] (experimental)
---
pd/src/x_interface.c | 17 +++++++++++++++++
1 file changed, 17 insertions(+)
diff --git a/pd/src/x_interface.c b/pd/src/x_interface.c
index 2e8ca7119..50609462c 100644
--- a/pd/src/x_interface.c
+++ b/pd/src/x_interface.c
@@ -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,
--
GitLab