rev |
line source |
nuclear@2
|
1 #include <stdio.h>
|
nuclear@2
|
2 #include <math.h>
|
nuclear@2
|
3 #include <stdlib.h>
|
nuclear@2
|
4 #include <string.h>
|
nuclear@2
|
5 #include <errno.h>
|
nuclear@2
|
6 #include "dsys2.h"
|
nuclear@2
|
7 #include "dsys_impl.h"
|
nuclear@2
|
8
|
nuclear@4
|
9 static int read_script(struct dsys_demo *demo, FILE *fp, const char *fname);
|
nuclear@4
|
10
|
nuclear@2
|
11 static float eval_step(struct dsys_event *ev, demotime_t t);
|
nuclear@2
|
12 static float eval_lerp(struct dsys_event *ev, demotime_t t);
|
nuclear@2
|
13 static float eval_sigmoid(struct dsys_event *ev, demotime_t t);
|
nuclear@2
|
14
|
nuclear@2
|
15 static void free_event(struct dsys_event *ev);
|
nuclear@2
|
16
|
nuclear@4
|
17 static struct dsys_event *sort_evlist(struct dsys_event *list, int num_ev);
|
nuclear@4
|
18 static struct dsys_event *merge_evlists(struct dsys_event *list1, struct dsys_event *list2);
|
nuclear@2
|
19
|
nuclear@2
|
20
|
nuclear@2
|
21 struct dsys_demo *dsys_open(const char *fname)
|
nuclear@2
|
22 {
|
nuclear@2
|
23 FILE *fp;
|
nuclear@4
|
24 struct dsys_demo *demo;
|
nuclear@2
|
25
|
nuclear@2
|
26 if(!(fp = fopen(fname, "r"))) {
|
nuclear@2
|
27 fprintf(stderr, "failed to open demoscript: %s: %s\n", fname, strerror(errno));
|
nuclear@2
|
28 return 0;
|
nuclear@2
|
29 }
|
nuclear@2
|
30
|
nuclear@4
|
31 if(!(demo = malloc(sizeof *demo))) {
|
nuclear@4
|
32 perror("failed to allocate memory");
|
nuclear@4
|
33 fclose(fp);
|
nuclear@4
|
34 return 0;
|
nuclear@4
|
35 }
|
nuclear@4
|
36 memset(demo, 0, sizeof *demo);
|
nuclear@4
|
37
|
nuclear@4
|
38 demo->src_tm = demo->start_tm = -1;
|
nuclear@4
|
39
|
nuclear@4
|
40 if(read_script(demo, fp, fname) == -1) {
|
nuclear@4
|
41 free(demo);
|
nuclear@4
|
42 fclose(fp);
|
nuclear@4
|
43 return 0;
|
nuclear@4
|
44 }
|
nuclear@4
|
45
|
nuclear@2
|
46 fclose(fp);
|
nuclear@4
|
47 return demo;
|
nuclear@2
|
48 }
|
nuclear@2
|
49
|
nuclear@2
|
50 struct dsys_demo *dsys_open_stream(FILE *fp)
|
nuclear@2
|
51 {
|
nuclear@2
|
52 struct dsys_demo *demo;
|
nuclear@2
|
53
|
nuclear@2
|
54 if(!(demo = malloc(sizeof *demo))) {
|
nuclear@2
|
55 perror("failed to allocate memory");
|
nuclear@2
|
56 return 0;
|
nuclear@2
|
57 }
|
nuclear@2
|
58 memset(demo, 0, sizeof *demo);
|
nuclear@2
|
59
|
nuclear@2
|
60 demo->src_tm = demo->start_tm = -1;
|
nuclear@2
|
61
|
nuclear@4
|
62 if(read_script(demo, fp, 0) == -1) {
|
nuclear@3
|
63 free(demo);
|
nuclear@3
|
64 return 0;
|
nuclear@3
|
65 }
|
nuclear@3
|
66
|
nuclear@2
|
67 return demo;
|
nuclear@2
|
68 }
|
nuclear@2
|
69
|
nuclear@2
|
70 void dsys_close(struct dsys_demo *demo)
|
nuclear@2
|
71 {
|
nuclear@4
|
72 while(demo->evlist) {
|
nuclear@4
|
73 struct dsys_event *ev = demo->evlist;
|
nuclear@4
|
74 demo->evlist = demo->evlist->next;
|
nuclear@2
|
75 free_event(ev);
|
nuclear@2
|
76 }
|
nuclear@2
|
77
|
nuclear@2
|
78 free(demo);
|
nuclear@2
|
79 }
|
nuclear@2
|
80
|
nuclear@2
|
81
|
nuclear@4
|
82 #define SEP " \t\n\r"
|
nuclear@3
|
83
|
nuclear@4
|
84 static int read_script(struct dsys_demo *demo, FILE *fp, const char *fname)
|
nuclear@3
|
85 {
|
nuclear@3
|
86 int nline = 0;
|
nuclear@4
|
87 char buf[512], *line, *tok, *endp;
|
nuclear@4
|
88 unsigned int t0, t1;
|
nuclear@3
|
89 struct dsys_event *ev;
|
nuclear@3
|
90
|
nuclear@4
|
91 if(!fname) {
|
nuclear@4
|
92 fname = "<unknown>";
|
nuclear@4
|
93 }
|
nuclear@4
|
94
|
nuclear@3
|
95 while(fgets(buf, sizeof buf, fp)) {
|
nuclear@3
|
96 nline++;
|
nuclear@3
|
97
|
nuclear@3
|
98 line = buf;/*strip_ws(buf);*/
|
nuclear@3
|
99
|
nuclear@3
|
100 if(!line || !*line) {
|
nuclear@3
|
101 continue;
|
nuclear@3
|
102 }
|
nuclear@3
|
103
|
nuclear@4
|
104 if(!(tok = strtok(line, SEP)) || (t0 = strtol(tok, &endp, 10), endp == tok)) {
|
nuclear@4
|
105 fprintf(stderr, "%s line: %d, error: expected timestamp t0\n", fname, nline);
|
nuclear@3
|
106 return -1;
|
nuclear@3
|
107 }
|
nuclear@3
|
108
|
nuclear@3
|
109 if(!(tok = strtok(0, SEP))) {
|
nuclear@4
|
110 fprintf(stderr, "%s line: %d, error: expected second timestamp or event name\n", fname, nline);
|
nuclear@3
|
111 return -1;
|
nuclear@3
|
112 }
|
nuclear@3
|
113
|
nuclear@4
|
114 t1 = strtol(tok, &endp, 10);
|
nuclear@4
|
115 if(endp == tok) {
|
nuclear@4
|
116 t1 = t0;
|
nuclear@4
|
117 } else {
|
nuclear@4
|
118 if(!(tok = strtok(0, SEP))) {
|
nuclear@4
|
119 fprintf(stderr, "%s line: %d, error: expected event name\n", fname, nline);
|
nuclear@4
|
120 return -1;
|
nuclear@4
|
121 }
|
nuclear@4
|
122 }
|
nuclear@4
|
123
|
nuclear@3
|
124 if(!(ev = malloc(sizeof *ev))) {
|
nuclear@3
|
125 perror("read_script: failed to allocate memory for an event\n");
|
nuclear@3
|
126 return -1;
|
nuclear@3
|
127 }
|
nuclear@3
|
128 ev->t0 = t0;
|
nuclear@3
|
129 ev->t1 = t1;
|
nuclear@3
|
130
|
nuclear@3
|
131 if(!(ev->name = malloc(strlen(tok) + 1))) {
|
nuclear@3
|
132 free(ev);
|
nuclear@3
|
133 sprintf("read_script: failed to allocate memory for the event name: %s\n", tok);
|
nuclear@3
|
134 return -1;
|
nuclear@3
|
135 }
|
nuclear@4
|
136 strcpy(ev->name, tok);
|
nuclear@4
|
137
|
nuclear@4
|
138 ev->eval_func = t0 == t1 ? eval_step : eval_lerp;
|
nuclear@4
|
139
|
nuclear@4
|
140 ev->next = demo->evlist;
|
nuclear@4
|
141 ev->prev = 0;
|
nuclear@4
|
142 if(demo->evlist) {
|
nuclear@4
|
143 demo->evlist->prev = ev;
|
nuclear@4
|
144 }
|
nuclear@4
|
145 demo->evlist = ev;
|
nuclear@4
|
146 demo->num_ev++;
|
nuclear@3
|
147 }
|
nuclear@3
|
148
|
nuclear@4
|
149 demo->evlist = sort_evlist(demo->evlist, demo->num_ev);
|
nuclear@4
|
150
|
nuclear@3
|
151 return 0;
|
nuclear@3
|
152 }
|
nuclear@3
|
153
|
nuclear@3
|
154
|
nuclear@2
|
155 void dsys_update(struct dsys_demo *demo, demotime_t tm)
|
nuclear@2
|
156 {
|
nuclear@2
|
157 demo->src_tm = tm;
|
nuclear@2
|
158
|
nuclear@2
|
159 if(demo->start_tm == -1) {
|
nuclear@2
|
160 dsys_start(demo);
|
nuclear@2
|
161 }
|
nuclear@2
|
162
|
nuclear@2
|
163 if(demo->running) {
|
nuclear@2
|
164 demo->tm = tm - demo->start_tm - demo->stoppage_tm;
|
nuclear@2
|
165 }
|
nuclear@2
|
166
|
nuclear@2
|
167 /* TODO check the events list etc etc */
|
nuclear@2
|
168 }
|
nuclear@2
|
169
|
nuclear@2
|
170 void dsys_start(struct dsys_demo *demo)
|
nuclear@2
|
171 {
|
nuclear@2
|
172 if(demo->running) {
|
nuclear@2
|
173 return;
|
nuclear@2
|
174 }
|
nuclear@2
|
175
|
nuclear@2
|
176 if(demo->start_tm == -1) {
|
nuclear@2
|
177 demo->start_tm = demo->src_tm;
|
nuclear@2
|
178 } else {
|
nuclear@2
|
179 demo->stoppage_tm += demo->src_tm - demo->stop_tm;
|
nuclear@2
|
180 }
|
nuclear@2
|
181
|
nuclear@2
|
182 demo->running = 1;
|
nuclear@2
|
183 }
|
nuclear@2
|
184
|
nuclear@2
|
185 void dsys_stop(struct dsys_demo *demo)
|
nuclear@2
|
186 {
|
nuclear@2
|
187 if(!demo->running) {
|
nuclear@2
|
188 return;
|
nuclear@2
|
189 }
|
nuclear@2
|
190
|
nuclear@2
|
191 demo->stop_tm = demo->src_tm;
|
nuclear@2
|
192 demo->running = 0;
|
nuclear@2
|
193 }
|
nuclear@2
|
194
|
nuclear@2
|
195 int dsys_is_running(struct dsys_demo *demo)
|
nuclear@2
|
196 {
|
nuclear@2
|
197 return demo->running;
|
nuclear@2
|
198 }
|
nuclear@2
|
199
|
nuclear@2
|
200
|
nuclear@2
|
201 demotime_t dsys_duration(struct dsys_demo *demo)
|
nuclear@2
|
202 {
|
nuclear@2
|
203 return demo->duration;
|
nuclear@2
|
204 }
|
nuclear@2
|
205
|
nuclear@2
|
206 demotime_t dsys_time(struct dsys_demo *demo)
|
nuclear@2
|
207 {
|
nuclear@2
|
208 return demo->tm;
|
nuclear@2
|
209 }
|
nuclear@2
|
210
|
nuclear@2
|
211 float dsys_progress(struct dsys_demo *demo)
|
nuclear@2
|
212 {
|
nuclear@2
|
213 return demo->tm / demo->duration;
|
nuclear@2
|
214 }
|
nuclear@2
|
215
|
nuclear@2
|
216 /* seek without continuity */
|
nuclear@2
|
217 void dsys_seek(struct dsys_demo *demo, demotime_t tm)
|
nuclear@2
|
218 {
|
nuclear@2
|
219 /* TODO */
|
nuclear@2
|
220 }
|
nuclear@2
|
221
|
nuclear@2
|
222 void dsys_seek_norm(struct dsys_demo *demo, float t)
|
nuclear@2
|
223 {
|
nuclear@2
|
224 dsys_seek(demo, t * demo->duration);
|
nuclear@2
|
225 }
|
nuclear@2
|
226
|
nuclear@2
|
227 /* seek by accelerating time */
|
nuclear@2
|
228 void dsys_warp(struct dsys_demo *demo, demotime_t tm);
|
nuclear@2
|
229 void dsys_warp_norm(struct dsys_demo *demo, float t);
|
nuclear@2
|
230
|
nuclear@2
|
231
|
nuclear@2
|
232 /* events */
|
nuclear@2
|
233 struct dsys_event *dsys_event(struct dsys_demo *demo, const char *name);
|
nuclear@2
|
234
|
nuclear@2
|
235 enum dsys_evtype dsys_event_type(struct dsys_event *ev);
|
nuclear@2
|
236 float dsys_event_value(struct dsys_event *ev);
|
nuclear@2
|
237
|
nuclear@2
|
238 void dsys_event_callback(struct dsys_event *ev, void (*func)(void*), void *cls);
|
nuclear@2
|
239 void dsys_event_link(struct dsys_event *ev, float *link);
|
nuclear@2
|
240
|
nuclear@2
|
241
|
nuclear@2
|
242 /* time conversion */
|
nuclear@2
|
243 demotime_t dsys_sec_to_dtime(float sec)
|
nuclear@2
|
244 {
|
nuclear@2
|
245 return sec;
|
nuclear@2
|
246 }
|
nuclear@2
|
247
|
nuclear@2
|
248 demotime_t dsys_msec_to_dtime(unsigned long msec)
|
nuclear@2
|
249 {
|
nuclear@2
|
250 return (demotime_t)msec / 1000.0;
|
nuclear@2
|
251 }
|
nuclear@2
|
252
|
nuclear@2
|
253 float dsys_dtime_to_sec(demotime_t tm)
|
nuclear@2
|
254 {
|
nuclear@2
|
255 return tm;
|
nuclear@2
|
256 }
|
nuclear@2
|
257
|
nuclear@2
|
258 unsigned long dsys_dtime_to_msec(demotime_t tm)
|
nuclear@2
|
259 {
|
nuclear@2
|
260 return (unsigned long)(tm * 1000.0);
|
nuclear@2
|
261 }
|
nuclear@2
|
262
|
nuclear@2
|
263
|
nuclear@2
|
264 static float eval_step(struct dsys_event *ev, demotime_t t)
|
nuclear@2
|
265 {
|
nuclear@2
|
266 return t >= ev->t1 ? 1.0 : 0.0;
|
nuclear@2
|
267 }
|
nuclear@2
|
268
|
nuclear@2
|
269 static float eval_lerp(struct dsys_event *ev, demotime_t t)
|
nuclear@2
|
270 {
|
nuclear@2
|
271 return (t - ev->t0) / (ev->t1 - ev->t0);
|
nuclear@2
|
272 }
|
nuclear@2
|
273
|
nuclear@2
|
274 static float eval_sigmoid(struct dsys_event *ev, demotime_t t)
|
nuclear@2
|
275 {
|
nuclear@2
|
276 t = eval_lerp(ev, t);
|
nuclear@2
|
277 return 1.0 - (cos(t * M_PI) * 0.5 + 0.5);
|
nuclear@2
|
278 }
|
nuclear@2
|
279
|
nuclear@2
|
280 static void free_event(struct dsys_event *ev)
|
nuclear@2
|
281 {
|
nuclear@2
|
282 while(ev->cblist) {
|
nuclear@2
|
283 struct callback *cb = ev->cblist;
|
nuclear@2
|
284 ev->cblist = ev->cblist->next;
|
nuclear@2
|
285 free(cb);
|
nuclear@2
|
286 }
|
nuclear@2
|
287 }
|
nuclear@4
|
288
|
nuclear@4
|
289 static struct dsys_event *sort_evlist(struct dsys_event *list, int num_ev)
|
nuclear@4
|
290 {
|
nuclear@4
|
291 int i, num_left, num_right;
|
nuclear@4
|
292 struct dsys_event *left, *right, *node = list;
|
nuclear@4
|
293
|
nuclear@4
|
294 if(num_ev < 2) {
|
nuclear@4
|
295 return list;
|
nuclear@4
|
296 }
|
nuclear@4
|
297
|
nuclear@4
|
298 num_left = num_ev / 2;
|
nuclear@4
|
299 num_right = num_ev - num_left;
|
nuclear@4
|
300
|
nuclear@4
|
301 for(i=0; i<num_ev/2; i++) {
|
nuclear@4
|
302 node = node->next;
|
nuclear@4
|
303 }
|
nuclear@4
|
304
|
nuclear@4
|
305 if(node->prev) {
|
nuclear@4
|
306 node->prev->next = 0;
|
nuclear@4
|
307 node->prev = 0;
|
nuclear@4
|
308 }
|
nuclear@4
|
309
|
nuclear@4
|
310 left = sort_evlist(list, num_left);
|
nuclear@4
|
311 right = sort_evlist(node, num_right);
|
nuclear@4
|
312
|
nuclear@4
|
313 return merge_evlists(left, right);
|
nuclear@4
|
314 }
|
nuclear@4
|
315
|
nuclear@4
|
316 static struct dsys_event *merge_evlists(struct dsys_event *list1, struct dsys_event *list2)
|
nuclear@4
|
317 {
|
nuclear@4
|
318 struct dsys_event *head, *tail, *node;
|
nuclear@4
|
319
|
nuclear@4
|
320 if(!list1) {
|
nuclear@4
|
321 return list2;
|
nuclear@4
|
322 }
|
nuclear@4
|
323 if(!list2) {
|
nuclear@4
|
324 return list1;
|
nuclear@4
|
325 }
|
nuclear@4
|
326
|
nuclear@4
|
327 head = tail = 0;
|
nuclear@4
|
328
|
nuclear@4
|
329 while(list1 && list2) {
|
nuclear@4
|
330 if(list1->t0 < list2->t0) {
|
nuclear@4
|
331 node = list1;
|
nuclear@4
|
332 list1 = list1->next;
|
nuclear@4
|
333 } else {
|
nuclear@4
|
334 node = list2;
|
nuclear@4
|
335 list2 = list2->next;
|
nuclear@4
|
336 }
|
nuclear@4
|
337
|
nuclear@4
|
338 node->next = 0;
|
nuclear@4
|
339 node->prev = tail;
|
nuclear@4
|
340
|
nuclear@4
|
341 if(!head) {
|
nuclear@4
|
342 head = node;
|
nuclear@4
|
343 } else {
|
nuclear@4
|
344 tail->next = node;
|
nuclear@4
|
345 }
|
nuclear@4
|
346 tail = node;
|
nuclear@4
|
347 }
|
nuclear@4
|
348
|
nuclear@4
|
349 if(list1) {
|
nuclear@4
|
350 tail->next = list1;
|
nuclear@4
|
351 list1->prev = tail;
|
nuclear@4
|
352 } else if(list2) {
|
nuclear@4
|
353 tail->next = list2;
|
nuclear@4
|
354 list2->prev = tail;
|
nuclear@4
|
355 }
|
nuclear@4
|
356
|
nuclear@4
|
357 return head;
|
nuclear@4
|
358 }
|