aboutsummaryrefslogtreecommitdiff
path: root/cyclone/shadow/cyclone.c
diff options
context:
space:
mode:
authorN.N. <krzyszcz@users.sourceforge.net>2003-09-05 10:03:46 +0000
committerN.N. <krzyszcz@users.sourceforge.net>2003-09-05 10:03:46 +0000
commit53f05d96ff8e49c87977fa91a06ebade8893606e (patch)
tree51bd07eb57c532e61515fb85a0fcd83698054854 /cyclone/shadow/cyclone.c
parent672477f94d2d0701f75f2546ad79980dc9ac8543 (diff)
*** empty log message ***
svn path=/trunk/externals/miXed/; revision=931
Diffstat (limited to 'cyclone/shadow/cyclone.c')
-rw-r--r--cyclone/shadow/cyclone.c48
1 files changed, 35 insertions, 13 deletions
diff --git a/cyclone/shadow/cyclone.c b/cyclone/shadow/cyclone.c
index 047d39d..10ae142 100644
--- a/cyclone/shadow/cyclone.c
+++ b/cyclone/shadow/cyclone.c
@@ -28,6 +28,8 @@ static int cyclone_nettlesndx;
static int cyclone_dummiesndx;
static int cyclone_lastndx;
+static t_pd *cyclone_dproxy = 0;
+
static void cyclone_readhook(t_pd *z, t_symbol *fn, int ac, t_atom *av)
{
import_max(fn->s_name, "");
@@ -59,28 +61,33 @@ static void cyclone_bang(t_cyclone *x)
cyclone_sicklendx, cyclone_nettlesndx - 1);
fragile_class_printnames("nettles are: ",
cyclone_nettlesndx, cyclone_dummiesndx - 1);
- if (i = dummy_nreplacements())
- post("send 'reps' message to see the list of %d \
-replacement abstractions", i);
+ if (cyclone_dproxy)
+ pd_bang(cyclone_dproxy);
else
post("no replacement abstractions");
- post("send 'dummies' message to see the list of %d dummy classes",
- /* cyclone_lastndx points to the "_dummy" sentinel class */
- cyclone_lastndx - cyclone_dummiesndx);
+ if (cyclone_lastndx > cyclone_dummiesndx)
+ post("send 'dummies' message to see the list of %d dummy classes",
+ /* cyclone_lastndx points to the "_dummy" sentinel class */
+ cyclone_lastndx - cyclone_dummiesndx);
+ else
+ post("no dummies");
}
static void cyclone_reps(t_cyclone *x)
{
- if (dummy_nreplacements())
- dummy_printreplacements("replacement abstractions are: ");
+ if (cyclone_dproxy)
+ typedmess(cyclone_dproxy, gensym("reps"), 0, 0);
else
post("no replacement abstractions");
}
static void cyclone_dummies(t_cyclone *x)
{
- fragile_class_printnames("dummies are: ",
- cyclone_dummiesndx, cyclone_lastndx);
+ if (cyclone_lastndx > cyclone_dummiesndx)
+ fragile_class_printnames("dummies are: ",
+ cyclone_dummiesndx, cyclone_lastndx);
+ else
+ post("no dummies");
}
static void cyclone_free(t_cyclone *x)
@@ -98,8 +105,8 @@ static void *cyclone_new(t_symbol *s)
void cyclone_setup(void)
{
- int hresult, sresult;
- hresult = sresult = LOADER_OK;
+ int hresult, sresult, dresult;
+ hresult = sresult = dresult = LOADER_OK;
if (canvas_getcurrent())
{
/* Loading the library by object creation is banned, because of a danger
@@ -142,7 +149,11 @@ void cyclone_setup(void)
allnettles_setup();
cyclone_dummiesndx = fragile_class_count();
- alldummies_setup();
+ if (zgetfn(&pd_objectmaker, gensym("dummies")))
+ loud_warning(0, "dummies are already loaded");
+ else
+ dresult = unstable_load_lib("", "dummies");
+
cyclone_lastndx = fragile_class_count() - 1;
if (hresult == LOADER_NOFILE)
@@ -156,4 +167,15 @@ void cyclone_setup(void)
loud_errand(0,
"use a more recent Pd release (or recompile the cyclone).");
}
+ else if (dresult == LOADER_NOFILE)
+ loud_warning(0, "dummies not found");
+ else
+ {
+ t_symbol *s = gensym("_ccdummies");
+ if (s->s_thing && !s->s_next
+ && !strcmp(class_getname(*s->s_thing), "_ccdummies"))
+ cyclone_dproxy = s->s_thing;
+ else
+ bug("cyclone_setup"); /* FIXME */
+ }
}