File: ascseq.c

package info (click to toggle)
pd-cxc 0.5.2-2
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, buster, sid
  • size: 500 kB
  • sloc: ansic: 3,528; makefile: 347
file content (151 lines) | stat: -rw-r--r-- 3,492 bytes parent folder | download | duplicates (4)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
/* ascii-sequencer
   input lists, strings, anythings, output every characters ascii code
   jdl@xdv.org 2002
*/

#include "m_pd.h"
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#define MAXMSGLEN 1024
#define LISTSEL "list"

t_class *ascseq_class;

typedef struct ascseq
{
  t_object x_obj;
  t_clock *x_clock;
  double   x_targettime;
  double   x_prevtime;
  t_float  x_grain;
  char     x_bla[MAXMSGLEN];
  int      x_toklen;
  int      x_tokcur;
} t_ascseq;

static void ascseq_tick(t_ascseq *x)
{
  double timenow = clock_getsystime();
  double msectogo = - clock_gettimesince(x->x_targettime);
  int chr;
  // post("ascseq: timenow: %f",timenow);
  if(x->x_tokcur >= x->x_toklen) { 
    clock_unset(x->x_clock);
    x->x_tokcur = 0;
    return;
  } else {
    chr = x->x_bla[x->x_tokcur];
    // post("tokcur: %c",chr);
    x->x_tokcur++;
    outlet_float(x->x_obj.ob_outlet, chr);
    clock_delay(x->x_clock,x->x_grain);
  }
}

void ascseq_anything(t_ascseq *x, t_symbol* s, t_int argc, t_atom* argv)
{
  int i = argc;
  int chr, cnt, len;
  char tmp[MAXMSGLEN];
  double timenow = clock_getlogicaltime();
  
  chr = 0;
  cnt = 0;
  len = 0;
  x->x_bla[0] = '\0';

  //symbol_string(s->s_name, tmp, 1024);
  if(!strstr(s->s_name,LISTSEL)) {
    strcat(x->x_bla,s->s_name);
    // post("tmp: %s",x->x_bla);
  }

  while (i--) {
    atom_string(argv, tmp, 1024);
    strcat(x->x_bla,tmp);
    // post("ascseq.c: argsize: %d",cnt);
    // post("ascseq.c: bla: %s",bla);
    argv++;
  }
  x->x_prevtime = timenow;
  x->x_targettime = clock_getsystimeafter(x->x_grain);

  x->x_toklen = strlen(x->x_bla);
  ascseq_tick(x);

/*   for(cnt=0;cnt<len;cnt++) { */
/*     //printf("'%c'\n",bla[cnt]); */
/*     chr = x->x_bla[cnt]; */
/*     outlet_float(x->x_obj.ob_outlet, chr); */
/*   } */
}

void ascseq_symbol(t_ascseq *x, t_symbol *s)
{
  t_atom* a = NULL;
  ascseq_anything(x, s, 0, a);
}

void ascseq_float(t_ascseq *x, t_floatarg f)
{
  int chr, cnt, len;
  double timenow = clock_getlogicaltime();
  
  chr = 0;
  cnt = 0;
  len = 0;
  x->x_bla[0] = '\0';

  x->x_prevtime = timenow;
  x->x_targettime = clock_getsystimeafter(x->x_grain);
  
  sprintf(x->x_bla,"%f",f);
  x->x_toklen = strlen(x->x_bla);

  ascseq_tick(x);

/*   for(cnt=0;cnt<len;cnt++){ */
/*     // printf("'%c'\n",bla[cnt]); */
/*     chr = x->x_bla[cnt]; */
/*     outlet_float(x->x_obj.ob_outlet, chr); */
/*     // clock_delay(x->x_clock,1000.); */
    /*    } */
}

static void ascseq_ft1(t_ascseq *x, t_floatarg g)
{
    if (g < 0) g = 0;
    if (!g)    g = 0;
    x->x_grain = g;
}

void ascseq_free(t_ascseq *x)
{
  clock_free(x->x_clock);
  // post("ascseq_free");
}

void *ascseq_new(t_floatarg f)
{
    t_ascseq *x = (t_ascseq *)pd_new(ascseq_class);
    ascseq_ft1(x,f);
    x->x_clock = clock_new(x, (t_method)ascseq_tick);
    x->x_targettime = x->x_prevtime = clock_getlogicaltime();
    inlet_new(&x->x_obj, &x->x_obj.ob_pd, gensym("float"), gensym("ft1"));
    outlet_new(&x->x_obj, &s_float);
    return (void *)x;
}

void ascseq_setup(void)
{
  // post("ascseq_setup");
  ascseq_class = class_new(gensym("ascseq"), (t_newmethod)ascseq_new,
			   (t_method)ascseq_free, sizeof(t_ascseq), 0, A_DEFFLOAT, 0);
  class_addlist(ascseq_class, ascseq_anything);
  class_addanything(ascseq_class,ascseq_anything);
  class_addfloat(ascseq_class, ascseq_float);
  class_addmethod(ascseq_class, (t_method)ascseq_ft1, gensym("ft1"), A_FLOAT, 0);
  class_addsymbol(ascseq_class, ascseq_symbol);
}