3a_asm/Main.hs

   1 -- as for deep thoughts ISA
   2 -----------------------------------------------------------------------------
   3
   4 module Main where
   5
   6 import DT
   7
   8 import Control.Applicative hiding ((<|>),many)
   9
  10 import System.IO
  11 import System.Environment
  12 import Text.Printf
  13 import Text.Parsec
  14 import Text.Parsec.String
  15 import qualified Data.Map as M
  16 import Data.List
  17 import qualified Data.ByteString.Lazy as BL
  18 -- import Data.Binary.Put
  19
  20 main :: IO ()
  21 main = do
  22         args <- getArgs
  23         src <- getContents
  24         print args
  25         case runParser DT.parseInstructions () "stdin" src of
  26                 Left err -> print err
  27                 Right val -> do
  28                         -- TODO: nicht nur das erste element :/
  29                         sequence_ [printf "0x%08X\n" x | x <- val]
  30                         -- mapM (printf "0x%08X\n") val