From 135570ef2a018422cd96165e933855889755702e Mon Sep 17 00:00:00 2001
From: Jonathan Wilkes <jancsika@yahoo.com>
Date: Sat, 26 Jul 2014 18:15:07 -0400
Subject: [PATCH] * suppress printing the full list of classes when using the
"print" method with [pdinfo] (just show number of loaded classes and an
informative message)
---
pd/src/x_interface.c | 17 ++++++++++++++---
1 file changed, 14 insertions(+), 3 deletions(-)
diff --git a/pd/src/x_interface.c b/pd/src/x_interface.c
index 85a4fd954..afc6d97b4 100644
--- a/pd/src/x_interface.c
+++ b/pd/src/x_interface.c
@@ -474,9 +474,20 @@ void pdinfo_audio_api(t_pdinfo *x, t_symbol *s, int argc, t_atom *argv)
void pdinfo_classtable(t_pdinfo *x, t_symbol *s, int argc, t_atom *argv)
{
int size = classtable_size();
- t_atom at[size];
- classtable_tovec(size, at);
- info_out((t_text *)x, s, size, at);
+ if (info_to_console)
+ {
+ t_atom at[2];
+ SETFLOAT(at, size);
+ SETSYMBOL(at+1, gensym("classes loaded (\"classtable\" outputs "
+ "the full list)"));
+ info_out((t_text *)x, s, 2, at);
+ }
+ else
+ {
+ t_atom at[size];
+ classtable_tovec(size, at);
+ info_out((t_text *)x, s, size, at);
+ }
}
void pdinfo_audioin(t_pdinfo *x, t_symbol *s, int argc, t_atom *arg)
--
GitLab