externals/creb/modules/lattice~.c

@@ -85,7 +85,7 @@ static t_int *lattice_perform(t_int *w)
 
 static void lattice_dsp(t_lattice *x, t_signal **sp)
 {
-    dsp_add(lattice_perform, 4, &x->x_ctl, sp[0]->s_n,
+    dsp_add(lattice_perform, 4, &x->x_ctl, (t_int)sp[0]->s_n,
 	    sp[0]->s_vec, sp[1]->s_vec);
 
 }                                  

externals/creb/modules/permut~.c

@@ -149,7 +149,7 @@ static t_int *permut_perform(t_int *w)
 static void permut_dsp(t_permut *x, t_signal **sp)
 {
   permut_resize_table(x, sp[0]->s_n);
-  dsp_add(permut_perform, 4, &x->x_ctl, sp[0]->s_n, sp[0]->s_vec, sp[1]->s_vec);
+  dsp_add(permut_perform, 4, &x->x_ctl, (t_int)sp[0]->s_n, sp[0]->s_vec, sp[1]->s_vec);
 
 }
                                   

externals/creb/modules/qmult~.c

@@ -129,7 +129,7 @@ static void qmult_dsp(t_qmult *x, t_signal **sp)
       x->x_ctl.c_output[i] = sp[i+8]->s_vec;
     }
 
-  dsp_add(qmult_perform, 2, &x->x_ctl, sp[0]->s_n);
+  dsp_add(qmult_perform, 2, &x->x_ctl, (t_int)sp[0]->s_n);
 
 
 }                                  

externals/creb/modules/qnorm~.c

@@ -101,7 +101,7 @@ static void qnorm_dsp(t_qnorm *x, t_signal **sp)
       x->x_ctl.c_output[i] = sp[i+4]->s_vec;
     }
 
-  dsp_add(qnorm_perform, 2, &x->x_ctl, sp[0]->s_n);
+  dsp_add(qnorm_perform, 2, &x->x_ctl, (t_int)sp[0]->s_n);
 
 
 }                                  

externals/creb/modules/ramp~.c

@@ -75,7 +75,7 @@ static t_int *ramp_perform(t_int *w)
 
 static void ramp_dsp(t_ramp *x, t_signal **sp)
 {
-    dsp_add(ramp_perform, 3, &x->x_ctl, sp[0]->s_n, sp[0]->s_vec);
+    dsp_add(ramp_perform, 3, &x->x_ctl, (t_int)sp[0]->s_n, sp[0]->s_vec);
 
 }                                  
 void ramp_free(void)

externals/creb/modules/resofilt~.c

@@ -357,7 +357,7 @@ static void resofilt_dsp(t_resofilt *x, t_signal **sp)
   dsp_add(x->x_dsp,
 	  6, 
 	  &x->x_ctl, 
-	  sp[0]->s_n, 
+	  (t_int)sp[0]->s_n, 
 	  sp[0]->s_vec, 
 	  sp[1]->s_vec, 
 	  sp[2]->s_vec, 

externals/creb/modules/sbosc~.c

@@ -139,7 +139,8 @@ static t_int *sbosc_tilde_perform(t_int *w)
 static void sbosc_tilde_dsp(t_sbosc_tilde *x, t_signal **sp)
 {
     dsp_add(sbosc_tilde_perform, 6, x,
-        sp[0]->s_vec, sp[1]->s_vec, sp[2]->s_vec, sp[3]->s_vec, sp[0]->s_n);
+        sp[0]->s_vec, sp[1]->s_vec, sp[2]->s_vec, sp[3]->s_vec,
+        (t_int)sp[0]->s_n);
 
 }
 

externals/creb/modules/scrollgrid1D~.c

@@ -159,7 +159,7 @@ static void scrollgrid1D_dsp(t_scrollgrid1D *x, t_signal **sp)
   dsp_add(scrollgrid1D_perform, 
 	  9, 
 	  &x->x_ctl, 
-	  sp[0]->s_n, 
+	  (t_int)sp[0]->s_n, 
 	  sp[0]->s_vec, 
 	  sp[1]->s_vec, 
 	  sp[2]->s_vec,

externals/creb/modules/statwav~.c

@@ -129,7 +129,7 @@ static void statwav_tilde_dsp(t_statwav_tilde *x, t_signal **sp)
     statwav_tilde_set(x, x->x_arrayname);
 
     dsp_add(statwav_tilde_perform, 4, x,
-        sp[0]->s_vec, sp[1]->s_vec, sp[0]->s_n);
+        sp[0]->s_vec, sp[1]->s_vec, (t_int)sp[0]->s_n);
 
 }
 

externals/creb/modules/tabreadmix~.c

@@ -276,7 +276,7 @@ static void tabreadmix_tilde_dsp(t_tabreadmix_tilde *x, t_signal **sp)
     tabreadmix_tilde_set(x, x->x_arrayname);
 
     dsp_add(tabreadmix_tilde_perform, 4, x,
-        sp[0]->s_vec, sp[1]->s_vec, sp[0]->s_n);
+        sp[0]->s_vec, sp[1]->s_vec, (t_int)sp[0]->s_n);
 
 }
 

externals/creb/modules/xfm~.c

@@ -203,7 +203,7 @@ static void xfm_dsp(t_xfm *x, t_signal **sp)
   dsp_add(xfm_perform, 
 	  8, 
 	  &x->x_ctl, 
-	  sp[0]->s_n, 
+	  (t_int)sp[0]->s_n, 
 	  sp[0]->s_vec, 
 	  sp[1]->s_vec, 
 	  sp[2]->s_vec,

externals/cxc/Makefile

@@ -45,6 +45,10 @@ LIBS =
 #
 #------------------------------------------------------------------------------#
 
+ifeq ($(macos_target),)
+macos_target = 10.9
+endif
+
 # get library version from meta file
 LIBRARY_VERSION = $(shell sed -n 's|^\#X text [0-9][0-9]* [0-9][0-9]* VERSION \(.*\);|\1|p' $(LIBRARY_NAME)-meta.pd)
 
@@ -71,7 +75,7 @@ ORIGDIR=pd-$(LIBRARY_NAME)_$(LIBRARY_VERSION)
 UNAME := $(shell uname -s)
 ifeq ($(UNAME),Darwin)
   CPU := $(shell uname -p)
-  ifeq ($(CPU),arm) # iPhone/iPod Touch
+  ifeq ($(CPU),arm-iphone) # iPhone/iPod Touch
     SOURCES += $(SOURCES_iphoneos)
     EXTENSION = pd_darwin
     OS = iphoneos
@@ -96,13 +100,13 @@ ifeq ($(UNAME),Darwin)
     OPT_CFLAGS = -ftree-vectorize -ftree-vectorizer-verbose=2 -fast
 # build universal 32-bit on 10.4 and 32/64 on newer
     ifeq ($(shell uname -r | sed 's|\([0-9][0-9]*\)\.[0-9][0-9]*\.[0-9][0-9]*|\1|'), 8)
-      FAT_FLAGS = -arch ppc -arch i386 -mmacosx-version-min=10.4
+      FAT_FLAGS = -arch ppc -arch i386 -mmacosx-version-min=$(macos_target)
     else
-      FAT_FLAGS = -arch ppc -arch i386 -arch x86_64 -mmacosx-version-min=10.4
+      FAT_FLAGS = -arch ppc -arch i386 -arch x86_64 -mmacosx-version-min=$(macos_target)
       SOURCES += $(SOURCES_iphoneos)
     endif
-    CFLAGS += $(FAT_FLAGS) -fPIC -I/sw/include
-    LDFLAGS += $(FAT_FLAGS) -bundle -undefined dynamic_lookup -L/sw/lib
+    CFLAGS += $(FAT_FLAGS) -fPIC
+    LDFLAGS += $(FAT_FLAGS) -bundle -undefined dynamic_lookup
     # if the 'pd' binary exists, check the linking against it to aid with stripping
     LDFLAGS += $(shell test -e $(PD_PATH)/bin/pd && echo -bundle_loader $(PD_PATH)/bin/pd)
     LIBS += -lc 

externals/cxc/ascwave.c

@@ -49,7 +49,7 @@ static void ascwave_open(t_ascwave *x, t_symbol *filename)
      post("ascwave: open");
      x->filename = filename;
      post("ascwave: filename = %s",x->filename->s_name);
-     if ((x->x_file = fopen(x->filename->s_name,"w")) < 0)
+     if ((x->x_file = sys_fopen(x->filename->s_name,"w")) < 0)
      {
 	  error("can't create %s",filename->s_name);
 	  return;

externals/cxc/cxc_split.c

@@ -30,8 +30,8 @@ typedef struct _split
 
 void split_symbol(t_split *x, t_symbol *s)
 {
-  t_atom* a;
-  split_anything(x, s, 0, a);
+  t_atom a;
+  split_anything(x, s, 0, &a);
 }
 
 

externals/cxc/delta~.c

@@ -35,7 +35,7 @@ static t_int *delta_perform(t_int *w)
 
 static void delta_dsp(t_delta *x, t_signal **sp)
 {
-  dsp_add(delta_perform, 4, x, sp[0]->s_vec, sp[1]->s_vec, sp[0]->s_n);
+  dsp_add(delta_perform, 4, x, sp[0]->s_vec, sp[1]->s_vec, (t_int)sp[0]->s_n);
 }
 
 static void *delta_new(void)

externals/cxc/dist_normal.c

@@ -22,7 +22,7 @@ static int makeseed(void)
     return (random1_nextseed & 0x7fffffff);
 }
 
-static int rand_random_fl(seed) {
+static int rand_random_fl(unsigned int seed) {
   int q;
   double state;
 

externals/cxc/hex2dec-help.pd

-#N canvas 0 31 450 300 10;
-#X obj 138 153 hex2dec;
-#X floatatom 137 189 5 0 0 0 - - -;
-#X msg 139 105 symbol fff;
-#X msg 237 123 123;
-#X obj 257 194 print;
-#X text 136 51 doesn't seem to work;
-#N canvas 397 200 494 344 META 0;
+#N canvas 3 60 560 479 10;
+#X obj 29 413 hex2dec;
+#N canvas 334 170 494 344 META 0;
 #X text 12 135 HELP_PATCH_AUTHORS Jonathan Wilkes revised the patch
 to conform to the PDDP template for Pd version 0.42.;
 #X text 12 55 DESCIPTION hexadecimal to decimal conversion;
 #X text 12 75 INLET_0 symbol float;
 #X text 12 95 OUTLET_0 float symbol;
-#X text 12 5 KEYWORDS control conversion symbol_op needs_work (object
-doesn't work);
 #X text 12 35 LICENSE GPL v2;
 #X text 12 115 AUTHOR jdl@xdv.org;
-#X restore 394 274 pd META;
-#X connect 0 0 1 0;
-#X connect 0 0 4 0;
-#X connect 2 0 0 0;
+#X text 12 5 KEYWORDS control conversion symbol_op;
+#X restore 504 454 pd META;
+#X text 22 11 treat input as a hex string and convert to float;
+#X msg 39 181 symbol ff;
+#X msg 65 237 symbol 255;
+#X msg 29 145 symbol 0xff \, symbol 0x02;
+#X text 28 104 To minimize errors due to Pd's type limitations \, prepend
+a "0x" to each hex string like so:;
+#X obj 29 448 print;
+#X text 187 145 <- "0x" makes everything a symbol atom;
+#X msg 57 209 3 \, 3.14;
+#X msg 73 279 symbol 0xffffff;
+#X floatatom 89 448 14 0 0 0 - - -, f 14;
+#X text 107 181 <- Unprefixed hex strings will work...;
+#X text 117 209 ... as will floats (truncated to ints)...;
+#X text 178 279 <- Also \, try to limit your input to byte-sized hex
+strings. Even 32-bit ints won't fit losslessly into single-precision
+floating point numbers. (Although they will fit into double-precision
+floats.);
+#X text 59 39 An incoming symbol message with a valid hex string is
+output in decimal notation as a float.;
+#X text 137 237 ... but without the "0x" prefix it's too easy to introduce
+subtle bugs like this one. So always use the "0x" prefix.;
+#X msg 73 361 list ff aa cc;
+#X text 165 360 lists may be sent \, too. But be careful-- more than
+10 elements will cause memory allocation that is not realtime safe.
+;
+#X connect 0 0 7 0;
+#X connect 0 0 11 0;
 #X connect 3 0 0 0;
+#X connect 4 0 0 0;
+#X connect 5 0 0 0;
+#X connect 9 0 0 0;
+#X connect 10 0 0 0;
+#X connect 17 0 0 0;

externals/cxc/mean~.c

@@ -67,9 +67,16 @@ static void cxmean_mean(t_cxmean *x)
 
   cnt = 0;
   if(!(a = (t_garray *)pd_findbyclass(x->x_arrayname,garray_class))) {
-    pd_error(x, "%s: no such table", x->x_arrayname->s_name);
+    pd_error(x, "mean: %s: no such table", x->x_arrayname->s_name);
+    x->x_vec = 0;
+    return;
+  }
+  else if (!garray_getfloatarray(a,&x->x_nsampsintab,&x->x_vec))
+  {
+    error("%s: bad template for mean", x->x_arrayname->s_name);
+    x->x_vec = 0;
+    return;
   }
-  garray_getfloatarray(a,&x->x_nsampsintab,&x->x_vec);
 
   fp = x->x_vec;
 
@@ -168,8 +175,15 @@ static void cxavgdev_float(t_cxavgdev *x, t_float f)
   cnt = 0;
   if(!(a = (t_garray *)pd_findbyclass(x->x_arrayname,garray_class))) {
     pd_error(x, "%s: no such table", x->x_arrayname->s_name);
+    x->x_vec = 0;
+    return;
+  }
+  else if (!garray_getfloatarray(a,&x->x_nsampsintab,&x->x_vec))
+  {
+    error("%s: bad template for mean", x->x_arrayname->s_name);
+    x->x_vec = 0;
+    return;
   }
-  garray_getfloatarray(a,&x->x_nsampsintab,&x->x_vec);
 
   fp = x->x_vec;
 
@@ -347,6 +361,14 @@ static t_int *mean_tilde_perform(t_int *w)
   int n = (int)(w[2]);
   t_float xz = 0.;
   fp = x->x_vec;
+
+  /* If array doesn't exist just make it zero */
+  if (!fp)
+  {
+    x->x_mean = 0;
+    return (w+3);
+  }
+
   while(n--) {
     xz += abs(*fp++);
     //post("cxc/mean.c: %d : %f : %f",n,xz,fp);
@@ -354,7 +376,6 @@ static t_int *mean_tilde_perform(t_int *w)
   x->x_mean = (t_float)(xz / n);
   //post("cxc/mean.c: %f",xz);
   return (w+3);
-  //return 0;
 }
 
 static void mean_tilde_set(t_mean_tilde *x, t_symbol *s)
@@ -379,9 +400,9 @@ static void mean_tilde_set(t_mean_tilde *x, t_symbol *s)
 static void mean_tilde_dsp(t_mean_tilde *x, t_signal **sp)
 {
   mean_tilde_set(x, x->x_arrayname);
-  //dsp_add(mean_tilde_perform, 2, x, sp[0]->s_vec, sp[0]->s_n);
-  //dsp_add(mean_tilde_perform, 3, x, sp[0]->s_vec, sp[0]->s_n);
-  dsp_add(mean_tilde_perform, 2, x, sp[0]->s_n);
+  //dsp_add(mean_tilde_perform, 2, x, sp[0]->s_vec, (t_int)sp[0]->s_n);
+  //dsp_add(mean_tilde_perform, 3, x, sp[0]->s_vec, (t_int)sp[0]->s_n);
+  dsp_add(mean_tilde_perform, 2, x, (t_int)sp[0]->s_n);
 }
 
 static void mean_tilde_bang(t_mean_tilde *x)
@@ -400,8 +421,15 @@ static void mean_tilde_mean(t_mean_tilde *x)
   cnt = 0;
   if(!(a = (t_garray *)pd_findbyclass(x->x_arrayname,garray_class))) {
     pd_error(x, "%s: no such table", x->x_arrayname->s_name);
+    x->x_vec = 0;
+    return;
+  }
+  else if (!garray_getfloatarray(a,&x->x_nsampsintab,&x->x_vec))
+  {
+    error("%s: bad template for mean", x->x_arrayname->s_name);
+    x->x_vec = 0;
+    return;
   }
-  garray_getfloatarray(a,&x->x_nsampsintab,&x->x_vec);
 
   fp = x->x_vec;
 

externals/cxc/random1.c

@@ -16,7 +16,7 @@
 #endif
 
 static int makeseed(void);
-static int rand_random1(int);
+static int rand_random1(unsigned int);
 
 static int makeseed(void)
 {
@@ -27,7 +27,7 @@ static int makeseed(void)
 
 /* -------------------------- random1 ------------------------------ */
 /* linear congruential generator.  Generator x[n+1] = a * x[n] mod m */
-static int rand_random1(seed)
+static int rand_random1(unsigned int seed)
 {
   int state;