aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorIOhannes m zmölnig <zmoelnig@users.sourceforge.net>2008-11-25 09:00:26 +0000
committerIOhannes m zmölnig <zmoelnig@users.sourceforge.net>2008-11-25 09:00:26 +0000
commit487ce934ff2099674d2a74f16e6e5a3f8fba5651 (patch)
treeabcca1da1649f0a64f3015e2e82452faabaaa4b9 /src
parent8d18634017e968c9d3cdf2b5ecfd7fb0f3299dcc (diff)
a new loader that automagically creates abstractions
based on a template (which can be user-supplied) if the user tries to create a yet-unknown object. svn path=/trunk/externals/iem/iemguts/; revision=10380
Diffstat (limited to 'src')
-rw-r--r--src/Makefile12
-rw-r--r--src/autoabstraction.c155
2 files changed, 161 insertions, 6 deletions
diff --git a/src/Makefile b/src/Makefile
index 02b3420..eeaaaa6 100644
--- a/src/Makefile
+++ b/src/Makefile
@@ -62,7 +62,7 @@ TARGETS=$(SOURCES:.c=.$(EXTENSION))
l_ia64 l_i386 pd_linux: $(TARGETS)
-LINUXCFLAGS = -DPD -g -O2 -funroll-loops -fomit-frame-pointer -fPIC \
+LINUXCFLAGS = -DPD -DMISSING_LOADER_T -g -O2 -funroll-loops -fomit-frame-pointer -fPIC \
-Wall -W -Wshadow -Wstrict-prototypes \
-Wno-unused -Wno-parentheses -Wno-switch
@@ -82,7 +82,7 @@ STRIP?=strip
pd_darwin: $(TARGETS)
-DARWINCFLAGS = -DPD -O2 -Wall -W -Wshadow -Wstrict-prototypes \
+DARWINCFLAGS = -DPD -DMISSING_LOADER_T -O2 -Wall -W -Wshadow -Wstrict-prototypes \
-Wno-unused -Wno-parentheses -Wno-switch
DARWININCLUDE = -I$(PDSRCDIR)
@@ -96,7 +96,7 @@ DARWINLDFLAGS = -bundle -undefined suppress -flat_namespace
# ----------------------- IRIX 5.x -----------------------
pd_irix5: $(TARGETS)
-SGICFLAGS5 = -o32 -DPD -DSGI -O2
+SGICFLAGS5 = -o32 -DPD -DMISSING_LOADER_T -DSGI -O2
SGIINCLUDE = -I$(PDSRCDIR)
@@ -111,7 +111,7 @@ SGILDFLAGS = -elf -shared -rdata_shared
# ----------------------- IRIX 6.x -----------------------
pd_irix6: $(TARGETS)
-SGICFLAGS6 = -DPD -DSGI -n32 \
+SGICFLAGS6 = -DPD -DMISSING_LOADER_T -DSGI -n32 \
-OPT:roundoff=3 -OPT:IEEE_arithmetic=3 -OPT:cray_ivdep=true \
-Ofast=ip32
@@ -124,7 +124,7 @@ SGICFLAGS6 = -DPD -DSGI -n32 \
# ----------------------- NT -----------------------
dll: $(TARGETS)
-PDNTCFLAGS = /W3 /WX /DPD /DNT /D__WIN32__ /DMSW /nologo
+PDNTCFLAGS = /W3 /WX /DPD /DNT /D__WIN32__ /DMSW /DMISSING_LOADER_T /nologo
VC="C:\Programme\Microsoft Visual Studio\Vc98"
@@ -144,7 +144,7 @@ PDNTLIB = $(PDNTLDIR)\libc.lib \
pd_nt: $(TARGETS)
-MINGWCFLAGS = -DPD -O2 -funroll-loops -fomit-frame-pointer \
+MINGWCFLAGS = -DPD -DMISSING_LOADER_T -O2 -funroll-loops -fomit-frame-pointer \
-Wall -W -Wshadow -Wstrict-prototypes \
-Wno-unused -Wno-parentheses -Wno-switch -mms-bitfields
diff --git a/src/autoabstraction.c b/src/autoabstraction.c
new file mode 100644
index 0000000..37e7a1c
--- /dev/null
+++ b/src/autoabstraction.c
@@ -0,0 +1,155 @@
+/* Copyright (c) 2008 IOhannes m zmölnig @ IEM
+ * For information on usage and redistribution, and for a DISCLAIMER OF ALL
+ * WARRANTIES, see the file, "LICENSE.txt," that comes with Pd.
+ */
+
+/*
+ * this code adds an external "loader" to Miller S. Puckette's "pure data",
+ * which allows the on-the-fly creation of abstractions by just creating an
+ * object which is of a yet unknown file and for which no abstraction-file exists
+ *
+ * the new abstraction should be minimal and eventually be loaded from a template
+ *
+ * possible default abstraction: '#N canvas 0 0 450 300 10; #X vis 1;'
+ *
+ */
+
+
+#ifdef __WIN32__
+# define MSW
+#endif
+
+#include "m_pd.h"
+
+
+typedef struct _autoabstraction
+{
+ t_object x_obj;
+} t_autoabstraction;
+static t_class *autoabstraction_class;
+
+static char *version = "$Revision: 0.1 $";
+
+/* this is the name of the filename that get's loaded as a default template for new abstractions */
+static char*templatefilename="autoabstraction.template";
+/* if the loading above fails, we resort to a simple default abstraction that automatically opens up */
+static char*templatestring="#N canvas 0 0 450 300 10; #X vis 1;";
+
+
+#if (PD_MINOR_VERSION >= 40)
+
+#include "s_stuff.h"
+#include "g_canvas.h"
+#include <stdio.h>
+#include <string.h>
+#include <unistd.h>
+
+#ifdef UNISTD
+# include <stdlib.h>
+# include <unistd.h>
+#endif
+#ifdef _WIN32
+# include <io.h>
+# include <windows.h>
+#endif
+
+#ifdef MISSING_LOADER_T
+/* definitions taken from s_loader.c, since they weren't in header orignally */
+typedef int (*loader_t)(t_canvas *canvas, char *classname);
+void sys_register_loader(loader_t loader);
+void class_set_extern_dir(t_symbol *s);
+#endif
+
+
+static t_binbuf*aa_bb=0;
+
+
+static void autoabstraction_save(t_canvas*canvas, char*classname) {
+ t_binbuf*bb=0;
+
+ if(!bb)
+ bb=aa_bb;
+
+ if(bb) {
+ char name[MAXPDSTRING];
+ snprintf(name, MAXPDSTRING, "%s.pd", classname);
+
+ binbuf_write(bb, name, "", 0);
+ } else {
+ verbose(1, "[autoabstraction]: no template");
+ }
+}
+
+
+/**
+ * the loader
+ *
+ * @param canvas the context of the object to be created
+ * @param classname the name of the object (external, library) to be created
+ * @return 1 on success, 0 on failure
+ */
+static int autoabstraction_loader(t_canvas *canvas, char *classname)
+{
+ /* check whether there is an abstraction with the given <classname> within the scope of <canvas> */
+ int fd=0;
+ char dirbuf[MAXPDSTRING], *nameptr;
+
+ if((fd=canvas_open(canvas, classname, ".pd", dirbuf, &nameptr, MAXPDSTRING, 0)) >= 0 ||
+ (fd=canvas_open(canvas, classname, ".pat", dirbuf, &nameptr, MAXPDSTRING, 0)) >= 0)
+ {
+ /* oops, there's already an abstraction of the given <classname> */
+ close(fd);
+ return(0);
+ }
+
+
+ autoabstraction_save(canvas, classname);
+
+
+ /* we always fail, because we want Pd to do the real opening of abstractions */
+ return 0;
+}
+
+static void autoabstraction_initialize(void)
+{
+ aa_bb=binbuf_new();
+
+ /* try to read a template file */
+ if(binbuf_read(aa_bb, templatefilename, "", 0)) {
+ /* if this fails, use the default template */
+ size_t length=strlen(templatestring);
+
+ binbuf_text(aa_bb, templatestring, length);
+ }
+}
+
+
+
+#endif /* PD_MINOR_VERSION >= 40 */
+
+
+
+static void*autoabstraction_new(t_symbol *s, int argc, t_atom *argv)
+{
+ t_autoabstraction*x = (t_autoabstraction*)pd_new(autoabstraction_class);
+ return (x);
+}
+
+void autoabstraction_setup(void)
+{
+ /* relies on t.grill's loader functionality, fully added in 0.40 */
+ post("automatic abstraction creator %s",version);
+ post("\twritten by IOhannes m zmoelnig, IEM <zmoelnig@iem.at>");
+ 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);
+
+#if (PD_MINOR_VERSION >= 40)
+ autoabstraction_initialize();
+ sys_register_loader(autoabstraction_loader);
+#else
+ error("to function, this needs to be compiled against Pd 0.40 or higher,\n");
+ error("\tor a version that has sys_register_loader()");
+#endif
+
+ autoabstraction_class = class_new(gensym("autoabstraction"), (t_newmethod)autoabstraction_new, 0, sizeof(t_autoabstraction), CLASS_NOINLET, A_GIMME, 0);
+}