bitshift_circular_left_64.m

%
% bitshift circular left function
%
function out = bitshift_circular_left_64(a, num)
% string input to be shift
a_left  = a(1:8);
a_right = a(9:16);
a_left_dec  = uint32(hex2dec(a_left));
a_right_dec = uint32(hex2dec(a_right));

if num < 32
    temp_left   = bitget(a_left_dec,   33-num:32);
    temp_right  = bitget(a_right_dec,  33-num:32);
    a_left_dec  = bitshift(a_left_dec,  num);
    a_right_dec = bitshift(a_right_dec, num);
    for i = 1 : num
        % bitset can only deal with 1-bit at a time
        a_left_dec  = bitset(a_left_dec,  i, temp_right(i));
        a_right_dec = bitset(a_right_dec, i, temp_left(i));
    end
    a_left  = dec2hex(a_left_dec,  8);
    a_right = dec2hex(a_right_dec, 8);
    a_hex = strcat(a_left, a_right);
    out = a_hex;
elseif num == 32
%     temp = a_left_dec;
%     a_left_dec = a_right_dec;
%     a_right_dec = temp;
%     a_left = dec2hex(a_left_dec, 8);
%     a_right = dec2hex(a_right_dec, 8);
%     a_hex = strcat(a_left, a_right);
%     out = a_hex;
    out = strcat(a_right, a_left);
else
    out = bitshift_circular_right_64(a, 64 - num);
end
return