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.c | 94 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 94 insertions(+) create mode 100644 version.c (limited to 'version.c') 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