From 0e53ee1a6f430d42b1509c1bad12f59747a47f97 Mon Sep 17 00:00:00 2001
From: jasch <j45ch@users.sourceforge.net>
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
---
 strlen/strlen.c | 1 +
 1 file changed, 1 insertion(+)
 create mode 100644 strlen/strlen.c

(limited to 'strlen/strlen.c')

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 <strings.h>

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
-- 
cgit v1.2.1