From 4b44403aebf7f8111f755ab622535e7a8bd7790b Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Tue, 7 Sep 2010 16:57:22 +0000
Subject: reorganized libdir loader into its own folder based on the Makefile
 library template

svn path=/trunk/externals/loaders/libdir/; revision=13981
---
 libdir.c | 107 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 107 insertions(+)
 create mode 100644 libdir.c

(limited to 'libdir.c')

diff --git a/libdir.c b/libdir.c
new file mode 100644
index 0000000..8609e3c
--- /dev/null
+++ b/libdir.c
@@ -0,0 +1,107 @@
+#include "m_pd.h"
+#include "s_stuff.h"
+#include "g_canvas.h"
+#include <stdio.h>
+#include <string.h>
+#include <unistd.h>
+
+/* this object requires Pd 0.40.3 or later */
+
+/* WARNING: KLUDGE!  */
+/*
+ * this struct is not publically defined (its in g_canvas.c) so I need to
+ * include this here.  Its from Pd 0.41-test03 2006-11-19. */
+struct _canvasenvironment
+{
+    t_symbol *ce_dir;      /* directory patch lives in */
+    int ce_argc;           /* number of "$" arguments */
+    t_atom *ce_argv;       /* array of "$" arguments */
+    int ce_dollarzero;     /* value of "$0" */
+    t_namelist *ce_path;   /* search path */
+};
+
+
+static char *version = "1.9";
+
+/* This loader opens a directory with a -meta.pd file as a library.  In the
+ * long run, the idea is that one folder will have all of objects files, all
+ * of the related *-help.pd files, a file with meta data for the help system,
+ * etc.  Then to install the lib, it would just be dropped into extra, or
+ * anywhere in the global classpath.
+ *
+ * Ultimately, the meta file will be read for meta data, specifically for
+ * the auto-generated Help system, but for other things too.  Right now,
+ * its just used as a marker that a directory is meant to be a library.
+ * Plus its much easier to implement it this way, I can use
+ * open_via_path() instead of writing a new function.  The grand plan is
+ * to have one directory hold the objects, help files, manuals,
+ * etc. making it a self-contained library. <hans@at.or.at>
+ */
+
+static int libdir_loader(t_canvas *canvas, char *classname)
+{
+    int fd = -1;
+    char helppathname[FILENAME_MAX];
+    char fullclassname[FILENAME_MAX], dirbuf[FILENAME_MAX];
+    char *nameptr;
+    t_canvasenvironment *canvasenvironment;
+
+/* look for meta file (classname)/(classname)-meta.pd */
+    strncpy(fullclassname, classname, FILENAME_MAX - 6);
+    strcat(fullclassname, "/");
+    strncat(fullclassname, classname, FILENAME_MAX - strlen(fullclassname) - 6);
+    strcat(fullclassname, "-meta");
+    
+    /* if this is being called from a canvas, then add the library path to the
+     * canvas-local path */
+    if(canvas) 
+    {
+        canvasenvironment = canvas_getenv(canvas);
+        /* setting the canvas to NULL causes it to ignore any canvas-local path */
+        if ((fd = canvas_open(NULL, fullclassname, ".pd",
+                              dirbuf, &nameptr, FILENAME_MAX, 0)) < 0) 
+        {
+            return (0);
+        }
+        close(fd);
+        if(sys_isabsolutepath(dirbuf)) // only include actual full paths
+            canvasenvironment->ce_path = namelist_append(canvasenvironment->ce_path, 
+                                                         dirbuf, 0);
+        if(sys_verbose)
+            post("libdir_loader: added '%s' to the canvas-local objectclass path",
+                 classname);
+    }
+    else
+    {
+        if ((fd = open_via_path(".", fullclassname, ".pd",
+                                dirbuf, &nameptr, FILENAME_MAX, 0)) < 0) 
+        {
+            return (0);
+        }
+        close(fd);
+        sys_searchpath = namelist_append(sys_searchpath, dirbuf, 0);
+        strncpy(helppathname, sys_libdir->s_name, FILENAME_MAX-30);
+        helppathname[FILENAME_MAX-30] = 0;
+        strcat(helppathname, "/doc/5.reference/");
+        strcat(helppathname, classname);
+        sys_helppath = namelist_append(sys_helppath, helppathname, 0);
+        post("libdir_loader: added '%s' to the global objectclass path", 
+             classname);
+//        post("\tThis is deprecated behavior.");
+    }
+    /* post("libdir_loader loaded fullclassname: '%s'\n", fullclassname); */
+    if (sys_verbose) 
+        post("Loaded libdir '%s' from '%s'", classname, dirbuf);
+
+    return (1);
+}
+
+void libdir_setup(void)
+{
+/* relies on t.grill's loader functionality, fully added in 0.40 */
+    sys_register_loader(libdir_loader);
+    post("libdir loader %s",version);  
+    post("\tcompiled on "__DATE__" at "__TIME__ " ");
+    post("\tcompiled against Pd version %d.%d.%d.%s", PD_MAJOR_VERSION, 
+         PD_MINOR_VERSION, PD_BUGFIX_VERSION, PD_TEST_VERSION);
+}
-- 
cgit v1.2.1