diff options
Diffstat (limited to 'src/Utils.hs')
| -rw-r--r-- | src/Utils.hs | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/src/Utils.hs b/src/Utils.hs index 475821a..03d6db3 100644 --- a/src/Utils.hs +++ b/src/Utils.hs @@ -1,7 +1,6 @@ -- This module describes utility functions. module Utils where -import Prelude hiding (Word) import Data.Bits @@ -15,32 +14,8 @@ toBit False = 0 toBits :: Bits a => a -> [Int] -> [Int] toBits x r = map (toBit . testBit x) r -toBitsWhole :: FiniteBits a => a -> [Int] -toBitsWhole x = toBits x [0..(finiteBitSize x - 1)] - fromBits :: [Int] -> Int fromBits = foldl (\a b -> 2 * a + b) 0 . reverse extractBits :: Bits a => a -> [Int] -> Int extractBits x r = fromBits $ toBits x r - - -------------------------------------------------------------------------------- --- Transformers for commands arguments - -args2 :: (Int -> Int -> t) -> - [Int] -> [Int] -> t -args2 f a b = f (fromBits a) (fromBits b) - -args3 :: (Int -> Int -> Int -> t) -> - [Int] -> [Int] -> [Int] -> t -args3 f a b c = f (fromBits a) (fromBits b) (fromBits c) - -args4 :: (Int -> Int -> Int -> Int -> t) -> - [Int] -> [Int] -> [Int] -> [Int] -> t -args4 f a b c d = f (fromBits a) (fromBits b) (fromBits c) (fromBits d) - -args5 :: (Int -> Int -> Int -> Int -> Int -> t) -> - [Int] -> [Int] -> [Int] -> [Int] -> [Int] -> t -args5 f a b c d e = f (fromBits a) (fromBits b) (fromBits c) - (fromBits d) (fromBits e) |