X-Git-Url: http://git.asbjorn.biz/?p=swftools.git;a=blobdiff_plain;f=lib%2Fmodules%2Fswfaction.c;h=3906f6c482edbdc5f5641891f0e864f03ab1d10a;hp=b671fff55e6819eef116b73023dfa951b8adba9c;hb=58e7d89f8115525c32a0e3f3f4e5501c6a17186d;hpb=9e4852618a107375483987d95090121737e677af

diff --git a/lib/modules/swfaction.c b/lib/modules/swfaction.c
index b671fff..3906f6c 100644
--- a/lib/modules/swfaction.c
+++ b/lib/modules/swfaction.c
@@ -7,9 +7,19 @@
 
    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"
 
@@ -145,8 +155,10 @@ ActionTAG* swf_ActionGet(TAG*tag)
     while(op)
     {
 	action->next = (ActionTAG*)malloc(sizeof(ActionTAG));
+	memset(action->next, 0, sizeof(ActionTAG));
 	action->next->prev = action;
 	action->next->next = 0;
+	action->next->parent = tmp.next;
 	action = action->next;
 
 	op = swf_GetU8(tag);
@@ -170,6 +182,16 @@ ActionTAG* swf_ActionGet(TAG*tag)
 
 void swf_ActionFree(ActionTAG*action)
 {
+    if(!action) {
+	fprintf(stderr, "Warning: freeing zero action");
+	return;
+    }
+    action = action->parent;
+    if(!action) {
+	fprintf(stderr, "Warning: freeing zero action (no parent)");
+	return;
+    }
+
     while(action)
     {
 	ActionTAG*tmp;
@@ -1029,6 +1051,32 @@ 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, buffer, len);
+    swf_SetU8(tag, 0);
+
+    free(buffer);
+
+    a = swf_ActionGet(tag);
+    swf_DeleteTag(tag);
+    return a;
+}
+
+
 /*
   Properties: