From 0e53ee1a6f430d42b1509c1bad12f59747a47f97 Mon Sep 17 00:00:00 2001 From: jasch Date: Sun, 15 Jul 2007 22:10:54 +0000 Subject: This commit was generated by cvs2svn to compensate for changes in r8087, which included commits to RCS files with non-trunk default branches. svn path=/trunk/externals/jasch_lib/; revision=8088 --- memchr/makefile | 92 +++++++++++++++++++++++++++++++++++++++++++++++++++ memchr/memchr-help.pd | 22 ++++++++++++ memchr/memchr.c | 1 + memchr/strchr-help.pd | 22 ++++++++++++ memchr/strchr.c | 1 + strchr/makefile | 92 +++++++++++++++++++++++++++++++++++++++++++++++++++ strchr/strchr-help.pd | 22 ++++++++++++ strchr/strchr.c | 1 + strcut/makefile | 92 +++++++++++++++++++++++++++++++++++++++++++++++++++ strcut/strcut-help.pd | 14 ++++++++ strcut/strcut.c | 1 + strlen/makefile | 92 +++++++++++++++++++++++++++++++++++++++++++++++++++ strlen/strlen-help.pd | 9 +++++ strlen/strlen.c | 1 + strtok/makefile | 92 +++++++++++++++++++++++++++++++++++++++++++++++++++ strtok/strtok-help.pd | 16 +++++++++ strtok/strtok.c | 1 + 17 files changed, 571 insertions(+) create mode 100644 memchr/makefile create mode 100644 memchr/memchr-help.pd create mode 100644 memchr/memchr.c create mode 100644 memchr/strchr-help.pd create mode 100644 memchr/strchr.c create mode 100644 strchr/makefile create mode 100644 strchr/strchr-help.pd create mode 100644 strchr/strchr.c create mode 100644 strcut/makefile create mode 100644 strcut/strcut-help.pd create mode 100644 strcut/strcut.c create mode 100644 strlen/makefile create mode 100644 strlen/strlen-help.pd create mode 100644 strlen/strlen.c create mode 100644 strtok/makefile create mode 100644 strtok/strtok-help.pd create mode 100644 strtok/strtok.c diff --git a/memchr/makefile b/memchr/makefile new file mode 100644 index 0000000..14a56c1 --- /dev/null +++ b/memchr/makefile @@ -0,0 +1,92 @@ +NAME=memchr +CSYM=memchr + +current: pd_darwin + +# ----------------------- NT ----------------------- + +pd_nt: $(NAME).dll + +.SUFFIXES: .dll + +PDNTCFLAGS = /W3 /WX /DNT /DPD /nologo +VC="C:\Program Files\Microsoft Visual Studio\Vc98" + +PDNTINCLUDE = /I. /I..\..\src /I$(VC)\include + +PDNTLDIR = $(VC)\lib +PDNTLIB = $(PDNTLDIR)\libc.lib \ + $(PDNTLDIR)\oldnames.lib \ + $(PDNTLDIR)\kernel32.lib \ + ..\..\bin\pd.lib + +.c.dll: + cl $(PDNTCFLAGS) $(PDNTINCLUDE) /c $*.c + link /dll /export:$(CSYM)_setup $*.obj $(PDNTLIB) + +# ----------------------- IRIX 5.x ----------------------- + +pd_irix5: $(NAME).pd_irix5 + +.SUFFIXES: .pd_irix5 + +SGICFLAGS5 = -o32 -DPD -DUNIX -DIRIX -O2 + +SGIINCLUDE = -I../../src + +.c.pd_irix5: + $(CC) $(SGICFLAGS5) $(SGIINCLUDE) -o $*.o -c $*.c + ld -elf -shared -rdata_shared -o $*.pd_irix5 $*.o + rm $*.o + +# ----------------------- IRIX 6.x ----------------------- + +pd_irix6: $(NAME).pd_irix6 + +.SUFFIXES: .pd_irix6 + +SGICFLAGS6 = -n32 -DPD -DUNIX -DIRIX -DN32 -woff 1080,1064,1185 \ + -OPT:roundoff=3 -OPT:IEEE_arithmetic=3 -OPT:cray_ivdep=true \ + -Ofast=ip32 + +.c.pd_irix6: + $(CC) $(SGICFLAGS6) $(SGIINCLUDE) -o $*.o -c $*.c + ld -n32 -IPA -shared -rdata_shared -o $*.pd_irix6 $*.o + rm $*.o + +# ----------------------- LINUX i386 ----------------------- + +pd_linux: $(NAME).pd_linux + +.SUFFIXES: .pd_linux + +LINUXCFLAGS = -DPD -O2 -funroll-loops -fomit-frame-pointer -fPIC \ + -Wall -W -Wshadow -Wstrict-prototypes \ + -Wno-unused -Wno-parentheses -Wno-switch $(CFLAGS) + +LINUXINCLUDE = -I../../src + +.c.pd_linux: + $(CC) $(LINUXCFLAGS) $(LINUXINCLUDE) -o $*.o -c $*.c + ld -export_dynamic -shared -o $*.pd_linux $*.o -lc -lm + strip --strip-unneeded $*.pd_linux + rm -f $*.o + +# ----------------------- Mac OSX ----------------------- + +pd_darwin: $(NAME).pd_darwin + +.SUFFIXES: .pd_darwin + +DARWINCFLAGS = -DPD -O2 -Wall -W -Wshadow -Wstrict-prototypes \ + -Wno-unused -Wno-parentheses -Wno-switch + +.c.pd_darwin: + $(CC) $(DARWINCFLAGS) $(LINUXINCLUDE) -o $*.o -c $*.c + $(CC) -bundle -undefined suppress -flat_namespace -o $*.pd_darwin $*.o + rm -f $*.o + +# ---------------------------------------------------------- + +clean: + rm -f *.o *.pd_* so_locations diff --git a/memchr/memchr-help.pd b/memchr/memchr-help.pd new file mode 100644 index 0000000..8290b5f --- /dev/null +++ b/memchr/memchr-help.pd @@ -0,0 +1,22 @@ +#N canvas 0 22 458 308 10; +#X obj 315 16 import jasch_lib; +#X obj 148 156 memchr; +#X floatatom 271 85 5 0 0 0 - - -; +#X obj 147 75 tosymbol; +#X floatatom 149 213 5 0 0 0 - - -; +#X msg 272 106 set :; +#X msg 315 106 set _; +#X msg 361 106 set !; +#X msg 148 53 hallo_this:world!; +#X symbolatom 100 32 20 0 0 0 - - -; +#X obj 100 11 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X connect 1 0 4 0; +#X connect 2 0 1 0; +#X connect 3 0 1 0; +#X connect 5 0 1 0; +#X connect 6 0 1 0; +#X connect 7 0 1 0; +#X connect 8 0 3 0; +#X connect 9 0 1 0; +#X connect 10 0 9 0; diff --git a/memchr/memchr.c b/memchr/memchr.c new file mode 100644 index 0000000..a4b775f --- /dev/null +++ b/memchr/memchr.c @@ -0,0 +1 @@ +/*__________________________________________________________________________ memchr á memchr c-string function Copyright (C) 2003 jan schacher thanks to tim place for inspiration and sample code 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. 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 initial build 200300505 ____________________________________________________________________________*/ #include "m_pd.h" #include #define MIN(a,b) ((a)<(b)?(a):(b)) typedef struct memchr { t_object ob; void *s_outlet; char s_tempstring[4096]; long s_numChar; } t_memchr; void *memchr_class; void *memchr_new(t_symbol *s, long argc, t_atom *argv); void memchr_free(t_memchr *x); void memchr_float(t_memchr *x, float f); void memchr_anything(t_memchr *x, t_symbol *s, long argc, t_atom *argv); void memchr_set(t_memchr *x, t_symbol *s, long argc, t_atom *argv); void memchr_setup(void) { memchr_class = class_new(gensym("memchr"), (t_newmethod)memchr_new, (t_method)memchr_free, sizeof(t_memchr), 0, A_GIMME, 0); class_addfloat(memchr_class, (t_method)memchr_float); class_addsymbol(memchr_class, (t_method)memchr_anything); class_addmethod(memchr_class, (t_method)memchr_set, gensym("set"), A_GIMME, 0); post(". memchr . jasch . "__DATE__" ",0); } void *memchr_new(t_symbol *s, long argc, t_atom *argv) { short i; t_memchr *x; x = (t_memchr *)pd_new(memchr_class); x->s_outlet = outlet_new(&x->ob, gensym("float")); strcpy(x->s_tempstring, "/"); x->s_numChar = 1024; for(i=0; is_numChar = argv[1].a_w.w_float; } break; case A_SYMBOL: if(i == 0){ strncpy(x->s_tempstring, argv[0].a_w.w_symbol->s_name, 1); } break; } } return (x); } void memchr_assist(t_memchr *x, void *b, long msg, long arg, char *dst) { if(msg==1) switch(arg){ case 0: strcpy(dst, "strings in (symbol)"); break; } else if(msg==2){ strcpy(dst, "matched positions (int)"); } } void memchr_float(t_memchr *x, float f) { x->s_numChar = (long)f; } void memchr_anything(t_memchr *x, t_symbol *s, long argc, t_atom *argv) { char *ptr; char local[4096]; long pos; strcpy(local, s->s_name); ptr = (char*)memchr(local, x->s_tempstring[0], MIN((long)strlen(local), x->s_numChar)); if(ptr != NULL){ pos = (long)(ptr-local+1); outlet_float(x->s_outlet, pos); }else{ outlet_float(x->s_outlet,-1); } return; } void memchr_set(t_memchr *x, t_symbol *s, long argc, t_atom *argv) { if(argc >= 1){ switch (argv[0].a_type) { case A_FLOAT: error("memchr: wrong argument type for set");break; case A_SYMBOL: strncpy(x->s_tempstring, argv[0].a_w.w_symbol->s_name, 1); x->s_tempstring[1] = 0; break; } } } void memchr_free(t_memchr *x) { // notify_free((t_object *)x); } \ No newline at end of file diff --git a/memchr/strchr-help.pd b/memchr/strchr-help.pd new file mode 100644 index 0000000..1358e41 --- /dev/null +++ b/memchr/strchr-help.pd @@ -0,0 +1,22 @@ +#N canvas 0 22 458 308 10; +#X obj 315 16 import jasch_lib; +#X floatatom 271 85 5 0 0 0 - - -; +#X obj 147 75 tosymbol; +#X floatatom 149 213 5 0 0 0 - - -; +#X msg 272 106 set :; +#X msg 315 106 set _; +#X msg 361 106 set !; +#X msg 148 53 hallo_this:world!; +#X symbolatom 100 32 20 0 0 0 - - -; +#X obj 100 11 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X obj 148 156 strchr; +#X connect 1 0 10 0; +#X connect 2 0 10 0; +#X connect 4 0 10 0; +#X connect 5 0 10 0; +#X connect 6 0 10 0; +#X connect 7 0 2 0; +#X connect 8 0 10 0; +#X connect 9 0 8 0; +#X connect 10 0 3 0; diff --git a/memchr/strchr.c b/memchr/strchr.c new file mode 100644 index 0000000..ab67f90 --- /dev/null +++ b/memchr/strchr.c @@ -0,0 +1 @@ +/*__________________________________________________________________________ strchr á strchr c-string function Copyright (C) 2003 jan schacher 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. 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 initial build 20030507 ____________________________________________________________________________*/ #include "m_pd.h" #include typedef struct strchr { t_object ob; void *s_outlet; char s_tempstring[4096]; } t_strchr; void *strchr_class; void *strchr_new(t_symbol *s, long argc, t_atom *argv); void strchr_free(t_strchr *x); void strchr_anything(t_strchr *x, t_symbol *s, long argc, t_atom *argv); void strchr_set(t_strchr *x, t_symbol *s, long argc, t_atom *argv); void strchr_setup(void) { strchr_class = class_new(gensym("strchr"), (t_newmethod)strchr_new, 0L, sizeof(t_strchr), 0, A_GIMME, 0); class_addsymbol(strchr_class, (t_method)strchr_anything); class_addmethod(strchr_class, (t_method)strchr_set, gensym("set"), A_GIMME, 0); post(". strchr . jasch . "__DATE__"",0); } void *strchr_new(t_symbol *s, long argc, t_atom *argv) { short i; t_strchr *x; x = (t_strchr *)pd_new(strchr_class); x->s_outlet = outlet_new(&x->ob, gensym("float")); strcpy(x->s_tempstring, "/"); for(i=0; is_tempstring, argv[0].a_w.w_symbol->s_name, 1); } break; } } return (x); } void strchr_assist(t_strchr *x, void *b, long msg, long arg, char *dst) { if(msg==1) switch(arg){ case 0: strcpy(dst, "string in (symbol)"); break; } else if(msg==2){ strcpy(dst, "matched position (int)"); } } void strchr_anything(t_strchr *x, t_symbol *s, long argc, t_atom *argv) { char *ptr; char local[4096]; long pos; strcpy(local, s->s_name); ptr = strchr(local, (char)x->s_tempstring[0]); if(ptr != NULL){ pos = (long)(ptr-local+1); outlet_float(x->s_outlet, pos); }else{ outlet_float(x->s_outlet, -1); } return; } void strchr_set(t_strchr *x, t_symbol *s, long argc, t_atom *argv) { { switch (argv[0].a_type) { case A_FLOAT: error("strchr: wrong argument type for set");break; case A_SYMBOL: strncpy(x->s_tempstring, argv[0].a_w.w_symbol->s_name, 1); x->s_tempstring[1] = 0; break; } } } void strchr_free(t_strchr *x) { // notify_free((t_object *)x); } \ No newline at end of file diff --git a/strchr/makefile b/strchr/makefile new file mode 100644 index 0000000..52c403a --- /dev/null +++ b/strchr/makefile @@ -0,0 +1,92 @@ +NAME=strchr +CSYM=strchr + +current: pd_darwin + +# ----------------------- NT ----------------------- + +pd_nt: $(NAME).dll + +.SUFFIXES: .dll + +PDNTCFLAGS = /W3 /WX /DNT /DPD /nologo +VC="C:\Program Files\Microsoft Visual Studio\Vc98" + +PDNTINCLUDE = /I. /I..\..\src /I$(VC)\include + +PDNTLDIR = $(VC)\lib +PDNTLIB = $(PDNTLDIR)\libc.lib \ + $(PDNTLDIR)\oldnames.lib \ + $(PDNTLDIR)\kernel32.lib \ + ..\..\bin\pd.lib + +.c.dll: + cl $(PDNTCFLAGS) $(PDNTINCLUDE) /c $*.c + link /dll /export:$(CSYM)_setup $*.obj $(PDNTLIB) + +# ----------------------- IRIX 5.x ----------------------- + +pd_irix5: $(NAME).pd_irix5 + +.SUFFIXES: .pd_irix5 + +SGICFLAGS5 = -o32 -DPD -DUNIX -DIRIX -O2 + +SGIINCLUDE = -I../../src + +.c.pd_irix5: + $(CC) $(SGICFLAGS5) $(SGIINCLUDE) -o $*.o -c $*.c + ld -elf -shared -rdata_shared -o $*.pd_irix5 $*.o + rm $*.o + +# ----------------------- IRIX 6.x ----------------------- + +pd_irix6: $(NAME).pd_irix6 + +.SUFFIXES: .pd_irix6 + +SGICFLAGS6 = -n32 -DPD -DUNIX -DIRIX -DN32 -woff 1080,1064,1185 \ + -OPT:roundoff=3 -OPT:IEEE_arithmetic=3 -OPT:cray_ivdep=true \ + -Ofast=ip32 + +.c.pd_irix6: + $(CC) $(SGICFLAGS6) $(SGIINCLUDE) -o $*.o -c $*.c + ld -n32 -IPA -shared -rdata_shared -o $*.pd_irix6 $*.o + rm $*.o + +# ----------------------- LINUX i386 ----------------------- + +pd_linux: $(NAME).pd_linux + +.SUFFIXES: .pd_linux + +LINUXCFLAGS = -DPD -O2 -funroll-loops -fomit-frame-pointer -fPIC \ + -Wall -W -Wshadow -Wstrict-prototypes \ + -Wno-unused -Wno-parentheses -Wno-switch $(CFLAGS) + +LINUXINCLUDE = -I../../src + +.c.pd_linux: + $(CC) $(LINUXCFLAGS) $(LINUXINCLUDE) -o $*.o -c $*.c + ld -export_dynamic -shared -o $*.pd_linux $*.o -lc -lm + strip --strip-unneeded $*.pd_linux + rm -f $*.o + +# ----------------------- Mac OSX ----------------------- + +pd_darwin: $(NAME).pd_darwin + +.SUFFIXES: .pd_darwin + +DARWINCFLAGS = -DPD -O2 -Wall -W -Wshadow -Wstrict-prototypes \ + -Wno-unused -Wno-parentheses -Wno-switch + +.c.pd_darwin: + $(CC) $(DARWINCFLAGS) $(LINUXINCLUDE) -o $*.o -c $*.c + $(CC) -bundle -undefined suppress -flat_namespace -o $*.pd_darwin $*.o + rm -f $*.o + +# ---------------------------------------------------------- + +clean: + rm -f *.o *.pd_* so_locations diff --git a/strchr/strchr-help.pd b/strchr/strchr-help.pd new file mode 100644 index 0000000..1358e41 --- /dev/null +++ b/strchr/strchr-help.pd @@ -0,0 +1,22 @@ +#N canvas 0 22 458 308 10; +#X obj 315 16 import jasch_lib; +#X floatatom 271 85 5 0 0 0 - - -; +#X obj 147 75 tosymbol; +#X floatatom 149 213 5 0 0 0 - - -; +#X msg 272 106 set :; +#X msg 315 106 set _; +#X msg 361 106 set !; +#X msg 148 53 hallo_this:world!; +#X symbolatom 100 32 20 0 0 0 - - -; +#X obj 100 11 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X obj 148 156 strchr; +#X connect 1 0 10 0; +#X connect 2 0 10 0; +#X connect 4 0 10 0; +#X connect 5 0 10 0; +#X connect 6 0 10 0; +#X connect 7 0 2 0; +#X connect 8 0 10 0; +#X connect 9 0 8 0; +#X connect 10 0 3 0; diff --git a/strchr/strchr.c b/strchr/strchr.c new file mode 100644 index 0000000..ab67f90 --- /dev/null +++ b/strchr/strchr.c @@ -0,0 +1 @@ +/*__________________________________________________________________________ strchr á strchr c-string function Copyright (C) 2003 jan schacher 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. 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 initial build 20030507 ____________________________________________________________________________*/ #include "m_pd.h" #include typedef struct strchr { t_object ob; void *s_outlet; char s_tempstring[4096]; } t_strchr; void *strchr_class; void *strchr_new(t_symbol *s, long argc, t_atom *argv); void strchr_free(t_strchr *x); void strchr_anything(t_strchr *x, t_symbol *s, long argc, t_atom *argv); void strchr_set(t_strchr *x, t_symbol *s, long argc, t_atom *argv); void strchr_setup(void) { strchr_class = class_new(gensym("strchr"), (t_newmethod)strchr_new, 0L, sizeof(t_strchr), 0, A_GIMME, 0); class_addsymbol(strchr_class, (t_method)strchr_anything); class_addmethod(strchr_class, (t_method)strchr_set, gensym("set"), A_GIMME, 0); post(". strchr . jasch . "__DATE__"",0); } void *strchr_new(t_symbol *s, long argc, t_atom *argv) { short i; t_strchr *x; x = (t_strchr *)pd_new(strchr_class); x->s_outlet = outlet_new(&x->ob, gensym("float")); strcpy(x->s_tempstring, "/"); for(i=0; is_tempstring, argv[0].a_w.w_symbol->s_name, 1); } break; } } return (x); } void strchr_assist(t_strchr *x, void *b, long msg, long arg, char *dst) { if(msg==1) switch(arg){ case 0: strcpy(dst, "string in (symbol)"); break; } else if(msg==2){ strcpy(dst, "matched position (int)"); } } void strchr_anything(t_strchr *x, t_symbol *s, long argc, t_atom *argv) { char *ptr; char local[4096]; long pos; strcpy(local, s->s_name); ptr = strchr(local, (char)x->s_tempstring[0]); if(ptr != NULL){ pos = (long)(ptr-local+1); outlet_float(x->s_outlet, pos); }else{ outlet_float(x->s_outlet, -1); } return; } void strchr_set(t_strchr *x, t_symbol *s, long argc, t_atom *argv) { { switch (argv[0].a_type) { case A_FLOAT: error("strchr: wrong argument type for set");break; case A_SYMBOL: strncpy(x->s_tempstring, argv[0].a_w.w_symbol->s_name, 1); x->s_tempstring[1] = 0; break; } } } void strchr_free(t_strchr *x) { // notify_free((t_object *)x); } \ No newline at end of file diff --git a/strcut/makefile b/strcut/makefile new file mode 100644 index 0000000..bca7ca9 --- /dev/null +++ b/strcut/makefile @@ -0,0 +1,92 @@ +NAME=strcut +CSYM=strcut + +current: pd_darwin + +# ----------------------- NT ----------------------- + +pd_nt: $(NAME).dll + +.SUFFIXES: .dll + +PDNTCFLAGS = /W3 /WX /DNT /DPD /nologo +VC="C:\Program Files\Microsoft Visual Studio\Vc98" + +PDNTINCLUDE = /I. /I..\..\src /I$(VC)\include + +PDNTLDIR = $(VC)\lib +PDNTLIB = $(PDNTLDIR)\libc.lib \ + $(PDNTLDIR)\oldnames.lib \ + $(PDNTLDIR)\kernel32.lib \ + ..\..\bin\pd.lib + +.c.dll: + cl $(PDNTCFLAGS) $(PDNTINCLUDE) /c $*.c + link /dll /export:$(CSYM)_setup $*.obj $(PDNTLIB) + +# ----------------------- IRIX 5.x ----------------------- + +pd_irix5: $(NAME).pd_irix5 + +.SUFFIXES: .pd_irix5 + +SGICFLAGS5 = -o32 -DPD -DUNIX -DIRIX -O2 + +SGIINCLUDE = -I../../src + +.c.pd_irix5: + $(CC) $(SGICFLAGS5) $(SGIINCLUDE) -o $*.o -c $*.c + ld -elf -shared -rdata_shared -o $*.pd_irix5 $*.o + rm $*.o + +# ----------------------- IRIX 6.x ----------------------- + +pd_irix6: $(NAME).pd_irix6 + +.SUFFIXES: .pd_irix6 + +SGICFLAGS6 = -n32 -DPD -DUNIX -DIRIX -DN32 -woff 1080,1064,1185 \ + -OPT:roundoff=3 -OPT:IEEE_arithmetic=3 -OPT:cray_ivdep=true \ + -Ofast=ip32 + +.c.pd_irix6: + $(CC) $(SGICFLAGS6) $(SGIINCLUDE) -o $*.o -c $*.c + ld -n32 -IPA -shared -rdata_shared -o $*.pd_irix6 $*.o + rm $*.o + +# ----------------------- LINUX i386 ----------------------- + +pd_linux: $(NAME).pd_linux + +.SUFFIXES: .pd_linux + +LINUXCFLAGS = -DPD -O2 -funroll-loops -fomit-frame-pointer -fPIC \ + -Wall -W -Wshadow -Wstrict-prototypes \ + -Wno-unused -Wno-parentheses -Wno-switch $(CFLAGS) + +LINUXINCLUDE = -I../../src + +.c.pd_linux: + $(CC) $(LINUXCFLAGS) $(LINUXINCLUDE) -o $*.o -c $*.c + ld -export_dynamic -shared -o $*.pd_linux $*.o -lc -lm + strip --strip-unneeded $*.pd_linux + rm -f $*.o + +# ----------------------- Mac OSX ----------------------- + +pd_darwin: $(NAME).pd_darwin + +.SUFFIXES: .pd_darwin + +DARWINCFLAGS = -DPD -O2 -Wall -W -Wshadow -Wstrict-prototypes \ + -Wno-unused -Wno-parentheses -Wno-switch + +.c.pd_darwin: + $(CC) $(DARWINCFLAGS) $(LINUXINCLUDE) -o $*.o -c $*.c + $(CC) -bundle -undefined suppress -flat_namespace -o $*.pd_darwin $*.o + rm -f $*.o + +# ---------------------------------------------------------- + +clean: + rm -f *.o *.pd_* so_locations diff --git a/strcut/strcut-help.pd b/strcut/strcut-help.pd new file mode 100644 index 0000000..74e5dc0 --- /dev/null +++ b/strcut/strcut-help.pd @@ -0,0 +1,14 @@ +#N canvas 264 113 544 306 10; +#X obj 305 26 import jasch_lib; +#X obj 159 207 prepend set; +#X msg 160 230 alpha/; +#X floatatom 239 131 5 0 0 0 - - -; +#X obj 159 163 strcut 3; +#X msg 181 109 symbol supercalifragilisti; +#X text 281 130 cut-position; +#X msg 158 90 symbol alpha/beta; +#X connect 1 0 2 0; +#X connect 3 0 4 0; +#X connect 4 0 1 0; +#X connect 5 0 4 0; +#X connect 7 0 4 0; diff --git a/strcut/strcut.c b/strcut/strcut.c new file mode 100644 index 0000000..7b30aa0 --- /dev/null +++ b/strcut/strcut.c @@ -0,0 +1 @@ +/*__________________________________________________________________________ strcut á strcut terminate string at position n Copyright (C) 2003 jan schacher 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. 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 initial build 20030511 fixed end conditions 20040713 ____________________________________________________________________________*/ #include "m_pd.h" #include #define MIN(a,b) ((a)<(b)?(a):(b)) typedef struct strcut { t_object ob; void *s_outlet; long s_numChar; } t_strcut; void *strcut_class; void *strcut_new(t_symbol *s, long argc, t_atom *argv); void strcut_free(t_strcut *x); void strcut_float(t_strcut *x, float f); void strcut_anything(t_strcut *x, t_symbol *s, long argc, t_atom *argv); void strcut_setup(void) { strcut_class = class_new(gensym("strcut"), (t_newmethod)strcut_new, (t_method)strcut_free, sizeof(t_strcut), 0, A_GIMME, 0); class_addfloat(strcut_class, (t_method)strcut_float); class_addsymbol(strcut_class, (t_method)strcut_anything); post(". strcut . jasch . "__DATE__" ",0); } void *strcut_new(t_symbol *s, long argc, t_atom *argv) { short i; t_strcut *x; x = (t_strcut *)pd_new(strcut_class); x->s_outlet = outlet_new(&x->ob, gensym("symbol")); x->s_numChar = 1; for(i=0; is_numChar = argv[i].a_w.w_float; // post("argument %ld is %f", i, argv[i].a_w.w_float); }else if(argv[i].a_type == A_SYMBOL){ // post("argument %ld is %s", i, argv[i].a_w.w_symbol->s_name); } } return (x); } void strcut_assist(t_strcut *x, void *b, long msg, long arg, char *dst) { if(msg==1) switch(arg){ case 0: strcpy(dst, "string in (symbol) cut pos (int)"); break; } else if(msg==2){ strcpy(dst, "string out"); } } void strcut_anything(t_strcut *x, t_symbol *s, long argc, t_atom *argv) { char *ptr; char local[4096]; strcpy(local, s->s_name); local[MIN((long)strlen(local), x->s_numChar)] = 0; ptr = local; outlet_anything(x->s_outlet, gensym(ptr), 0, 0L); } void strcut_float(t_strcut *x, float f) { x->s_numChar = (long)((f >= 0) ? f : 0); } void strcut_free(t_strcut *x) { // notify_free((t_object *)x); } \ No newline at end of file diff --git a/strlen/makefile b/strlen/makefile new file mode 100644 index 0000000..2817bf1 --- /dev/null +++ b/strlen/makefile @@ -0,0 +1,92 @@ +NAME=strlen +CSYM=strlen + +current: pd_darwin + +# ----------------------- NT ----------------------- + +pd_nt: $(NAME).dll + +.SUFFIXES: .dll + +PDNTCFLAGS = /W3 /WX /DNT /DPD /nologo +VC="C:\Program Files\Microsoft Visual Studio\Vc98" + +PDNTINCLUDE = /I. /I..\..\src /I$(VC)\include + +PDNTLDIR = $(VC)\lib +PDNTLIB = $(PDNTLDIR)\libc.lib \ + $(PDNTLDIR)\oldnames.lib \ + $(PDNTLDIR)\kernel32.lib \ + ..\..\bin\pd.lib + +.c.dll: + cl $(PDNTCFLAGS) $(PDNTINCLUDE) /c $*.c + link /dll /export:$(CSYM)_setup $*.obj $(PDNTLIB) + +# ----------------------- IRIX 5.x ----------------------- + +pd_irix5: $(NAME).pd_irix5 + +.SUFFIXES: .pd_irix5 + +SGICFLAGS5 = -o32 -DPD -DUNIX -DIRIX -O2 + +SGIINCLUDE = -I../../src + +.c.pd_irix5: + $(CC) $(SGICFLAGS5) $(SGIINCLUDE) -o $*.o -c $*.c + ld -elf -shared -rdata_shared -o $*.pd_irix5 $*.o + rm $*.o + +# ----------------------- IRIX 6.x ----------------------- + +pd_irix6: $(NAME).pd_irix6 + +.SUFFIXES: .pd_irix6 + +SGICFLAGS6 = -n32 -DPD -DUNIX -DIRIX -DN32 -woff 1080,1064,1185 \ + -OPT:roundoff=3 -OPT:IEEE_arithmetic=3 -OPT:cray_ivdep=true \ + -Ofast=ip32 + +.c.pd_irix6: + $(CC) $(SGICFLAGS6) $(SGIINCLUDE) -o $*.o -c $*.c + ld -n32 -IPA -shared -rdata_shared -o $*.pd_irix6 $*.o + rm $*.o + +# ----------------------- LINUX i386 ----------------------- + +pd_linux: $(NAME).pd_linux + +.SUFFIXES: .pd_linux + +LINUXCFLAGS = -DPD -O2 -funroll-loops -fomit-frame-pointer -fPIC \ + -Wall -W -Wshadow -Wstrict-prototypes \ + -Wno-unused -Wno-parentheses -Wno-switch $(CFLAGS) + +LINUXINCLUDE = -I../../src + +.c.pd_linux: + $(CC) $(LINUXCFLAGS) $(LINUXINCLUDE) -o $*.o -c $*.c + ld -export_dynamic -shared -o $*.pd_linux $*.o -lc -lm + strip --strip-unneeded $*.pd_linux + rm -f $*.o + +# ----------------------- Mac OSX ----------------------- + +pd_darwin: $(NAME).pd_darwin + +.SUFFIXES: .pd_darwin + +DARWINCFLAGS = -DPD -O2 -Wall -W -Wshadow -Wstrict-prototypes \ + -Wno-unused -Wno-parentheses -Wno-switch + +.c.pd_darwin: + $(CC) $(DARWINCFLAGS) $(LINUXINCLUDE) -o $*.o -c $*.c + $(CC) -bundle -undefined suppress -flat_namespace -o $*.pd_darwin $*.o + rm -f $*.o + +# ---------------------------------------------------------- + +clean: + rm -f *.o *.pd_* so_locations diff --git a/strlen/strlen-help.pd b/strlen/strlen-help.pd new file mode 100644 index 0000000..09202ff --- /dev/null +++ b/strlen/strlen-help.pd @@ -0,0 +1,9 @@ +#N canvas 321 143 454 304 10; +#X obj 321 41 import jasch_lib; +#X obj 144 139 strlen; +#X msg 143 43 alpha; +#X floatatom 145 223 5 0 0 0 - - -; +#X obj 144 68 tosymbol; +#X connect 1 0 3 0; +#X connect 2 0 4 0; +#X connect 4 0 1 0; diff --git a/strlen/strlen.c b/strlen/strlen.c new file mode 100644 index 0000000..67aab65 --- /dev/null +++ b/strlen/strlen.c @@ -0,0 +1 @@ +/*__________________________________________________________________________ strlen á strlen c-string function Copyright (C) 2003 jan schacher 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. 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 initial build 20030507 ____________________________________________________________________________*/ #include "m_pd.h" #include typedef struct strlen { t_object ob; void *s_outlet; float s_length; } t_strlen; void *strlen_class; void *strlen_new(t_symbol *s, long n); void strlen_anything(t_strlen *x, t_symbol *s, long argc, t_atom *argv); void strlen_free(t_strlen *x); void strlen_setup(void) { strlen_class = class_new(gensym("strlen"), (t_newmethod)strlen_new, (t_method)strlen_free, sizeof(t_strlen), 0, A_GIMME, 0); class_addsymbol(strlen_class, (t_method)strlen_anything); post(". strlen . jasch . "__DATE__" ",0); } void *strlen_new(t_symbol *s, long n) { t_strlen *x; x = (t_strlen *)pd_new(strlen_class); x->s_outlet = outlet_new(&x->ob, gensym("float")); return (x); } void strlen_anything(t_strlen *x, t_symbol *s, long argc, t_atom *argv) { x->s_length = strlen(s->s_name); outlet_float(x->s_outlet,x->s_length); } void strlen_free(t_strlen *x) { // notify_free((t_object *)x); } \ No newline at end of file diff --git a/strtok/makefile b/strtok/makefile new file mode 100644 index 0000000..6086bc8 --- /dev/null +++ b/strtok/makefile @@ -0,0 +1,92 @@ +NAME=strtok +CSYM=strtok + +current: pd_darwin + +# ----------------------- NT ----------------------- + +pd_nt: $(NAME).dll + +.SUFFIXES: .dll + +PDNTCFLAGS = /W3 /WX /DNT /DPD /nologo +VC="C:\Program Files\Microsoft Visual Studio\Vc98" + +PDNTINCLUDE = /I. /I..\..\src /I$(VC)\include + +PDNTLDIR = $(VC)\lib +PDNTLIB = $(PDNTLDIR)\libc.lib \ + $(PDNTLDIR)\oldnames.lib \ + $(PDNTLDIR)\kernel32.lib \ + ..\..\bin\pd.lib + +.c.dll: + cl $(PDNTCFLAGS) $(PDNTINCLUDE) /c $*.c + link /dll /export:$(CSYM)_setup $*.obj $(PDNTLIB) + +# ----------------------- IRIX 5.x ----------------------- + +pd_irix5: $(NAME).pd_irix5 + +.SUFFIXES: .pd_irix5 + +SGICFLAGS5 = -o32 -DPD -DUNIX -DIRIX -O2 + +SGIINCLUDE = -I../../src + +.c.pd_irix5: + $(CC) $(SGICFLAGS5) $(SGIINCLUDE) -o $*.o -c $*.c + ld -elf -shared -rdata_shared -o $*.pd_irix5 $*.o + rm $*.o + +# ----------------------- IRIX 6.x ----------------------- + +pd_irix6: $(NAME).pd_irix6 + +.SUFFIXES: .pd_irix6 + +SGICFLAGS6 = -n32 -DPD -DUNIX -DIRIX -DN32 -woff 1080,1064,1185 \ + -OPT:roundoff=3 -OPT:IEEE_arithmetic=3 -OPT:cray_ivdep=true \ + -Ofast=ip32 + +.c.pd_irix6: + $(CC) $(SGICFLAGS6) $(SGIINCLUDE) -o $*.o -c $*.c + ld -n32 -IPA -shared -rdata_shared -o $*.pd_irix6 $*.o + rm $*.o + +# ----------------------- LINUX i386 ----------------------- + +pd_linux: $(NAME).pd_linux + +.SUFFIXES: .pd_linux + +LINUXCFLAGS = -DPD -O2 -funroll-loops -fomit-frame-pointer -fPIC \ + -Wall -W -Wshadow -Wstrict-prototypes \ + -Wno-unused -Wno-parentheses -Wno-switch $(CFLAGS) + +LINUXINCLUDE = -I../../src + +.c.pd_linux: + $(CC) $(LINUXCFLAGS) $(LINUXINCLUDE) -o $*.o -c $*.c + ld -export_dynamic -shared -o $*.pd_linux $*.o -lc -lm + strip --strip-unneeded $*.pd_linux + rm -f $*.o + +# ----------------------- Mac OSX ----------------------- + +pd_darwin: $(NAME).pd_darwin + +.SUFFIXES: .pd_darwin + +DARWINCFLAGS = -DPD -O2 -Wall -W -Wshadow -Wstrict-prototypes \ + -Wno-unused -Wno-parentheses -Wno-switch + +.c.pd_darwin: + $(CC) $(DARWINCFLAGS) $(LINUXINCLUDE) -o $*.o -c $*.c + $(CC) -bundle -undefined suppress -flat_namespace -o $*.pd_darwin $*.o + rm -f $*.o + +# ---------------------------------------------------------- + +clean: + rm -f *.o *.pd_* so_locations diff --git a/strtok/strtok-help.pd b/strtok/strtok-help.pd new file mode 100644 index 0000000..067fce8 --- /dev/null +++ b/strtok/strtok-help.pd @@ -0,0 +1,16 @@ +#N canvas 0 22 458 308 10; +#X msg 118 40 alpha/beta/gamma/delta; +#X obj 106 86 tosymbol; +#X obj 106 156 print; +#X msg 236 94 set /; +#X msg 106 21 alpha_beta_gamma_delta; +#X msg 194 94 set _; +#X msg 130 59 alpha:beta:gamma:delta; +#X obj 105 117 strtok /; +#X connect 0 0 1 0; +#X connect 1 0 7 0; +#X connect 3 0 7 0; +#X connect 4 0 1 0; +#X connect 5 0 7 0; +#X connect 6 0 1 0; +#X connect 7 0 2 0; diff --git a/strtok/strtok.c b/strtok/strtok.c new file mode 100644 index 0000000..bdc7223 --- /dev/null +++ b/strtok/strtok.c @@ -0,0 +1 @@ +/*__________________________________________________________________________ strtok á strtok c-string function wrapper Copyright (C) 2003 jan schacher 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. 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 initial build 20030507 ____________________________________________________________________________*/ #include "m_pd.h" #include typedef struct strtok { t_object ob; void *s_outlet; char s_tempstring[4096]; } t_strtok; void *strtok_class; void *strtok_new(t_symbol *s, long argc, t_atom *argv); void strtok_free(t_strtok *x); //void strtok_assist(t_strtok *x, void *b, long msg, long arg, char *dst); void strtok_anything(t_strtok *x, t_symbol *s, long argc, t_atom *argv); void strtok_set(t_strtok *x, t_symbol *s, long argc, t_atom *argv); void strtok_setup(void) { strtok_class = class_new(gensym("strtok"), (t_newmethod)strtok_new, (t_method)strtok_free, sizeof(t_strtok), 0, A_GIMME, 0); class_addsymbol(strtok_class, (t_method)strtok_anything); class_addmethod(strtok_class, (t_method)strtok_set, gensym("set"), A_GIMME, 0); post(". strtok . jasch . "__DATE__" ",0); } void *strtok_new(t_symbol *s, long argc, t_atom *argv) { t_strtok *x; x = (t_strtok *)pd_new(strtok_class); x->s_outlet = outlet_new(&x->ob, gensym("list")); if((argc >= 1)&&(argv[0].a_type == A_SYMBOL)){ strcpy(x->s_tempstring, argv[0].a_w.w_symbol->s_name); // post("argument is %s", argv[0].a_w.w_symbol->s_name); }else{ strcpy(x->s_tempstring, "/"); // post("defualt-argument is %s", x->s_tempstring); } return (x); } void strtok_anything(t_strtok *x, t_symbol *s, long argc, t_atom *argv) { char *ptr; char local[4096]; long status = 0; short i, j; t_atom result[256]; t_atom head; i = 0; strcpy(local, s->s_name); ptr = strtok(local,x->s_tempstring); while (ptr != NULL){ result[i].a_type = A_SYMBOL; result[i].a_w.w_symbol = gensym(ptr); ptr = strtok (NULL, x->s_tempstring); i++; } j = i; head.a_w.w_symbol = result[0].a_w.w_symbol; for(j=0;js_outlet,head.a_w.w_symbol,i-1,result); return; } void strtok_set(t_strtok *x, t_symbol *s, long argc, t_atom *argv) { switch (argv[0].a_type) { case A_FLOAT: error("wrong argument type for set");break; // case A_LONG:error("wrong argument type for set"); break; case A_SYMBOL: strcpy(x->s_tempstring, argv[0].a_w.w_symbol->s_name); break; } } void strtok_free(t_strtok *x) { // notify_free((t_object *)x); } \ No newline at end of file -- cgit v1.2.1