From 74ec984c0b4c7b009d103f1e7169a8c862d78ccb Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Wed, 16 Nov 2011 15:19:39 +0000
Subject: bracket A_BLOB with #ifdef so tclpd builds against vanilla

svn path=/trunk/externals/loaders/tclpd/; revision=15762
---
 tcl_typemap.c | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/tcl_typemap.c b/tcl_typemap.c
index 9bc4ced..5e1afea 100644
--- a/tcl_typemap.c
+++ b/tcl_typemap.c
@@ -1,5 +1,6 @@
 #include "tclpd.h"
 #include <string.h>
+#include <stdlib.h>
 
 static const char *atomtype_map[] = {
   /* A_NULL */     "null",
@@ -14,7 +15,9 @@ static const char *atomtype_map[] = {
   /* A_DOLLSYM */  "dollsym",
   /* A_GIMME */    "gimme",
   /* A_CANT */     "cant",
+#ifdef A_BLOB
   /* A_BLOB */     "blob"
+#endif
 };
 
 #define atomtype_map_size (sizeof(atomtype_map)/sizeof(atomtype_map[0]))
@@ -95,10 +98,11 @@ int tcl_to_pdatom(Tcl_Obj *input, t_atom *output) {
             SETSYMBOL(output, gensym(Tcl_GetStringFromObj(obj[1], 0)));
             break;
         }
-        case A_GIMME:
-        case A_CANT:
-        case A_BLOB:
-        case A_NULL:
+        // case A_GIMME:
+        // case A_CANT:
+        // case A_BLOB:
+        // case A_NULL:
+        default:
         {
             // TODO: set error result
             return TCL_ERROR;
@@ -153,7 +157,9 @@ int pdatom_to_tcl(t_atom *input, Tcl_Obj **output) {
         }
         case A_GIMME:
         case A_CANT:
+#ifdef A_BLOB
         case A_BLOB:
+#endif
         case A_NULL:
         default:
         {
-- 
cgit v1.2.1