aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorThomas O Fredericks <mrtof@users.sourceforge.net>2009-09-23 00:52:40 +0000
committerThomas O Fredericks <mrtof@users.sourceforge.net>2009-09-23 00:52:40 +0000
commit9e97596494fb7d7e3b03d43a1674fe6c07ce39f1 (patch)
treece550b1c176a497cbfa31558f39ddfb56d743332 /src
parent84a4bdd23ec5ba4b2822476747ae697ed6856d63 (diff)
Added a abs dir
svn path=/trunk/externals/tof/; revision=12432
Diffstat (limited to 'src')
-rw-r--r--src/tof.h57
1 files changed, 56 insertions, 1 deletions
diff --git a/src/tof.h b/src/tof.h
index a2b3238..216cb62 100644
--- a/src/tof.h
+++ b/src/tof.h
@@ -172,10 +172,14 @@ static void tof_set_selector(t_symbol** selector_sym_p,int* ac_p, t_atom** av_p
}
}
+/*
static int tof_get_tagged_argument(char tag, int ac, t_atom *av, int *start, int *count) {
int i;
- if ( ac == 0 || *start >= ac) return 0;
+ if ( ac == 0 || *start >= ac) {
+ *count = 0;
+ return 0;
+ }
for ( i= *start + 1; i < ac; i++ ) {
if ( (av+i)->a_type == A_SYMBOL
@@ -185,6 +189,57 @@ static int tof_get_tagged_argument(char tag, int ac, t_atom *av, int *start, int
return (i-*start);
}
+*/
+
+// Returned value permits a while operation on the function
+static int tof_next_tagged_argument(char tag, int ac, t_atom *av, int* ac_a, t_atom ** av_a, int* iter) {
+ int i;
+
+ if ( ac == 0 || *iter >= ac) {
+ *ac_a = 0;
+ *av_a = NULL;
+ return 0;
+ }
+ for ( i= *iter + 1; i < ac; i++ ) {
+ if ( (av+i)->a_type == A_SYMBOL
+ && (atom_getsymbol(av+i))->s_name[0] == tag) break;
+ }
+ *ac_a = i - *iter;
+ *av_a = av + *iter;
+ *iter = i;
+
+ return (*ac_a);
+}
+static void tof_find_tagged_argument(char tag,t_symbol *name, int ac, t_atom *av, int *ac_r,t_atom** av_r) {
+
+ int i;
+ int j = 0;
+ for (i=0;i<ac;i++) {
+ //if ( IS_A_SYMBOL(av,i)) post("analyzing %s",atom_getsymbol(av+i)->s_name);
+ if ( IS_A_SYMBOL(av,i) && name == atom_getsymbol(av+i) && (i+1)<ac ) {
+ //post("matches");
+ i=i+1;
+ for (j=i;j<ac;j++) {
+ if ( IS_A_SYMBOL(av,j) && (atom_getsymbol(av+j))->s_name[0] == tag ) {
+ //j = j-1;
+ break;
+ }
+ }
+ break;
+ }
+ }
+ j = j-i;
+ //post("i:%d j:%d",i,j);
+
+
+ if ( j > 0) {
+ *ac_r = j;
+ *av_r = av+i;
+ } else {
+ *ac_r = 0;
+ *av_r = NULL;
+ }
+ }