aboutsummaryrefslogtreecommitdiff
path: root/desiredata
diff options
context:
space:
mode:
Diffstat (limited to 'desiredata')
-rw-r--r--desiredata/src/kernel.c22
1 files changed, 4 insertions, 18 deletions
diff --git a/desiredata/src/kernel.c b/desiredata/src/kernel.c
index 99e1209a..a19495b0 100644
--- a/desiredata/src/kernel.c
+++ b/desiredata/src/kernel.c
@@ -128,24 +128,10 @@ t_symbol *atom_gensym(t_atom *a) { /* this works better for graph labels */
return gensym("???");
}
-t_float atom_getfloatarg(int which, int argc, t_atom *argv) {
- if (argc <= which) return 0;
- argv += which;
- return argv->a_type==A_FLOAT ? argv->a_float : 0;
-}
-
-t_int atom_getintarg(int which, int argc, t_atom *argv)
-{return (t_int)atom_getfloatarg(which, argc, argv);}
-
-t_symbol *atom_getsymbolarg(int which, int argc, t_atom *argv) {
- if (argc <= which) return &s_;
- argv += which;
- return argv->a_type==A_SYMBOL ? argv->a_symbol : &s_;
-}
-
-const char *atom_getstringarg(int which, int argc, t_atom *argv) {
- return atom_getsymbolarg(which,argc,argv)->name;
-}
+t_float atom_getfloatarg( int which, int argc, t_atom *argv) {return argc<=which ? 0 : atom_getfloat( argv+which);}
+t_symbol * atom_getsymbolarg(int which, int argc, t_atom *argv) {return argc<=which ? &s_ : atom_getsymbol(argv+which);}
+t_int atom_getintarg( int which, int argc, t_atom *argv) {return t_int(atom_getfloatarg(which,argc,argv));}
+const char *atom_getstringarg(int which, int argc, t_atom *argv) {return atom_getsymbolarg(which,argc,argv)->name;}
/* convert an atom into a string, in the reverse sense of binbuf_text (q.v.)
special attention is paid to symbols containing the special characters