aboutsummaryrefslogtreecommitdiff
path: root/memchr/memchr.c
diff options
context:
space:
mode:
Diffstat (limited to 'memchr/memchr.c')
-rw-r--r--memchr/memchr.c1
1 files changed, 1 insertions, 0 deletions
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