equal
deleted
inserted
replaced
115 ]. |
115 ]. |
116 c2 := self next. |
116 c2 := self next. |
117 c2 isHexDigit ifFalse:[ |
117 c2 isHexDigit ifFalse:[ |
118 self error: 'hex digit expected'. |
118 self error: 'hex digit expected'. |
119 ]. |
119 ]. |
120 ^ ((c1 digitValueRadix: 16) bitShift: 4) bitOr:(c2 digitValueRadix: 16) |
120 ^ (c1 digitValue bitShift: 4) bitOr:c2 digitValue |
121 |
121 |
122 "Created: / 22-06-2018 / 11:27:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
122 "Created: / 22-06-2018 / 11:27:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
123 "Modified: / 30-10-2018 / 20:03:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
123 ! |
124 ! |
124 |
125 |
125 parseByteArray |
126 parseByteArray |
126 | bytes | |
127 | bytes | |
127 self expect: $". |
128 self expect: $". |