aboutsummaryrefslogtreecommitdiff
path: root/shared/unstable
diff options
context:
space:
mode:
Diffstat (limited to 'shared/unstable')
-rw-r--r--shared/unstable/fragile.c11
-rw-r--r--shared/unstable/fragile.h1
2 files changed, 12 insertions, 0 deletions
diff --git a/shared/unstable/fragile.c b/shared/unstable/fragile.c
index aed4d83..d91ea58 100644
--- a/shared/unstable/fragile.c
+++ b/shared/unstable/fragile.c
@@ -15,6 +15,17 @@ int fragile_class_count(void)
return (pd_objectmaker->c_nmethod);
}
+void fragile_class_getnames(t_atom *av)
+{
+ int ac = pd_objectmaker->c_nmethod;
+ t_methodentry *mp = pd_objectmaker->c_methods;
+ while (ac--)
+ {
+ SETSYMBOL(av, mp->me_name);
+ mp++; av++;
+ }
+}
+
/* Raising and voluntary mutation is a method of resolving name clashes.
A raised class hides other equivocal candidates. A simpler method,
raising and lowering, works only in global scope, because, currently, Pd
diff --git a/shared/unstable/fragile.h b/shared/unstable/fragile.h
index 6e79475..b59bb14 100644
--- a/shared/unstable/fragile.h
+++ b/shared/unstable/fragile.h
@@ -6,6 +6,7 @@
#define __FRAGILE_H__
int fragile_class_count(void);
+void fragile_class_getnames(t_atom *av);
void fragile_class_raise(t_symbol *cname, t_newmethod thiscall);
t_pd *fragile_class_mutate(t_symbol *cname, t_newmethod thiscall,
int ac, t_atom *av);