From daf7cb9877857febba94e4c45d3b90d792ef434a Mon Sep 17 00:00:00 2001
From: Sojourner Truth <jon.w.wilkes@gmail.com>
Date: Sat, 20 Aug 2016 00:07:24 -0400
Subject: [PATCH] don't show a leading colon with [print -n]
---
pd/src/x_interface.c | 12 +++++++-----
1 file changed, 7 insertions(+), 5 deletions(-)
diff --git a/pd/src/x_interface.c b/pd/src/x_interface.c
index b8e66c438..119c35d64 100644
--- a/pd/src/x_interface.c
+++ b/pd/src/x_interface.c
@@ -56,17 +56,17 @@ static void *print_new(t_symbol *sel, int argc, t_atom *argv)
static void print_bang(t_print *x)
{
- post("%s: bang", x->x_sym->s_name);
+ post("%s%sbang", x->x_sym->s_name, (*x->x_sym->s_name ? ": " : ""));
}
static void print_pointer(t_print *x, t_gpointer *gp)
{
- post("%s: (gpointer)", x->x_sym->s_name);
+ post("%s%s(gpointer)", x->x_sym->s_name, (*x->x_sym->s_name ? ": " : ""));
}
static void print_float(t_print *x, t_float f)
{
- post("%s: %g", x->x_sym->s_name, f);
+ post("%s%s%g", x->x_sym->s_name, (*x->x_sym->s_name ? ": " : ""), f);
}
static void print_list(t_print *x, t_symbol *s, int argc, t_atom *argv)
@@ -75,7 +75,8 @@ static void print_list(t_print *x, t_symbol *s, int argc, t_atom *argv)
startpost("%s%s%g", x->x_sym->s_name,
(*x->x_sym->s_name ? ": " : ""),
atom_getfloatarg(0, argc--, argv++));
- else startpost("%s: %s", x->x_sym->s_name,
+ else startpost("%s%s%s", x->x_sym->s_name,
+ (*x->x_sym->s_name ? ": " : ""),
(argc > 1 ? s_list.s_name : (argc == 1 ? s_symbol.s_name :
s_bang.s_name)));
postatom(argc, argv);
@@ -84,7 +85,8 @@ static void print_list(t_print *x, t_symbol *s, int argc, t_atom *argv)
static void print_anything(t_print *x, t_symbol *s, int argc, t_atom *argv)
{
- startpost("%s: %s", x->x_sym->s_name, s->s_name);
+ startpost("%s%s%s", x->x_sym->s_name, (*x->x_sym->s_name ? ": " : ""),
+ s->s_name);
postatom(argc, argv);
endpost();
}
--
GitLab