Data commit

Task/Bitwise-operations/Tcl/bitwise-operations-1.tcl

@@ -0,0 +1,8 @@
+proc bitwise {a b} {
+    puts [format "a and b: %#08x" [expr {$a & $b}]]
+    puts [format "a or b: %#08x"  [expr {$a | $b}]]
+    puts [format "a xor b: %#08x" [expr {$a ^ $b}]]
+    puts [format "not a: %#08x"   [expr {~$a}]]
+    puts [format "a << b: %#08x"  [expr {$a << $b}]]
+    puts [format "a >> b: %#08x"  [expr {$a >> $b}]]
+}

Task/Bitwise-operations/Tcl/bitwise-operations-2.tcl

@@ -0,0 +1,13 @@
+proc bitwiseUnsupported {a b} {
+    set bits 0xFFFFFFFF
+    # Force interpretation as a 32-bit unsigned value
+    puts [format "a ArithRightShift b: %#08x" [expr {($a & $bits) >> $b}]]
+    puts [format "a RotateRight b: %#08x" [expr {
+        (($a >> $b) & ($bits >> $b)) |
+        (($a << (32-$b)) & ($bits ^ ($bits >> $b)))
+    }]]
+    puts [format "a RotateLeft b: %#08x" [expr {
+        (($a << $b) & $bits & ($bits << $b)) |
+        (($a >> (32-$b)) & ($bits ^ ($bits << $b)))
+    }]]
+}