From 40addcba86d492135bd6667feb10b1cf0d40a6a6 Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Tue, 19 Sep 2006 16:45:03 +0000 Subject: quick hack [version] object, outputs the version of m_pd.h that this object was compiled against. Its probably only useful in the context of Pd-extended packages svn path=/trunk/externals/hcs/; revision=5969 --- version-help.pd | 16 ++++++++++ version.c | 94 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 110 insertions(+) create mode 100644 version-help.pd create mode 100644 version.c diff --git a/version-help.pd b/version-help.pd new file mode 100644 index 0000000..255334d --- /dev/null +++ b/version-help.pd @@ -0,0 +1,16 @@ +#N canvas 313 142 454 312 10; +#X obj 364 11 import hcs; +#X msg 90 73 bang; +#X text 40 12 Get the version of the currently running Pd.; +#X obj 90 135 version; +#X obj 90 160 unpack float float float symbol; +#X floatatom 90 184 5 0 0 0 - - -; +#X floatatom 160 184 5 0 0 0 - - -; +#X floatatom 230 186 5 0 0 0 - - -; +#X symbolatom 303 185 0 0 0 0 - - -; +#X connect 1 0 3 0; +#X connect 3 0 4 0; +#X connect 4 0 5 0; +#X connect 4 1 6 0; +#X connect 4 2 7 0; +#X connect 4 3 8 0; diff --git a/version.c b/version.c new file mode 100644 index 0000000..6487c49 --- /dev/null +++ b/version.c @@ -0,0 +1,94 @@ +/* --------------------------------------------------------------------------*/ +/* */ +/* object for getting the version of Pd-extended */ +/* (it gets the version at compile time, so it will show the version of Pd */ +/* that is was compiled against) +/* Written by Hans-Christoph Steiner */ +/* */ +/* Copyright (c) 2006 Hans-Christoph Steiner */ +/* */ +/* This program 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 2 */ +/* of the License, or (at your option) any later version. */ +/* */ +/* See file LICENSE for further informations on licensing terms. */ +/* */ +/* This program 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 this program; if not, write to the Free Software Foundation, */ +/* Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ +/* */ +/* --------------------------------------------------------------------------*/ + +#include + +static char *version = "$Revision: 1.1 $"; + +t_int version_instance_count; + +#define DEBUG(x) +//#define DEBUG(x) x + +/*------------------------------------------------------------------------------ + * CLASS DEF + */ +static t_class *version_class; + +typedef struct _version { + t_object x_obj; +} t_version; + +/*------------------------------------------------------------------------------ + * IMPLEMENTATION + */ + +static void version_output(t_version* x) +{ + DEBUG(post("version_output");); + + t_atom version_data[4]; + SETFLOAT(version_data, (float) PD_MAJOR_VERSION); + SETFLOAT(version_data + 1, (float) PD_MINOR_VERSION); + SETFLOAT(version_data + 2, (float) PD_BUGFIX_VERSION); + SETSYMBOL(version_data + 3, gensym(PD_TEST_VERSION)); + + outlet_list(x->x_obj.ob_outlet, &s_list, 4, version_data); +} + + +static void *version_new(t_symbol *s) +{ + DEBUG(post("version_new");); + + t_version *x = (t_version *)pd_new(version_class); + + if(!version_instance_count) + { + post("[version] %s",version); + post("\twritten by Hans-Christoph Steiner "); + } + version_instance_count++; + + outlet_new(&x->x_obj, &s_list); + + return (x); +} + +void version_setup(void) +{ + DEBUG(post("version_setup");); + version_class = class_new(gensym("version"), + (t_newmethod)version_new, + 0, + sizeof(t_version), + 0, + 0); + /* add inlet datatype methods */ + class_addbang(version_class,(t_method) version_output); + +} -- cgit v1.2.1