mirror of
https://github.com/Zenithsiz/ftmemsim-valgrind.git
synced 2026-02-14 06:48:06 +00:00
30 lines
580 B
Haskell
30 lines
580 B
Haskell
|
|
module Main where
|
|
|
|
main
|
|
= do x1 <- readFile "test2.sorted"
|
|
let x2 = lines x1
|
|
x3 = zip [1 ..] x2
|
|
x4 = concat (map qq x3)
|
|
--putStr x4
|
|
writeFile "test2.orig" x4
|
|
|
|
|
|
qq :: (Int, String) -> String
|
|
qq (n, s0)
|
|
= let ws = words s0
|
|
bytes = head ws
|
|
rest = unwords (tail ws)
|
|
bytes2 = foo bytes
|
|
in
|
|
unlines [
|
|
"",
|
|
rest,
|
|
". " ++ show n ++ " 0x12345678 " ++ show (1 + (length bytes `div` 2)),
|
|
". " ++ bytes2 ++ "C3"
|
|
]
|
|
|
|
|
|
foo [] = []
|
|
foo (x:y:rest) = x:y:' ':foo rest
|