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: codesize (word) 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 {5/*6?*/,"Less3", 0x67,""}
 131 };
 132 static int definedactions = sizeof(actions)/sizeof(struct Action);
 133
 134 ActionTAG* swf_ActionGet(TAG*tag)
 135 {
 136     U8 op = 1;
 137     int length;
 138     ActionTAG tmp;
 139     ActionTAG*action = &tmp;
 140     U8*data;
 141     while(op)
 142     {
 143         action->next = (ActionTAG*)malloc(sizeof(ActionTAG));
 144         action->next->prev = action;
 145         action->next->next = 0;
 146         action = action->next;
 147
 148         op = swf_GetU8(tag);
 149         if(op<0x80)
 150             length = 0;
 151         else
 152             length = swf_GetU16(tag);
 153
 154         if(length) {
 155             data = malloc(length);
 156             swf_GetBlock(tag, data, length);
 157         } else {
 158           data = 0;
 159         }
 160         action->op = op;
 161         action->len = length;
 162         action->data = data;
 163         action->parent = tag;
 164     }
 165     return tmp.next;
 166 }
 167
 168 void swf_ActionFree(ActionTAG*action)
 169 {
 170     while(action)
 171     {
 172         ActionTAG*tmp;
 173         if(action->data && action->data != action->tmp)
 174             free(action->data);
 175         tmp = action;
 176         action=action->next;
 177         free(tmp);
 178     }
 179 }
 180
 181 void swf_ActionSet(TAG*tag, ActionTAG*action)
 182 {
 183     while(action)
 184     {
 185         swf_SetU8(tag, action->op);
 186         if(action->op & 128)
 187           swf_SetU16(tag, action->len);
 188
 189         swf_SetBlock(tag, action->data, action->len);
 190
 191         action = action->next;
 192     }
 193 }
 194
 195 int OpAdvance(char c, U8*data)
 196 {
 197     switch (c)
 198     {
 199         case 'f':
 200             return 2;
 201         case 'u':
 202             return strlen(data)+1;
 203         case 't':
 204             return strlen(data)+1;
 205         case 'l':
 206             return strlen(data)+1;
 207         case 'c':
 208             return strlen(data)+1;
 209         case 'C':
 210             return 2;
 211         case 's':
 212             return 1;
 213         case 'm':
 214             return 1;
 215         case 'b':
 216             return 2;
 217         case 'p': {
 218             U8 type = *data++;
 219             if(type == 0) {
 220                 return 1+strlen(data)+1; //string
 221             } else if (type == 1) {
 222                 return 1+4; //float
 223             } else if (type == 2) {
 224                 return 1+0; //NULL
 225             } else if (type == 4) {
 226                 return 1+1; //register
 227             } else if (type == 5) {
 228                 return 1+1; //bool
 229             } else if (type == 6) {
 230                 return 1+8; //double
 231             } else if (type == 7) {
 232                 return 1+4; //int
 233             } else if (type == 8) {
 234                 return 1+1; //lookup
 235             } else return 1;
 236             break;
 237         }
 238         case 'o': {
 239             return 2;
 240         }
 241         case '{': {
 242             U16 num;
 243             U16 codesize;
 244             U8* odata = data;
 245             int t;
 246             while(*data++); //name
 247             num = (*data++)*256; //num
 248             num += (*data++);
 249             for(t=0;t<num;t++)
 250                 while(*data++); //param
 251             codesize = (*data++)*256; //num
 252             codesize += (*data++);
 253             return data-odata;
 254         }
 255     }
 256     return 0;
 257 }
 258 #define ATAG_FULLLENGTH(atag) ((atag)->len + 1 + ((atag)->op&0x80?2:0))
 259 #define MAX_LEVELS 16
 260 /* TODO: * this should be in swfdump.c */
 261 void swf_DumpActions(ActionTAG*atag, char*prefix)
 262 {
 263     int t;
 264     U8*data;
 265     char* cp;
 266     int entry = 0;
 267     char spaces[MAX_LEVELS*4+1];
 268     struct {
 269         char*text;
 270         int count;
 271     } counter[MAX_LEVELS];
 272     int countpos = 0;
 273 #ifdef MAX_LOOKUP
 274     char * lookup[MAX_LOOKUP];
 275     memset(lookup,0x00,sizeof(lookup));
 276 #endif
 277     memset(spaces, 32, sizeof(spaces));
 278     spaces[sizeof(spaces)-1] = 0;
 279
 280    if (!prefix)
 281         prefix="";
 282
 283     while(atag)
 284     {
 285         char*indent = &spaces[sizeof(spaces)-1-countpos*4];
 286         U8 poollen = 0;
 287         for(t=0;t<definedactions;t++)
 288             if(actions[t].op == atag->op)
 289                 break;
 290
 291         if(t==definedactions) {
 292             printf("%s (%5d bytes) action:%s unknown[%02x]", prefix, atag->len, indent, atag->op);
 293         } else {
 294             printf("%s (%5d bytes) action:%s %s", prefix, atag->len, indent, actions[t].name);
 295         }
 296         data = atag->data;
 297         if(atag->len && t!=definedactions) //TODO: check for consistency: should we have a length?
 298         {
 299           cp = actions[t].flags;
 300           while(*cp)
 301           {
 302               switch(*cp)
 303               {
 304                   case 'f': { //frame
 305                       printf(" %d", data[0]+256*data[1]);
 306                   } break;
 307                   case 'u': {
 308                       printf(" URL:\"%s\"", data);
 309                   } break;
 310                   case 't': {
 311                       printf(" Target:\"%s\"", data);
 312                   } break;
 313                   case 'l': {
 314                       printf(" Label:\"%s\"", data);
 315                   } break;
 316                   case 'c': {
 317                       printf(" String:\"%s\"", data);
 318 #ifdef MAX_LOOKUP
 319                       if (entry<MAX_LOOKUP)
 320                         lookup[entry++] = strdup(data);
 321 #endif
 322                   } break;
 323                   case 'C': {
 324                       poollen = *data;
 325                       entry = 0;
 326                       printf("(%d entries)", poollen);
 327                   } break;
 328                   case 's': {
 329                       printf(" +%d", *data);
 330                   } break;
 331                   case 'm': {
 332                       //m: method (byte) url:(0=none, 1=get, 2=datat)/gf2:(1=play)
 333                       printf(" %d", *data);
 334                   } break;
 335                   case '{': {
 336                       U16 num;
 337                       U16 codesize;
 338                       int t;
 339                       printf(" %s(", data);
 340                       while(*data++); //name
 341                       num = (*data++); //num
 342                       num += (*data++)*256;
 343                       for(t=0;t<num;t++) {
 344                           printf("%s",data);
 345                           if(t<num-1)
 346                               printf(", ");
 347                           while(*data++); //param
 348                       }
 349                       printf(")");
 350                       codesize = (*data++); //num
 351                       codesize += (*data++)*256;
 352                       printf(" codesize:%d ",codesize);
 353                       printf("\n%s                       %s{", prefix, indent);
 354                       if(countpos>=15) {
 355                           printf("Error: nested too deep\n");
 356                           continue;
 357                       }
 358                       counter[countpos].text = "}";
 359                       counter[countpos].count = codesize + ATAG_FULLLENGTH(atag);
 360                       countpos++;
 361                   } break;
 362                   case 'o': {
 363                       int t;
 364                       U16 codesize = data[0]+256*data[1];
 365                       printf(" codesize:%d ", codesize);
 366
 367                       /* the following tries to find the "string"
 368                          the flash documentation speaks of- I've
 369                          never actually seen one yet. -mk */
 370                       for(t=2;t<atag->len;t++)
 371                           printf("[%02x]", atag->data[t]);
 372
 373                       printf("\n%s                       %s{", prefix, indent);
 374                       if(countpos>=15) {
 375                           printf("Error: nested too deep\n");
 376                           continue;
 377                       }
 378                       counter[countpos].text = "}";
 379                       counter[countpos].count = codesize + ATAG_FULLLENGTH(atag);
 380                       countpos++;
 381                   } break;
 382                   case 'b': {
 383                       printf(" %d", data[0]+256*(signed char)data[1]);
 384                   } break;
 385                   case 'p': {
 386                       U8 type = *data;
 387                       unsigned char*value = data+1;
 388                       if(type == 0) {
 389                           printf(" String:\"%s\"", value);
 390                       } else if (type == 1) {
 391                           U32 f = value[0]+(value[1]<<8)+
 392                                   (value[2]<<16)+(value[3]<<24);
 393                           printf(" Float:%f", *(float*)&f);
 394                       } else if (type == 2) {
 395                           printf(" NULL");
 396                       } else if (type == 4) {
 397                           printf(" register:%d", *value);
 398                       } else if (type == 5) {
 399                           printf(" bool:%s", *value?"true":"false");
 400                       } else if (type == 6) {
 401                           U8 a[8];
 402                           int t;
 403                           memcpy(&a[4],value,4);
 404                           memcpy(a,&value[4],4);
 405 #ifdef WORDS_BIGENDIAN
 406                           for(t=0;t<4;t++) {
 407                               U8 tmp = a[t];
 408                               a[t]=a[7-t];
 409                               a[7-t] = tmp;
 410                           }
 411 #endif
 412                           printf(" double:%f", *(double*)a);
 413                       } else if (type == 7) {
 414                           printf(" int:%d", value[0]+(value[1]<<8)+
 415                                             (value[2]<<16)+(value[3]<<24));
 416                       } else if (type == 8) {
 417                           printf(" Lookup:%d", *value);
 418 #ifdef MAX_LOOKUP
 419                           if (lookup[*value])
 420                             printf(" (\"%s\")",lookup[*value]);
 421 #endif
 422                       } else {
 423                           printf(" UNKNOWN[%02x]",type);
 424                       }
 425                   } break;
 426               }
 427               data += OpAdvance(*cp, data);
 428               if((*cp!='c' || !poollen) &&
 429                  (*cp!='p' || !(data<&atag->data[atag->len])))
 430                   cp++;
 431               if(poollen)
 432                   poollen--;
 433           }
 434         }
 435
 436         if(data < atag->data + atag->len)
 437         {
 438             int nl = ((atag->data+atag->len)-data);
 439             int t;
 440             printf(" (remainder of %d bytes:\"", nl);
 441             for(t=0;t<nl;t++) {
 442                 if(data[t]<32)
 443                     printf("\\%d",data[t]);
 444                 else
 445                     printf("%c", data[t]);
 446             }
 447             printf("\")");
 448         }
 449         printf("\n");
 450
 451         for(t=0;t<countpos;t++) {
 452             counter[t].count -= ATAG_FULLLENGTH(atag);
 453             if(counter[t].count < 0) {
 454                 printf("===== Error: Oplength errors =====\n");
 455                 countpos = 0;
 456                 break;
 457             }
 458         }
 459
 460         while(countpos && !counter[countpos-1].count)
 461         {
 462             printf("%s                   %s%s\n",
 463                 prefix, indent, counter[countpos-1].text);
 464             indent += 4;
 465             countpos--;
 466         }
 467
 468         atag = atag->next;
 469     }
 470
 471 #ifdef MAX_LOOKUP
 472   for (t=0;t<MAX_LOOKUP;t++) if (lookup[t]) free(lookup[t]);
 473 #endif
 474 }
 475
 476 static const char TYPE_URL = 1;
 477 static const char TYPE_TARGET = 2;
 478 static const char TYPE_STRING = 4;
 479
 480 int swf_ActionEnumerate(ActionTAG*atag, char*(*callback)(char*), int type)
 481 {
 482     int t;
 483     U8*data;
 484     char* cp;
 485     int count = 0;
 486     while(atag)
 487     {
 488         U8 poollen = 0;
 489         for(t=0;t<definedactions;t++)
 490             if(actions[t].op == atag->op)
 491                 break;
 492
 493         if(t==definedactions) {
 494             // unknown actiontag
 495             atag = atag->next;
 496             count++;
 497             continue;
 498         }
 499         cp = actions[t].flags;
 500         data = atag->data;
 501         if(atag->len) {
 502             while(*cp) {
 503                 U8 * replacepos = 0;
 504                 int replacelen = 0;
 505                 U8 * replacement = 0;
 506                 switch(*cp)
 507                 {
 508                     case 'u': {
 509                         if(type&TYPE_URL)
 510                         {
 511                             replacelen = strlen(data);
 512                             replacepos = data;
 513                             replacement = callback(data); // may be null
 514                         }
 515                     } break;
 516                     case 't': {
 517                         if(type&TYPE_TARGET)
 518                         {
 519                             replacelen = strlen(data);
 520                             replacepos = data;
 521                             replacement = callback(data); // may be null
 522                         }
 523                     } break;
 524                     case 'c': {
 525                         if(type&TYPE_STRING)
 526                         {
 527                             replacelen = strlen(data);
 528                             replacepos = data;
 529                             replacement = callback(data); // may be null
 530                         }
 531                     } break;
 532                     case 'C': {
 533                         poollen = (*data);
 534                     } break;
 535                     case 'o': {
 536                     } break;
 537                     case 'p': {
 538                         U8 datatype = *data;
 539                         char*value = &data[1];
 540                         if(datatype == 0) { //string
 541                             if(type&TYPE_STRING)
 542                             {
 543                                 replacelen = strlen(value);
 544                                 replacepos = value;
 545                                 replacement = callback(value); // may be null
 546                             }
 547                         } else if (datatype == 8) { //lookup
 548                         }
 549                     } break;
 550                 }
 551                 data += OpAdvance(*cp, data);
 552                 if(*cp!='c' || !poollen)
 553                     cp++;
 554                 if(poollen)
 555                     poollen--;
 556
 557                 if(replacement)
 558                 {
 559                     int newlen = strlen(replacement);
 560                     char * newdata = malloc(atag->len - replacelen + newlen);
 561                     int rpos = replacepos - atag->data;
 562                     memcpy(newdata, atag->data, rpos);
 563                     memcpy(&newdata[rpos], replacement, newlen);
 564                     memcpy(&newdata[rpos+newlen], &replacepos[replacelen],
 565                             &data[atag->len] - &replacepos[replacelen]);
 566                     free(atag->data);
 567                     atag->data = newdata;
 568                     data = &atag->data[rpos+newlen+1];
 569                 }
 570             }
 571         }
 572         atag = atag->next;
 573         count ++;
 574     }
 575     return count;
 576 }
 577
 578 void swf_ActionEnumerateTargets(ActionTAG*atag, char*(*callback)(char*))
 579 {
 580     swf_ActionEnumerate(atag, callback, TYPE_TARGET);
 581 }
 582 void swf_ActionEnumerateStrings(ActionTAG*atag, char*(*callback)(char*))
 583 {
 584     swf_ActionEnumerate(atag, callback, TYPE_STRING);
 585 }
 586 void swf_ActionEnumerateURLs(ActionTAG*atag, char*(*callback)(char*))
 587 {
 588     swf_ActionEnumerate(atag, callback, TYPE_URL);
 589 }
 590
 591 static ActionTAG * currentatag;
 592
 593 ActionTAG* swf_ActionStart()
 594 {
 595     currentatag = (ActionTAG*)malloc(sizeof(ActionTAG));
 596     currentatag->prev = 0;
 597     currentatag->parent = 0;
 598     currentatag->data = 0;
 599     currentatag->len = 0;
 600     return currentatag;
 601 }
 602
 603 void swf_ActionEnd()
 604 {
 605     currentatag->prev->next = 0;
 606     free(currentatag);
 607 }
 608
 609 void swf_AddActionTAG(U8 op, U8*data, U16 len)
 610 {
 611     currentatag->next = (ActionTAG*)malloc(sizeof(ActionTAG));
 612     currentatag->next->prev = currentatag;
 613     currentatag->parent = 0;
 614     currentatag->data = data;
 615     currentatag->len = len;
 616     currentatag->op = op;
 617     currentatag = currentatag->next;
 618 }
 619
 620 ActionMarker action_setMarker()
 621 {
 622     ActionMarker m;
 623     m.atag = currentatag;
 624     return m;
 625 }
 626
 627 int inline ActionTagSize(ActionTAG*atag)
 628 {
 629     return (atag->op&0x80)?3+(atag->len):1+0;
 630 }
 631
 632
 633 #define ACTION_END            0x00
 634 #define ACTION_NEXTFRAME      0x04
 635 #define ACTION_PREVIOUSFRAME  0x05
 636 #define ACTION_PLAY           0x06
 637 #define ACTION_STOP           0x07
 638 #define ACTION_TOGGLEQUALITY  0x08
 639 #define ACTION_STOPSOUNDS     0x09
 640 #define ACTION_ADD            0x0a
 641 #define ACTION_SUBTRACT       0x0b
 642 #define ACTION_MULTIPLY       0x0c
 643 #define ACTION_DIVIDE         0x0d
 644 #define ACTION_EQUALS         0x0e
 645 #define ACTION_LESS           0x0f
 646 #define ACTION_AND            0x10
 647 #define ACTION_OR             0x11
 648 #define ACTION_NOT            0x12
 649 #define ACTION_STRINGEQUALS   0x13
 650 #define ACTION_STRINGLENGTH   0x14
 651 #define ACTION_STRINGEXTRACT  0x15
 652 #define ACTION_POP            0x17
 653 #define ACTION_TOINTEGER      0x18
 654 #define ACTION_GETVARIABLE    0x1c
 655 #define ACTION_SETVARIABLE    0x1d
 656 #define ACTION_SETTARGET2     0x20
 657 #define ACTION_STRINGADD      0x21
 658 #define ACTION_GETPROPERTY    0x22
 659 #define ACTION_SETPROPERTY    0x23
 660 #define ACTION_CLONESPRITE    0x24
 661 #define ACTION_REMOVESPRITE   0x25
 662 #define ACTION_TRACE          0x26
 663 #define ACTION_STARTDRAG      0x27
 664 #define ACTION_ENDDRAG        0x28
 665 #define ACTION_STRINGLESS     0x29
 666 #define ACTION_RANDOMNUMBER   0x30
 667 #define ACTION_MBSTRINGLENGTH 0x31
 668 #define ACTION_CHARTOASCII    0x32
 669 #define ACTION_ASCIITOCHAR    0x33
 670 #define ACTION_GETTIME        0x34
 671 #define ACTION_MBSTRINGEXTRACT 0x35
 672 #define ACTION_MBCHARTOASCII  0x36
 673 #define ACTION_MBASCIITOCHAR  0x37
 674 #define ACTION_DELETE         0x3a
 675 #define ACTION_DELETE2        0x3b
 676 #define ACTION_DEFINELOCAL    0x3c
 677 #define ACTION_CALLFUNCTION   0x3d
 678 #define ACTION_RETURN         0x3e
 679 #define ACTION_MODULO         0x3f
 680 #define ACTION_NEWOBJECT      0x40
 681 #define ACTION_DEFINELOCAL2   0x41
 682 #define ACTION_INITARRAY      0x42
 683 #define ACTION_MAKEHASH       0x43
 684 #define ACTION_TYPEOF         0x44
 685 #define ACTION_TARGETPATH     0x45
 686 #define ACTION_ENUMERATE      0x46
 687 #define ACTION_ADD2           0x47
 688 #define ACTION_LESS2          0x48
 689 #define ACTION_EQUALS2        0x49
 690 #define ACTION_TONUMBER       0x4a
 691 #define ACTION_TOSTRING       0x4b
 692 #define ACTION_PUSHDUPLICATE  0x4c
 693 #define ACTION_STACKSWAP      0x4d
 694 #define ACTION_GETMEMBER      0x4e
 695 #define ACTION_SETMEMBER      0x4f
 696 #define ACTION_INCREMENT      0x50
 697 #define ACTION_DECREMENT      0x51
 698 #define ACTION_CALLMETHOD     0x52
 699 #define ACTION_NEWMETHOD      0x53
 700 #define ACTION_BITAND         0x60
 701 #define ACTION_BITOR          0x61
 702 #define ACTION_BITXOR         0x62
 703 #define ACTION_BITLSHIFT      0x63
 704 #define ACTION_BITRSHIFT      0x64
 705 #define ACTION_BITURSHIFT     0x65
 706 #define ACTION_GOTOFRAME      0x81
 707 #define ACTION_GETURL         0x83
 708 #define ACTION_STOREREGISTER  0x87
 709 #define ACTION_CONSTANTPOOL   0x88
 710 #define ACTION_WAITFORFRAME   0x8a
 711 #define ACTION_SETTARGET      0x8b
 712 #define ACTION_GOTOLABEL      0x8c
 713 #define ACTION_WAITFORFRAME2  0x8d
 714 #define ACTION_WITH           0x94
 715 #define ACTION_PUSH           0x96
 716 #define ACTION_JUMP           0x99
 717 #define ACTION_GETURL2        0x9a
 718 #define ACTION_DEFINEFUNCTION 0x9b
 719 #define ACTION_IF             0x9d
 720 #define ACTION_CALL           0x9e
 721 #define ACTION_GOTOFRAME2     0x9f
 722
 723 void action_fixjump(ActionMarker m1, ActionMarker m2)
 724 {
 725     ActionTAG* a1 = m1.atag;
 726     ActionTAG* a2 = m2.atag;
 727     ActionTAG* a;
 728     int len = 0;
 729     int oplen = 0;
 730     a = a1;
 731
 732     a = a->next; //first one is free
 733     while(a && a!=a2)
 734     {
 735         len += ActionTagSize(a);
 736         oplen ++;
 737         a = a->next;
 738     }
 739     if(!a)
 740     { len = 0;
 741       oplen = 0;
 742       a = a2;
 743       while(a && a!=a1) {
 744           len -= ActionTagSize(a);
 745           oplen --;
 746           a = a->next;
 747       }
 748       if(!a) {
 749           fprintf(stderr, "action_fixjump: couldn't find second tag\n");
 750           return;
 751       }
 752       len -= ActionTagSize(a);
 753       oplen --;
 754     }
 755
 756     if (a1->op == ACTION_IF || a1->op == ACTION_JUMP)
 757     {
 758         *(U16*)(a1->data) = SWAP16(len);
 759     }
 760     else if(a1->op == ACTION_WAITFORFRAME)
 761     {
 762         ((U8*)(a1->data))[2] = oplen;
 763     }
 764     else if(a1->op == ACTION_WAITFORFRAME2)
 765     {
 766         ((U8*)(a1->data))[0] = oplen;
 767     }
 768
 769 }
 770
 771
 772 void action_NextFrame() {swf_AddActionTAG(ACTION_NEXTFRAME, 0, 0);}
 773 void action_PreviousFrame() {swf_AddActionTAG(ACTION_PREVIOUSFRAME, 0, 0);}
 774 void action_Play() {swf_AddActionTAG(ACTION_PLAY, 0, 0);}
 775 void action_Stop() {swf_AddActionTAG(ACTION_STOP, 0, 0);}
 776 void action_ToggleQuality() {swf_AddActionTAG(ACTION_TOGGLEQUALITY, 0, 0);}
 777 void action_StopSounds() {swf_AddActionTAG(ACTION_STOPSOUNDS, 0, 0);}
 778 void action_Add() {swf_AddActionTAG(ACTION_ADD, 0, 0);}
 779 void action_Subtract() {swf_AddActionTAG(ACTION_SUBTRACT, 0, 0);}
 780 void action_Multiply() {swf_AddActionTAG(ACTION_MULTIPLY, 0, 0);}
 781 void action_Divide() {swf_AddActionTAG(ACTION_DIVIDE, 0, 0);}
 782 void action_Equals() {swf_AddActionTAG(ACTION_EQUALS, 0, 0);}
 783 void action_Less() {swf_AddActionTAG(ACTION_LESS, 0, 0);}
 784 void action_And() {swf_AddActionTAG(ACTION_AND, 0, 0);}
 785 void action_Or() {swf_AddActionTAG(ACTION_OR, 0, 0);}
 786 void action_Not() {swf_AddActionTAG(ACTION_NOT, 0, 0);}
 787 void action_StringEquals() {swf_AddActionTAG(ACTION_STRINGEQUALS, 0, 0);}
 788 void action_StringLength() {swf_AddActionTAG(ACTION_STRINGLENGTH, 0, 0);}
 789 void action_StringExtract() {swf_AddActionTAG(ACTION_STRINGEXTRACT, 0, 0);}
 790 void action_Pop() {swf_AddActionTAG(ACTION_POP, 0, 0);}
 791 void action_ToInteger() {swf_AddActionTAG(ACTION_TOINTEGER, 0, 0);}
 792 void action_GetVariable() {swf_AddActionTAG(ACTION_GETVARIABLE, 0, 0);}
 793 void action_SetVariable() {swf_AddActionTAG(ACTION_SETVARIABLE, 0, 0);}
 794 void action_SetTarget2() {swf_AddActionTAG(ACTION_SETTARGET2, 0, 0);}
 795 void action_StringAdd() {swf_AddActionTAG(ACTION_STRINGADD, 0, 0);}
 796 void action_GetProperty() {swf_AddActionTAG(ACTION_GETPROPERTY, 0, 0);}
 797 void action_SetProperty() {swf_AddActionTAG(ACTION_SETPROPERTY, 0, 0);}
 798 void action_CloneSprite() {swf_AddActionTAG(ACTION_CLONESPRITE, 0, 0);}
 799 void action_RemoveSprite() {swf_AddActionTAG(ACTION_REMOVESPRITE, 0, 0);}
 800 void action_Trace() {swf_AddActionTAG(ACTION_TRACE, 0, 0);}
 801 void action_StartDrag() {swf_AddActionTAG(ACTION_STARTDRAG, 0, 0);}
 802 void action_EndDrag() {swf_AddActionTAG(ACTION_ENDDRAG, 0, 0);}
 803 void action_StringLess() {swf_AddActionTAG(ACTION_STRINGLESS, 0, 0);}
 804 void action_RandomNumber() {swf_AddActionTAG(ACTION_RANDOMNUMBER, 0, 0);}
 805 void action_MBStringLength() {swf_AddActionTAG(ACTION_MBSTRINGLENGTH, 0, 0);}
 806 void action_CharToAscii() {swf_AddActionTAG(ACTION_CHARTOASCII, 0, 0);}
 807 void action_AsciiToChar() {swf_AddActionTAG(ACTION_ASCIITOCHAR, 0, 0);}
 808 void action_GetTime() {swf_AddActionTAG(ACTION_GETTIME, 0, 0);}
 809 void action_MBStringExtract() {swf_AddActionTAG(ACTION_MBSTRINGEXTRACT, 0, 0);}
 810 void action_MBCharToAscii() {swf_AddActionTAG(ACTION_MBCHARTOASCII, 0, 0);}
 811 void action_MBAsciiToChar() {swf_AddActionTAG(ACTION_MBASCIITOCHAR, 0, 0);}
 812 void action_Delete() {swf_AddActionTAG(ACTION_DELETE, 0, 0);}
 813 void action_Delete2() {swf_AddActionTAG(ACTION_DELETE2, 0, 0);}
 814 void action_DefineLocal() {swf_AddActionTAG(ACTION_DEFINELOCAL, 0, 0);}
 815 void action_CallFunction() {swf_AddActionTAG(ACTION_CALLFUNCTION, 0, 0);}
 816 void action_Return() {swf_AddActionTAG(ACTION_RETURN, 0, 0);}
 817 void action_Modulo() {swf_AddActionTAG(ACTION_MODULO, 0, 0);}
 818 void action_NewObject() {swf_AddActionTAG(ACTION_NEWOBJECT, 0, 0);}
 819 void action_DefineLocal2() {swf_AddActionTAG(ACTION_DEFINELOCAL2, 0, 0);}
 820 void action_InitArray() {swf_AddActionTAG(ACTION_INITARRAY, 0, 0);}
 821 void action_Makehash() {swf_AddActionTAG(ACTION_MAKEHASH, 0, 0);}
 822 void action_TypeOf() {swf_AddActionTAG(ACTION_TYPEOF, 0, 0);}
 823 void action_TargetPath() {swf_AddActionTAG(ACTION_TARGETPATH, 0, 0);}
 824 void action_Enumerate() {swf_AddActionTAG(ACTION_ENUMERATE, 0, 0);}
 825 void action_Add2() {swf_AddActionTAG(ACTION_ADD2, 0, 0);}
 826 void action_Less2() {swf_AddActionTAG(ACTION_LESS2, 0, 0);}
 827 void action_Equals2() {swf_AddActionTAG(ACTION_EQUALS2, 0, 0);}
 828 void action_ToNumber() {swf_AddActionTAG(ACTION_TONUMBER, 0, 0);}
 829 void action_ToString() {swf_AddActionTAG(ACTION_TOSTRING, 0, 0);}
 830 void action_PushDuplicate() {swf_AddActionTAG(ACTION_PUSHDUPLICATE, 0, 0);}
 831 void action_StackSwap() {swf_AddActionTAG(ACTION_STACKSWAP, 0, 0);}
 832 void action_GetMember() {swf_AddActionTAG(ACTION_GETMEMBER, 0, 0);}
 833 void action_SetMember() {swf_AddActionTAG(ACTION_SETMEMBER, 0, 0);}
 834 void action_Increment() {swf_AddActionTAG(ACTION_INCREMENT, 0, 0);}
 835 void action_Decrement() {swf_AddActionTAG(ACTION_DECREMENT, 0, 0);}
 836 void action_CallMethod() {swf_AddActionTAG(ACTION_CALLMETHOD, 0, 0);}
 837 void action_NewMethod() {swf_AddActionTAG(ACTION_NEWMETHOD, 0, 0);}
 838 void action_BitAnd() {swf_AddActionTAG(ACTION_BITAND, 0, 0);}
 839 void action_BitOr() {swf_AddActionTAG(ACTION_BITOR, 0, 0);}
 840 void action_BitXor() {swf_AddActionTAG(ACTION_BITXOR, 0, 0);}
 841 void action_BitLShift() {swf_AddActionTAG(ACTION_BITLSHIFT, 0, 0);}
 842 void action_BitRShift() {swf_AddActionTAG(ACTION_BITRSHIFT, 0, 0);}
 843 void action_BitURShift() {swf_AddActionTAG(ACTION_BITURSHIFT, 0, 0);}
 844 void action_Call() {swf_AddActionTAG(ACTION_CALL, 0, 0);}
 845 void action_End() {swf_AddActionTAG(ACTION_END, 0, 0);}
 846 void action_GotoFrame(U16 frame)
 847 {
 848     *(U16*)currentatag->tmp = SWAP16(frame);
 849     swf_AddActionTAG(ACTION_GOTOFRAME, (U8*)currentatag->tmp, 2);
 850 }
 851 void action_Jump(U16 branch)
 852 {
 853     *(U16*)currentatag->tmp = SWAP16(branch);
 854     swf_AddActionTAG(ACTION_JUMP, (U8*)currentatag->tmp, 2);
 855 }
 856 void action_If(U16 branch)
 857 {
 858     *(U16*)currentatag->tmp = SWAP16(branch);
 859     swf_AddActionTAG(ACTION_IF, (U8*)currentatag->tmp, 2);
 860 }
 861 void action_StoreRegister(U8 reg)
 862 {
 863     *(U8*)currentatag->tmp = reg;
 864     swf_AddActionTAG(ACTION_STOREREGISTER, (U8*)currentatag->tmp, 1);
 865 }
 866 void action_GotoFrame2(U8 method)
 867 {
 868     *(U8*)currentatag->tmp = method;
 869     swf_AddActionTAG(ACTION_GOTOFRAME2, (U8*)currentatag->tmp, 1);
 870 }
 871 void action_GetUrl2(U8 method)
 872 {
 873     *(U8*)currentatag->tmp = method;
 874     swf_AddActionTAG(ACTION_GETURL2, (U8*)currentatag->tmp, 1);
 875 }
 876 void action_WaitForFrame2(U8 skip)
 877 {
 878     *(U8*)currentatag->tmp = skip;
 879     swf_AddActionTAG(ACTION_WAITFORFRAME2, (U8*)currentatag->tmp, 1);
 880 }
 881 void action_WaitForFrame(U16 frame, U8 skip)
 882 {
 883     *(U16*)currentatag->tmp = SWAP16(frame);
 884     *(U8*)&currentatag->tmp[2] = skip;
 885     swf_AddActionTAG(ACTION_WAITFORFRAME, (U8*)currentatag->tmp, 3);
 886 }
 887 void action_SetTarget(char* target)
 888 {
 889     char*ptr = strdup(target);
 890     swf_AddActionTAG(ACTION_SETTARGET, (U8*)ptr, strlen(ptr)+1);
 891 }
 892 void action_PushNULL()
 893 {
 894     *(U8*)currentatag->tmp = 2; //NULL
 895     swf_AddActionTAG(ACTION_PUSH, (U8*)currentatag->tmp, 1);
 896 }
 897 void action_PushBoolean(char c)
 898 {
 899     *(U8*)currentatag->tmp = 5; //bool
 900     *(U8*)&currentatag->tmp[1] = c;
 901     swf_AddActionTAG(ACTION_PUSH, (U8*)currentatag->tmp, 2);
 902 }
 903 void action_PushRegister(U8 reg)
 904 {
 905     *(U8*)currentatag->tmp = 4; //register
 906     *(U8*)&currentatag->tmp[1] = reg;
 907     swf_AddActionTAG(ACTION_PUSH, (U8*)currentatag->tmp, 2);
 908 }
 909 void action_PushLookup(U8 index)
 910 {
 911     *(U8*)currentatag->tmp = 8; //lookup
 912     *(U8*)&currentatag->tmp[1] = index;
 913     swf_AddActionTAG(ACTION_PUSH, (U8*)currentatag->tmp, 2);
 914 }
 915 void action_PushString(char*str)
 916 {
 917     int l = strlen(str);
 918     char*ptr = (char*)malloc(l+2);
 919     ptr[0] = 0; // string
 920     strcpy(&ptr[1], str);
 921     swf_AddActionTAG(ACTION_PUSH, (U8*)ptr, l+2);
 922 }
 923 void action_PushFloat(float f)
 924 {
 925     char*ptr = (char*)malloc(5);
 926     U32 fd = *(U32*)&f;
 927     ptr[0] = 1; //float
 928     ptr[1]  = fd;
 929     ptr[2]  = fd>>8;
 930     ptr[3]  = fd>>16;
 931     ptr[4]  = fd>>24;
 932     swf_AddActionTAG(ACTION_PUSH, (U8*)ptr, 5);
 933 }
 934 void action_PushDouble(double d)
 935 {
 936     char*ptr = (char*)malloc(9);
 937     U8*dd = (U8*)&d;
 938     ptr[0] = 6; //double
 939 #ifdef WORDS_BIGENDIAN
 940     ptr[1] = dd[7];ptr[2] = dd[6];
 941     ptr[3] = dd[5];ptr[4] = dd[4];
 942     ptr[5] = dd[3];ptr[6] = dd[2];
 943     ptr[7] = dd[1];ptr[8] = dd[0];
 944 #else
 945     ptr[1] = dd[0];ptr[2] = dd[1];
 946     ptr[3] = dd[2];ptr[4] = dd[3];
 947     ptr[5] = dd[4];ptr[6] = dd[5];
 948     ptr[7] = dd[6];ptr[8] = dd[7];
 949 #endif
 950     swf_AddActionTAG(ACTION_PUSH, (U8*)ptr, 9);
 951 }
 952 void action_PushInt(int i)
 953 {
 954     *(U8*)currentatag->tmp = 7; //int
 955     currentatag->tmp[1] = i;
 956     currentatag->tmp[2] = i>>8;
 957     currentatag->tmp[3] = i>>16;
 958     currentatag->tmp[4] = i>>24;
 959     swf_AddActionTAG(ACTION_PUSH, (U8*)currentatag->tmp, 5);
 960 }
 961 void action_GotoLabel(char* label)
 962 {
 963     char*ptr = strdup(label);
 964     swf_AddActionTAG(ACTION_GOTOLABEL, (U8*)ptr, strlen(ptr));
 965 }
 966 void action_GetUrl(char* url, char* label)
 967 {
 968     int l1= strlen(url);
 969     int l2= strlen(label);
 970     char*ptr = malloc(l1+l2+2);
 971     strcpy(ptr, url);
 972     strcpy(&ptr[l1+1], label);
 973     swf_AddActionTAG(ACTION_GETURL, ptr, l1+l2+2);
 974 }
 975 //TODO:
 976 void action_DefineFunction(U8*data, int len) {}
 977 void action_Constantpool(char* constantpool) {}
 978 void action_With(char*object) {}
 979
 980 /*
 981   Properties:
 982
 983   _X 0
 984   _Y 1
 985   _xscale 2
 986   _yscale 3
 987   _currentframe 4
 988   _totalframes 5
 989   _alpha 6
 990   _visible 7
 991   _width 8
 992   _height 9
 993   _rotation 10
 994   _target 11
 995   _framesloaded 12
 996   _name 13
 997   _droptarget 14
 998   _url 15
 999   _highquality 16
1000   _focusrect 17
1001   _soundbuftime 18
1002   _quality* 19
1003   _xmouse* 20
1004   _ymouse* 21
1005 */