Copyright (c) 2001 Matthias Kramm <kramm@quiss.org>
- This file is distributed under the GPL, see file COPYING for details
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
-*/
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */
#include "../rfxswf.h"
u: url (string)
t: target (string)
l: label (string)
-C: constant pool header (byte)
+C: constant pool header (word)
c: constant pool entry (string)
s: skip (byte) (number of actions)
m: method (byte) swf_GetUrl2:(0=none, 1=get, 2=post)/GotoFrame2:(1=play)
b: branch (word) (number of bytes)
p (push): type(byte), type=0:string, type=1:double
{: define function (name (string), num (word), params (num strings), codesize (word)
-o: object (string)
+o: codesize (word) object (string)
r: register (byte)
*/
{3,"End", 0x00, ""},
{5,"ToString", 0x4b,""}, //?
{5,"TypeOf", 0x44,""},
{5,"Add2", 0x47,""},
-{5,"Less2", 0x48,""}
+{5,"Less2", 0x48,""},
+{6,"Greater", 0x67,""},
+{6,"StringGreater", 0x68,""},
+{6,"Enumerate2", 0x55,""},
+{6,"InstanceOf", 0x54,""},
+{6,"StrictEquals", 0x66,""}
};
static int definedactions = sizeof(actions)/sizeof(struct Action);
U8*data;
while(op)
{
- action->next = (ActionTAG*)malloc(sizeof(ActionTAG));
+ action->next = (ActionTAG*)rfx_calloc(sizeof(ActionTAG));
action->next->prev = action;
action->next->next = 0;
+ action->next->parent = tmp.next;
action = action->next;
op = swf_GetU8(tag);
length = swf_GetU16(tag);
if(length) {
- data = malloc(length);
+ data = (U8*)rfx_alloc(length);
swf_GetBlock(tag, data, length);
} else {
data = 0;
action->op = op;
action->len = length;
action->data = data;
- action->parent = tag;
}
return tmp.next;
}
void swf_ActionFree(ActionTAG*action)
{
+ if(!action) {
+ return;
+ }
+ action = action->parent;
+ if(!action) {
+ fprintf(stderr, "Warning: freeing zero action (no parent)");
+ return;
+ }
+
while(action)
{
ActionTAG*tmp;
- if(action->data && action->data != action->tmp)
- free(action->data);
+ if(action->data && action->data != action->tmp) {
+ rfx_free(action->data);
+ action->data = 0;
+ }
+ action->len = 0;
+
tmp = action;
action=action->next;
- free(tmp);
+ rfx_free(tmp);
}
}
void swf_ActionSet(TAG*tag, ActionTAG*action)
{
+ if(!action) {
+ return;
+ }
+ action=action->parent;
while(action)
{
swf_SetU8(tag, action->op);
}
}
-int OpAdvance(char c, char*data)
+int OpAdvance(char c, U8*data)
{
switch (c)
{
case 'f':
return 2;
case 'u':
- return strlen(data)+1;
+ return strlen((const char*)data)+1;
case 't':
- return strlen(data)+1;
+ return strlen((const char*)data)+1;
case 'l':
- return strlen(data)+1;
+ return strlen((const char*)data)+1;
case 'c':
- return strlen(data)+1;
+ return strlen((const char*)data)+1;
case 'C':
return 2;
case 's':
return 1;
case 'b':
return 2;
+ case 'r':
+ return 1;
case 'p': {
U8 type = *data++;
if(type == 0) {
- return 1+strlen(data)+1; //string
+ return 1+strlen((const char*)data)+1; //string
} else if (type == 1) {
return 1+4; //float
} else if (type == 2) {
return 1+0; //NULL
+ } else if (type == 3) {
+ return 1+0; //Undefined
} else if (type == 4) {
return 1+1; //register
} else if (type == 5) {
return 1+4; //int
} else if (type == 8) {
return 1+1; //lookup
+ } else if (type == 9) {
+ return 1+2; //lookup 16
} else return 1;
break;
}
+ case 'o': {
+ return 2;
+ }
+ case '{': {
+ U16 num;
+ U16 codesize;
+ U8* odata = data;
+ int t;
+ while(*data++); //name
+ num = (*data++)*256; //num
+ num += (*data++);
+ for(t=0;t<num;t++)
+ while(*data++); //param
+ codesize = (*data++)*256; //num
+ codesize += (*data++);
+ return data-odata;
+ }
}
return 0;
}
-
+#define ATAG_FULLLENGTH(atag) ((atag)->len + 1 + ((atag)->op&0x80?2:0))
+#define MAX_LEVELS 16
/* TODO: * this should be in swfdump.c */
void swf_DumpActions(ActionTAG*atag, char*prefix)
{
U8*data;
char* cp;
int entry = 0;
-
+ char spaces[MAX_LEVELS*4+1];
+ struct {
+ char*text;
+ int count;
+ } counter[MAX_LEVELS];
+ int countpos = 0;
#ifdef MAX_LOOKUP
-
char * lookup[MAX_LOOKUP];
memset(lookup,0x00,sizeof(lookup));
-
#endif
+ memset(spaces, 32, sizeof(spaces));
+ spaces[sizeof(spaces)-1] = 0;
if (!prefix)
prefix="";
while(atag)
{
- U8 poollen = 0;
+ char*indent = &spaces[sizeof(spaces)-1-countpos*4];
+ U16 poollen = 0;
for(t=0;t<definedactions;t++)
if(actions[t].op == atag->op)
break;
if(t==definedactions) {
- printf("%s (%5d bytes) action: %02x\n", prefix, atag->len, atag->op);
- atag = atag->next;
- continue;
+ printf("%s (%5d bytes) action:%s unknown[%02x]", prefix, atag->len, indent, atag->op);
+ } else {
+ printf("%s (%5d bytes) action:%s %s", prefix, atag->len, indent, actions[t].name);
}
- printf("%s (%5d bytes) action: %s", prefix, atag->len, actions[t].name);
- cp = actions[t].flags;
data = atag->data;
- if(atag->len) //TODO: check for consistency: should we have a length?
- while(*cp)
+ if(atag->len && t!=definedactions) //TODO: check for consistency: should we have a length?
{
- switch(*cp)
- {
- case 'f': { //frame
- printf(" %d", data[0]+256*data[1]);
- } break;
- case 'u': {
- printf(" URL:\"%s\"", data);
- } break;
- case 't': {
- printf(" Target:\"%s\"", data);
- } break;
- case 'l': {
- printf(" Label:\"%s\"", data);
- } break;
- case 'c': {
- printf(" String:\"%s\"", data);
+ cp = actions[t].flags;
+ while(*cp)
+ {
+ switch(*cp)
+ {
+ case 'f': { //frame
+ printf(" %d", data[0]+256*data[1]);
+ } break;
+ case 'u': {
+ printf(" URL:\"%s\"", data);
+ } break;
+ case 't': {
+ printf(" Target:\"%s\"", data);
+ } break;
+ case 'l': {
+ printf(" Label:\"%s\"", data);
+ } break;
+ case 'c': {
+ printf(" String:\"%s\"", data);
#ifdef MAX_LOOKUP
- if (entry<MAX_LOOKUP)
- lookup[entry++] = strdup(data);
+ if (entry<MAX_LOOKUP)
+ lookup[entry++] = strdup((const char*)data);
#endif
- } break;
- case 'C': {
- poollen = *data;
- entry = 0;
- printf("(%d entries)", poollen);
- } break;
- case 's': {
- printf(" +%d", *data);
- } break;
- case 'm': {
- //m: method (byte) url:(0=none, 1=get, 2=datat)/gf2:(1=play)
- printf(" %d", *data);
- } break;
- case 'b': {
- printf(" %d", data[0]+256*(signed char)data[1]);
- } break;
- case 'p': {
- U8 type = *data;
- unsigned char*value = data+1;
- if(type == 0) {
- printf(" String:\"%s\"", value);
- } else if (type == 1) {
- U32 f = value[0]+(value[1]<<8)+
- (value[2]<<16)+(value[3]<<24);
- printf(" Float:%f", *(float*)&f);
- } else if (type == 2) {
- printf(" NULL");
- } else if (type == 4) {
- printf(" register:%d", *value);
- } else if (type == 5) {
- printf(" bool:%s", *value?"true":"false");
- } else if (type == 6) {
- U8 a[8];
- int t;
- memcpy(&a[4],value,4);
- memcpy(a,&value[4],4);
+ } break;
+ case 'C': {
+ poollen = data[0]+256*data[1];
+ entry = 0;
+ printf("(%d entries)", poollen);
+ } break;
+ case 's': {
+ printf(" +%d", *data);
+ } break;
+ case 'm': {
+ //m: method (byte) url:(0=none, 1=get, 2=datat)/gf2:(1=play)
+ printf(" %d", *data);
+ } break;
+ case '{': {
+ U16 num;
+ U16 codesize;
+ int s = 0;
+ int t;
+ printf(" %s(", data);
+ while(data[s++]); //name
+ num = (data[s++]); //num
+ num += (data[s++])*256;
+ for(t=0;t<num;t++) {
+ printf("%s",data+s); // 10/22/04 MD: added +s to
+ if(t<num-1)
+ printf(", ");
+ while(data[s++]); //param
+ }
+ printf(")");
+ codesize = (data[s++]); //num
+ codesize += (data[s++])*256;
+ printf(" codesize:%d ",codesize);
+ printf("\n%s %s{", prefix, indent);
+ if(countpos>=15) {
+ printf("Error: nested too deep\n");
+ continue;
+ }
+ counter[countpos].text = "}";
+ counter[countpos].count = codesize + ATAG_FULLLENGTH(atag);
+ countpos++;
+ } break;
+ case 'o': {
+ int t;
+ U16 codesize = data[0]+256*data[1];
+ printf(" codesize:%d ", codesize);
+
+ /* the following tries to find the "string"
+ the flash documentation speaks of- I've
+ never actually seen one yet. -mk */
+ for(t=2;t<atag->len;t++)
+ printf("[%02x]", atag->data[t]);
+
+ printf("\n%s %s{", prefix, indent);
+ if(countpos>=15) {
+ printf("Error: nested too deep\n");
+ continue;
+ }
+ counter[countpos].text = "}";
+ counter[countpos].count = codesize + ATAG_FULLLENGTH(atag);
+ countpos++;
+ } break;
+ case 'b': {
+ printf(" %d", data[0]+256*(signed char)data[1]);
+ } break;
+ case 'r': {
+ printf(" %d", data[0]);
+ } break;
+ case 'p': {
+ U8 type = *data;
+ unsigned char*value = data+1;
+ if(type == 0) {
+ printf(" String:\"%s\"", value);
+ } else if (type == 1) {
+ U32 f = value[0]+(value[1]<<8)+
+ (value[2]<<16)+(value[3]<<24);
+ printf(" Float:%f", *(float*)&f);
+ } else if (type == 2) {
+ printf(" NULL");
+ } else if (type == 3) {
+ printf(" Undefined");
+ } else if (type == 4) {
+ printf(" register:%d", *value);
+ } else if (type == 5) {
+ printf(" bool:%s", *value?"true":"false");
+ } else if (type == 6) {
+ U8 a[8];
+ memcpy(&a[4],value,4);
+ memcpy(a,&value[4],4);
#ifdef WORDS_BIGENDIAN
- for(t=0;t<4;t++) {
- U8 tmp = a[t];
- a[t]=a[7-t];
- a[7-t] = tmp;
- }
+ int t;
+ for(t=0;t<4;t++) {
+ U8 tmp = a[t];
+ a[t]=a[7-t];
+ a[7-t] = tmp;
+ }
#endif
- printf(" double:%f", *(double*)a);
- } else if (type == 7) {
- printf(" int:%d", value[0]+(value[1]<<8)+
- (value[2]<<16)+(value[3]<<24));
- } else if (type == 8) {
- printf(" Lookup:%d", *value);
+ printf(" double:%f", *(double*)a);
+ } else if (type == 7) {
+ printf(" int:%d", value[0]+(value[1]<<8)+
+ (value[2]<<16)+(value[3]<<24));
+ } else if (type == 8) {
+ printf(" Lookup:%d", *value);
#ifdef MAX_LOOKUP
- if (lookup[*value])
- printf(" (\"%s\")",lookup[*value]);
+ if (lookup[*value])
+ printf(" (\"%s\")",lookup[*value]);
#endif
- } else {
- printf(" UNKNOWN[%02x]",type);
- }
- } break;
- }
- data += OpAdvance(*cp, data);
- if((*cp!='c' || !poollen) &&
- (*cp!='p' || !(data<&atag->data[atag->len])))
- cp++;
- if(poollen)
- poollen--;
+ } else if (type == 9) {
+ U32 offset = value[0]+(value[1]<<8);
+ printf(" Lookup16:%d", offset);
+#ifdef MAX_LOOKUP
+ if (lookup[offset])
+ printf(" (\"%s\")",lookup[offset]);
+#endif
+ } else {
+ printf(" UNKNOWN[%02x]",type);
+ }
+ } break;
+ }
+ data += OpAdvance(*cp, data);
+ if((*cp!='c' || !poollen) &&
+ (*cp!='p' || !(data<&atag->data[atag->len])))
+ cp++;
+ if(poollen)
+ poollen--;
+ }
}
if(data < atag->data + atag->len)
printf("\")");
}
printf("\n");
+
+ for(t=0;t<countpos;t++) {
+ counter[t].count -= ATAG_FULLLENGTH(atag);
+ if(counter[t].count < 0) {
+ printf("===== Error: Oplength errors =====\n");
+ countpos = 0;
+ break;
+ }
+ }
+
+ while(countpos && !counter[countpos-1].count)
+ {
+ printf("%s %s%s\n",
+ prefix, indent, counter[countpos-1].text);
+ indent += 4;
+ countpos--;
+ }
+
atag = atag->next;
}
#ifdef MAX_LOOKUP
- for (t=0;t<MAX_LOOKUP;t++) if (lookup[t]) free(lookup[t]);
+ for (t=0;t<MAX_LOOKUP;t++) if (lookup[t]) rfx_free(lookup[t]);
#endif
}
int count = 0;
while(atag)
{
- U8 poollen = 0;
+ U16 poollen = 0;
for(t=0;t<definedactions;t++)
if(actions[t].op == atag->op)
break;
case 'u': {
if(type&TYPE_URL)
{
- replacelen = strlen(data);
+ replacelen = strlen((const char*)data);
replacepos = data;
- replacement = callback(data); // may be null
+ replacement = (U8*)callback((char*)data); // may be null
}
} break;
case 't': {
if(type&TYPE_TARGET)
{
- replacelen = strlen(data);
+ replacelen = strlen((const char*)data);
replacepos = data;
- replacement = callback(data); // may be null
+ replacement = (U8*)callback((char*)data); // may be null
}
} break;
case 'c': {
if(type&TYPE_STRING)
{
- replacelen = strlen(data);
+ replacelen = strlen((const char*)data);
replacepos = data;
- replacement = callback(data); // may be null
+ replacement = (U8*)callback((char*)data); // may be null
}
} break;
case 'C': {
- poollen = (*data);
+ poollen = (data[0]+256*data[1]);
} break;
case 'o': {
} break;
case 'p': {
U8 datatype = *data;
- char*value = &data[1];
+ char*value = (char*)&data[1];
if(datatype == 0) { //string
if(type&TYPE_STRING)
{
replacelen = strlen(value);
- replacepos = value;
- replacement = callback(value); // may be null
+ replacepos = (U8*)value;
+ replacement = (U8*)callback(value); // may be null
}
} else if (datatype == 8) { //lookup
}
if(replacement)
{
- int newlen = strlen(replacement);
- char * newdata = malloc(atag->len - replacelen + newlen);
+ int newlen = strlen((const char *)replacement);
+ char * newdata = (char*)rfx_alloc(atag->len - replacelen + newlen);
int rpos = replacepos - atag->data;
memcpy(newdata, atag->data, rpos);
memcpy(&newdata[rpos], replacement, newlen);
memcpy(&newdata[rpos+newlen], &replacepos[replacelen],
&data[atag->len] - &replacepos[replacelen]);
- free(atag->data);
- atag->data = newdata;
+ rfx_free(atag->data);
+ atag->data = (U8*)newdata;
data = &atag->data[rpos+newlen+1];
}
}
swf_ActionEnumerate(atag, callback, TYPE_URL);
}
-static ActionTAG * currentatag;
-
-ActionTAG* swf_ActionStart()
+/*static ActionTAG* swf_ActionStart()
{
- currentatag = (ActionTAG*)malloc(sizeof(ActionTAG));
- currentatag->prev = 0;
- currentatag->parent = 0;
- currentatag->data = 0;
- currentatag->len = 0;
- return currentatag;
+ ActionTAG*atag;
+ atag = (ActionTAG*)rfx_alloc(sizeof(ActionTAG));
+ atag->prev = 0;
+ atag->next = 0;
+ atag->parent = 0;
+ atag->data = 0;
+ atag->len = 0;
+ return atag;
}
-void swf_ActionEnd()
+void swf_ActionEnd(ActionTAG* atag)
{
- currentatag->prev->next = 0;
- free(currentatag);
+ ActionTAG*last;
+ while(atag) {
+ last = atag;
+ atag=atag->next;
+ }
+
+ last->prev->next = 0;
+ rfx_free(last);
+}*/
+
+static ActionTAG*lastATAG(ActionTAG*atag)
+{
+ ActionTAG*last = 0;
+ while(atag) {
+ last = atag;
+ atag=atag->next;
+ }
+ return last;
}
-void swf_AddActionTAG(U8 op, U8*data, U16 len)
+ActionTAG* swf_AddActionTAG(ActionTAG*atag, U8 op, U8*data, U16 len)
{
- currentatag->next = (ActionTAG*)malloc(sizeof(ActionTAG));
- currentatag->next->prev = currentatag;
- currentatag->parent = 0;
- currentatag->data = data;
- currentatag->len = len;
- currentatag->op = op;
- currentatag = currentatag->next;
+ ActionTAG*tmp;
+ tmp = (ActionTAG*)rfx_alloc(sizeof(ActionTAG));
+ tmp->next = 0;
+ if(atag) {
+ tmp->prev = atag;
+ atag->next = tmp;
+ tmp->parent = atag->parent;
+ } else {
+ tmp->prev = 0;
+ tmp->parent = tmp;
+ }
+ if(data || !len) {
+ tmp->data = data;
+ } else {
+ tmp->data = tmp->tmp;
+ }
+
+ tmp->len = len;
+ tmp->op = op;
+ return tmp;
}
-ActionMarker action_setMarker()
+ActionMarker action_setMarker(ActionTAG*atag)
{
ActionMarker m;
- m.atag = currentatag;
+ m.atag = atag;
return m;
}
if (a1->op == ACTION_IF || a1->op == ACTION_JUMP)
{
- *(U16*)(a1->data) = SWAP16(len);
+ *(U16*)(a1->data) = LE_16_TO_NATIVE(len);
}
else if(a1->op == ACTION_WAITFORFRAME)
{
}
+ActionTAG* action_NextFrame(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_NEXTFRAME, 0, 0);}
+ActionTAG* action_PreviousFrame(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_PREVIOUSFRAME, 0, 0);}
+ActionTAG* action_Play(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_PLAY, 0, 0);}
+ActionTAG* action_Stop(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_STOP, 0, 0);}
+ActionTAG* action_ToggleQuality(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_TOGGLEQUALITY, 0, 0);}
+ActionTAG* action_StopSounds(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_STOPSOUNDS, 0, 0);}
+ActionTAG* action_Add(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_ADD, 0, 0);}
+ActionTAG* action_Subtract(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_SUBTRACT, 0, 0);}
+ActionTAG* action_Multiply(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_MULTIPLY, 0, 0);}
+ActionTAG* action_Divide(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_DIVIDE, 0, 0);}
+ActionTAG* action_Equals(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_EQUALS, 0, 0);}
+ActionTAG* action_Less(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_LESS, 0, 0);}
+ActionTAG* action_And(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_AND, 0, 0);}
+ActionTAG* action_Or(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_OR, 0, 0);}
+ActionTAG* action_Not(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_NOT, 0, 0);}
+ActionTAG* action_StringEquals(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_STRINGEQUALS, 0, 0);}
+ActionTAG* action_StringLength(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_STRINGLENGTH, 0, 0);}
+ActionTAG* action_StringExtract(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_STRINGEXTRACT, 0, 0);}
+ActionTAG* action_Pop(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_POP, 0, 0);}
+ActionTAG* action_ToInteger(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_TOINTEGER, 0, 0);}
+ActionTAG* action_GetVariable(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_GETVARIABLE, 0, 0);}
+ActionTAG* action_SetVariable(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_SETVARIABLE, 0, 0);}
+ActionTAG* action_SetTarget2(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_SETTARGET2, 0, 0);}
+ActionTAG* action_StringAdd(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_STRINGADD, 0, 0);}
+ActionTAG* action_GetProperty(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_GETPROPERTY, 0, 0);}
+ActionTAG* action_SetProperty(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_SETPROPERTY, 0, 0);}
+ActionTAG* action_CloneSprite(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_CLONESPRITE, 0, 0);}
+ActionTAG* action_RemoveSprite(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_REMOVESPRITE, 0, 0);}
+ActionTAG* action_Trace(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_TRACE, 0, 0);}
+ActionTAG* action_StartDrag(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_STARTDRAG, 0, 0);}
+ActionTAG* action_EndDrag(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_ENDDRAG, 0, 0);}
+ActionTAG* action_StringLess(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_STRINGLESS, 0, 0);}
+ActionTAG* action_RandomNumber(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_RANDOMNUMBER, 0, 0);}
+ActionTAG* action_MBStringLength(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_MBSTRINGLENGTH, 0, 0);}
+ActionTAG* action_CharToAscii(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_CHARTOASCII, 0, 0);}
+ActionTAG* action_AsciiToChar(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_ASCIITOCHAR, 0, 0);}
+ActionTAG* action_GetTime(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_GETTIME, 0, 0);}
+ActionTAG* action_MBStringExtract(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_MBSTRINGEXTRACT, 0, 0);}
+ActionTAG* action_MBCharToAscii(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_MBCHARTOASCII, 0, 0);}
+ActionTAG* action_MBAsciiToChar(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_MBASCIITOCHAR, 0, 0);}
+ActionTAG* action_Delete(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_DELETE, 0, 0);}
+ActionTAG* action_Delete2(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_DELETE2, 0, 0);}
+ActionTAG* action_DefineLocal(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_DEFINELOCAL, 0, 0);}
+ActionTAG* action_CallFunction(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_CALLFUNCTION, 0, 0);}
+ActionTAG* action_Return(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_RETURN, 0, 0);}
+ActionTAG* action_Modulo(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_MODULO, 0, 0);}
+ActionTAG* action_NewObject(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_NEWOBJECT, 0, 0);}
+ActionTAG* action_DefineLocal2(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_DEFINELOCAL2, 0, 0);}
+ActionTAG* action_InitArray(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_INITARRAY, 0, 0);}
+ActionTAG* action_Makehash(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_MAKEHASH, 0, 0);}
+ActionTAG* action_TypeOf(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_TYPEOF, 0, 0);}
+ActionTAG* action_TargetPath(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_TARGETPATH, 0, 0);}
+ActionTAG* action_Enumerate(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_ENUMERATE, 0, 0);}
+ActionTAG* action_Add2(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_ADD2, 0, 0);}
+ActionTAG* action_Less2(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_LESS2, 0, 0);}
+ActionTAG* action_Equals2(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_EQUALS2, 0, 0);}
+ActionTAG* action_ToNumber(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_TONUMBER, 0, 0);}
+ActionTAG* action_ToString(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_TOSTRING, 0, 0);}
+ActionTAG* action_PushDuplicate(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_PUSHDUPLICATE, 0, 0);}
+ActionTAG* action_StackSwap(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_STACKSWAP, 0, 0);}
+ActionTAG* action_GetMember(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_GETMEMBER, 0, 0);}
+ActionTAG* action_SetMember(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_SETMEMBER, 0, 0);}
+ActionTAG* action_Increment(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_INCREMENT, 0, 0);}
+ActionTAG* action_Decrement(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_DECREMENT, 0, 0);}
+ActionTAG* action_CallMethod(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_CALLMETHOD, 0, 0);}
+ActionTAG* action_NewMethod(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_NEWMETHOD, 0, 0);}
+ActionTAG* action_BitAnd(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_BITAND, 0, 0);}
+ActionTAG* action_BitOr(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_BITOR, 0, 0);}
+ActionTAG* action_BitXor(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_BITXOR, 0, 0);}
+ActionTAG* action_BitLShift(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_BITLSHIFT, 0, 0);}
+ActionTAG* action_BitRShift(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_BITRSHIFT, 0, 0);}
+ActionTAG* action_BitURShift(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_BITURSHIFT, 0, 0);}
+ActionTAG* action_Call(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_CALL, 0, 0);}
+ActionTAG* action_End(ActionTAG*atag) {return swf_AddActionTAG(atag, ACTION_END, 0, 0);}
+ActionTAG* action_GotoFrame(ActionTAG*atag, U16 frame)
+{
+ atag = swf_AddActionTAG(atag, ACTION_GOTOFRAME, 0, 2);
+ *(U16*)atag->tmp = LE_16_TO_NATIVE(frame);
+ return atag;
+}
-void action_NextFrame() {swf_AddActionTAG(ACTION_NEXTFRAME, 0, 0);}
-void action_PreviousFrame() {swf_AddActionTAG(ACTION_PREVIOUSFRAME, 0, 0);}
-void action_Play() {swf_AddActionTAG(ACTION_PLAY, 0, 0);}
-void action_Stop() {swf_AddActionTAG(ACTION_STOP, 0, 0);}
-void action_ToggleQuality() {swf_AddActionTAG(ACTION_TOGGLEQUALITY, 0, 0);}
-void action_StopSounds() {swf_AddActionTAG(ACTION_STOPSOUNDS, 0, 0);}
-void action_Add() {swf_AddActionTAG(ACTION_ADD, 0, 0);}
-void action_Subtract() {swf_AddActionTAG(ACTION_SUBTRACT, 0, 0);}
-void action_Multiply() {swf_AddActionTAG(ACTION_MULTIPLY, 0, 0);}
-void action_Divide() {swf_AddActionTAG(ACTION_DIVIDE, 0, 0);}
-void action_Equals() {swf_AddActionTAG(ACTION_EQUALS, 0, 0);}
-void action_Less() {swf_AddActionTAG(ACTION_LESS, 0, 0);}
-void action_And() {swf_AddActionTAG(ACTION_AND, 0, 0);}
-void action_Or() {swf_AddActionTAG(ACTION_OR, 0, 0);}
-void action_Not() {swf_AddActionTAG(ACTION_NOT, 0, 0);}
-void action_StringEquals() {swf_AddActionTAG(ACTION_STRINGEQUALS, 0, 0);}
-void action_StringLength() {swf_AddActionTAG(ACTION_STRINGLENGTH, 0, 0);}
-void action_StringExtract() {swf_AddActionTAG(ACTION_STRINGEXTRACT, 0, 0);}
-void action_Pop() {swf_AddActionTAG(ACTION_POP, 0, 0);}
-void action_ToInteger() {swf_AddActionTAG(ACTION_TOINTEGER, 0, 0);}
-void action_GetVariable() {swf_AddActionTAG(ACTION_GETVARIABLE, 0, 0);}
-void action_SetVariable() {swf_AddActionTAG(ACTION_SETVARIABLE, 0, 0);}
-void action_SetTarget2() {swf_AddActionTAG(ACTION_SETTARGET2, 0, 0);}
-void action_StringAdd() {swf_AddActionTAG(ACTION_STRINGADD, 0, 0);}
-void action_GetProperty() {swf_AddActionTAG(ACTION_GETPROPERTY, 0, 0);}
-void action_SetProperty() {swf_AddActionTAG(ACTION_SETPROPERTY, 0, 0);}
-void action_CloneSprite() {swf_AddActionTAG(ACTION_CLONESPRITE, 0, 0);}
-void action_RemoveSprite() {swf_AddActionTAG(ACTION_REMOVESPRITE, 0, 0);}
-void action_Trace() {swf_AddActionTAG(ACTION_TRACE, 0, 0);}
-void action_StartDrag() {swf_AddActionTAG(ACTION_STARTDRAG, 0, 0);}
-void action_EndDrag() {swf_AddActionTAG(ACTION_ENDDRAG, 0, 0);}
-void action_StringLess() {swf_AddActionTAG(ACTION_STRINGLESS, 0, 0);}
-void action_RandomNumber() {swf_AddActionTAG(ACTION_RANDOMNUMBER, 0, 0);}
-void action_MBStringLength() {swf_AddActionTAG(ACTION_MBSTRINGLENGTH, 0, 0);}
-void action_CharToAscii() {swf_AddActionTAG(ACTION_CHARTOASCII, 0, 0);}
-void action_AsciiToChar() {swf_AddActionTAG(ACTION_ASCIITOCHAR, 0, 0);}
-void action_GetTime() {swf_AddActionTAG(ACTION_GETTIME, 0, 0);}
-void action_MBStringExtract() {swf_AddActionTAG(ACTION_MBSTRINGEXTRACT, 0, 0);}
-void action_MBCharToAscii() {swf_AddActionTAG(ACTION_MBCHARTOASCII, 0, 0);}
-void action_MBAsciiToChar() {swf_AddActionTAG(ACTION_MBASCIITOCHAR, 0, 0);}
-void action_Delete() {swf_AddActionTAG(ACTION_DELETE, 0, 0);}
-void action_Delete2() {swf_AddActionTAG(ACTION_DELETE2, 0, 0);}
-void action_DefineLocal() {swf_AddActionTAG(ACTION_DEFINELOCAL, 0, 0);}
-void action_CallFunction() {swf_AddActionTAG(ACTION_CALLFUNCTION, 0, 0);}
-void action_Return() {swf_AddActionTAG(ACTION_RETURN, 0, 0);}
-void action_Modulo() {swf_AddActionTAG(ACTION_MODULO, 0, 0);}
-void action_NewObject() {swf_AddActionTAG(ACTION_NEWOBJECT, 0, 0);}
-void action_DefineLocal2() {swf_AddActionTAG(ACTION_DEFINELOCAL2, 0, 0);}
-void action_InitArray() {swf_AddActionTAG(ACTION_INITARRAY, 0, 0);}
-void action_Makehash() {swf_AddActionTAG(ACTION_MAKEHASH, 0, 0);}
-void action_TypeOf() {swf_AddActionTAG(ACTION_TYPEOF, 0, 0);}
-void action_TargetPath() {swf_AddActionTAG(ACTION_TARGETPATH, 0, 0);}
-void action_Enumerate() {swf_AddActionTAG(ACTION_ENUMERATE, 0, 0);}
-void action_Add2() {swf_AddActionTAG(ACTION_ADD2, 0, 0);}
-void action_Less2() {swf_AddActionTAG(ACTION_LESS2, 0, 0);}
-void action_Equals2() {swf_AddActionTAG(ACTION_EQUALS2, 0, 0);}
-void action_ToNumber() {swf_AddActionTAG(ACTION_TONUMBER, 0, 0);}
-void action_ToString() {swf_AddActionTAG(ACTION_TOSTRING, 0, 0);}
-void action_PushDuplicate() {swf_AddActionTAG(ACTION_PUSHDUPLICATE, 0, 0);}
-void action_StackSwap() {swf_AddActionTAG(ACTION_STACKSWAP, 0, 0);}
-void action_GetMember() {swf_AddActionTAG(ACTION_GETMEMBER, 0, 0);}
-void action_SetMember() {swf_AddActionTAG(ACTION_SETMEMBER, 0, 0);}
-void action_Increment() {swf_AddActionTAG(ACTION_INCREMENT, 0, 0);}
-void action_Decrement() {swf_AddActionTAG(ACTION_DECREMENT, 0, 0);}
-void action_CallMethod() {swf_AddActionTAG(ACTION_CALLMETHOD, 0, 0);}
-void action_NewMethod() {swf_AddActionTAG(ACTION_NEWMETHOD, 0, 0);}
-void action_BitAnd() {swf_AddActionTAG(ACTION_BITAND, 0, 0);}
-void action_BitOr() {swf_AddActionTAG(ACTION_BITOR, 0, 0);}
-void action_BitXor() {swf_AddActionTAG(ACTION_BITXOR, 0, 0);}
-void action_BitLShift() {swf_AddActionTAG(ACTION_BITLSHIFT, 0, 0);}
-void action_BitRShift() {swf_AddActionTAG(ACTION_BITRSHIFT, 0, 0);}
-void action_BitURShift() {swf_AddActionTAG(ACTION_BITURSHIFT, 0, 0);}
-void action_Call() {swf_AddActionTAG(ACTION_CALL, 0, 0);}
-void action_End() {swf_AddActionTAG(ACTION_END, 0, 0);}
-void action_GotoFrame(U16 frame)
-{
- *(U16*)currentatag->tmp = SWAP16(frame);
- swf_AddActionTAG(ACTION_GOTOFRAME, (U8*)currentatag->tmp, 2);
-}
-void action_Jump(U16 branch)
-{
- *(U16*)currentatag->tmp = SWAP16(branch);
- swf_AddActionTAG(ACTION_JUMP, (U8*)currentatag->tmp, 2);
-}
-void action_If(U16 branch)
-{
- *(U16*)currentatag->tmp = SWAP16(branch);
- swf_AddActionTAG(ACTION_IF, (U8*)currentatag->tmp, 2);
-}
-void action_StoreRegister(U8 reg)
-{
- *(U8*)currentatag->tmp = reg;
- swf_AddActionTAG(ACTION_STOREREGISTER, (U8*)currentatag->tmp, 1);
-}
-void action_GotoFrame2(U8 method)
-{
- *(U8*)currentatag->tmp = method;
- swf_AddActionTAG(ACTION_GOTOFRAME2, (U8*)currentatag->tmp, 1);
-}
-void action_GetUrl2(U8 method)
-{
- *(U8*)currentatag->tmp = method;
- swf_AddActionTAG(ACTION_GETURL2, (U8*)currentatag->tmp, 1);
-}
-void action_WaitForFrame2(U8 skip)
-{
- *(U8*)currentatag->tmp = skip;
- swf_AddActionTAG(ACTION_WAITFORFRAME2, (U8*)currentatag->tmp, 1);
-}
-void action_WaitForFrame(U16 frame, U8 skip)
-{
- *(U16*)currentatag->tmp = SWAP16(frame);
- *(U8*)¤tatag->tmp[2] = skip;
- swf_AddActionTAG(ACTION_WAITFORFRAME, (U8*)currentatag->tmp, 3);
-}
-void action_SetTarget(char* target)
+ActionTAG* action_Jump(ActionTAG*atag, U16 branch)
+{
+ atag = swf_AddActionTAG(atag, ACTION_JUMP, 0, 2);
+ *(U16*)atag->tmp = LE_16_TO_NATIVE(branch);
+ return atag;
+}
+ActionTAG* action_If(ActionTAG*atag, U16 branch)
+{
+ atag = swf_AddActionTAG(atag, ACTION_IF, 0, 2);
+ *(U16*)atag->tmp = LE_16_TO_NATIVE(branch);
+ return atag;
+}
+ActionTAG* action_StoreRegister(ActionTAG*atag, U8 reg)
+{
+ atag = swf_AddActionTAG(atag, ACTION_STOREREGISTER, 0, 1);
+ *(U8*)atag->tmp = reg;
+ return atag;
+}
+ActionTAG* action_GotoFrame2(ActionTAG*atag, U8 method)
+{
+ atag = swf_AddActionTAG(atag, ACTION_GOTOFRAME2, 0, 1);
+ *(U8*)atag->tmp = method;
+ return atag;
+}
+ActionTAG* action_GetUrl2(ActionTAG*atag, U8 method)
+{
+ atag = swf_AddActionTAG(atag, ACTION_GETURL2, 0, 1);
+ *(U8*)atag->tmp = method;
+ return atag;
+}
+ActionTAG* action_WaitForFrame2(ActionTAG*atag, U8 skip)
+{
+ atag = swf_AddActionTAG(atag, ACTION_WAITFORFRAME2, 0, 1);
+ *(U8*)atag->tmp = skip;
+ return atag;
+}
+ActionTAG* action_WaitForFrame(ActionTAG*atag, U16 frame, U8 skip)
+{
+ atag = swf_AddActionTAG(atag, ACTION_WAITFORFRAME, 0, 3);
+ *(U16*)atag->tmp = LE_16_TO_NATIVE(frame);
+ *(U8*)&atag->tmp[2] = skip;
+ return atag;
+}
+ActionTAG* action_SetTarget(ActionTAG*atag, const char* target)
{
char*ptr = strdup(target);
- swf_AddActionTAG(ACTION_SETTARGET, (U8*)ptr, strlen(ptr)+1);
+ return swf_AddActionTAG(atag, ACTION_SETTARGET, (U8*)ptr, strlen(ptr)+1);
+}
+ActionTAG* action_PushNULL(ActionTAG*atag)
+{
+ atag = swf_AddActionTAG(atag, ACTION_PUSH, 0, 1);
+ *(U8*)atag->tmp = 2; //NULL
+ return atag;
}
-void action_PushNULL()
+ActionTAG* action_PushUndefined(ActionTAG*atag)
{
- *(U8*)currentatag->tmp = 2; //NULL
- swf_AddActionTAG(ACTION_PUSH, (U8*)currentatag->tmp, 1);
+ atag = swf_AddActionTAG(atag, ACTION_PUSH, 0, 1);
+ *(U8*)atag->tmp = 3; //Undefined
+ return atag;
}
-void action_PushBoolean(char c)
+ActionTAG* action_PushBoolean(ActionTAG*atag, char c)
{
- *(U8*)currentatag->tmp = 5; //bool
- *(U8*)¤tatag->tmp[1] = c;
- swf_AddActionTAG(ACTION_PUSH, (U8*)currentatag->tmp, 2);
+ atag = swf_AddActionTAG(atag, ACTION_PUSH, 0, 2);
+ *(U8*)atag->tmp = 5; //bool
+ *(U8*)&atag->tmp[1] = c;
+ return atag;
}
-void action_PushRegister(U8 reg)
+ActionTAG* action_PushRegister(ActionTAG*atag, U8 reg)
{
- *(U8*)currentatag->tmp = 4; //register
- *(U8*)¤tatag->tmp[1] = reg;
- swf_AddActionTAG(ACTION_PUSH, (U8*)currentatag->tmp, 2);
+ atag = swf_AddActionTAG(atag, ACTION_PUSH, 0, 2);
+ *(U8*)atag->tmp = 4; //register
+ *(U8*)&atag->tmp[1] = reg;
+ return atag;
}
-void action_PushLookup(U8 index)
+ActionTAG* action_PushLookup(ActionTAG*atag, U8 index)
{
- *(U8*)currentatag->tmp = 8; //lookup
- *(U8*)¤tatag->tmp[1] = index;
- swf_AddActionTAG(ACTION_PUSH, (U8*)currentatag->tmp, 2);
+ atag = swf_AddActionTAG(atag, ACTION_PUSH, 0, 2);
+ *(U8*)atag->tmp = 8; //lookup
+ *(U8*)&atag->tmp[1] = index;
+ return atag;
}
-void action_PushString(char*str)
+ActionTAG* action_PushLookup16(ActionTAG*atag, U16 index)
+{
+ atag = swf_AddActionTAG(atag, ACTION_PUSH, 0, 3);
+ *(U8*)atag->tmp = 9; //lookup
+ *(U8*)&atag->tmp[1] = (U8)index;
+ *(U8*)&atag->tmp[2] = index>>8;
+ return atag;
+}
+ActionTAG* action_PushString(ActionTAG*atag, const char*str)
{
int l = strlen(str);
- char*ptr = (char*)malloc(l+2);
+ char*ptr = (char*)rfx_alloc(l+2);
ptr[0] = 0; // string
strcpy(&ptr[1], str);
- swf_AddActionTAG(ACTION_PUSH, (U8*)ptr, l+2);
+ return swf_AddActionTAG(atag, ACTION_PUSH, (U8*)ptr, l+2);
}
-void action_PushFloat(float f)
+ActionTAG* action_PushFloat(ActionTAG*atag, float f)
{
- char*ptr = (char*)malloc(5);
+ char*ptr = (char*)rfx_alloc(5);
U32 fd = *(U32*)&f;
ptr[0] = 1; //float
ptr[1] = fd;
ptr[2] = fd>>8;
ptr[3] = fd>>16;
ptr[4] = fd>>24;
- swf_AddActionTAG(ACTION_PUSH, (U8*)ptr, 5);
+ return swf_AddActionTAG(atag, ACTION_PUSH, (U8*)ptr, 5);
}
-void action_PushDouble(double d)
+ActionTAG* action_PushDouble(ActionTAG*atag, double d)
{
- char*ptr = (char*)malloc(9);
+ char*ptr = (char*)rfx_alloc(9);
U8*dd = (U8*)&d;
ptr[0] = 6; //double
#ifdef WORDS_BIGENDIAN
ptr[5] = dd[4];ptr[6] = dd[5];
ptr[7] = dd[6];ptr[8] = dd[7];
#endif
- swf_AddActionTAG(ACTION_PUSH, (U8*)ptr, 9);
+ return swf_AddActionTAG(atag, ACTION_PUSH, (U8*)ptr, 9);
}
-void action_PushInt(int i)
+ActionTAG* action_PushInt(ActionTAG*atag, int i)
{
- *(U8*)currentatag->tmp = 7; //int
- currentatag->tmp[1] = i;
- currentatag->tmp[2] = i>>8;
- currentatag->tmp[3] = i>>16;
- currentatag->tmp[4] = i>>24;
- swf_AddActionTAG(ACTION_PUSH, (U8*)currentatag->tmp, 5);
+ atag = swf_AddActionTAG(atag, ACTION_PUSH, 0, 5);
+ atag->tmp[0] = 7; //int
+ atag->tmp[1] = i;
+ atag->tmp[2] = i>>8;
+ atag->tmp[3] = i>>16;
+ atag->tmp[4] = i>>24;
+ return atag;
}
-void action_GotoLabel(char* label)
+ActionTAG* action_GotoLabel(ActionTAG*atag, char* label)
{
char*ptr = strdup(label);
- swf_AddActionTAG(ACTION_GOTOLABEL, (U8*)ptr, strlen(ptr));
+ return swf_AddActionTAG(atag, ACTION_GOTOLABEL, (U8*)ptr, strlen(ptr));
}
-void action_GetUrl(char* url, char* label)
+ActionTAG* action_GetUrl(ActionTAG*atag, const char* url, char* label)
{
int l1= strlen(url);
int l2= strlen(label);
- char*ptr = malloc(l1+l2+2);
+ char*ptr = (char*)rfx_alloc(l1+l2+2);
strcpy(ptr, url);
strcpy(&ptr[l1+1], label);
- swf_AddActionTAG(ACTION_GETURL, ptr, l1+l2+2);
+ return swf_AddActionTAG(atag, ACTION_GETURL, (U8*)ptr, l1+l2+2);
}
//TODO:
-void action_DefineFunction(U8*data, int len) {}
-void action_Constantpool(char* constantpool) {}
-void action_With(char*object) {}
+ActionTAG* action_DefineFunction(ActionTAG*atag, U8*data, int len) {return atag;}
+ActionTAG* action_Constantpool(ActionTAG*atag, char* constantpool) {return atag;}
+ActionTAG* action_With(ActionTAG*atag, char*object) {return atag;}
+
+#include "../action/actioncompiler.h"
+
+ActionTAG* swf_ActionCompile(const char* source, int version)
+{
+ TAG* tag;
+ ActionTAG* a = 0;
+ void*buffer = 0;
+ int len = 0;
+ int ret;
+
+ tag = swf_InsertTag(NULL, ST_DOACTION);
+ ret = compileSWFActionCode(source, version, &buffer, &len);
+ if(!ret || buffer==0 || len == 0)
+ return 0;
+
+ swf_SetBlock(tag, (U8*)buffer, len);
+ swf_SetU8(tag, 0);
+
+ rfx_free(buffer);
+
+ a = swf_ActionGet(tag);
+ swf_DeleteTag(0, tag);
+ return a;
+}
+
/*
Properties: