contrib/rpc_examples/ocdrpc.hs

   1 -- SPDX-License-Identifier: GPL-3.0-or-later
   2
   3 -- OpenOCD RPC example
   4 -- Copyright (C) 2014 Paul Fertser
   5 --
   6 -- Example output:
   7 -- $ ./ocdrpc
   8 -- Halting the target, full log output captured:
   9 -- target state: halted
  10 -- target halted due to debug-request, current mode: Thread
  11 -- xPSR: 0x21000000 pc: 0x00003352 msp: 0x20000fe8
  12 --
  13 -- Read memory, parse the result and show as a list of strings:
  14 -- ["0x20001000","0x0000334d","0x00002abb","0x0000118f","0x00002707","0x00002707","0x00002707","0x00000000","0x00000000","0x00000000","0x00000000","0x00002707","0x00002707","0x00000000","0x00002707","0x00002781"]
  15 -- Resuming
  16
  17 {-# LANGUAGE OverloadedStrings #-}
  18 module Main where
  19
  20 import Prelude
  21 import Network.Socket
  22 import System.IO.Streams.Core hiding (connect)
  23 import System.IO.Streams.Network
  24 import System.IO.Streams.Attoparsec
  25 import Data.Attoparsec.ByteString.Char8
  26 import Data.ByteString.Char8 hiding (putStrLn, concat, map)
  27 import Text.Printf
  28
  29 ocdReply = manyTill anyChar (char '\x1a')
  30
  31 ocdExec (oistream, oostream) command = do
  32   write (Just $ pack $ command ++ "\x1a") oostream
  33   parseFromStream ocdReply oistream
  34
  35 -- For each line: dispose of address, then match hex values
  36 mdwParser = (manyTill anyChar (string ": ") *>
  37               hexadecimal `sepBy` char ' ')
  38             `sepBy` string " \n"
  39
  40 ocdMdw :: (InputStream ByteString, OutputStream ByteString) -> Integer -> Integer -> IO [Integer]
  41 ocdMdw s start qnt = do
  42   res <- ocdExec s $ "mdw " ++ show start ++ " " ++ show qnt
  43   case parseOnly mdwParser (pack res) of
  44     Right r -> return $ concat r
  45
  46 main = do
  47   osock <- socket AF_INET Stream defaultProtocol
  48   connect osock (SockAddrInet 6666 $ tupleToHostAddress (127,0,0,1))
  49   ostreams <- socketToStreams osock
  50   putStrLn "Halting the target, full log output captured:"
  51   ocdExec ostreams "capture \"halt\"" >>= putStrLn
  52   putStrLn "Read memory, parse the result and show as a list of strings:"
  53   ocdMdw ostreams 0 16 >>= putStrLn . (show :: [String] -> String) . map (printf "0x%08x")
  54   putStrLn "Resuming"
  55   ocdExec ostreams "resume"