@@ -10,3 +10,6 @@ template *.hx as3tohaxe-mac.zip as3tohaxe-win.zip +as3tohaxe +header +prepend .gitignore @@ -194,17 +194,17 @@ classDecl (ClassDecl a c n e i b) = do updateFlag fclass $ showd n updateFlag fclassAttr $ publicAttr a x <- classBlock b - let e' = maybe [] (\(k, c) -> [showb k ++ showd c] ) e + let e' = maybe [] (\(k, c) -> if showd c == "Object" then [] else [showb k ++ showd c] ) e let i' = maybe [] (\(ic, cs) -> map (\(x, co) -> showb ic ++ showd x) cs ) i - let ei = intercalate ", " $ filter (\x -> length x > 0) $ e'++i' + let i'' = i' ++ if "dynamic" `elem` map (\a' -> showd a') a then ["implements Dynamic<Dynamic>"] else [""] + let ei = intercalate ", " $ filter (\x -> length x > 0) $ e'++i'' return $ attr a ++ showb c ++ showb n ++ ei ++ " " ++ x where publicAttr as = if "public" `elem` map (\a -> showd a) as then "public" else "private" - attr as = concat $ map (\attr -> case (showd attr) of { "internal" -> "private" ++ showw attr; "public" -> ""; x -> showb attr }) as - + attr as = concat $ map (\attr -> case (showd attr) of { "dynamic" -> ""; "internal" -> "private" ++ showw attr; "public" -> ""; x -> showb attr }) as interface (Interface a i n e b) = do x <- interfaceBlock b - let e' = maybe "" (\(e, c) -> showd c ) e + let e' = maybe "" (\(e, c) -> "implements "++showd c ) e return $ attr a ++ showb i ++ showb n ++ e' ++ x where attr as = concat $ map (\attr -> case (showd attr) of { "internal" -> "private" ++ showw attr; "public" -> ""; x -> showb attr }) as ActionhaXe/Translator.hs 1d522e15a144e7dcde6e9e1604243ecab798d138 Don-Duong Quach geekrelief@gmail.com http://github.com/geekrelief/as3tohaxe/commit/21982fe0583095fc83e4324c2bebdbda03808f56 21982fe0583095fc83e4324c2bebdbda03808f56 2008-10-30T11:55:32-07:00 2008-10-30T11:55:32-07:00 Added: interface extends => implements, dynamic class => class implements Dynamic<Dynamic> f2f0d604bb8cce400df96974c9e2c666f2be9cb2 Don-Duong Quach geekrelief@gmail.com