@@ -54,6 +54,7 @@ shown x = tailAtN $ snd $ break (== '\n') $ foldr (\t s -> (tokenItemS t) ++ s) showl :: [CToken] -> String showl xs = foldr (\t s -> showb t ++ s) "" xs +-- splits the space from the left and right splitLR :: String -> [String] splitLR x = [l, m, r] where (l, nl) = span (\c -> isSpace c || c == '\n') x ActionhaXe/Data.hs @@ -532,9 +532,11 @@ aritE x = case x of aritENoIn = aritE binaryE (AEBinary o x y) - | showd o == "as" = do{ x' <- aritE x >>= (\c -> return $ splitLR c); y' <- aritE y >>= (\c -> return $ splitLR c); return $ "cast( "++ (x'!!1) ++", "++ (y'!!1) ++")" ++ (y'!!2) } - | showd o == "is" = do{ x' <- aritE x >>= (\c -> return $ splitLR c); y' <- aritE y >>= (\c -> return $ splitLR c); return $ "Std.is( "++ (x'!!1) ++", "++ (y'!!1) ++")" ++ (y'!!2) } - | otherwise = do{ x' <- aritE x; y' <- aritE y; return $ x' ++ showb o ++ y'} + | showd o == "as" = do{ x' <- aritE x >>= (\c -> return $ splitLR c); y' <- aritE y >>= (\c -> return $ splitLR c); return $ "cast( "++ (x'!!1) ++", "++ (y'!!1) ++")" ++ (y'!!2) } + | showd o == "is" = do{ x' <- aritE x >>= (\c -> return $ splitLR c); y' <- aritE y >>= (\c -> return $ splitLR c); return $ "Std.is( "++ (x'!!1) ++", "++ (y'!!1) ++")" ++ (y'!!2) } + | showd o == "===" = do{ x' <- aritE x; y' <- aritE y; return $ x' ++"=="++showw o ++ y' } + | showd o == "!==" = do{ x' <- aritE x; y' <- aritE y; return $ x' ++"!="++showw o ++ y' } + | otherwise = do{ x' <- aritE x; y' <- aritE y; return $ x' ++ showb o ++ y'} regE (RegE l x r o) = do{ return $ "~"++ showb l ++ showl x ++ showb r ++ maybeEl showb o} ActionhaXe/Translator.hs @@ -1,11 +1,10 @@ as3tohaxe - An Actionscript 3 to haXe source file converter written in Haskell -Copyright (C) 2008 Don-Duong Quach +Copyright (C) 2008-2009 Don-Duong Quach For more info check visit: http://groups.google.com/group/as3tohaxe http://www.github.com/geekrelief/as3tohaxe http://geekrelief.wordpress.com -Donations are appreciated! -- Running -- Type 'as3tohaxe' and a directory or file to convert. @@ -21,8 +20,8 @@ the Files section of the as3tohaxe google group. -- Compiling -- Requirements - The source http://www.github.com/geekrelief/as3tohaxe -- GHC (tested with 6.8.3) http://www.haskell.org/ghc/ -- Cabal for parsec http://www.haskell.org/cabal/ +- GHC (6.10.1, 6.8.3) http://www.haskell.org/ghc/ +- Cabal (1.6.0.1) for parsec http://www.haskell.org/cabal/ - parsec 3 http://hackage.haskell.org/cgi-bin/hackage-scripts/package/parsec Compile with: ghc --make -XDeriveDataTypeable as3tohaxe.hs @@ -31,3 +30,5 @@ or the './build' script -- License -- This program and its source is GPL licensed. Please read the LICENSE for more details. + +Donations are appreciated! README 66f0a9a892285d78fcce87aa3abfd4962bbe9aff Don-Duong Quach geekrelief@gmail.com http://github.com/geekrelief/as3tohaxe/commit/6f8a2f45ef1357a3f7eec1b9f7a17b82fde616e3 6f8a2f45ef1357a3f7eec1b9f7a17b82fde616e3 2009-01-19T12:07:44-08:00 2009-01-19T12:07:44-08:00 translated strict equality === to == and !== to != 7d41955c39b700cba30794f9fe570117a6eb6a9d Don-Duong Quach geekrelief@gmail.com