From 8303218509a59630ec4c3a31aed0b5264e977500 Mon Sep 17 00:00:00 2001
From: mescalinum <mescalinum@users.sourceforge.net>
Date: Thu, 13 Oct 2011 23:35:44 +0000
Subject: some binbuf support. dollar-args still not working properly

svn path=/trunk/externals/loaders/tclpd/; revision=15592
---
 tcl_typemap.c | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

(limited to 'tcl_typemap.c')

diff --git a/tcl_typemap.c b/tcl_typemap.c
index 4044afb..94c3aa0 100644
--- a/tcl_typemap.c
+++ b/tcl_typemap.c
@@ -28,6 +28,23 @@ int tcl_to_pd(Tcl_Obj *input, t_atom *output) {
     return TCL_OK;
 }
 
+const char* atom_type_string(t_atom* a) {
+    switch(a->a_type) {
+    case A_FLOAT: return "float";
+    case A_SYMBOL: return "symbol";
+    case A_POINTER: return "pointer";
+    default: return "???";
+    }
+}
+
+const char* atom_symbol_value(t_atom* a) {
+    return a->a_w.w_symbol->s_name;
+}
+
+float atom_float_value(t_atom* a) {
+    return a->a_w.w_float;
+}
+
 int pd_to_tcl(t_atom *input, Tcl_Obj **output) {
     Tcl_Obj* tcl_t_atom[2];
 #ifdef DEBUG
-- 
cgit v1.2.1