Learning haskell diary (day #4)

Theses posts is just my personal note when I learn haskell. It started on 2020 during COVID quarantine period. I have suspended it for a bit then start over again. This diary is based on Yann’s writting.

Recap

In the previous weeks, I was working on the core calculation of the CRC, the outcome is quite satisfying to me and I have just missed implementation for the reflection of the input data and output result. However, these implementation is quite easy to add on top of the previous calculation to make the full CRC solution (cover upto 32 bit CRC). Thus I just need to rename some function to make it a primitive functions that will be added the feature reflection upon it.

crc_cal_prmtv poly initVal finalVal input = finalVal `xor_gnr` foldl (\i x -> (i <<<> 8) `xor_gnr` crc_cal_remainder (x `xor_gnr` (i <>>> (bitW - 8) )) poly bitW ) initVal input
                                                where bitW = crc_calc_bit_w poly
                                                      xor_gnr = case bitW of
                                                            8 -> xor_u8
                                                            16 -> xor_u16
                                                            32 -> xor_u32

-- crc_calc poly initVal finalVal  reflectIn reflectOut input = crc_cal_prmtv initVal finalVal
crc_calc poly initVal finalVal False False  = crc_cal_prmtv poly initVal finalVal 
crc_calc poly initVal finalVal  True False   = crc_cal_prmtv poly initVal finalVal . map  reflect_byte 
crc_calc poly initVal finalVal  False True  = reflect_gnr . crc_cal_prmtv poly initVal finalVal
                                                where bitW = crc_calc_bit_w poly
                                                      reflect_gnr = case bitW of
                                                         8 -> reflect_byte
                                                         16 -> reflect_word
                                                         32 -> reflect_dword
crc_calc poly initVal finalVal  True True   = crc_calc poly initVal finalVal False True . map reflect_byte

You would see, the crc_calc have no input parameters as I use the eta-reduction to simplify the case where both reflectIn and   reflectOut being both True. At this point the calculation look good, so I just need to make it as a library for reuse.

Library in Haskell

I have learn that, in order to make your script become the includable script, it shall be started with the Uppercase letter. For instance, I define the Bitkell.hs to implement the bit operator function. The Bitkell.hs should look like this:

module Bitkell where
-- Some implementation goes below, I will push to the separated repo.

And then, in the main.hs where it is built, we can import the module like this in the file:

import Bitkell
main = do
   print $ (<!!!>) 0xAF

Then, at is is enough to close the exercise, I have revised the code abit to make it a reuseable haskell library to calculate CRC in order to build another program with haskell. All the code can be found at this repo.