vtools_vpatch 1 package Bits is
vtools_vpatch 2 pragma Pure(Bits);
vtools_vpatch 3
vtools_vpatch 4 type Bit is mod 2;
vtools_vpatch 5 type Bitstream is array( Natural range <> ) of Bit; -- any length; message
vtools_vpatch 6
vtools_vpatch 7 procedure ToBitstream(S: in String; B: out Bitstream);
vtools_vpatch 8 procedure ToString(B: in Bitstream; S: out String);
vtools_vpatch 9 procedure ToHex(B: in Bitstream; S: out String);
vtools_vpatch 10 function ToHex(B: in Bitstream) return String;
vtools_vpatch 11 end Bits;