From c51398d4fcc43ac9d72888191d65f44609f7eb5f Mon Sep 17 00:00:00 2001 From: Tim Blechmann Date: Wed, 14 Jul 2004 18:29:52 +0000 Subject: update & bugfix svn path=/trunk/externals/tb/; revision=1859 --- sc4pd/source/support.hpp | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) (limited to 'sc4pd/source/support.hpp') diff --git a/sc4pd/source/support.hpp b/sc4pd/source/support.hpp index 8456f4d..b6d67a8 100644 --- a/sc4pd/source/support.hpp +++ b/sc4pd/source/support.hpp @@ -60,12 +60,26 @@ inline bool sc_add (flext::AtomList a) inline float sc_getfloatarg (flext::AtomList a,int i) { - if (a.Count() >0 || a.Count() 0 && a.Count() > i) return flext::GetAFloat(a[i]); else return 0; } +inline bool sc_ar(flext::AtomList a) +{ + for (int i = 0; i!=a.Count();++i) + { + if ( flext::IsSymbol(a[i]) ) + { + const char * teststring; + teststring = flext::GetString(a[i]); + if((strcmp(teststring,"ar"))==0) + return true; + } + } + return false; +} // macros to put rgen state in registers #define RGET \ -- cgit v1.2.1