logf argument names changed.
[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", *(U16*)data); //FIXME: le/be
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                         printf(" Float:%f", *(float*)value);
320                     } else if (type == 2) {
321                         printf(" NULL");
322                     } else if (type == 4) {
323                         printf(" register:%d", *value);
324                     } else if (type == 5) {
325                         printf(" bool:%s", *value?"true":"false");
326                     } else if (type == 6) {
327                         printf(" float:%f", *(double*)value);
328                     } else if (type == 7) {
329                         printf(" int:%d", *(int*)value);
330                     } else if (type == 8) {
331                         printf(" Lookup:%d", *value);
332 #ifdef MAX_LOOKUP
333                         if (lookup[*value])
334                           printf(" (\"%s\")",lookup[*value]);
335 #endif
336                     } else {
337                         printf(" UNKNOWN[%02x]",type);
338                     }
339                 } break;
340             }
341             data += OpAdvance(*cp, data);
342             if((*cp!='c' || !poollen) &&
343                (*cp!='p' || !(data<&atag->data[atag->len])))
344                 cp++;
345             if(poollen)
346                 poollen--;
347         }
348
349         if(data < atag->data + atag->len)
350         {
351             int nl = ((atag->data+atag->len)-data);
352             int t;
353             printf(" (remainder of %d bytes:\"", nl);
354             for(t=0;t<nl;t++) {
355                 if(data[t]<32)
356                     printf("\\%d",data[t]);
357                 else
358                     printf("%c", data[t]);
359             }
360             printf("\")");
361         }
362         printf("\n");
363         atag = atag->next;
364     }
365
366 #ifdef MAX_LOOKUP
367   for (t=0;t<MAX_LOOKUP;t++) if (lookup[t]) free(lookup[t]);
368 #endif
369 }
370
371 static const char TYPE_URL = 1;
372 static const char TYPE_TARGET = 2;
373 static const char TYPE_STRING = 4;
374
375 int swf_ActionEnumerate(ActionTAG*atag, char*(*callback)(char*), int type)
376 {
377     int t;
378     U8*data;
379     char* cp;
380     int count = 0;
381     while(atag)
382     {
383         U8 poollen = 0;
384         for(t=0;t<definedactions;t++)
385             if(actions[t].op == atag->op)
386                 break;
387
388         if(t==definedactions) {
389             // unknown actiontag
390             atag = atag->next;
391             count++;
392             continue;
393         }
394         cp = actions[t].flags;
395         data = atag->data;
396         if(atag->len) {
397             while(*cp) {
398                 U8 * replacepos = 0;
399                 int replacelen = 0;
400                 U8 * replacement = 0;
401                 switch(*cp)
402                 {
403                     case 'u': {
404                         if(type&TYPE_URL)
405                         {
406                             replacelen = strlen(data);
407                             replacepos = data;
408                             replacement = callback(data); // may be null
409                         }
410                     } break;
411                     case 't': {
412                         if(type&TYPE_TARGET)
413                         {
414                             replacelen = strlen(data);
415                             replacepos = data;
416                             replacement = callback(data); // may be null
417                         }
418                     } break;
419                     case 'c': {
420                         if(type&TYPE_STRING)
421                         {
422                             replacelen = strlen(data);
423                             replacepos = data;
424                             replacement = callback(data); // may be null
425                         }
426                     } break;
427                     case 'C': {
428                         poollen = (*data);
429                     } break;
430                     case 'o': {
431                     } break;
432                     case 'p': {
433                         U8 datatype = *data;
434                         char*value = &data[1];
435                         if(datatype == 0) { //string
436                             if(type&TYPE_STRING)
437                             {
438                                 replacelen = strlen(value);
439                                 replacepos = value;
440                                 replacement = callback(value); // may be null
441                             }
442                         } else if (datatype == 8) { //lookup
443                         }
444                     } break;
445                 }
446                 data += OpAdvance(*cp, data);
447                 if(*cp!='c' || !poollen)
448                     cp++;
449                 if(poollen)
450                     poollen--;
451
452                 if(replacement)
453                 {
454                     int newlen = strlen(replacement);
455                     char * newdata = malloc(atag->len - replacelen + newlen);
456                     int rpos = replacepos - atag->data;
457                     memcpy(newdata, atag->data, rpos);
458                     memcpy(&newdata[rpos], replacement, newlen);
459                     memcpy(&newdata[rpos+newlen], &replacepos[replacelen],
460                             &data[atag->len] - &replacepos[replacelen]);
461                     free(atag->data);
462                     atag->data = newdata;
463                     data = &atag->data[rpos+newlen+1];
464                 }
465             }
466         }
467         atag = atag->next;
468         count ++;
469     }
470     return count;
471 }
472
473 void swf_ActionEnumerateTargets(ActionTAG*atag, char*(*callback)(char*))
474 {
475     swf_ActionEnumerate(atag, callback, TYPE_TARGET);
476 }
477 void swf_ActionEnumerateStrings(ActionTAG*atag, char*(*callback)(char*))
478 {
479     swf_ActionEnumerate(atag, callback, TYPE_STRING);
480 }
481 void swf_ActionEnumerateURLs(ActionTAG*atag, char*(*callback)(char*))
482 {
483     swf_ActionEnumerate(atag, callback, TYPE_URL);
484 }
485
486 static ActionTAG * currentatag;
487
488 ActionTAG* swf_ActionStart()
489 {
490     currentatag = (ActionTAG*)malloc(sizeof(ActionTAG));
491     currentatag->prev = 0;
492     currentatag->parent = 0;
493     currentatag->data = 0;
494     currentatag->len = 0;
495     return currentatag;
496 }
497
498 void swf_ActionEnd()
499 {
500     currentatag->prev->next = 0;
501     free(currentatag);
502 }
503
504 void swf_AddActionTAG(U8 op, U8*data, U16 len)
505 {
506     currentatag->next = (ActionTAG*)malloc(sizeof(ActionTAG));
507     currentatag->next->prev = currentatag;
508     currentatag->parent = 0;
509     currentatag->data = data;
510     currentatag->len = len;
511     currentatag->op = op;
512     currentatag = currentatag->next;
513 }
514
515 ActionMarker action_setMarker()
516 {
517     ActionMarker m;
518     m.atag = currentatag;
519     return m;
520 }
521
522 int inline ActionTagSize(ActionTAG*atag)
523 {
524     return (atag->op&0x80)?3+(atag->len):1+0;
525 }
526
527
528 #define ACTION_END            0x00
529 #define ACTION_NEXTFRAME      0x04
530 #define ACTION_PREVIOUSFRAME  0x05
531 #define ACTION_PLAY           0x06
532 #define ACTION_STOP           0x07
533 #define ACTION_TOGGLEQUALITY  0x08
534 #define ACTION_STOPSOUNDS     0x09
535 #define ACTION_ADD            0x0a
536 #define ACTION_SUBTRACT       0x0b
537 #define ACTION_MULTIPLY       0x0c
538 #define ACTION_DIVIDE         0x0d
539 #define ACTION_EQUALS         0x0e
540 #define ACTION_LESS           0x0f
541 #define ACTION_AND            0x10
542 #define ACTION_OR             0x11
543 #define ACTION_NOT            0x12
544 #define ACTION_STRINGEQUALS   0x13
545 #define ACTION_STRINGLENGTH   0x14
546 #define ACTION_STRINGEXTRACT  0x15
547 #define ACTION_POP            0x17
548 #define ACTION_TOINTEGER      0x18
549 #define ACTION_GETVARIABLE    0x1c
550 #define ACTION_SETVARIABLE    0x1d
551 #define ACTION_SETTARGET2     0x20
552 #define ACTION_STRINGADD      0x21
553 #define ACTION_GETPROPERTY    0x22
554 #define ACTION_SETPROPERTY    0x23
555 #define ACTION_CLONESPRITE    0x24
556 #define ACTION_REMOVESPRITE   0x25
557 #define ACTION_TRACE          0x26
558 #define ACTION_STARTDRAG      0x27
559 #define ACTION_ENDDRAG        0x28
560 #define ACTION_STRINGLESS     0x29
561 #define ACTION_RANDOMNUMBER   0x30
562 #define ACTION_MBSTRINGLENGTH 0x31
563 #define ACTION_CHARTOASCII    0x32
564 #define ACTION_ASCIITOCHAR    0x33
565 #define ACTION_GETTIME        0x34
566 #define ACTION_MBSTRINGEXTRACT 0x35
567 #define ACTION_MBCHARTOASCII  0x36
568 #define ACTION_MBASCIITOCHAR  0x37
569 #define ACTION_DELETE         0x3a
570 #define ACTION_DELETE2        0x3b
571 #define ACTION_DEFINELOCAL    0x3c
572 #define ACTION_CALLFUNCTION   0x3d
573 #define ACTION_RETURN         0x3e
574 #define ACTION_MODULO         0x3f
575 #define ACTION_NEWOBJECT      0x40
576 #define ACTION_DEFINELOCAL2   0x41
577 #define ACTION_INITARRAY      0x42
578 #define ACTION_MAKEHASH       0x43
579 #define ACTION_TYPEOF         0x44
580 #define ACTION_TARGETPATH     0x45
581 #define ACTION_ENUMERATE      0x46
582 #define ACTION_ADD2           0x47
583 #define ACTION_LESS2          0x48
584 #define ACTION_EQUALS2        0x49
585 #define ACTION_TONUMBER       0x4a
586 #define ACTION_TOSTRING       0x4b
587 #define ACTION_PUSHDUPLICATE  0x4c
588 #define ACTION_STACKSWAP      0x4d
589 #define ACTION_GETMEMBER      0x4e
590 #define ACTION_SETMEMBER      0x4f
591 #define ACTION_INCREMENT      0x50
592 #define ACTION_DECREMENT      0x51
593 #define ACTION_CALLMETHOD     0x52
594 #define ACTION_NEWMETHOD      0x53
595 #define ACTION_BITAND         0x60
596 #define ACTION_BITOR          0x61
597 #define ACTION_BITXOR         0x62
598 #define ACTION_BITLSHIFT      0x63
599 #define ACTION_BITRSHIFT      0x64
600 #define ACTION_BITURSHIFT     0x65
601 #define ACTION_GOTOFRAME      0x81
602 #define ACTION_GETURL         0x83
603 #define ACTION_STOREREGISTER  0x87
604 #define ACTION_CONSTANTPOOL   0x88
605 #define ACTION_WAITFORFRAME   0x8a
606 #define ACTION_SETTARGET      0x8b
607 #define ACTION_GOTOLABEL      0x8c
608 #define ACTION_WAITFORFRAME2  0x8d
609 #define ACTION_WITH           0x94
610 #define ACTION_PUSH           0x96
611 #define ACTION_JUMP           0x99
612 #define ACTION_GETURL2        0x9a
613 #define ACTION_DEFINEFUNCTION 0x9b
614 #define ACTION_IF             0x9d
615 #define ACTION_CALL           0x9e
616 #define ACTION_GOTOFRAME2     0x9f
617
618 void action_fixjump(ActionMarker m1, ActionMarker m2)
619 {
620     ActionTAG* a1 = m1.atag;
621     ActionTAG* a2 = m2.atag;
622     ActionTAG* a;
623     int len = 0;
624     int oplen = 0;
625     a = a1;
626     
627     a = a->next; //first one is free
628     while(a && a!=a2)
629     {
630         len += ActionTagSize(a);
631         oplen ++;
632         a = a->next;
633     }
634     if(!a)
635     { len = 0;
636       oplen = 0;
637       a = a2;
638       while(a && a!=a1) {
639           len -= ActionTagSize(a);
640           oplen --;
641           a = a->next;
642       }
643       if(!a) {
644           fprintf(stderr, "action_fixjump: couldn't find second tag\n");
645           return;
646       }
647       len -= ActionTagSize(a);
648       oplen --;
649     }
650
651     if (a1->op == ACTION_IF || a1->op == ACTION_JUMP) 
652     {
653         *(U16*)(a1->data) = len;
654     }
655     else if(a1->op == ACTION_WAITFORFRAME)
656     {
657         ((U8*)(a1->data))[2] = oplen;
658     }
659     else if(a1->op == ACTION_WAITFORFRAME2)
660     {
661         ((U8*)(a1->data))[0] = oplen;
662     }
663     
664 }
665
666
667 void action_NextFrame() {swf_AddActionTAG(ACTION_NEXTFRAME, 0, 0);}
668 void action_PreviousFrame() {swf_AddActionTAG(ACTION_PREVIOUSFRAME, 0, 0);}
669 void action_Play() {swf_AddActionTAG(ACTION_PLAY, 0, 0);}
670 void action_Stop() {swf_AddActionTAG(ACTION_STOP, 0, 0);}
671 void action_ToggleQuality() {swf_AddActionTAG(ACTION_TOGGLEQUALITY, 0, 0);}
672 void action_StopSounds() {swf_AddActionTAG(ACTION_STOPSOUNDS, 0, 0);}
673 void action_Add() {swf_AddActionTAG(ACTION_ADD, 0, 0);}
674 void action_Subtract() {swf_AddActionTAG(ACTION_SUBTRACT, 0, 0);}
675 void action_Multiply() {swf_AddActionTAG(ACTION_MULTIPLY, 0, 0);}
676 void action_Divide() {swf_AddActionTAG(ACTION_DIVIDE, 0, 0);}
677 void action_Equals() {swf_AddActionTAG(ACTION_EQUALS, 0, 0);}
678 void action_Less() {swf_AddActionTAG(ACTION_LESS, 0, 0);}
679 void action_And() {swf_AddActionTAG(ACTION_AND, 0, 0);}
680 void action_Or() {swf_AddActionTAG(ACTION_OR, 0, 0);}
681 void action_Not() {swf_AddActionTAG(ACTION_NOT, 0, 0);}
682 void action_StringEquals() {swf_AddActionTAG(ACTION_STRINGEQUALS, 0, 0);}
683 void action_StringLength() {swf_AddActionTAG(ACTION_STRINGLENGTH, 0, 0);}
684 void action_StringExtract() {swf_AddActionTAG(ACTION_STRINGEXTRACT, 0, 0);}
685 void action_Pop() {swf_AddActionTAG(ACTION_POP, 0, 0);}
686 void action_ToInteger() {swf_AddActionTAG(ACTION_TOINTEGER, 0, 0);}
687 void action_GetVariable() {swf_AddActionTAG(ACTION_GETVARIABLE, 0, 0);}
688 void action_SetVariable() {swf_AddActionTAG(ACTION_SETVARIABLE, 0, 0);}
689 void action_SetTarget2() {swf_AddActionTAG(ACTION_SETTARGET2, 0, 0);}
690 void action_StringAdd() {swf_AddActionTAG(ACTION_STRINGADD, 0, 0);}
691 void action_GetProperty() {swf_AddActionTAG(ACTION_GETPROPERTY, 0, 0);}
692 void action_SetProperty() {swf_AddActionTAG(ACTION_SETPROPERTY, 0, 0);}
693 void action_CloneSprite() {swf_AddActionTAG(ACTION_CLONESPRITE, 0, 0);}
694 void action_RemoveSprite() {swf_AddActionTAG(ACTION_REMOVESPRITE, 0, 0);}
695 void action_Trace() {swf_AddActionTAG(ACTION_TRACE, 0, 0);}
696 void action_StartDrag() {swf_AddActionTAG(ACTION_STARTDRAG, 0, 0);}
697 void action_EndDrag() {swf_AddActionTAG(ACTION_ENDDRAG, 0, 0);}
698 void action_StringLess() {swf_AddActionTAG(ACTION_STRINGLESS, 0, 0);}
699 void action_RandomNumber() {swf_AddActionTAG(ACTION_RANDOMNUMBER, 0, 0);}
700 void action_MBStringLength() {swf_AddActionTAG(ACTION_MBSTRINGLENGTH, 0, 0);}
701 void action_CharToAscii() {swf_AddActionTAG(ACTION_CHARTOASCII, 0, 0);}
702 void action_AsciiToChar() {swf_AddActionTAG(ACTION_ASCIITOCHAR, 0, 0);}
703 void action_GetTime() {swf_AddActionTAG(ACTION_GETTIME, 0, 0);}
704 void action_MBStringExtract() {swf_AddActionTAG(ACTION_MBSTRINGEXTRACT, 0, 0);}
705 void action_MBCharToAscii() {swf_AddActionTAG(ACTION_MBCHARTOASCII, 0, 0);}
706 void action_MBAsciiToChar() {swf_AddActionTAG(ACTION_MBASCIITOCHAR, 0, 0);}
707 void action_Delete() {swf_AddActionTAG(ACTION_DELETE, 0, 0);}
708 void action_Delete2() {swf_AddActionTAG(ACTION_DELETE2, 0, 0);}
709 void action_DefineLocal() {swf_AddActionTAG(ACTION_DEFINELOCAL, 0, 0);}
710 void action_CallFunction() {swf_AddActionTAG(ACTION_CALLFUNCTION, 0, 0);}
711 void action_Return() {swf_AddActionTAG(ACTION_RETURN, 0, 0);}
712 void action_Modulo() {swf_AddActionTAG(ACTION_MODULO, 0, 0);}
713 void action_NewObject() {swf_AddActionTAG(ACTION_NEWOBJECT, 0, 0);}
714 void action_DefineLocal2() {swf_AddActionTAG(ACTION_DEFINELOCAL2, 0, 0);}
715 void action_InitArray() {swf_AddActionTAG(ACTION_INITARRAY, 0, 0);}
716 void action_Makehash() {swf_AddActionTAG(ACTION_MAKEHASH, 0, 0);}
717 void action_TypeOf() {swf_AddActionTAG(ACTION_TYPEOF, 0, 0);}
718 void action_TargetPath() {swf_AddActionTAG(ACTION_TARGETPATH, 0, 0);}
719 void action_Enumerate() {swf_AddActionTAG(ACTION_ENUMERATE, 0, 0);}
720 void action_Add2() {swf_AddActionTAG(ACTION_ADD2, 0, 0);}
721 void action_Less2() {swf_AddActionTAG(ACTION_LESS2, 0, 0);}
722 void action_Equals2() {swf_AddActionTAG(ACTION_EQUALS2, 0, 0);}
723 void action_ToNumber() {swf_AddActionTAG(ACTION_TONUMBER, 0, 0);}
724 void action_ToString() {swf_AddActionTAG(ACTION_TOSTRING, 0, 0);}
725 void action_PushDuplicate() {swf_AddActionTAG(ACTION_PUSHDUPLICATE, 0, 0);}
726 void action_StackSwap() {swf_AddActionTAG(ACTION_STACKSWAP, 0, 0);}
727 void action_GetMember() {swf_AddActionTAG(ACTION_GETMEMBER, 0, 0);}
728 void action_SetMember() {swf_AddActionTAG(ACTION_SETMEMBER, 0, 0);}
729 void action_Increment() {swf_AddActionTAG(ACTION_INCREMENT, 0, 0);}
730 void action_Decrement() {swf_AddActionTAG(ACTION_DECREMENT, 0, 0);}
731 void action_CallMethod() {swf_AddActionTAG(ACTION_CALLMETHOD, 0, 0);}
732 void action_NewMethod() {swf_AddActionTAG(ACTION_NEWMETHOD, 0, 0);}
733 void action_BitAnd() {swf_AddActionTAG(ACTION_BITAND, 0, 0);}
734 void action_BitOr() {swf_AddActionTAG(ACTION_BITOR, 0, 0);}
735 void action_BitXor() {swf_AddActionTAG(ACTION_BITXOR, 0, 0);}
736 void action_BitLShift() {swf_AddActionTAG(ACTION_BITLSHIFT, 0, 0);}
737 void action_BitRShift() {swf_AddActionTAG(ACTION_BITRSHIFT, 0, 0);}
738 void action_BitURShift() {swf_AddActionTAG(ACTION_BITURSHIFT, 0, 0);}
739 void action_Call() {swf_AddActionTAG(ACTION_CALL, 0, 0);}
740 void action_End() {swf_AddActionTAG(ACTION_END, 0, 0);}
741 void action_GotoFrame(U16 frame) 
742 {
743     *(U16*)currentatag->tmp = frame;
744     swf_AddActionTAG(ACTION_GOTOFRAME, (U8*)currentatag->tmp, 2);
745 }
746 void action_Jump(U16 branch) 
747 {
748     *(U16*)currentatag->tmp = branch;
749     swf_AddActionTAG(ACTION_JUMP, (U8*)currentatag->tmp, 2);
750 }
751 void action_If(U16 branch) 
752 {
753     *(U16*)currentatag->tmp = branch;
754     swf_AddActionTAG(ACTION_IF, (U8*)currentatag->tmp, 2);
755 }
756 void action_StoreRegister(U8 reg) 
757 {
758     *(U8*)currentatag->tmp = reg;
759     swf_AddActionTAG(ACTION_STOREREGISTER, (U8*)currentatag->tmp, 1);
760 }
761 void action_GotoFrame2(U8 method) 
762 {
763     *(U8*)currentatag->tmp = method;
764     swf_AddActionTAG(ACTION_GOTOFRAME2, (U8*)currentatag->tmp, 1);
765 }
766 void action_GetUrl2(U8 method) 
767 {
768     *(U8*)currentatag->tmp = method;
769     swf_AddActionTAG(ACTION_GETURL2, (U8*)currentatag->tmp, 1);
770 }
771 void action_WaitForFrame2(U8 skip) 
772 {
773     *(U8*)currentatag->tmp = skip;
774     swf_AddActionTAG(ACTION_WAITFORFRAME2, (U8*)currentatag->tmp, 1);
775 }
776 void action_WaitForFrame(U16 frame, U8 skip) 
777 {
778     *(U16*)currentatag->tmp = frame;
779     *(U8*)&currentatag->tmp[2] = skip;
780     swf_AddActionTAG(ACTION_WAITFORFRAME, (U8*)currentatag->tmp, 3);
781 }
782 void action_SetTarget(char* target)
783 {
784     char*ptr = strdup(target);
785     swf_AddActionTAG(ACTION_SETTARGET, (U8*)ptr, strlen(ptr)+1);
786 }
787 void action_PushNULL() 
788 {
789     *(U8*)currentatag->tmp = 2; //NULL
790     swf_AddActionTAG(ACTION_PUSH, (U8*)currentatag->tmp, 1);
791 }
792 void action_PushBoolean(char c) 
793 {
794     *(U8*)currentatag->tmp = 5; //bool
795     *(U8*)&currentatag->tmp[1] = c;
796     swf_AddActionTAG(ACTION_PUSH, (U8*)currentatag->tmp, 2);
797 }
798 void action_PushRegister(U8 reg) 
799 {
800     *(U8*)currentatag->tmp = 4; //register
801     *(U8*)&currentatag->tmp[1] = reg;
802     swf_AddActionTAG(ACTION_PUSH, (U8*)currentatag->tmp, 2);
803 }
804 void action_PushLookup(U8 index) 
805 {
806     *(U8*)currentatag->tmp = 8; //lookup
807     *(U8*)&currentatag->tmp[1] = index;
808     swf_AddActionTAG(ACTION_PUSH, (U8*)currentatag->tmp, 2);
809 }
810 void action_PushString(char*str) 
811 {
812     int l = strlen(str);
813     char*ptr = (char*)malloc(l+2);
814     ptr[0] = 0; // string
815     strcpy(&ptr[1], str);
816     swf_AddActionTAG(ACTION_PUSH, (U8*)ptr, l+2);
817 }
818 void action_PushFloat(float f)
819 {
820     char*ptr = (char*)malloc(5);
821     ptr[0] = 1; //float
822     *(float*)&ptr[1]  = f;
823     swf_AddActionTAG(ACTION_PUSH, (U8*)ptr, 5);
824 }
825 void action_PushDouble(double d) 
826 {
827     char*ptr = (char*)malloc(9);
828     ptr[0] = 6; //double
829     *(double*)&ptr[1]  = d;
830     swf_AddActionTAG(ACTION_PUSH, (U8*)ptr, 9);
831 }
832 void action_PushInt(int i)
833 {
834     *(U8*)currentatag->tmp = 7; //int
835     *(U32*)&currentatag->tmp[1] = i;
836     swf_AddActionTAG(ACTION_PUSH, (U8*)currentatag->tmp, 5);
837 }
838 void action_GotoLabel(char* label)
839 {
840     char*ptr = strdup(label);
841     swf_AddActionTAG(ACTION_GOTOLABEL, (U8*)ptr, strlen(ptr));
842 }
843 void action_GetUrl(char* url, char* label) 
844 {
845     int l1= strlen(url);
846     int l2= strlen(label);
847     char*ptr = malloc(l1+l2+2);
848     strcpy(ptr, url);
849     strcpy(&ptr[l1+1], label);
850     swf_AddActionTAG(ACTION_GETURL, ptr, l1+l2+2);
851 }
852 //TODO:
853 void action_DefineFunction(U8*data, int len) {}
854 void action_Constantpool(char* constantpool) {}
855 void action_With(char*object) {}
856
857 /*
858   Properties:
859
860   _X 0
861   _Y 1
862   _xscale 2
863   _yscale 3
864   _currentframe 4
865   _totalframes 5
866   _alpha 6
867   _visible 7
868   _width 8
869   _height 9
870   _rotation 10
871   _target 11
872   _framesloaded 12
873   _name 13
874   _droptarget 14
875   _url 15
876   _highquality 16
877   _focusrect 17
878   _soundbuftime 18
879   _quality* 19
880   _xmouse* 20
881   _ymouse* 21
882 */