Converting Zero-Fill Right Shift to .NET

In Javascript, if I evaluate the following like so:

var i=-306674912;
alert(i>>>=1);

The zero-fill right-shift assignment operator (and thus the alert box) produces:

1994146192

How can I get this behavior in .NET? It doesn't have a ">>>+" operator or a ">>>" operator.

Thanks!

electricstoryAsked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
vigridConnect With a Mentor Commented:
static void Main(string[] args)
{
  int i = -306674912;  // 11111111 11111111 11111111 11111111 11101101 10111000 10000011 00100000
  int k = 1994146192; // 00000000 00000000 00000000 00000000 01110110 11011100 01000001 10010000
  int j1 = ZFRS(i, 1);   // 00000000 00000000 00000000 00000000 00110110 11011100 01000001 10010000
}

private static int ZFRS(int i, int j)
{
  bool maskIt = (i < 0);
  i = i >> j;
  if(maskIt)
    i &= 0x7FFFFFFF;
  return i;
}
0
 
vigridCommented:
Use the >> operator for zero-fill right shift and << operator for zero-fill left shift. C# code:

long i = 1;
for(int j = 0; j < 64; j++)
{
      Console.Write("i={0},", i);
      Console.WriteLine("\ti << {0} = {1}", j, i << j);
}

HTH
0
 
electricstoryAuthor Commented:
Well, maybe I'm giving it the wrong name. But the ">>" operator isn't the same as the ">>>" operator. Try it. If you can get the same result as the javascript example above in .NET, you get the points.
0
Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

 
vigridCommented:
int i = -306674912;  // 11111111 11111111 11111111 11111111 11101101 10111000 10000011 00100000
int k = 1994146192; // 00000000 00000000 00000000 00000000 01110110 11011100 01000001 10010000
int j1 = ZFRS(i, 1);   // 00000000 00000000 00000000 00000000 01110110 11011100 01000001 10010000

The comment was wrong. I left it after some tries and forgot to change it.

HTH
0
 
electricstoryAuthor Commented:
You rock.
0
 
electricstoryAuthor Commented:
Actually, if you're still looking in and feel so inclined, Vigrid, I can still use your help. Your mask only works for that one particular example. Positive numbers seem to be the same between >>> and the .net >>, but there's that left fill bit with negative numbers. Is there any (simple) way to perform that left fill every time a negative number comes up? I'll open a new question on it.

int i = -306674912;  // 11111111 11111111 11111111 11111111 11101101 10111000 10000011 00100000
int k = 1994146192; // 00000000 00000000 00000000 00000000 01110110 11011100 01000001 10010000
0
 
vigridCommented:
What do you expect to get from the method? Please just give me the input and needed output bits. Few examples would be great. I'm not so experienced in JavaScript, so I wasn't 100% sure if my solution will work every time.
0
 
electricstoryAuthor Commented:
It looks like many operations result in an overflow error in .NET if you don't use longs. Maybe this is simpler than I think it is. Anyway, I've expanded your function, and this seems to work, though it's admitted kludgy (and I know I'm awful about naming variables). Thanks for your help; my grasp of hex was pretty shaky before this, but I think I'm getting it!

Private Shared Function ZFRS(ByVal l As Long, ByVal j As Integer) As Long
        Dim maskIt As Boolean = (l < 0)
        l = l >> j
        If (maskIt) Then
            Dim int As Integer = 0
            Do While Hex(l).Substring(int, 1) = "F"
                int += 1
                If int = 15 Then Exit Do
            Loop
            Dim strText As String = Hex(l)

            Dim strHex As String


            If int <> 8 Then

                Dim intZero As Integer
                Dim strHexDigit As String

                'For every four shift bits, you'll have a hex 0; add it to your shift digit
                For intZero = 0 To Math.Floor(j / 4) - 1
                    strHexDigit += "0"
                Next
                Dim strFinalDigit As String = strText.Substring(8 + intZero, 1)

                'otherwise, put in zeroes in front of the last hex digit
                Dim lFinalDigit As Long

                Dim intMod As Integer
                If j >= 4 Then
                    intMod = j Mod 4
                Else
                    'intMod = 0
                    intMod = j
                End If

                Dim strAddDigit, strOffset As String
                For intZero = 0 To intMod - 1
                    strOffset += "0"
                Next

                Select Case strfinaldigit
                    Case "1"
                        strAddDigit += "0001"
                    Case "2"
                        strAddDigit += "0010"
                    Case "3"
                        strAddDigit += "0011"
                    Case "4"
                        strAddDigit += "0100"
                    Case "5"
                        strAddDigit += "0101"
                    Case "6"
                        strAddDigit += "0110"
                    Case "7"
                        strAddDigit += "0111"
                    Case "8"
                        strAddDigit += "1000"
                    Case "9"
                        strAddDigit += "1001"
                    Case "A"
                        strAddDigit += "1010"
                    Case "B"
                        strAddDigit += "1011"
                    Case "C"
                        strAddDigit += "1100"
                    Case "D"
                        strAddDigit += "1101"
                    Case "E"
                        strAddDigit += "1110"
                    Case "F"
                        strAddDigit += "1111"
                End Select

                If Not strOffset Is Nothing Then
                    strAddDigit = strOffset + strAddDigit.Substring(strOffset.Length, (4 - strOffset.Length))
                End If

                Select Case strAddDigit
                    Case "0001"
                        strAddDigit = "1"
                    Case "0010"
                        strAddDigit = "2"
                    Case "0011"
                        strAddDigit = "3"
                    Case "0100"
                        strAddDigit = "4"
                    Case "0101"
                        strAddDigit = "5"
                    Case "0110"
                        strAddDigit = "6"
                    Case "0111"
                        strAddDigit = "7"
                    Case "1000"
                        strAddDigit = "8"
                    Case "1001"
                        strAddDigit = "9"
                    Case "1010"
                        strAddDigit = "A"
                    Case "1011"
                        strAddDigit = "B"
                    Case "1100"
                        strAddDigit = "C"
                    Case "1101"
                        strAddDigit = "D"
                    Case "1110"
                        strAddDigit = "E"
                    Case "1111"
                        strAddDigit = "F"
                End Select

                strFinalDigit = strAddDigit

                strHex = strHexDigit & strFinalDigit
                int = 9 + (strHex.Length - 1)
            Else
                strHex = "7"
                int = 9
            End If
            strHex += Hex(l).Substring(int)
            If strHex.Length = 8 And strHex.Substring(0, 1) = "F" Then
                strHex = "7" & strHex.Substring(1)
            End If
            l = Int64.Parse(strHex, Globalization.NumberStyles.HexNumber)

        ElseIf Hex(l).Length > 8 Then ' the number is positive

            Dim strText As String = Hex(l)
            Dim strHex As String
            'find out what's in the left-most 32-bit positions. You've already shifted it over, so fill in w/ zeroes

            Dim intZero As Integer
            Dim strHexDigit As String

            'For every four shift bits, you'll have a hex 0; append it to your shift digit
            For intZero = 0 To Math.Floor(j / 4) - 1
                strHexDigit += "0"
            Next
            Dim strFinalDigit As String = strText.Substring((Hex(l).Length - 8) + intZero, 1)

            'otherwise, put in zeroes in front of the last hex digit
            Dim lFinalDigit As Long

            Dim intMod As Integer
            If j >= 4 Then
                intMod = j Mod 4
            Else
                intMod = j
            End If

            Dim strAddDigit, strOffset As String
            For intZero = 0 To intMod - 1
                strOffset += "0"
            Next

            Select Case strfinaldigit
                Case "1"
                    strAddDigit += "0001"
                Case "2"
                    strAddDigit += "0010"
                Case "3"
                    strAddDigit += "0011"
                Case "4"
                    strAddDigit += "0100"
                Case "5"
                    strAddDigit += "0101"
                Case "6"
                    strAddDigit += "0110"
                Case "7"
                    strAddDigit += "0111"
                Case "8"
                    strAddDigit += "1000"
                Case "9"
                    strAddDigit += "1001"
                Case "A"
                    strAddDigit += "1010"
                Case "B"
                    strAddDigit += "1011"
                Case "C"
                    strAddDigit += "1100"
                Case "D"
                    strAddDigit += "1101"
                Case "E"
                    strAddDigit += "1110"
                Case "F"
                    strAddDigit += "1111"
            End Select

            If Not strOffset Is Nothing Then
                strAddDigit = strOffset + strAddDigit.Substring(strOffset.Length, (4 - strOffset.Length))
            End If

            Select Case strAddDigit
                Case "0001"
                    strAddDigit = "1"
                Case "0010"
                    strAddDigit = "2"
                Case "0011"
                    strAddDigit = "3"
                Case "0100"
                    strAddDigit = "4"
                Case "0101"
                    strAddDigit = "5"
                Case "0110"
                    strAddDigit = "6"
                Case "0111"
                    strAddDigit = "7"
                Case "1000"
                    strAddDigit = "8"
                Case "1001"
                    strAddDigit = "9"
                Case "1010"
                    strAddDigit = "A"
                Case "1011"
                    strAddDigit = "B"
                Case "1100"
                    strAddDigit = "C"
                Case "1101"
                    strAddDigit = "D"
                Case "1110"
                    strAddDigit = "E"
                Case "1111"
                    strAddDigit = "F"
            End Select


            strFinalDigit = strAddDigit

            'add strHexdigit to the beginning of strFinalDigit
            strHex = strHexDigit & strFinalDigit
            Dim int As Integer = Hex(l).Length
            int = int - (7 - (strHex.Length - 1))

            strHex += Hex(l).Substring(int)
            l = Int64.Parse(strHex, Globalization.NumberStyles.HexNumber)


        End If

        Return l

    End Function
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.