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/makefile       | 92 +++++++++++++++++++++++++++++++++++++++++++++++++++
 strlen/strlen-help.pd |  9 +++++
 strlen/strlen.c       |  1 +
 3 files changed, 102 insertions(+)
 create mode 100644 strlen/makefile
 create mode 100644 strlen/strlen-help.pd
 create mode 100644 strlen/strlen.c

(limited to 'strlen')

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 <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