c7ee11ea986a82264b21317cf572d42577623942
[swftools.git] / lib / modules / swfaction.c
1 /* swfaction.c
2
3    Actionscript generation and parsing routines
4    
5    Extension module for the rfxswf library.
6    Part of the swftools package.
7
8    Copyright (c) 2001 Matthias Kramm <kramm@quiss.org>
9  
10    This file is distributed under the GPL, see file COPYING for details 
11
12 */
13
14 #include "../rfxswf.h"
15
16 #define MAX_LOOKUP 1024   // make cross references in dumps
17
18 struct Action
19 {
20     int version;
21     char*name;
22     U8 op;
23     char*flags;
24 } static actions[] =
25 {
26 /*
27 f: frame (word)
28 u: url (string)
29 t: target (string)
30 l: label (string)
31 C: constant pool header (byte)
32 c: constant pool entry (string)
33 s: skip (byte) (number of actions)
34 m: method (byte) swf_GetUrl2:(0=none, 1=get, 2=post)/GotoFrame2:(1=play)
35 b: branch (word) (number of bytes)
36 p (push): type(byte), type=0:string, type=1:double
37 {: define function (name (string), num (word), params (num strings), codesize (word)
38 o: object (string)
39 r: register (byte)
40  */
41 {3,"End", 0x00, ""},
42 {3,"GotoFrame", 0x81, "f"},
43 {4,"GotoFrame2", 0x9f, "m"}, // -1 (/Movieclip:3)
44 {3,"GetUrl", 0x83, "ul"},
45 {4,"GetUrl2", 0x9a, "m"}, //-2
46 {3,"NextFrame", 0x04, ""},
47 {3,"PreviousFrame", 0x05, ""},
48 {3,"Play", 0x06, ""},
49 {3,"Stop", 0x07, ""},
50 {3,"ToggleQuality", 0x08, ""},
51 {3,"StopSounds", 0x09, ""},
52 {3,"WaitForFrame", 0x8a, "fs"},
53 {4,"WaitForFrame2", 0x8d, "s"}, // -1
54 {3,"SetTarget", 0x8b, "t"},
55 {4,"SetTarget2", 0x20, ""}, //-1
56 {3,"GotoLabel", 0x8c, "l"},
57 {4,"Add", 0x0a, ""}, //  -2, +1
58 {4,"Multiply", 0x0c, ""}, //  -2, +1
59 {4,"Divide", 0x0d, ""}, //  -2, +1
60 {4,"Subtract", 0x0b, ""}, //  -2, +1
61 {4,"Less", 0x0f, ""}, //  -2, +1
62 {4,"Equals", 0x0e, ""}, //  -2, +1
63 {4,"And", 0x10, ""}, //  -2, +1
64 {4,"Or", 0x11, ""}, //  -2, +1
65 {4,"Not", 0x12, ""}, //  -1, +1
66 {4,"StringAdd", 0x21, ""}, // -2,+1
67 {4,"StringLength", 0x14, ""}, // -1, +1
68 {4,"MBStringLength", 0x31, ""}, // -1, +1
69 {4,"StringEquals", 0x13, ""}, // -2, +1
70 {4,"StringLess", 0x29, ""}, //-2, +1
71 {4,"StringExtract", 0x15, ""}, // -3, +1
72 {4,"MBStringExtract", 0x35, ""}, //-3 +1
73 {4,"Push", 0x96, "p"}, //  +1
74 {4,"Pop", 0x17, ""}, //  -1
75 {4,"ToInteger", 0x18, ""}, // -1, +1
76 {4,"CharToAscii", 0x32, ""}, // -1, +1
77 {4,"AsciiToChar", 0x33, ""}, // -1, +1
78 {4,"MBCharToAscii", 0x36, ""}, // -1, +1
79 {4,"MBAsciiToChar", 0x37, ""}, // -1, +1
80 {4,"Jump", 0x99, "b"},
81 {4,"If", 0x9d, "b"}, // -1
82 {4,"Call", 0x9e, ""}, //-1 (frame label/number) (high bit is wrong.)
83 {4,"GetVariable", 0x1c,""}, // -1, +1
84 {4,"SetVariable", 0x1d,""}, // -2
85 {4,"GetProperty", 0x22,""}, //-2, +1
86 {4,"SetProperty", 0x23, ""}, // -3
87 {4,"RemoveSprite", 0x25, ""}, //-1
88 {4,"StartDrag", 0x27, ""}, // -2, -1, (-4)
89 {4,"EndDrag", 0x28, ""}, 
90 {4,"CloneSprite", 0x24, ""}, // -3
91 {4,"Trace", 0x26, ""}, //-1
92 {4,"GetTime", 0x34, ""}, //+1
93 {4,"RandomNumber", 0x30, ""}, //-1,+1
94 {5,"Modulo", 0x3f,""},
95 {5,"BitAnd", 0x60,""},
96 {5,"BitLShift", 0x63,""},
97 {5,"BitOr", 0x61,""},
98 {5,"BitRShift", 0x64,""},
99 {5,"BitURShift", 0x65,""},
100 {5,"BitXor", 0x62,""},//66?
101 {5,"Decrement", 0x51,""},
102 {5,"Increment", 0x50,""},
103 {5,"PushDuplicate", 0x4c,""},
104 {5,"StackSwap", 0x4d,""}, //?
105 {5,"StoreRegister", 0x87,"r"},
106 {5,"CallFunction", 0x3d,""},
107 {5,"DefineFunction", 0x9b, "{"},
108 {5,"Return", 0x3e,""},
109 {5,"GetMember", 0x4e,""},
110 {5,"SetMember", 0x4f,""},
111 {5,"CallMethod", 0x52,""},
112 {5,"Constantpool", 0x88, "Cc"},
113 {5,"DefineLocal", 0x3c,""},
114 {5,"DefineLocal2", 0x41,""},
115 {5,"Makehash", 0x43, ""}, //??
116 {5,"Delete", 0x3a,""}, //?
117 {5,"Delete2", 0x3b,""},
118 {5,"Enumerate", 0x46,""},
119 {5,"Equals2", 0x49,""},
120 {5,"InitArray", 0x42,""}, // InitObject?
121 {5,"NewMethod", 0x53,""}, //?
122 {5,"NewObject", 0x40,""},
123 {5,"TargetPath", 0x45,""}, //?
124 {5,"With", 0x94, "o"},
125 {5,"ToNumber", 0x4a,""}, //?
126 {5,"ToString", 0x4b,""}, //?
127 {5,"TypeOf", 0x44,""},
128 {5,"Add2", 0x47,""},
129 {5,"Less2", 0x48,""}
130 };
131 static int definedactions = sizeof(actions)/sizeof(struct Action);
132
133 ActionTAG* swf_ActionGet(TAG*tag) 
134 {
135     U8 op = 1;
136     int length;
137     ActionTAG tmp;
138     ActionTAG*action = &tmp;
139     U8*data;
140     while(op)
141     {
142         action->next = (ActionTAG*)malloc(sizeof(ActionTAG));
143         action->next->prev = action;
144         action->next->next = 0;
145         action = action->next;
146
147         op = swf_GetU8(tag);
148         if(op<0x80)
149             length = 0;
150         else
151             length = swf_GetU16(tag);
152
153         if(length) {
154             data = malloc(length);
155             swf_GetBlock(tag, data, length);
156         } else {
157           data = 0;
158         }
159         action->op = op;
160         action->len = length;
161         action->data = data;
162         action->parent = tag;
163     }
164     return tmp.next;
165 }
166
167 void swf_ActionFree(ActionTAG*action)
168 {
169     while(action)
170     {
171         ActionTAG*tmp;
172         if(action->data && action->data != action->tmp)
173             free(action->data);
174         tmp = action;
175         action=action->next;
176         free(tmp);
177     }
178 }
179
180 void swf_ActionSet(TAG*tag, ActionTAG*action)
181 {
182     while(action)
183     {
184         swf_SetU8(tag, action->op);
185         if(action->op & 128)
186           swf_SetU16(tag, action->len);
187
188         swf_SetBlock(tag, action->data, action->len);
189
190         action = action->next;
191     }
192 }
193
194 int OpAdvance(char c, char*data)
195 {
196     switch (c)
197     {
198         case 'f':
199             return 2;
200         case 'u':
201             return strlen(data)+1;
202         case 't':
203             return strlen(data)+1;
204         case 'l': 
205             return strlen(data)+1;
206         case 'c': 
207             return strlen(data)+1;
208         case 'C': 
209             return 2;
210         case 's':
211             return 1;
212         case 'm':
213             return 1;
214         case 'b':
215             return 2;
216         case 'p': {
217             U8 type = *data++;
218             if(type == 0) {
219                 return 1+strlen(data)+1; //string
220             } else if (type == 1) {
221                 return 1+4; //float
222             } else if (type == 2) {
223                 return 1+0; //NULL
224             } else if (type == 4) {
225                 return 1+1; //register
226             } else if (type == 5) {
227                 return 1+1; //bool
228             } else if (type == 6) {
229                 return 1+8; //double
230             } else if (type == 7) {
231                 return 1+4; //int
232             } else if (type == 8) {
233                 return 1+1; //lookup
234             } else return 1;
235             break;
236         }
237     }
238     return 0;
239 }
240
241 /* TODO: * this should be in swfdump.c */
242 void swf_DumpActions(ActionTAG*atag, char*prefix) 
243 {
244     int t;
245     U8*data;
246     char* cp;
247     int entry = 0;
248
249 #ifdef MAX_LOOKUP
250
251     char * lookup[MAX_LOOKUP];
252     memset(lookup,0x00,sizeof(lookup));
253
254 #endif
255
256    if (!prefix)
257         prefix="";
258
259     while(atag)
260     {
261         U8 poollen = 0;
262         for(t=0;t<definedactions;t++)
263             if(actions[t].op == atag->op)
264                 break;
265
266         if(t==definedactions) {
267             printf("%s (%5d bytes) action: %02x\n", prefix, atag->len, atag->op);
268             atag = atag->next;
269             continue;
270         }
271         printf("%s (%5d bytes) action: %s", prefix, atag->len, actions[t].name);
272         cp = actions[t].flags;
273         data = atag->data;
274         if(atag->len) //TODO: check for consistency: should we have a length?
275         while(*cp)
276         {
277             switch(*cp)
278             {
279                 case 'f': {
280                     printf(" %d", SWAP16(*(U16*)data));
281                 } break;
282                 case 'u': {
283                     printf(" URL:\"%s\"", data);
284                 } break;
285                 case 't': {
286                     printf(" Target:\"%s\"", data);
287                 } break;
288                 case 'l': {
289                     printf(" Label:\"%s\"", data);
290                 } break;
291                 case 'c': {
292                     printf(" String:\"%s\"", data);
293 #ifdef MAX_LOOKUP
294                     if (entry<MAX_LOOKUP)
295                       lookup[entry++] = strdup(data);
296 #endif
297                 } break;
298                 case 'C': {
299                     poollen = *data;
300                     entry = 0;
301                     printf("(%d entries)", poollen);
302                 } break;
303                 case 's': {
304                     printf(" +%d", *data);
305                 } break;
306                 case 'm': {
307                     //m: method (byte) url:(0=none, 1=get, 2=datat)/gf2:(1=play)
308                     printf(" %d", *data);
309                 } break;
310                 case 'b': {
311                     printf(" %d", *(U16*)data);
312                 } break;
313                 case 'p': {
314                     U8 type = *data;
315                     char*value = data+1;
316                     if(type == 0) {
317                         printf(" String:\"%s\"", value);
318                     } else if (type == 1) {
319                         U32 v = SWAP32(*(U32*)value);
320                         printf(" Float:%f", *(float*)&v);
321                     } else if (type == 2) {
322                         printf(" NULL");
323                     } else if (type == 4) {
324                         printf(" register:%d", *value);
325                     } else if (type == 5) {
326                         printf(" bool:%s", *value?"true":"false");
327                     } else if (type == 6) {
328 #ifdef WORDS_BIGENDIAN
329                         U8 a[8];
330                         int t;
331                         for(t=0;t<8;t++)
332                             a[7-t]=value[t];
333                         printf(" double:%f", *(double*)a);
334 #else
335                         printf(" double:%f", *(double*)value);
336 #endif
337                     } else if (type == 7) {
338                         printf(" int:%d", SWAP32(*(int*)value));
339                     } else if (type == 8) {
340                         printf(" Lookup:%d", *value);
341 #ifdef MAX_LOOKUP
342                         if (lookup[*value])
343                           printf(" (\"%s\")",lookup[*value]);
344 #endif
345                     } else {
346                         printf(" UNKNOWN[%02x]",type);
347                     }
348                 } break;
349             }
350             data += OpAdvance(*cp, data);
351             if((*cp!='c' || !poollen) &&
352                (*cp!='p' || !(data<&atag->data[atag->len])))
353                 cp++;
354             if(poollen)
355                 poollen--;
356         }
357
358         if(data < atag->data + atag->len)
359         {
360             int nl = ((atag->data+atag->len)-data);
361             int t;
362             printf(" (remainder of %d bytes:\"", nl);
363             for(t=0;t<nl;t++) {
364                 if(data[t]<32)
365                     printf("\\%d",data[t]);
366                 else
367                     printf("%c", data[t]);
368             }
369             printf("\")");
370         }
371         printf("\n");
372         atag = atag->next;
373     }
374
375 #ifdef MAX_LOOKUP
376   for (t=0;t<MAX_LOOKUP;t++) if (lookup[t]) free(lookup[t]);
377 #endif
378 }
379
380 static const char TYPE_URL = 1;
381 static const char TYPE_TARGET = 2;
382 static const char TYPE_STRING = 4;
383
384 int swf_ActionEnumerate(ActionTAG*atag, char*(*callback)(char*), int type)
385 {
386     int t;
387     U8*data;
388     char* cp;
389     int count = 0;
390     while(atag)
391     {
392         U8 poollen = 0;
393         for(t=0;t<definedactions;t++)
394             if(actions[t].op == atag->op)
395                 break;
396
397         if(t==definedactions) {
398             // unknown actiontag
399             atag = atag->next;
400             count++;
401             continue;
402         }
403         cp = actions[t].flags;
404         data = atag->data;
405         if(atag->len) {
406             while(*cp) {
407                 U8 * replacepos = 0;
408                 int replacelen = 0;
409                 U8 * replacement = 0;
410                 switch(*cp)
411                 {
412                     case 'u': {
413                         if(type&TYPE_URL)
414                         {
415                             replacelen = strlen(data);
416                             replacepos = data;
417                             replacement = callback(data); // may be null
418                         }
419                     } break;
420                     case 't': {
421                         if(type&TYPE_TARGET)
422                         {
423                             replacelen = strlen(data);
424                             replacepos = data;
425                             replacement = callback(data); // may be null
426                         }
427                     } break;
428                     case 'c': {
429                         if(type&TYPE_STRING)
430                         {
431                             replacelen = strlen(data);
432                             replacepos = data;
433                             replacement = callback(data); // may be null
434                         }
435                     } break;
436                     case 'C': {
437                         poollen = (*data);
438                     } break;
439                     case 'o': {
440                     } break;
441                     case 'p': {
442                         U8 datatype = *data;
443                         char*value = &data[1];
444                         if(datatype == 0) { //string
445                             if(type&TYPE_STRING)
446                             {
447                                 replacelen = strlen(value);
448                                 replacepos = value;
449                                 replacement = callback(value); // may be null
450                             }
451                         } else if (datatype == 8) { //lookup
452                         }
453                     } break;
454                 }
455                 data += OpAdvance(*cp, data);
456                 if(*cp!='c' || !poollen)
457                     cp++;
458                 if(poollen)
459                     poollen--;
460
461                 if(replacement)
462                 {
463                     int newlen = strlen(replacement);
464                     char * newdata = malloc(atag->len - replacelen + newlen);
465                     int rpos = replacepos - atag->data;
466                     memcpy(newdata, atag->data, rpos);
467                     memcpy(&newdata[rpos], replacement, newlen);
468                     memcpy(&newdata[rpos+newlen], &replacepos[replacelen],
469                             &data[atag->len] - &replacepos[replacelen]);
470                     free(atag->data);
471                     atag->data = newdata;
472                     data = &atag->data[rpos+newlen+1];
473                 }
474             }
475         }
476         atag = atag->next;
477         count ++;
478     }
479     return count;
480 }
481
482 void swf_ActionEnumerateTargets(ActionTAG*atag, char*(*callback)(char*))
483 {
484     swf_ActionEnumerate(atag, callback, TYPE_TARGET);
485 }
486 void swf_ActionEnumerateStrings(ActionTAG*atag, char*(*callback)(char*))
487 {
488     swf_ActionEnumerate(atag, callback, TYPE_STRING);
489 }
490 void swf_ActionEnumerateURLs(ActionTAG*atag, char*(*callback)(char*))
491 {
492     swf_ActionEnumerate(atag, callback, TYPE_URL);
493 }
494
495 static ActionTAG * currentatag;
496
497 ActionTAG* swf_ActionStart()
498 {
499     currentatag = (ActionTAG*)malloc(sizeof(ActionTAG));
500     currentatag->prev = 0;
501     currentatag->parent = 0;
502     currentatag->data = 0;
503     currentatag->len = 0;
504     return currentatag;
505 }
506
507 void swf_ActionEnd()
508 {
509     currentatag->prev->next = 0;
510     free(currentatag);
511 }
512
513 void swf_AddActionTAG(U8 op, U8*data, U16 len)
514 {
515     currentatag->next = (ActionTAG*)malloc(sizeof(ActionTAG));
516     currentatag->next->prev = currentatag;
517     currentatag->parent = 0;
518     currentatag->data = data;
519     currentatag->len = len;
520     currentatag->op = op;
521     currentatag = currentatag->next;
522 }
523
524 ActionMarker action_setMarker()
525 {
526     ActionMarker m;
527     m.atag = currentatag;
528     return m;
529 }
530
531 int inline ActionTagSize(ActionTAG*atag)
532 {
533     return (atag->op&0x80)?3+(atag->len):1+0;
534 }
535
536
537 #define ACTION_END            0x00
538 #define ACTION_NEXTFRAME      0x04
539 #define ACTION_PREVIOUSFRAME  0x05
540 #define ACTION_PLAY           0x06
541 #define ACTION_STOP           0x07
542 #define ACTION_TOGGLEQUALITY  0x08
543 #define ACTION_STOPSOUNDS     0x09
544 #define ACTION_ADD            0x0a
545 #define ACTION_SUBTRACT       0x0b
546 #define ACTION_MULTIPLY       0x0c
547 #define ACTION_DIVIDE         0x0d
548 #define ACTION_EQUALS         0x0e
549 #define ACTION_LESS           0x0f
550 #define ACTION_AND            0x10
551 #define ACTION_OR             0x11
552 #define ACTION_NOT            0x12
553 #define ACTION_STRINGEQUALS   0x13
554 #define ACTION_STRINGLENGTH   0x14
555 #define ACTION_STRINGEXTRACT  0x15
556 #define ACTION_POP            0x17
557 #define ACTION_TOINTEGER      0x18
558 #define ACTION_GETVARIABLE    0x1c
559 #define ACTION_SETVARIABLE    0x1d
560 #define ACTION_SETTARGET2     0x20
561 #define ACTION_STRINGADD      0x21
562 #define ACTION_GETPROPERTY    0x22
563 #define ACTION_SETPROPERTY    0x23
564 #define ACTION_CLONESPRITE    0x24
565 #define ACTION_REMOVESPRITE   0x25
566 #define ACTION_TRACE          0x26
567 #define ACTION_STARTDRAG      0x27
568 #define ACTION_ENDDRAG        0x28
569 #define ACTION_STRINGLESS     0x29
570 #define ACTION_RANDOMNUMBER   0x30
571 #define ACTION_MBSTRINGLENGTH 0x31
572 #define ACTION_CHARTOASCII    0x32
573 #define ACTION_ASCIITOCHAR    0x33
574 #define ACTION_GETTIME        0x34
575 #define ACTION_MBSTRINGEXTRACT 0x35
576 #define ACTION_MBCHARTOASCII  0x36
577 #define ACTION_MBASCIITOCHAR  0x37
578 #define ACTION_DELETE         0x3a
579 #define ACTION_DELETE2        0x3b
580 #define ACTION_DEFINELOCAL    0x3c
581 #define ACTION_CALLFUNCTION   0x3d
582 #define ACTION_RETURN         0x3e
583 #define ACTION_MODULO         0x3f
584 #define ACTION_NEWOBJECT      0x40
585 #define ACTION_DEFINELOCAL2   0x41
586 #define ACTION_INITARRAY      0x42
587 #define ACTION_MAKEHASH       0x43
588 #define ACTION_TYPEOF         0x44
589 #define ACTION_TARGETPATH     0x45
590 #define ACTION_ENUMERATE      0x46
591 #define ACTION_ADD2           0x47
592 #define ACTION_LESS2          0x48
593 #define ACTION_EQUALS2        0x49
594 #define ACTION_TONUMBER       0x4a
595 #define ACTION_TOSTRING       0x4b
596 #define ACTION_PUSHDUPLICATE  0x4c
597 #define ACTION_STACKSWAP      0x4d
598 #define ACTION_GETMEMBER      0x4e
599 #define ACTION_SETMEMBER      0x4f
600 #define ACTION_INCREMENT      0x50
601 #define ACTION_DECREMENT      0x51
602 #define ACTION_CALLMETHOD     0x52
603 #define ACTION_NEWMETHOD      0x53
604 #define ACTION_BITAND         0x60
605 #define ACTION_BITOR          0x61
606 #define ACTION_BITXOR         0x62
607 #define ACTION_BITLSHIFT      0x63
608 #define ACTION_BITRSHIFT      0x64
609 #define ACTION_BITURSHIFT     0x65
610 #define ACTION_GOTOFRAME      0x81
611 #define ACTION_GETURL         0x83
612 #define ACTION_STOREREGISTER  0x87
613 #define ACTION_CONSTANTPOOL   0x88
614 #define ACTION_WAITFORFRAME   0x8a
615 #define ACTION_SETTARGET      0x8b
616 #define ACTION_GOTOLABEL      0x8c
617 #define ACTION_WAITFORFRAME2  0x8d
618 #define ACTION_WITH           0x94
619 #define ACTION_PUSH           0x96
620 #define ACTION_JUMP           0x99
621 #define ACTION_GETURL2        0x9a
622 #define ACTION_DEFINEFUNCTION 0x9b
623 #define ACTION_IF             0x9d
624 #define ACTION_CALL           0x9e
625 #define ACTION_GOTOFRAME2     0x9f
626
627 void action_fixjump(ActionMarker m1, ActionMarker m2)
628 {
629     ActionTAG* a1 = m1.atag;
630     ActionTAG* a2 = m2.atag;
631     ActionTAG* a;
632     int len = 0;
633     int oplen = 0;
634     a = a1;
635     
636     a = a->next; //first one is free
637     while(a && a!=a2)
638     {
639         len += ActionTagSize(a);
640         oplen ++;
641         a = a->next;
642     }
643     if(!a)
644     { len = 0;
645       oplen = 0;
646       a = a2;
647       while(a && a!=a1) {
648           len -= ActionTagSize(a);
649           oplen --;
650           a = a->next;
651       }
652       if(!a) {
653           fprintf(stderr, "action_fixjump: couldn't find second tag\n");
654           return;
655       }
656       len -= ActionTagSize(a);
657       oplen --;
658     }
659
660     if (a1->op == ACTION_IF || a1->op == ACTION_JUMP) 
661     {
662         *(U16*)(a1->data) = SWAP16(len);
663     }
664     else if(a1->op == ACTION_WAITFORFRAME)
665     {
666         ((U8*)(a1->data))[2] = oplen;
667     }
668     else if(a1->op == ACTION_WAITFORFRAME2)
669     {
670         ((U8*)(a1->data))[0] = oplen;
671     }
672     
673 }
674
675
676 void action_NextFrame() {swf_AddActionTAG(ACTION_NEXTFRAME, 0, 0);}
677 void action_PreviousFrame() {swf_AddActionTAG(ACTION_PREVIOUSFRAME, 0, 0);}
678 void action_Play() {swf_AddActionTAG(ACTION_PLAY, 0, 0);}
679 void action_Stop() {swf_AddActionTAG(ACTION_STOP, 0, 0);}
680 void action_ToggleQuality() {swf_AddActionTAG(ACTION_TOGGLEQUALITY, 0, 0);}
681 void action_StopSounds() {swf_AddActionTAG(ACTION_STOPSOUNDS, 0, 0);}
682 void action_Add() {swf_AddActionTAG(ACTION_ADD, 0, 0);}
683 void action_Subtract() {swf_AddActionTAG(ACTION_SUBTRACT, 0, 0);}
684 void action_Multiply() {swf_AddActionTAG(ACTION_MULTIPLY, 0, 0);}
685 void action_Divide() {swf_AddActionTAG(ACTION_DIVIDE, 0, 0);}
686 void action_Equals() {swf_AddActionTAG(ACTION_EQUALS, 0, 0);}
687 void action_Less() {swf_AddActionTAG(ACTION_LESS, 0, 0);}
688 void action_And() {swf_AddActionTAG(ACTION_AND, 0, 0);}
689 void action_Or() {swf_AddActionTAG(ACTION_OR, 0, 0);}
690 void action_Not() {swf_AddActionTAG(ACTION_NOT, 0, 0);}
691 void action_StringEquals() {swf_AddActionTAG(ACTION_STRINGEQUALS, 0, 0);}
692 void action_StringLength() {swf_AddActionTAG(ACTION_STRINGLENGTH, 0, 0);}
693 void action_StringExtract() {swf_AddActionTAG(ACTION_STRINGEXTRACT, 0, 0);}
694 void action_Pop() {swf_AddActionTAG(ACTION_POP, 0, 0);}
695 void action_ToInteger() {swf_AddActionTAG(ACTION_TOINTEGER, 0, 0);}
696 void action_GetVariable() {swf_AddActionTAG(ACTION_GETVARIABLE, 0, 0);}
697 void action_SetVariable() {swf_AddActionTAG(ACTION_SETVARIABLE, 0, 0);}
698 void action_SetTarget2() {swf_AddActionTAG(ACTION_SETTARGET2, 0, 0);}
699 void action_StringAdd() {swf_AddActionTAG(ACTION_STRINGADD, 0, 0);}
700 void action_GetProperty() {swf_AddActionTAG(ACTION_GETPROPERTY, 0, 0);}
701 void action_SetProperty() {swf_AddActionTAG(ACTION_SETPROPERTY, 0, 0);}
702 void action_CloneSprite() {swf_AddActionTAG(ACTION_CLONESPRITE, 0, 0);}
703 void action_RemoveSprite() {swf_AddActionTAG(ACTION_REMOVESPRITE, 0, 0);}
704 void action_Trace() {swf_AddActionTAG(ACTION_TRACE, 0, 0);}
705 void action_StartDrag() {swf_AddActionTAG(ACTION_STARTDRAG, 0, 0);}
706 void action_EndDrag() {swf_AddActionTAG(ACTION_ENDDRAG, 0, 0);}
707 void action_StringLess() {swf_AddActionTAG(ACTION_STRINGLESS, 0, 0);}
708 void action_RandomNumber() {swf_AddActionTAG(ACTION_RANDOMNUMBER, 0, 0);}
709 void action_MBStringLength() {swf_AddActionTAG(ACTION_MBSTRINGLENGTH, 0, 0);}
710 void action_CharToAscii() {swf_AddActionTAG(ACTION_CHARTOASCII, 0, 0);}
711 void action_AsciiToChar() {swf_AddActionTAG(ACTION_ASCIITOCHAR, 0, 0);}
712 void action_GetTime() {swf_AddActionTAG(ACTION_GETTIME, 0, 0);}
713 void action_MBStringExtract() {swf_AddActionTAG(ACTION_MBSTRINGEXTRACT, 0, 0);}
714 void action_MBCharToAscii() {swf_AddActionTAG(ACTION_MBCHARTOASCII, 0, 0);}
715 void action_MBAsciiToChar() {swf_AddActionTAG(ACTION_MBASCIITOCHAR, 0, 0);}
716 void action_Delete() {swf_AddActionTAG(ACTION_DELETE, 0, 0);}
717 void action_Delete2() {swf_AddActionTAG(ACTION_DELETE2, 0, 0);}
718 void action_DefineLocal() {swf_AddActionTAG(ACTION_DEFINELOCAL, 0, 0);}
719 void action_CallFunction() {swf_AddActionTAG(ACTION_CALLFUNCTION, 0, 0);}
720 void action_Return() {swf_AddActionTAG(ACTION_RETURN, 0, 0);}
721 void action_Modulo() {swf_AddActionTAG(ACTION_MODULO, 0, 0);}
722 void action_NewObject() {swf_AddActionTAG(ACTION_NEWOBJECT, 0, 0);}
723 void action_DefineLocal2() {swf_AddActionTAG(ACTION_DEFINELOCAL2, 0, 0);}
724 void action_InitArray() {swf_AddActionTAG(ACTION_INITARRAY, 0, 0);}
725 void action_Makehash() {swf_AddActionTAG(ACTION_MAKEHASH, 0, 0);}
726 void action_TypeOf() {swf_AddActionTAG(ACTION_TYPEOF, 0, 0);}
727 void action_TargetPath() {swf_AddActionTAG(ACTION_TARGETPATH, 0, 0);}
728 void action_Enumerate() {swf_AddActionTAG(ACTION_ENUMERATE, 0, 0);}
729 void action_Add2() {swf_AddActionTAG(ACTION_ADD2, 0, 0);}
730 void action_Less2() {swf_AddActionTAG(ACTION_LESS2, 0, 0);}
731 void action_Equals2() {swf_AddActionTAG(ACTION_EQUALS2, 0, 0);}
732 void action_ToNumber() {swf_AddActionTAG(ACTION_TONUMBER, 0, 0);}
733 void action_ToString() {swf_AddActionTAG(ACTION_TOSTRING, 0, 0);}
734 void action_PushDuplicate() {swf_AddActionTAG(ACTION_PUSHDUPLICATE, 0, 0);}
735 void action_StackSwap() {swf_AddActionTAG(ACTION_STACKSWAP, 0, 0);}
736 void action_GetMember() {swf_AddActionTAG(ACTION_GETMEMBER, 0, 0);}
737 void action_SetMember() {swf_AddActionTAG(ACTION_SETMEMBER, 0, 0);}
738 void action_Increment() {swf_AddActionTAG(ACTION_INCREMENT, 0, 0);}
739 void action_Decrement() {swf_AddActionTAG(ACTION_DECREMENT, 0, 0);}
740 void action_CallMethod() {swf_AddActionTAG(ACTION_CALLMETHOD, 0, 0);}
741 void action_NewMethod() {swf_AddActionTAG(ACTION_NEWMETHOD, 0, 0);}
742 void action_BitAnd() {swf_AddActionTAG(ACTION_BITAND, 0, 0);}
743 void action_BitOr() {swf_AddActionTAG(ACTION_BITOR, 0, 0);}
744 void action_BitXor() {swf_AddActionTAG(ACTION_BITXOR, 0, 0);}
745 void action_BitLShift() {swf_AddActionTAG(ACTION_BITLSHIFT, 0, 0);}
746 void action_BitRShift() {swf_AddActionTAG(ACTION_BITRSHIFT, 0, 0);}
747 void action_BitURShift() {swf_AddActionTAG(ACTION_BITURSHIFT, 0, 0);}
748 void action_Call() {swf_AddActionTAG(ACTION_CALL, 0, 0);}
749 void action_End() {swf_AddActionTAG(ACTION_END, 0, 0);}
750 void action_GotoFrame(U16 frame) 
751 {
752     *(U16*)currentatag->tmp = SWAP16(frame);
753     swf_AddActionTAG(ACTION_GOTOFRAME, (U8*)currentatag->tmp, 2);
754 }
755 void action_Jump(U16 branch) 
756 {
757     *(U16*)currentatag->tmp = SWAP16(branch);
758     swf_AddActionTAG(ACTION_JUMP, (U8*)currentatag->tmp, 2);
759 }
760 void action_If(U16 branch) 
761 {
762     *(U16*)currentatag->tmp = SWAP16(branch);
763     swf_AddActionTAG(ACTION_IF, (U8*)currentatag->tmp, 2);
764 }
765 void action_StoreRegister(U8 reg) 
766 {
767     *(U8*)currentatag->tmp = reg;
768     swf_AddActionTAG(ACTION_STOREREGISTER, (U8*)currentatag->tmp, 1);
769 }
770 void action_GotoFrame2(U8 method) 
771 {
772     *(U8*)currentatag->tmp = method;
773     swf_AddActionTAG(ACTION_GOTOFRAME2, (U8*)currentatag->tmp, 1);
774 }
775 void action_GetUrl2(U8 method) 
776 {
777     *(U8*)currentatag->tmp = method;
778     swf_AddActionTAG(ACTION_GETURL2, (U8*)currentatag->tmp, 1);
779 }
780 void action_WaitForFrame2(U8 skip) 
781 {
782     *(U8*)currentatag->tmp = skip;
783     swf_AddActionTAG(ACTION_WAITFORFRAME2, (U8*)currentatag->tmp, 1);
784 }
785 void action_WaitForFrame(U16 frame, U8 skip) 
786 {
787     *(U16*)currentatag->tmp = SWAP16(frame);
788     *(U8*)&currentatag->tmp[2] = skip;
789     swf_AddActionTAG(ACTION_WAITFORFRAME, (U8*)currentatag->tmp, 3);
790 }
791 void action_SetTarget(char* target)
792 {
793     char*ptr = strdup(target);
794     swf_AddActionTAG(ACTION_SETTARGET, (U8*)ptr, strlen(ptr)+1);
795 }
796 void action_PushNULL() 
797 {
798     *(U8*)currentatag->tmp = 2; //NULL
799     swf_AddActionTAG(ACTION_PUSH, (U8*)currentatag->tmp, 1);
800 }
801 void action_PushBoolean(char c) 
802 {
803     *(U8*)currentatag->tmp = 5; //bool
804     *(U8*)&currentatag->tmp[1] = c;
805     swf_AddActionTAG(ACTION_PUSH, (U8*)currentatag->tmp, 2);
806 }
807 void action_PushRegister(U8 reg) 
808 {
809     *(U8*)currentatag->tmp = 4; //register
810     *(U8*)&currentatag->tmp[1] = reg;
811     swf_AddActionTAG(ACTION_PUSH, (U8*)currentatag->tmp, 2);
812 }
813 void action_PushLookup(U8 index) 
814 {
815     *(U8*)currentatag->tmp = 8; //lookup
816     *(U8*)&currentatag->tmp[1] = index;
817     swf_AddActionTAG(ACTION_PUSH, (U8*)currentatag->tmp, 2);
818 }
819 void action_PushString(char*str) 
820 {
821     int l = strlen(str);
822     char*ptr = (char*)malloc(l+2);
823     ptr[0] = 0; // string
824     strcpy(&ptr[1], str);
825     swf_AddActionTAG(ACTION_PUSH, (U8*)ptr, l+2);
826 }
827 void action_PushFloat(float f)
828 {
829     char*ptr = (char*)malloc(5);
830     U32 fd = *(U32*)&f;
831     ptr[0] = 1; //float
832     ptr[1]  = fd;
833     ptr[2]  = fd>>8;
834     ptr[3]  = fd>>16;
835     ptr[4]  = fd>>24;
836     swf_AddActionTAG(ACTION_PUSH, (U8*)ptr, 5);
837 }
838 void action_PushDouble(double d) 
839 {
840     char*ptr = (char*)malloc(9);
841     U8*dd = (U8*)&d;
842     ptr[0] = 6; //double
843 #ifdef WORDS_BIGENDIAN
844     ptr[1] = dd[7];ptr[2] = dd[6];
845     ptr[3] = dd[5];ptr[4] = dd[4];
846     ptr[5] = dd[3];ptr[6] = dd[2];
847     ptr[7] = dd[1];ptr[8] = dd[0];
848 #else
849     ptr[1] = dd[0];ptr[2] = dd[1];
850     ptr[3] = dd[2];ptr[4] = dd[3];
851     ptr[5] = dd[4];ptr[6] = dd[5];
852     ptr[7] = dd[6];ptr[8] = dd[7];
853 #endif
854     swf_AddActionTAG(ACTION_PUSH, (U8*)ptr, 9);
855 }
856 void action_PushInt(int i)
857 {
858     *(U8*)currentatag->tmp = 7; //int
859     currentatag->tmp[1] = i;
860     currentatag->tmp[2] = i>>8;
861     currentatag->tmp[3] = i>>16;
862     currentatag->tmp[4] = i>>24;
863     swf_AddActionTAG(ACTION_PUSH, (U8*)currentatag->tmp, 5);
864 }
865 void action_GotoLabel(char* label)
866 {
867     char*ptr = strdup(label);
868     swf_AddActionTAG(ACTION_GOTOLABEL, (U8*)ptr, strlen(ptr));
869 }
870 void action_GetUrl(char* url, char* label) 
871 {
872     int l1= strlen(url);
873     int l2= strlen(label);
874     char*ptr = malloc(l1+l2+2);
875     strcpy(ptr, url);
876     strcpy(&ptr[l1+1], label);
877     swf_AddActionTAG(ACTION_GETURL, ptr, l1+l2+2);
878 }
879 //TODO:
880 void action_DefineFunction(U8*data, int len) {}
881 void action_Constantpool(char* constantpool) {}
882 void action_With(char*object) {}
883
884 /*
885   Properties:
886
887   _X 0
888   _Y 1
889   _xscale 2
890   _yscale 3
891   _currentframe 4
892   _totalframes 5
893   _alpha 6
894   _visible 7
895   _width 8
896   _height 9
897   _rotation 10
898   _target 11
899   _framesloaded 12
900   _name 13
901   _droptarget 14
902   _url 15
903   _highquality 16
904   _focusrect 17
905   _soundbuftime 18
906   _quality* 19
907   _xmouse* 20
908   _ymouse* 21
909 */