1 -----------------------------------------------------------------------------
4 -- Copyright : (c) Jeff Douglas
7 -- Maintainer : Jeff Douglas
8 -- Stability : experimental
9 -- Portability : portable
13 -----------------------------------------------------------------------------
19 import Control.Applicative hiding ((<|>),many)
22 import System.Environment
24 import Text.Parsec.String
25 import qualified Data.Map as M
27 import qualified Data.ByteString.Lazy as BL
28 import Data.Binary.Put
37 assembler src isa = do
39 "ppc64" -> case runParser PPC64.parseInstructions () "stdin" src of
42 let s = runPut (putWord32be $ head val)
43 BL.writeFile "out.bin" $ s