5 files changed, 138 insertions, 0 deletions
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 <string.h>
+#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; i<argc; i++){
+		switch(argv[i].a_type){
+		case A_FLOAT:
+			if(i == 1){
+			x->s_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 <string.h>
+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; i<argc; i++){
+		switch(argv[i].a_type){
+			case A_SYMBOL:
+				if(i == 0){
+					strncpy(x->s_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