mv *.cxx *.c

svn path=/trunk/externals/loaders/tclpd/; revision=15442

1 files changed, 64 insertions, 0 deletions

diff --git a/tcl_loader.c b/tcl_loader.c
new file mode 100644
index 0000000..2dad0d1
--- /dev/null
+++ b/tcl_loader.c
@@ -0,0 +1,64 @@
+#include "tcl_extras.h"
+#include <string.h>
+#include <unistd.h>
+
+extern "C" int tclpd_do_load_lib(t_canvas *canvas, char *objectname) {
+#ifdef DEBUG
+    post("Tcl loader: registering tcl class loader mechanism");
+#endif
+    char filename[MAXPDSTRING], dirbuf[MAXPDSTRING],
+        *classname, *nameptr;
+    int fd;
+
+    if ((classname = strrchr(objectname, '/')) != NULL)
+        classname++;
+    else
+        classname = objectname;
+
+    if(sys_onloadlist(objectname)) {
+        post("%s: already loaded", objectname);
+        return (1);
+    }
+
+        /* try looking in the path for (objectname).(tcl) ... */
+    if ((fd = canvas_open(canvas, objectname, ".tcl",
+        dirbuf, &nameptr, MAXPDSTRING, 1)) >= 0)
+            goto gotone;
+
+        /* next try (objectname)/(classname).(tcl) ... */
+    strncpy(filename, objectname, MAXPDSTRING);
+    filename[MAXPDSTRING-2] = 0;
+    strcat(filename, "/");
+    strncat(filename, classname, MAXPDSTRING-strlen(filename));
+    filename[MAXPDSTRING-1] = 0;
+    if ((fd = canvas_open(canvas, filename, ".tcl",
+        dirbuf, &nameptr, MAXPDSTRING, 1)) >= 0)
+            goto gotone;
+
+    return 0;
+
+gotone:
+    close(fd);
+    class_set_extern_dir(gensym(dirbuf));
+        /* rebuild the absolute pathname */
+    strncpy(filename, dirbuf, MAXPDSTRING);
+    filename[MAXPDSTRING-2] = 0;
+    strcat(filename, "/");
+    strncat(filename, nameptr, MAXPDSTRING-strlen(filename));
+    filename[MAXPDSTRING-1] = 0;
+
+    // load tcl external:
+    int result = Tcl_EvalFile(tcl_for_pd, filename);
+    if(result == TCL_OK) {
+        post("Tcl loader: loaded %s", filename);
+    } else {
+        post("Tcl loader: error trying to load %s", filename);
+        tclpd_interp_error(result);
+        return 0;
+    }
+
+    class_set_extern_dir(&s_);
+    sys_putonloadlist(objectname);
+    return 1;
+}
+