From c1419b43ea354fa04360450ae4f64612df065099 Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Mon, 14 Nov 2005 21:59:09 +0000 Subject: these pragmas are only used for MSVC, not MinGW or Cygwin, therefore changing the define from NT to _MSC_VER svn path=/trunk/externals/ggee/; revision=3903 --- control/stripdir.c | 96 +++++++++++++++++++++++++++--------------------------- 1 file changed, 48 insertions(+), 48 deletions(-) (limited to 'control/stripdir.c') diff --git a/control/stripdir.c b/control/stripdir.c index 10ba19b..9202f19 100755 --- a/control/stripdir.c +++ b/control/stripdir.c @@ -1,48 +1,48 @@ -/* (C) Guenter Geiger */ - - -#include -#include -#ifdef NT -#pragma warning( disable : 4244 ) -#pragma warning( disable : 4305 ) -#endif - -/* ------------------------ stripdir ----------------------------- */ - -static t_class *stripdir_class; - - -typedef struct _stripdir -{ - t_object x_obj; -} t_stripdir; - - -void stripdir_symbol(t_stripdir *x,t_symbol* s) -{ - int len = strlen(s->s_name); - - while (len--) - if (*(s->s_name + len) == '/') { - outlet_symbol(x->x_obj.ob_outlet,gensym(s->s_name + len + 1)); - break; - } - -} - -static void *stripdir_new() -{ - t_stripdir *x = (t_stripdir *)pd_new(stripdir_class); - outlet_new(&x->x_obj, &s_float); - return (x); -} - -void stripdir_setup(void) -{ - stripdir_class = class_new(gensym("stripdir"), (t_newmethod)stripdir_new, 0, - sizeof(t_stripdir), 0,0); - class_addsymbol(stripdir_class,stripdir_symbol); -} - - +/* (C) Guenter Geiger */ + + +#include +#include +#ifdef _MSC_VER +#pragma warning( disable : 4244 ) +#pragma warning( disable : 4305 ) +#endif + +/* ------------------------ stripdir ----------------------------- */ + +static t_class *stripdir_class; + + +typedef struct _stripdir +{ + t_object x_obj; +} t_stripdir; + + +void stripdir_symbol(t_stripdir *x,t_symbol* s) +{ + int len = strlen(s->s_name); + + while (len--) + if (*(s->s_name + len) == '/') { + outlet_symbol(x->x_obj.ob_outlet,gensym(s->s_name + len + 1)); + break; + } + +} + +static void *stripdir_new() +{ + t_stripdir *x = (t_stripdir *)pd_new(stripdir_class); + outlet_new(&x->x_obj, &s_float); + return (x); +} + +void stripdir_setup(void) +{ + stripdir_class = class_new(gensym("stripdir"), (t_newmethod)stripdir_new, 0, + sizeof(t_stripdir), 0,0); + class_addsymbol(stripdir_class,stripdir_symbol); +} + + -- cgit v1.2.1