ref: 7a66420fd4435c93d3b6ebaaa9411b820aaf2db2
dir: /Tools/Addcombs.hs/
module Addcombs(main) where
import Prelude
import Data.Char
import System.Environment
chunkify :: Int -> [Char] -> [[Char]]
chunkify n [] = []
chunkify n xs =
let (as, bs) = splitAt n xs
in as : chunkify n bs
showChunk :: [Char] -> String
showChunk = concatMap (\ c -> show (ord c) ++ ",")
main :: IO ()
main = do
{-
args <- getArgs
let fn = case args of { [a] -> a; _ -> error "Usage: Addcombs file" }
file <- readFile fn
-}
hSetBinaryMode stdin True
file <- hGetContents stdin
let size = length file
chunks = chunkify 20 file
putStrLn $ "unsigned char combexprdata[] = {"
mapM_ (putStrLn . showChunk) chunks
putStrLn "0 };"
putStrLn "unsigned char *combexpr = combexprdata;"
putStrLn $ "int combexprlen = " ++ show size ++ ";"