Juerd/p6-mqtt:49: my $topic-length = .<data>.unpack("n");
Juerd/p6-mqtt:41: my $packed = mypack($subtemplate, @list.splice(0, $subunits, []));
Juerd/p6-mqtt:63: @new_list.push($packed.unpack("a*")); # srsly... :(
Juerd/p6-mqtt:69: my $packed = mypack($c<TOP>, @sublist);
Juerd/p6-mqtt:71: @new_list.push($packed.unpack("a*"));
araraloren/Net-FTP:190: $line = $_.unpack("A*");
araraloren/Net-FTP:28: push @infos, format($_.unpack("A*"));
avuserow/perl6-binary-structured:390: my uint16 $value = self.pull(2).unpack(%UNPACK_CODES{$endianness}{2});
avuserow/perl6-binary-structured:395: my uint32 $value = self.pull(4).unpack(%UNPACK_CODES{$endianness}{4});
avuserow/perl6-binary-structured:403: my int16 $value = self.pull(2).unpack(%UNPACK_CODES{$endianness}{2});
avuserow/perl6-binary-structured:407: my int32 $value = self.pull(4).unpack(%UNPACK_CODES{$endianness}{4});
avuserow/perl6-binary-structured:550: $buf.push: pack(%UNPACK_CODES{$endianness}{2}, $value);
avuserow/perl6-binary-structured:554: $buf.push: pack(%UNPACK_CODES{$endianness}{4}, $value);
avuserow/perl6-binary-structured:562: $buf.push: pack(%UNPACK_CODES{$endianness}{2}, $value);
avuserow/perl6-binary-structured:566: $buf.push: pack(%UNPACK_CODES{$endianness}{4}, $value);
azawawi/perl6-file-zip:74: ) = $local_file_header-buf.unpack("L S S S S S L L L S S");
azawawi/perl6-file-zip:36: ) = $buffer.unpack("L S S S S S S L L L S S S S S L L");
azawawi/perl6-file-zip:26: ) = $eocd-buffer.unpack("L S S S S L L S");
cosimo/perl6-facter:29: compute_uptime(Time.at(output.unpack('L').first))
cygx/p6-tinycc-resources-win64:12: #pragma pack(push,_CRT_PACKING)
cygx/p6-tinycc-resources-win64:67: #pragma pack(pop)
cygx/p6-tinycc-resources-win64:15: #pragma pack(push,_CRT_PACKING)
cygx/p6-tinycc-resources-win64:129: #pragma pack(pop)
cygx/p6-tinycc-resources-win64:12: #pragma pack(push,_CRT_PACKING)
cygx/p6-tinycc-resources-win64:54: #pragma pack(pop)
cygx/p6-tinycc-resources-win64:11: #pragma pack(push,_CRT_PACKING)
cygx/p6-tinycc-resources-win64:122: #pragma pack(pop)
cygx/p6-tinycc-resources-win64:13: #pragma pack(push,_CRT_PACKING)
cygx/p6-tinycc-resources-win64:413: #pragma pack(pop)
cygx/p6-tinycc-resources-win64:11: #pragma pack(push,_CRT_PACKING)
cygx/p6-tinycc-resources-win64:90: #pragma pack(pop)
cygx/p6-tinycc-resources-win64:11: #pragma pack(push,_CRT_PACKING)
cygx/p6-tinycc-resources-win64:179: #pragma pack(pop)
cygx/p6-tinycc-resources-win64:17: #pragma pack(push,_CRT_PACKING)
cygx/p6-tinycc-resources-win64:722: #pragma pack(pop)
cygx/p6-tinycc-resources-win64:11: #pragma pack(push,_CRT_PACKING)
cygx/p6-tinycc-resources-win64:159: #pragma pack(pop)
cygx/p6-tinycc-resources-win64:11: #pragma pack(push,_CRT_PACKING)
cygx/p6-tinycc-resources-win64:425: #pragma pack(pop)
cygx/p6-tinycc-resources-win64:12: #pragma pack(push,_CRT_PACKING)
cygx/p6-tinycc-resources-win64:56: #pragma pack(4)
cygx/p6-tinycc-resources-win64:60: #pragma pack()
cygx/p6-tinycc-resources-win64:81: #pragma pack(4)
cygx/p6-tinycc-resources-win64:85: #pragma pack()
cygx/p6-tinycc-resources-win64:575: #pragma pack(pop)
cygx/p6-tinycc-resources-win64:16: #pragma pack(push,_CRT_PACKING)
cygx/p6-tinycc-resources-win64:289: #pragma pack(pop)
cygx/p6-tinycc-resources-win64:15: #pragma pack(push,_CRT_PACKING)
cygx/p6-tinycc-resources-win64:130: #pragma pack(pop)
cygx/p6-tinycc-resources-win64:15: #pragma pack(push,_CRT_PACKING)
cygx/p6-tinycc-resources-win64:145: #pragma pack(pop)
cygx/p6-tinycc-resources-win64:15: #pragma pack(push,_CRT_PACKING)
cygx/p6-tinycc-resources-win64:279: #pragma pack(pop)
cygx/p6-tinycc-resources-win64:11: #pragma pack(push,_CRT_PACKING)
cygx/p6-tinycc-resources-win64:870: #pragma pack(pop)
cygx/p6-tinycc-resources-win64:15: #pragma pack(push,_CRT_PACKING)
cygx/p6-tinycc-resources-win64:171: #pragma pack(pop)
cygx/p6-tinycc-resources-win64:7: #pragma pack(pop)
cygx/p6-tinycc-resources-win64:7: #pragma pack(push,1)
cygx/p6-tinycc-resources-win64:7: #pragma pack(push,2)
cygx/p6-tinycc-resources-win64:7: #pragma pack(push,4)
cygx/p6-tinycc-resources-win64:7: #pragma pack(push,8)
gfldex/perl6-pod-to-bigpage:13926: <pre class="code">method unpack(Blob:D: $template) returns List:D</pre>
gfldex/perl6-pod-to-bigpage:13928: <pre class="code">BLOB.unpack(TEMPLATE)</pre>
gfldex/perl6-pod-to-bigpage:13953: sub pack(Str $template, *@items) returns Buf</pre>
grondilu/openssl:18: is md4($str).unpack('H*'), openssl('md4'), 'MD4';
grondilu/openssl:19: is md5($str).unpack('H*'), openssl('md5'), 'MD5';
grondilu/openssl:20: is sha0($str).unpack('H*'), openssl('sha'), 'SHA-0';
grondilu/openssl:21: is sha1($str).unpack('H*'), openssl('sha1'), 'SHA-1';
grondilu/openssl:22: is sha224($str).unpack('H*'), openssl('sha224'), 'SHA-224';
grondilu/openssl:23: is sha256($str).unpack('H*'), openssl('sha256'), 'SHA-256';
grondilu/openssl:24: is sha384($str).unpack('H*'), openssl('sha384'), 'SHA-384';
grondilu/openssl:25: is sha512($str).unpack('H*'), openssl('sha512'), 'SHA-512';
grondilu/openssl:26: is rmd160($str).unpack('H*'), openssl('rmd160'), 'RIPEMD-160';
grondilu/openssl:27: is whirlpool($str).unpack('H*'), openssl('whirlpool'), 'WHIRLPOOL';
grondilu/openssl:31: #is md2('').unpack('H*'), '8350e5a3e24c153df2275c9f80692773', 'MD2 (empty string)';
grondilu/openssl:32: #is md2('The quick brown fox jumps over the lazy dog').unpack('H*'), '03d85a0d629d2c442e987525319fc471', 'MD2 (quick brown fox)';
grondilu/openssl:36: sha256($str).unpack('H*'),
grondilu/openssl:17: is md4($test-buffer).unpack('H*'), openssl('md4'), 'MD4';
grondilu/openssl:18: is md5($test-buffer).unpack('H*'), openssl('md5'), 'MD5';
grondilu/openssl:19: is sha0($test-buffer).unpack('H*'), openssl('sha'), 'SHA-0';
grondilu/openssl:20: is sha1($test-buffer).unpack('H*'), openssl('sha1'), 'SHA-1';
grondilu/openssl:21: is sha224($test-buffer).unpack('H*'), openssl('sha224'), 'SHA-224';
grondilu/openssl:22: is sha256($test-buffer).unpack('H*'), openssl('sha256'), 'SHA-256';
grondilu/openssl:23: is sha384($test-buffer).unpack('H*'), openssl('sha384'), 'SHA-384';
grondilu/openssl:24: is sha512($test-buffer).unpack('H*'), openssl('sha512'), 'SHA-512';
grondilu/openssl:25: is rmd160($test-buffer).unpack('H*'), openssl('rmd160'), 'RIPEMD-160';
grondilu/openssl:26: is whirlpool($test-buffer).unpack('H*'), openssl('whirlpool'), 'WHIRLPOOL';
jonathanstowe/MessagePack-Class:22: my MyClass $obj = MyClass.from-messagepack($pack);
jonathanstowe/MessagePack-Class:23: my MyClass $obj = MyClass.from-messagepack($pack);
jonathanstowe/MessagePack-Class:105: method from-messagepack(Blob $pack) {
jonathanstowe/MessagePack-Class:106: _unmarshal(Data::MessagePack::unpack($pack), self);
jonathanstowe/MessagePack-Class:233: method to-messagepack(--> Blob) {
jonathanstowe/MessagePack-Class:234: Data::MessagePack::pack(_marshal(self));
jonathanstowe/MessagePack-Class:32: lives-ok { $new = TestClass.from-messagepack($pack) }, "from messagepack";
jonathanstowe/MessagePack-Class:22: lives-ok { $obj-new = TraitTestName.from-messagepack($pack) }, "from-pack with traits";
jonathanstowe/MessagePack-Class:43: lives-ok { $obj-new = TraitTestCode.from-messagepack($pack) }, "from-pack with traits";
jpve/perl6-net-packet:173: my $mac = MAC_addr.unpack($buf, 1); # Start unpacking at $buf[1].
jpve/perl6-net-packet:209: .unpack($buf, Int $i) returns MAC_addr
jpve/perl6-net-packet:362: my $ip = IPv4_addr.unpack($buf, 1); # Starts unpacking at $buf[1].
jpve/perl6-net-packet:396: .unpack($buf, Int $i) returns IPv4_addr
jpve/perl6-net-packet:14: my $ip = IPv4_addr.unpack($buf, 1); # Starts unpacking at $buf[1].
jpve/perl6-net-packet:48: .unpack($buf, Int $i) returns IPv4_addr
jpve/perl6-net-packet:14: my $mac = MAC_addr.unpack($buf, 1); # Start unpacking at $buf[1].
jpve/perl6-net-packet:50: .unpack($buf, Int $i) returns MAC_addr
jpve/perl6-net-packet:151: $.src_hw_addr = MAC_addr.unpack($.frame, $len);
jpve/perl6-net-packet:152: $.dst_hw_addr = MAC_addr.unpack($.frame, $len+$.hw_len+$.proto_len);
jpve/perl6-net-packet:159: $.src_proto_addr = IPv4_addr.unpack($.frame, $len+$.hw_len);
jpve/perl6-net-packet:160: $.dst_proto_addr = IPv4_addr.unpack($.frame, $len+$.hw_len+$.proto_len+$.hw_len);
jpve/perl6-net-packet:204: my Buf $hdr = pack('nnCCn',
jpve/perl6-net-packet:121: # my Int ($dst_hi, $dst_low, $src_hi, $src_low) = $.frame.unpack('NnNn');
jpve/perl6-net-packet:129: $.dst = MAC_addr.unpack($.frame, 0);
jpve/perl6-net-packet:130: $.src = MAC_addr.unpack($.frame, 6);
jpve/perl6-net-packet:134: # my ($s-tpid, $s-tci, $c-tpid, $c-tci, $type) = $.frame.subbuf(6+6,4+4+2).unpack('nnnnn');
jpve/perl6-net-packet:200: ~ pack('n', $.type.value);
jpve/perl6-net-packet:136: $.src = Net::Packet::IPv4_addr.unpack($.frame, 12);
jpve/perl6-net-packet:137: $.dst = Net::Packet::IPv4_addr.unpack($.frame, 16);
jpve/perl6-net-packet:11: my $ip = IPv4_addr.unpack($buf, 1); # Starts unpacking at $buf[1].
jpve/perl6-net-packet:68: .unpack($buf, Int $i) returns IPv4_addr
jpve/perl6-net-packet:73: method unpack($buf, Int $i) returns IPv4_addr {
jpve/perl6-net-packet:10: my $mac = MAC_addr.unpack($buf, 1); # Start unpacking at $buf[1].
jpve/perl6-net-packet:69: .unpack($buf, Int $i) returns MAC_addr
jpve/perl6-net-packet:74: method unpack($buf, Int $i) returns MAC_addr {
jpve/perl6-net-packet:83: # ($.src_port, $.dst_port, $.length, $.chksum) = $.frame.unpack('nnnn');
jpve/perl6-net-packet:100: $.frame = pack('nnnn', $.src_port, $.dst_port, $.length, $.chksum) ~ $dbuf;
jpve/perl6-net-packet:28: my $mac = MAC_addr.unpack($mac_src, 0);
jpve/perl6-net-packet:45: my $ip = IPv4_addr.unpack($ip_src, 0);
jpve/perl6-net-pcap:245: .unpack(Str $str)
jpve/perl6-net-pcap:246: .unpack(Int $start, Str $str)
jpve/perl6-net-pcap:247: Calls unpack($str) on the buffer.
jpve/perl6-net-pcap:113: .unpack(Str $str)
jpve/perl6-net-pcap:114: .unpack(Int $start, Str $str)
jpve/perl6-net-pcap:115: Calls unpack($str) on the buffer.
jpve/perl6-net-pcap:261: .unpack(Str $str)
jpve/perl6-net-pcap:262: .unpack(Int $start, Str $str)
jpve/perl6-net-pcap:263: Calls unpack($str) on the buffer.
jpve/perl6-net-pcap:267: multi method unpack(Str $str) {
jpve/perl6-net-pcap:268: #self.Buf.unpack($str);
jpve/perl6-net-pcap:270: return self.unpack(0, $str);
jpve/perl6-net-pcap:273: multi method unpack(Int $start, Str $str) {
lestrrat/p6-Apache-LogFormat:157: $x ~~ s:g/(<:C>)/{ "\\x" ~ Blob.new(ord($0)).unpack("H*") }/;
lestrrat/p6-Apache-LogFormat:167: $x ~~ s:g/(<:C>)/{ "\\x" ~ Blob.new(ord($0)).unpack("H*") }/;
lizmat/PackUnpack:29: say pack("ccxxcc",65,66,67,68); # "AB\0\0CD";
lizmat/PackUnpack:32: say pack(@template,65,66,67,68); # same
lizmat/PackUnpack:83: proto sub pack(|) is export { * }
lizmat/PackUnpack:84: multi sub pack(Str $t, |c) { pack(parse-pack-template($t),|c) }
lizmat/PackUnpack:85: multi sub pack(@template, *@items) {
lizmat/PackUnpack:228: proto sub unpack(|) is export { * }
lizmat/PackUnpack:229: multi sub unpack(Str $t, Blob:D \b) { unpack(parse-pack-template($t),b) }
lizmat/PackUnpack:230: multi sub unpack(@template, Blob:D \b) {
lizmat/PackUnpack:9: #dd pack("a*aa2",<a bb ccc>);
lizmat/PackUnpack:10: #dd pack("A* A* A*",<a bb ccc>);
lizmat/PackUnpack:11: #dd pack("Z*Z5Z2",<a bb ccc>);
lizmat/PackUnpack:12: #dd unpack("U*",pack("U3",97,0xe7,0x1F4A9));
lizmat/PackUnpack:13: #dd pack("h*","2143");
lizmat/PackUnpack:14: #dd pack("CH*",42,"1234");
lizmat/PackUnpack:15: #dd pack("N*",1,2,3);
lizmat/PackUnpack:16: #dd pack("N*",4,5,6);
lizmat/PackUnpack:17: #dd pack("x5");
p6-pdf/Native-Packing-p6:44: =head2 unpack(buf8)
p6-pdf/Native-Packing-p6:48: =head2 pack(buf8?)
p6-pdf/Native-Packing-p6:228: method unpack(\buf) {
p6-pdf/PDF-p6:14: - Replace PDF::IO::Util resample() with pack(), unpack()
p6-pdf/PDF-p6:75: my \buf := pack( $xref, $W,);
p6-pdf/PDF-p6:117: my array $xref-idx = unpack( $buf, W );
p6-pdf/PDF-p6:19: my $buf32 := unpack( @buf, 32);
p6-pdf/PDF-p6:79: $buf = pack(@buf32, 32);
p6-pdf/PDF-p6:18: my uint8 @buf = [ unpack( $input, 4).map: {@HexEnc[$_]} ];
p6-pdf/PDF-p6:18: my \nums := unpack( $buf, $BitsPerComponent );
p6-pdf/PDF-p6:36: pack( @output, $BitsPerComponent);
p6-pdf/PDF-p6:52: $buf = unpack($buf, $bpc);
p6-pdf/PDF-p6:123: pack(@out, $bpc)
p6-pdf/PDF-p6:141: my \nums = unpack( $buf, $BitsPerComponent );
p6-pdf/PDF-p6:159: pack( @output, $BitsPerComponent);
p6-pdf/PDF-p6:175: $buf = unpack($buf, $bpc);
p6-pdf/PDF-p6:251: pack(@out, $bpc);
p6-pdf/PDF-p6:11: is-deeply ($buf=unpack(@bytes, 4)), buf8.new(0, 10, 1, 4, 1, 14, 2, 8, 3, 2, 3, 12), '4 bit unpack';
p6-pdf/PDF-p6:12: is-deeply pack($buf, 4), $bytes, 'pack round-trip: 8 => 4 => 8';
p6-pdf/PDF-p6:14: is-deeply pack($bytes, 8), $bytes, '8 bit pack';
p6-pdf/PDF-p6:15: is-deeply unpack($bytes, 8), $bytes, '8 bit unpack';
p6-pdf/PDF-p6:17: is-deeply ($buf = unpack(@bytes, 16)), buf16.new(2580, 7720, 12860), '16 bit unpack';
p6-pdf/PDF-p6:18: is-deeply pack($buf, 16, ), $bytes, 'resample round-trip: 16 => 8 => 16';
p6-pdf/PDF-p6:20: is-deeply ($buf = pack([1415192289,], 32)), buf8.new(84, 90, 30, 225), '32 bit packing';
p6-pdf/PDF-p6:21: is-deeply ($buf = pack([2 ** 32 - 1415192289 - 1,], 32)), buf8.new(255-84, 255-90, 255-30, 255-225), '32 bit packing (twos comp)';
p6-pdf/PDF-p6:28: is-deeply ($buf = unpack([109], 1)), buf8.new(0, 1, 1, 0, 1, 1, 0, 1), '1 bit unpack';
p6-pdf/PDF-p6:29: is-deeply ($buf = pack($buf, 1)), buf8.new(109), '8 => 1 => 8 round trip';
p6-pdf/PDF-p6:33: is-deeply ($shaped = unpack(@bytes, [1, 3, 2])).values, (10, 1318440, 12860), '[1, 3, 2] unpack';
p6-pdf/PDF-p6:34: is-deeply array[uint8].new(pack($shaped, [1, 3, 2])), @bytes, '[1, 3, 2] => 8 pack';
p6-pdf/PDF-p6:40: is-deeply pack(@in, $W,), $out, '$W[1, 2, 1] packing';
perl6/DBIish:591: # printf("%08lx %s\n", $i*32, unpack("H64", $b));
perl6/DBIish:1489: printf("%08lx %s\n", $i*32, unpack("H64", $b));
perl6/DBIish:3055: my $ret = join( "|" ,unpack( "C*" ,$_[0] ) );
perl6/doc:103: method unpack(Blob:D: $template --> List:D)
perl6/doc:141: say Blob.new(1..10).unpack("C*");
perl6/doc:150: sub pack(Str $template, *@items --> Buf)
perl6/gtk-simple:19: method pack() {
perl6/gtk-simple:42: method pack() {
pierre-vigier/Perl6-Data-MessagePack:20: my $packed = Data::MessagePack::pack( $data-structure );
pierre-vigier/Perl6-Data-MessagePack:22: my $unpacked = Data::MessagePack::unpack( $packed );
pierre-vigier/Perl6-Data-MessagePack:7: our sub pack( $params ) {
pierre-vigier/Perl6-Data-MessagePack:8: Data::MessagePack::Packer::pack( $params );
pierre-vigier/Perl6-Data-MessagePack:11: our sub unpack( Blob $blob ) {
pierre-vigier/Perl6-Data-MessagePack:12: Data::MessagePack::Unpacker::unpack( $blob );
pierre-vigier/Perl6-Data-MessagePack:28: my $packed = Data::MessagePack::pack( $data-structure );
pierre-vigier/Perl6-Data-MessagePack:30: my $unpacked = Data::MessagePack::unpack( $packed );
pierre-vigier/Perl6-Data-MessagePack:13: our sub pack( $params ) {
pierre-vigier/Perl6-Data-MessagePack:14: _pack( $params );
pierre-vigier/Perl6-Data-MessagePack:17: my multi _pack( Any:U $object ) {
pierre-vigier/Perl6-Data-MessagePack:20: my multi _pack( Bool:D $b ) {
pierre-vigier/Perl6-Data-MessagePack:24: my multi _pack( Int:D $i ) {
pierre-vigier/Perl6-Data-MessagePack:74: my multi _pack( Str:D $s ) {
pierre-vigier/Perl6-Data-MessagePack:88: my multi _pack( Blob:D $b ) {
pierre-vigier/Perl6-Data-MessagePack:101: my multi _pack( Numeric:D $f ) {
pierre-vigier/Perl6-Data-MessagePack:103: return _pack( $f.Int );
pierre-vigier/Perl6-Data-MessagePack:151: my multi _pack( List:D $l where $l.elems < 2**4 ) {
pierre-vigier/Perl6-Data-MessagePack:152: return Blob.new( 0x90 + $l.elems, $l.map( { _pack( $_).list } ) );
pierre-vigier/Perl6-Data-MessagePack:155: my multi _pack( List:D $l where 2**4 <= $l.elems < 2**16 ) {
pierre-vigier/Perl6-Data-MessagePack:156: return Blob.new( 0xdc, (8,0).map( $l.elems +> * +& 0xff ), $l.map( { _pack( $_).list } ) );
pierre-vigier/Perl6-Data-MessagePack:159: my multi _pack( List:D $l where 2**16 <= $l.elems < 2**32 ) {
pierre-vigier/Perl6-Data-MessagePack:160: return Blob.new( 0xdd, (24,16,8,0).map( $l.elems +> * +& 0xff ), $l.map( { _pack( $_).list } ) );
pierre-vigier/Perl6-Data-MessagePack:163: my multi _pack( Hash:D $h where $h.elems < 2**4 ) {
pierre-vigier/Perl6-Data-MessagePack:164: return Blob.new( 0x80 + $h.elems, $h.kv.map( { _pack( $_).list } ) );
pierre-vigier/Perl6-Data-MessagePack:167: my multi _pack( Hash:D $h where 2**4 <= $h.elems < 2**16 ) {
pierre-vigier/Perl6-Data-MessagePack:168: return Blob.new( 0xde, (8,0).map( $h.elems +> * +& 0xff ), $h.kv.map( { _pack( $_).list } ) );
pierre-vigier/Perl6-Data-MessagePack:171: my multi _pack( Hash:D $h where 2**16 <= $h.elems < 2**32 ) {
pierre-vigier/Perl6-Data-MessagePack:172: return Blob.new( 0xdf, (24,16,8,0).map( $h.elems +> * +& 0xff ), $h.kv.map( { _pack( $_).list } ) );
pierre-vigier/Perl6-Data-MessagePack:121: our sub unpack( Blob $b ) {
pierre-vigier/Perl6-Data-MessagePack:123: _unpack( $b, $position );
pierre-vigier/Perl6-Data-MessagePack:128: sub _unpack( Blob $b, Int $position is rw ) {
pierre-vigier/Perl6-Data-MessagePack:137: _unpack($b, $position)
pierre-vigier/Perl6-Data-MessagePack:146: %map{ _unpack($b, $position) } = _unpack($b, $position);
pierre-vigier/Perl6-Data-MessagePack:11: ok Data::MessagePack::pack( $val ) ~~ Blob.new( 0xc0 ), "Undefined is packed correctly";
pierre-vigier/Perl6-Data-MessagePack:15: ok Data::MessagePack::pack( $var ) ~~ Blob.new( 0xc0 ), "Undefined is packed correctly";
pierre-vigier/Perl6-Data-MessagePack:8: ok Data::MessagePack::pack( False ) ~~ Blob.new( 0xc2 ), "Boolean False is packed correctly";
pierre-vigier/Perl6-Data-MessagePack:9: ok Data::MessagePack::pack( True ) ~~ Blob.new( 0xc3 ), "Boolean True is packed correctly";
pierre-vigier/Perl6-Data-MessagePack:8: ok Data::MessagePack::pack( 0) ~~ Blob.new(0x00), "Positive integer packed correctly";
pierre-vigier/Perl6-Data-MessagePack:9: ok Data::MessagePack::pack( 1) ~~ Blob.new(0x01), "Positive integer packed correctly";
pierre-vigier/Perl6-Data-MessagePack:10: ok Data::MessagePack::pack( 127) ~~ Blob.new(0x7f), "Positive integer packed correctly";
pierre-vigier/Perl6-Data-MessagePack:11: ok Data::MessagePack::pack( 128) ~~ Blob.new(0xcc, 0x80), "Positive integer packed correctly";
pierre-vigier/Perl6-Data-MessagePack:12: ok Data::MessagePack::pack( 255) ~~ Blob.new(0xcc, 0xff), "Positive integer packed correctly";
pierre-vigier/Perl6-Data-MessagePack:13: ok Data::MessagePack::pack( 256) ~~ Blob.new(0xcd, 0x01, 0x00), "Positive integer packed correctly";
pierre-vigier/Perl6-Data-MessagePack:14: ok Data::MessagePack::pack( 65535) ~~ Blob.new(0xcd, 0xff, 0xff), "Positive integer packed correctly";
pierre-vigier/Perl6-Data-MessagePack:15: ok Data::MessagePack::pack( 65536) ~~ Blob.new(0xce, 0x00, 0x01, 0x00, 0x00), "Positive integer packed correctly";
pierre-vigier/Perl6-Data-MessagePack:16: ok Data::MessagePack::pack( 4294967295) ~~ Blob.new(0xce, 0xff, 0xff, 0xff, 0xff), "Positive integer packed correctly";
pierre-vigier/Perl6-Data-MessagePack:17: ok Data::MessagePack::pack( 4294967296) ~~ Blob.new(0xcf, 0x00, 0x00, 0x00, 0x01, 0x00, 0x00, 0x00, 0x00), "Positive integer packed correctly";
pierre-vigier/Perl6-Data-MessagePack:18: ok Data::MessagePack::pack( 184467440737095) ~~ Blob.new(0xcf, 0x00, 0x00, 0xa7, 0xc5, 0xac, 0x47, 0x1b, 0x47), "Positive integer packed correctly";
pierre-vigier/Perl6-Data-MessagePack:19: ok Data::MessagePack::pack( 2**64 -1 ) ~~ Blob.new(0xcf, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff), "Positive integer packed correctly";
pierre-vigier/Perl6-Data-MessagePack:20: throws-like { Data::MessagePack::pack( 2**64 ); }, X::Data::MessagePack::Packer;
pierre-vigier/Perl6-Data-MessagePack:22: ok Data::MessagePack::pack( -1 ) ~~ Blob.new(0xff), "Negative integer packed correctly";
pierre-vigier/Perl6-Data-MessagePack:23: ok Data::MessagePack::pack( -16 ) ~~ Blob.new(0xf0), "Negative integer packed correctly";
pierre-vigier/Perl6-Data-MessagePack:24: ok Data::MessagePack::pack( -32 ) ~~ Blob.new(0xe0), "Negative integer packed correctly";
pierre-vigier/Perl6-Data-MessagePack:25: ok Data::MessagePack::pack( -33 ) ~~ Blob.new(0xd0, 0xdf), "Negative integer packed correctly";
pierre-vigier/Perl6-Data-MessagePack:26: ok Data::MessagePack::pack( -70 ) ~~ Blob.new(0xd0, 0xba), "Negative integer packed correctly";
pierre-vigier/Perl6-Data-MessagePack:27: ok Data::MessagePack::pack( -127 ) ~~ Blob.new(0xd0, 0x81), "Negative integer packed correctly";
pierre-vigier/Perl6-Data-MessagePack:28: ok Data::MessagePack::pack( -128 ) ~~ Blob.new(0xd0, 0x80), "Negative integer packed correctly";
pierre-vigier/Perl6-Data-MessagePack:29: ok Data::MessagePack::pack( -129 ) ~~ Blob.new(0xd1, 0xff, 0x7f), "Negative integer packed correctly";
pierre-vigier/Perl6-Data-MessagePack:30: ok Data::MessagePack::pack( -32768 ) ~~ Blob.new(0xd1, 0x80, 0x00), "Negative integer packed correctly";
pierre-vigier/Perl6-Data-MessagePack:31: ok Data::MessagePack::pack( -32769 ) ~~ Blob.new(0xd2, 0xff, 0xff, 0x7f, 0xff), "Negative integer packed correctly";
pierre-vigier/Perl6-Data-MessagePack:32: ok Data::MessagePack::pack( -2147483648 ) ~~ Blob.new(0xd2, 0x80, 0x00, 0x00, 0x00), "Negative integer packed correctly";
pierre-vigier/Perl6-Data-MessagePack:33: ok Data::MessagePack::pack( -2147483649 ) ~~ Blob.new(0xd3, 0xff, 0xff, 0xff, 0xff, 0x7f, 0xff, 0xff, 0xff), "Negative integer packed correctly";
pierre-vigier/Perl6-Data-MessagePack:34: ok Data::MessagePack::pack( -9223372036854775808 ) ~~ Blob.new(0xd3, 0x80, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00), "Negative integer packed correctly";
pierre-vigier/Perl6-Data-MessagePack:35: throws-like { Data::MessagePack::pack( -9223372036854775809 ); }, X::Data::MessagePack::Packer;
pierre-vigier/Perl6-Data-MessagePack:8: ok Data::MessagePack::pack( 147.625 ) ~~ Blob.new(203,64,98,116,0,0,0,0,0), "Double packed correcly";
pierre-vigier/Perl6-Data-MessagePack:9: ok Data::MessagePack::pack( -147.625 ) ~~ Blob.new(203,192,98,116,0,0,0,0,0), "Negative double packed correcly";
pierre-vigier/Perl6-Data-MessagePack:10: ok Data::MessagePack::pack( 1.1 ) ~~ Blob.new(0xcb, 0x3f, 0xf1, 0x99, 0x99, 0x99, 0x99, 0x99, 0x9a), "Negative double packed correcly";
pierre-vigier/Perl6-Data-MessagePack:12: ok Data::MessagePack::pack( 147.00 ) ~~ Data::MessagePack::pack( 147 ), "Double with int value packed as int";
pierre-vigier/Perl6-Data-MessagePack:8: ok Data::MessagePack::pack( 'abc') ~~ Blob.new( 0xa3, 0x61, 0x62, 0x63 ), "String packed correctly";
pierre-vigier/Perl6-Data-MessagePack:9: ok Data::MessagePack::pack( 'More than 32 characters, for test' ) ~~ Blob.new(217,33,77,111,114,101,32,116,104,97,110,32,51,50,32,99,104,97,114,97,99,116,101,114,115,44,32,102,111,114,32,116,101,115,116), "String packed correctly";
pierre-vigier/Perl6-Data-MessagePack:11: ok Data::MessagePack::pack( 'a' x 2**8 ) ~~ Blob.new( 0xda, 0x01, 0x00, 0x61 xx (2**8) ), "String packed correctly";
pierre-vigier/Perl6-Data-MessagePack:12: ok Data::MessagePack::pack( 'a' x 2**16 ) ~~ Blob.new( 0xdb, 0x00, 0x01, 0x00, 0x00, 0x61 xx (2**16) ), "String packed correctly";
pierre-vigier/Perl6-Data-MessagePack:14: #throws-like { Data::MessagePack::pack( 'a' x (2**32) ); }, X::Data::MessagePack::Packer;
pierre-vigier/Perl6-Data-MessagePack:8: ok Data::MessagePack::pack( Blob.new(1, 2, 3) ) ~~ Blob.new( 0xc4, 3, 1, 2, 3 ), "Bin packed correctly";
pierre-vigier/Perl6-Data-MessagePack:9: ok Data::MessagePack::pack( Blob.new(13 xx 2**8) ) ~~ Blob.new( 0xc5, 0x01, 0x00, 13 xx (2**8) ), "Bin packed correctly";
pierre-vigier/Perl6-Data-MessagePack:10: ok Data::MessagePack::pack( Blob.new(14 xx 2**16) ) ~~ Blob.new( 0xc6, 0x00, 0x01, 0x00, 0x00, 14 xx (2**16) ), "Bin packed correctly";
pierre-vigier/Perl6-Data-MessagePack:8: ok Data::MessagePack::pack( [] ) ~~ Blob.new( 0x90 ), "Array packed correctly";
pierre-vigier/Perl6-Data-MessagePack:9: ok Data::MessagePack::pack( () ) ~~ Blob.new( 0x90 ), "Array packed correctly";
pierre-vigier/Perl6-Data-MessagePack:10: ok Data::MessagePack::pack( [[],] ) ~~ Blob.new( 0x91, 0x90 ), "Array packed correctly";
pierre-vigier/Perl6-Data-MessagePack:11: ok Data::MessagePack::pack( (1,2,3) ) ~~ Blob.new( 0x93, 1,2,3), "Array packed correctly";
pierre-vigier/Perl6-Data-MessagePack:12: ok Data::MessagePack::pack( (Any, False, True) ) ~~ Blob.new( 0x93, 0xc0,0xc2,0xc3), "Array packed correctly";
pierre-vigier/Perl6-Data-MessagePack:14: ok Data::MessagePack::pack(["", "a", "bc", "def"]) ~~ Blob.new(148,160,161,97,162,98,99,163,100,101,102), "Array packed correctly";
pierre-vigier/Perl6-Data-MessagePack:15: ok Data::MessagePack::pack( [1.1,-2.2,3.3,-4.4] ) ~~ Blob.new(148,203,63,241,153,153,153,153,153,154,203,192,1,153,153,153,153,153,154,203,64,10,102,102,102,102,102,102,203,192,17,153,153,153,153,153,154), "Array packed correctly";
pierre-vigier/Perl6-Data-MessagePack:16: ok Data::MessagePack::pack( [{},{ a=> 2},3] ) ~~ Blob.new(147,128,129,161,97,2,3), "Array packed correctly";
pierre-vigier/Perl6-Data-MessagePack:18: ok Data::MessagePack::pack( [ 1 xx 16 ] ) ~~ Blob.new( 0xdc, 0x00, 0x10, 0x01 xx 16 ), "Array packed correctly";
pierre-vigier/Perl6-Data-MessagePack:19: ok Data::MessagePack::pack( [ 'a' xx 16 ] ) ~~ Blob.new( 0xdc, 0x00, 0x10, (0xa1, 0x61) xx 16 ), "Array packed correctly";
pierre-vigier/Perl6-Data-MessagePack:8: ok Data::MessagePack::pack( { key => 'value' } ) ~~ Blob.new(129,163,107,101,121,165,118,97,108,117,101), "hash packed correctly";
pierre-vigier/Perl6-Data-MessagePack:10: ok Data::MessagePack::pack( { a => Any, b => [ 1.1 ], c => { aa => 3, bb => [] } } ) ~~ Blob.new(131,161,97,192,161,99,130,162,98,98,144,162,97,97,3,161,98,145,203,63,241,153,153,153,153,153,154), "hash packed correctly";
pierre-vigier/Perl6-Data-MessagePack:14: ok Data::MessagePack::pack( %hh ) ~~ Blob.new(222,0,16,161,56,8,162,49,49,11,161,53,5,161,49,1,162,49,53,15,162,49,52,14,162,49,51,13,162,49,50,12,161,54,6,161,52,4,161,48,0,161,57,9,162,49,48,10,161,55,7,161,51,3,161,50,2),"hash packed correctly";
pierre-vigier/Perl6-Data-MessagePack:8: ok Data::MessagePack::unpack( Blob.new( 0xc0 ) ) ~~ Any, "Undefined is packed correctly";
pierre-vigier/Perl6-Data-MessagePack:8: nok Data::MessagePack::unpack( Blob.new( 0xc2 ) ), "Boolean False is unpacked correctly";
pierre-vigier/Perl6-Data-MessagePack:9: ok Data::MessagePack::unpack( Blob.new( 0xc2 ) ) ~~ Bool, "Boolean False is unpacked correctly";
pierre-vigier/Perl6-Data-MessagePack:10: ok Data::MessagePack::unpack( Blob.new( 0xc3 ) ), "Boolean True is unpacked correctly";
pierre-vigier/Perl6-Data-MessagePack:11: ok Data::MessagePack::unpack( Blob.new( 0xc3 ) ) ~~ Bool, "Boolean False is unpacked correctly";
pierre-vigier/Perl6-Data-MessagePack:10: $value = Data::MessagePack::unpack( Blob.new(0x00) );
pierre-vigier/Perl6-Data-MessagePack:14: $value = Data::MessagePack::unpack( Blob.new(0x7f) );
pierre-vigier/Perl6-Data-MessagePack:18: $value = Data::MessagePack::unpack( Blob.new(0xcc, 0xff) );
pierre-vigier/Perl6-Data-MessagePack:22: $value = Data::MessagePack::unpack( Blob.new(0xcd, 0x01, 0x00) );
pierre-vigier/Perl6-Data-MessagePack:26: $value = Data::MessagePack::unpack( Blob.new(0xcd, 0xff, 0xff) );
pierre-vigier/Perl6-Data-MessagePack:30: $value = Data::MessagePack::unpack( Blob.new(0xce, 0x00, 0x01, 0x00, 0x00) );
pierre-vigier/Perl6-Data-MessagePack:34: $value = Data::MessagePack::unpack( Blob.new(0xce, 0xff, 0xff, 0xff, 0xff) );
pierre-vigier/Perl6-Data-MessagePack:38: $value = Data::MessagePack::unpack( Blob.new(0xcf, 0x00, 0x00, 0x00, 0x01, 0x00, 0x00, 0x00, 0x00) );
pierre-vigier/Perl6-Data-MessagePack:42: $value = Data::MessagePack::unpack( Blob.new(0xcf, 0x00, 0x00, 0xa7, 0xc5, 0xac, 0x47, 0x1b, 0x47) );
pierre-vigier/Perl6-Data-MessagePack:46: $value = Data::MessagePack::unpack( Blob.new(0xcf, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff) );
pierre-vigier/Perl6-Data-MessagePack:50: $value = Data::MessagePack::unpack( Blob.new(0xf0) );
pierre-vigier/Perl6-Data-MessagePack:54: $value = Data::MessagePack::unpack( Blob.new(0xe0) );
pierre-vigier/Perl6-Data-MessagePack:58: $value = Data::MessagePack::unpack( Blob.new(0xd0, 0xdf) );
pierre-vigier/Perl6-Data-MessagePack:62: $value = Data::MessagePack::unpack( Blob.new(0xd0, 0x80) );
pierre-vigier/Perl6-Data-MessagePack:66: $value = Data::MessagePack::unpack( Blob.new(0xd1, 0xff, 0x7f) );
pierre-vigier/Perl6-Data-MessagePack:70: $value = Data::MessagePack::unpack( Blob.new(0xd1, 0x80, 0x00) );
pierre-vigier/Perl6-Data-MessagePack:74: $value = Data::MessagePack::unpack( Blob.new(0xd2, 0xff, 0xff, 0x7f, 0xff) );
pierre-vigier/Perl6-Data-MessagePack:78: $value = Data::MessagePack::unpack( Blob.new(0xd2, 0x80, 0x00, 0x00, 0x00) );
pierre-vigier/Perl6-Data-MessagePack:82: $value = Data::MessagePack::unpack( Blob.new(0xd3, 0xff, 0xff, 0xff, 0xff, 0x7f, 0xff, 0xff, 0xff) );
pierre-vigier/Perl6-Data-MessagePack:86: $value = Data::MessagePack::unpack( Blob.new(0xd3, 0x80, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00) );
pierre-vigier/Perl6-Data-MessagePack:11: $value = Data::MessagePack::unpack( Blob.new( 0xca, 0x42, 0x02, 0x80, 0x00 ) );
pierre-vigier/Perl6-Data-MessagePack:15: $value = Data::MessagePack::unpack( Blob.new( 0xca, 0x3F, 0x8C, 0xCC, 0xCD ) );
pierre-vigier/Perl6-Data-MessagePack:23: $value = Data::MessagePack::unpack( Blob.new(0xcb, 192,98,116,0,0,0,0,0 ) );
pierre-vigier/Perl6-Data-MessagePack:27: $value = Data::MessagePack::unpack( Blob.new(0xcb, 0x3f, 0xf1, 0x99, 0x99, 0x99, 0x99, 0x99, 0x9a) );
pierre-vigier/Perl6-Data-MessagePack:10: $value = Data::MessagePack::unpack( Blob.new( 0xa3, 0x61, 0x62, 0x63 ) );
pierre-vigier/Perl6-Data-MessagePack:14: $value = Data::MessagePack::unpack( Blob.new( 217,33,77,111,114,101,32,116,104,97,110,32,51,50,32,99,104,97,114,97,99,116,101,114,115,44,32,102,111,114,32,116,101,115,116) );
pierre-vigier/Perl6-Data-MessagePack:18: $value = Data::MessagePack::unpack( Blob.new( 0xda, 0x01, 0x00, 0x61 xx (2**8) ) );
pierre-vigier/Perl6-Data-MessagePack:22: $value = Data::MessagePack::unpack( Blob.new( 0xdb, 0x00, 0x01, 0x00, 0x00, 0x62 xx (2**16) ) );
pierre-vigier/Perl6-Data-MessagePack:10: $value = Data::MessagePack::unpack( Blob.new( 0xc4, 3, 1, 2, 3 ) );
pierre-vigier/Perl6-Data-MessagePack:13: $value = Data::MessagePack::unpack( Blob.new( 0xc5, 0x01, 0x00, 13 xx (2**8) ) );
pierre-vigier/Perl6-Data-MessagePack:16: $value = Data::MessagePack::unpack( Blob.new( 0xc6, 0x00, 0x01, 0x00, 0x00, 14 xx (2**16) ) );
pierre-vigier/Perl6-Data-MessagePack:10: $array = Data::MessagePack::unpack( Blob.new( 0x90 ) );
pierre-vigier/Perl6-Data-MessagePack:13: $array = Data::MessagePack::unpack( Blob.new( 0xdc, 0x00, 0x10, (0xcc, 0xfa) xx 16 ) );
pierre-vigier/Perl6-Data-MessagePack:16: $array = Data::MessagePack::unpack( Blob.new(148,160,161,97,162,98,99,163,100,101,102) );
pierre-vigier/Perl6-Data-MessagePack:10: %h = Data::MessagePack::unpack( Blob.new(129,163,107,101,121,165,118,97,108,117,101) );
pierre-vigier/Perl6-Data-MessagePack:13: %h = Data::MessagePack::unpack( Blob.new(131,161,97,192,161,99,130,162,98,98,144,162,97,97,3,161,98,145,1) );
pierre-vigier/Perl6-Data-MessagePack:16: %h = Data::MessagePack::unpack( Blob.new(222,0,16,162,49,50,12,161,56,8,162,49,52,14,162,49,49,11,161,53,5,161,49,1,161,54,6,161,52,4,162,49,53,15,161,48,0,162,49,51,13,162,49,48,10,161,57,9,161,55,7,161,51,3,161,50,2) );
rakudo-p5/v5:2256: ------> unpack⏏ 'U*', pack('U*',2001,2002,2003))),</td></tr>
rakudo-p5/v5:2921: ------> unpack⏏ 'U*', pack('U*',2001,2002,2003))),</td></tr>
rakudo-p5/v5:839: sub P5pack(Mu \SELF, *@items) is export is hidden-from-backtrace {
rakudo-p5/v5:1347: multi P5unpack(\SELF, Mu $thing) is export { P5unpack(SELF, ~$thing ) }
rakudo-p5/v5:1348: multi P5unpack(Str:D \SELF) is export { P5unpack(SELF, CALLER::DYNAMIC::<$_> ) }
rakudo-p5/v5:1349: multi P5unpack(Str:D \SELF, Str $string) is export {
rakudo-p5/v5:1357: P5unpack(SELF, $ret)
rakudo-p5/v5:1359: multi P5unpack(Str:D \SELF, Blob $string) is export {
raydiak/Git-PurePerl:19: my $sha1 = substr( $content, 0, 20 ).encode('latin-1').unpack( 'H*' );
raydiak/Git-PurePerl:102: my $c = $data.subbuf( $i, 1 ).unpack( 'C' );
raydiak/Git-PurePerl:106: $c = substr( $data, ++$i, 1 ).unpack( 'C' );
raydiak/Git-PurePerl:138: $c = $c.unpack( 'C' );
raydiak/Git-PurePerl:144: $cp_off = $delta.subbuf($pos++, 1).unpack( 'C' )
raydiak/Git-PurePerl:146: $cp_off +|= $delta.subbuf($pos++, 1).unpack( 'C' ) +< 8
raydiak/Git-PurePerl:148: $cp_off +|= $delta.subbuf($pos++, 1).unpack( 'C' ) +< 16
raydiak/Git-PurePerl:150: $cp_off +|= $delta.subbuf($pos++, 1).unpack( 'C' ) +< 24
raydiak/Git-PurePerl:152: $cp_size = $delta.subbuf($pos++, 1).unpack( 'C' )
raydiak/Git-PurePerl:154: $cp_size +|= $delta.subbuf($pos++, 1).unpack( 'C' ) +< 8
raydiak/Git-PurePerl:156: $cp_size +|= $delta.subbuf($pos++, 1).unpack( 'C' ) +< 16
raydiak/Git-PurePerl:184: $c = $c.unpack( 'C' );
raydiak/Git-PurePerl:19: $version = $version.unpack('N');
raydiak/Git-PurePerl:19: my $slot = pack( 'H*', $sha1 ).unpack( 'C' );
raydiak/Git-PurePerl:23: $index_fh.write: pack( 'N', @fan_out_table[$i] || 0 );
raydiak/Git-PurePerl:28: $index_fh.write: pack( 'N', $offset );
raydiak/Git-PurePerl:29: $index_fh.write: pack( 'H*', $sha1 );
raydiak/Git-PurePerl:49: $version = $version.unpack( 'N' );
raydiak/Git-PurePerl:51: $objects = $objects.unpack( 'N' );
raydiak/Git-PurePerl:60: $c = $c.unpack( 'C' );
raydiak/Git-PurePerl:73: $c = $c.unpack( 'C' );
raydiak/Git-PurePerl:29: my $offset = $data.unpack( 'N' );
raydiak/Git-PurePerl:26: my $offset = $data.unpack( 'N' );
raydiak/Git-PurePerl:28: my $sha1 = $data.unpack( 'H*' );
raydiak/Git-PurePerl:39: my $slot = pack( 'H*', $want_sha1 ).unpack( 'C' );
raydiak/Git-PurePerl:48: my $midsha1 = $data.unpack( 'H*');
raydiak/Git-PurePerl:57: my $offset = $data.unpack('N');
raydiak/Git-PurePerl:27: @data[$i] = [ $sha1.unpack('H*'), 0, 0 ];
raydiak/Git-PurePerl:33: @data[$i][1] = $crc.unpack( 'H*');
raydiak/Git-PurePerl:39: @data[$i][2] = $offset.unpack('N');
raydiak/Git-PurePerl:54: my $slot = $want_sha1.pack( 'H*' ).unpack( 'C' );
raydiak/Git-PurePerl:64: my $midsha1 = $data.unpack('H*');
raydiak/Git-PurePerl:77: my $offset = $data.unpack('N');
raydiak/Git-PurePerl:25: . pack( 'H*', $de->sha1 );
retupmoca/P6-JSON-JWT:9: my %pack = self._unpack($jwt);
retupmoca/P6-JSON-JWT:20: my %pack = self._unpack($jwt);
retupmoca/P6-JSON-JWT:35: my %pack = self._unpack($jwt);
retupmoca/P6-JSON-JWT:51: my %pack = self._unpack($jwt);
retupmoca/P6-JSON-JWT:55: method _unpack(Str:D $jwt) {
retupmoca/P6-JSON-JWT:87: return self._pack(%pack);
retupmoca/P6-JSON-JWT:96: my $sigstring = self._pack(%pack, :signing);
retupmoca/P6-JSON-JWT:99: return self._pack(%pack);
retupmoca/P6-JSON-JWT:108: my $sigstring = self._pack(%pack, :signing);
retupmoca/P6-JSON-JWT:112: return self._pack(%pack);
retupmoca/P6-JSON-JWT:115: method _pack(%pack, :$signing) {
retupmoca/P6-Net-AMQP:18: my ($type, $channel, $size) = $header.unpack('CnN');
retupmoca/P6-Net-AMQP:36: return pack('CnN', ($!type, $!channel, self.size)) ~ $!payload ~ Buf.new(0xCE);
retupmoca/P6-Net-AMQP:40: my ($type, $channel, $size) = $data.unpack('CnN');
retupmoca/P6-Net-AMQP:32: $buf = pack('C', $value);
retupmoca/P6-Net-AMQP:38: $buf = pack('n', $value);
retupmoca/P6-Net-AMQP:44: $buf = pack('N', $value);
retupmoca/P6-Net-AMQP:50: $buf = pack('N', $value +> 32);
retupmoca/P6-Net-AMQP:51: $buf ~= pack('N', $value +& 0xFFFF);
retupmoca/P6-Net-AMQP:66: $buf = pack('C', $value.chars);
retupmoca/P6-Net-AMQP:73: $buf = pack('N', $value.chars);
retupmoca/P6-Net-AMQP:77: $buf = pack('N', $value +> 32);
retupmoca/P6-Net-AMQP:78: $buf ~= pack('N', $value +& 0xFFFF);
retupmoca/P6-Net-AMQP:108: $buf = pack('N', $buf.bytes) ~ $buf;
retupmoca/P6-Net-AMQP:118: return ?$data.unpack('C'), 1;
retupmoca/P6-Net-AMQP:121: return (($data.unpack('C') +> $bitcount) +& 1, 1);
retupmoca/P6-Net-AMQP:127: return ($data.unpack('C'), 1);
retupmoca/P6-Net-AMQP:133: return ($data.unpack('n'), 2);
retupmoca/P6-Net-AMQP:139: return ($data.unpack('N'), 4);
retupmoca/P6-Net-AMQP:145: return (($data.unpack('N') +< 32) +| $data.subbuf(4).unpack('N'), 8);
retupmoca/P6-Net-AMQP:157: my $len = $data.unpack('C');
retupmoca/P6-Net-AMQP:161: my $len = $data.unpack('N');
retupmoca/P6-Net-AMQP:165: return (($data.unpack('N') +< 32) +| $data.subbuf(4).unpack('N'), 8);
retupmoca/P6-Net-AMQP:172: my $len = $data.unpack('N');
retupmoca/P6-Net-AMQP:175: my $namelen = $tablebuf.unpack('C');
retupmoca/P6-Net-AMQP:26: my $class-id = $data.unpack('n');
retupmoca/P6-Net-AMQP:27: my $weight = $data.subbuf(2).unpack('n');
retupmoca/P6-Net-AMQP:28: my $body-size = ($data.subbuf(4).unpack('N') +< 32) +| $data.subbuf(8).unpack('N');
retupmoca/P6-Net-AMQP:30: my $flags = $data.subbuf(12).unpack('n');
retupmoca/P6-Net-AMQP:125: $buf ~= pack('n', $.class-id);
retupmoca/P6-Net-AMQP:126: $buf ~= pack('n', $.weight);
retupmoca/P6-Net-AMQP:127: $buf ~= pack('N', $.body-size +> 32);
retupmoca/P6-Net-AMQP:128: $buf ~= pack('N', $.body-size +& 0xFFFF);
retupmoca/P6-Net-AMQP:197: $buf ~= pack('n', $flags);
retupmoca/P6-Net-AMQP:113: return pack('nn', ($.class-id, $.method-id)) ~ $args;
retupmoca/P6-Net-AMQP:117: my ($class-id, $method-id) = $data.unpack('nn');
retupmoca/P6-Net-DNS:43: $client.write(pack('n', $outgoing.elems) ~ $outgoing);
retupmoca/P6-Net-DNS:45: $inc-size = $inc-size.unpack('n');
retupmoca/P6-Net-DNS:59: $inc-size = $inc-size.unpack('n');
retupmoca/P6-Net-DNS:8: my $len = $data.unpack('C');
retupmoca/P6-Net-DNS:23: $len = $data.unpack('C');
retupmoca/P6-Net-DNS:22: my ($id, $flags, $qdcount, $ancount, $nscount, $arcount) = $data.unpack('nnnnnn');
retupmoca/P6-Net-DNS:49: return pack('nnnnnn', @data);
retupmoca/P6-Net-DNS:20: my ($qtype, $qclass) = $data.unpack('nn');
retupmoca/P6-Net-DNS:33: my $len = pack('C', $_.chars);
retupmoca/P6-Net-DNS:37: return Buf.new($out.list, pack('Cnn', (0, $.qtype, $.qclass)).list);
retupmoca/P6-Net-DNS:35: my ($type, $class, $ttl, $rdlength) = $data.unpack('nnNn');
retupmoca/P6-Net-DNS:90: my $len = pack('C', $_.chars);
retupmoca/P6-Net-DNS:94: return $out ~ pack('CnnNn', (0, $.type, $.class, $.ttl, $.rdata.elems)) ~ $.rdata;
retupmoca/P6-Net-DNS:17: my $priority = $.rdata.unpack('n');
retupmoca/P6-Net-DNS:40: my ($serial, $refresh, $retry, $expire, $minimum) = $data.unpack('NNNNN');
retupmoca/P6-Net-DNS:19: my ($priority, $weight, $port) = $.rdata.unpack('nnn');
retupmoca/P6-Net-SOCKS:43: ) ~ $request-data ~ pack('n', $port);
salortiz/p6-LMDB:94: ok $Txn.put($dbi, 'vKey', pack('A5 L H*', @items)), 'With a buf';
salortiz/p6-LMDB:98: is $buf.unpack('A5 L H*'), @items, 'Round-tripped';
samgwise/Net-OSC:155: take pack(%pack-map{$type}, $arg);
sergot/http-useragent:159: $content.unpack("A*")
skinkade/p6-crypt-argon2:20: #pragma pack(push, 1)
skinkade/p6-crypt-argon2:34: #pragma pack(pop)
soundart/perl6-tweetnacl:629: sv pack(u8 *r,gf p[4])
soundart/perl6-tweetnacl:678: pack(pk,p);
soundart/perl6-tweetnacl:738: pack(sm,p);
soundart/perl6-tweetnacl:807: pack(t,p);
supernovus/perl6-fastcgi:42: the pack() and unpack() methods with at least 'C', 'n', 'N', and 'x' format
supernovus/perl6-fastcgi:64: 2 A patch exists for 'x' in pack(): https://gist.github.com/3812996
supernovus/perl6-fastcgi:22: return pack(
supernovus/perl6-fastcgi:31: $octets[0] == FCGI_VERSION_1 || throw ERRMSG_VERSION, $octets.unpack('C');
supernovus/perl6-fastcgi:32: my @vals = $octets.unpack(FCGI_Header_U);
supernovus/perl6-fastcgi:43: return pack(FCGI_BeginRequestBody, $role, $flags);
supernovus/perl6-fastcgi:49: return $octets.unpack(FCGI_BeginRequestBody);
supernovus/perl6-fastcgi:54: return pack(FCGI_EndRequestBody, $app-status, $protocol-status);
supernovus/perl6-fastcgi:60: return $octets.unpack(FCGI_EndRequestBody);
supernovus/perl6-fastcgi:65: return pack(FCGI_UnknownTypeBody, $type);
supernovus/perl6-fastcgi:71: return $octets.unpack(FCGI_UnknownTypeBody);
supernovus/perl6-fastcgi:244: $res ~= $len < 0x80 ?? pack('C', $len) !! pack('N', $len +| 0x8000_0000);
supernovus/perl6-fastcgi:269: $len = $octets.subbuf($offset++, 1).unpack('C');
supernovus/perl6-fastcgi:276: $len = (pack('C', $len +& 0x7F) ~ $octets.subbuf($offset, 3)).unpack('N');
supernovus/perl6-fastcgi:312: $len = $octets.subbuf($offset - 1).unpack('C');
supernovus/perl6-fastcgi:316: $len = $octets.subbuf($offset - 4, 4).unpack('N') +& 0x7FFF_FFFF;
supernovus/perl6-fastcgi:402: my ($content-length, $padding-length) = $octets.unpack(FCGI_GetRecordLength);
sylvarant/Avro:103: self.bless( blob => pack("") );
sylvarant/Avro:42: $byte = $stream.read(1).unpack("C");
sylvarant/Avro:97: push(@arr,$stream.read(1).unpack("C").chr);
sylvarant/Avro:103: #my $r = $stream.read(1).unpack("C");
sylvarant/Avro:119: push(@arr,$stream.read(1).unpack("C").chr);
sylvarant/Avro:125: my $r = $stream.read(1).unpack("C");
sylvarant/Avro:146: push(@arr,$stream.read(1).unpack("C"));
sylvarant/Avro:154: push(@arr,$stream.read(1).unpack("C"));
sylvarant/Avro:50: pack(template(@var_int.elems()),@var_int);
sylvarant/Avro:122: pack(template($schema.size),$str.ords())
sylvarant/Avro:126: # (pack("C",0)); --> misinterpretation
sylvarant/Avro:139: $stream.append( pack(template($str.codes()),$str.ords()) );
sylvarant/Avro:144: my $buf = (pack("C",$bool));
sylvarant/Avro:158: (pack(template(4),@arr))
sylvarant/Avro:163: (pack(template(8),@arr))
titsuki/p6-MeCab:169: for $feature.encode('UTF-8').unpack("C*") {
tokuhirom/p6-Protocol-WebSocket:27: my Buf $s = pack('C', ((($!fin ?? 1 !! 0) +< 7) +| $.opcode));
uasi/messagepack-pm6:7: our sub unpack(Blob $data) {
uasi/messagepack-pm6:8: MessagePack::Unpacker.unpack($data);
uasi/messagepack-pm6:11: our sub from-msgpack(Blob $data) is export {
uasi/messagepack-pm6:12: MessagePack::Unpacker.unpack($data);
uasi/messagepack-pm6:39: method unpack($str) {
uasi/messagepack-pm6:44: method !unpack() {
uasi/messagepack-pm6:78: my $v = $!str.unpack('C');
uasi/messagepack-pm6:84: my $v = $!str.unpack('n');
uasi/messagepack-pm6:90: my $v = $!str.unpack('N');
uasi/messagepack-pm6:10: is .unpack(buf8.new(0x00)), 0x00, q[positive fixnum];
uasi/messagepack-pm6:11: is .unpack(buf8.new(0x7f)), 0x7f, q[positive fixnum];
uasi/messagepack-pm6:13: is .unpack(buf8.new(0xff)), -0x01, q[negative fixnum];
uasi/messagepack-pm6:14: is .unpack(buf8.new(0xe0)), -0x20, q[negative fixnum];
uasi/messagepack-pm6:16: is .unpack(buf8.new(0xcc, 0x00)), 0x00, q[uint8];
uasi/messagepack-pm6:17: is .unpack(buf8.new(0xcc, 0xff)), 0xff, q[uint8];
uasi/messagepack-pm6:19: is .unpack(buf8.new(0xcd, 0x00, 0x00)), 0x0000, q[uint16];
uasi/messagepack-pm6:20: is .unpack(buf8.new(0xcd, 0x00, 0x01)), 0x0001, q[uint16];
uasi/messagepack-pm6:21: is .unpack(buf8.new(0xcd, 0xff, 0xff)), 0xffff, q[uint16];
uasi/messagepack-pm6:23: is .unpack(buf8.new(0xce, 0x00, 0x00, 0x00, 0x00)), 0x0000_0000, q[uint32];
uasi/messagepack-pm6:24: is .unpack(buf8.new(0xce, 0x00, 0x00, 0x00, 0x01)), 0x0000_0001, q[uint32];
uasi/messagepack-pm6:25: is .unpack(buf8.new(0xce, 0xff, 0xff, 0xff, 0xff)), 0xffff_ffff, q[uint32];
uasi/messagepack-pm6:27: is .unpack(buf8.new((0xcf, 0x00 xx 8 ).flat)), 0x0000_0000_0000_0000, q[uint64];
uasi/messagepack-pm6:28: is .unpack(buf8.new((0xcf, 0x00 xx 7, 0x01).flat)), 0x0000_0000_0000_0001, q[uint64];
uasi/messagepack-pm6:29: is .unpack(buf8.new((0xcf, 0xff xx 8 ).flat)), 0xffff_ffff_ffff_ffff, q[uint64];
uasi/messagepack-pm6:31: is .unpack(buf8.new(0xd0, 0x00)), 0x00, q[int8];
uasi/messagepack-pm6:32: is .unpack(buf8.new(0xd0, 0x7f)), 0x7f, q[int8];
uasi/messagepack-pm6:33: is .unpack(buf8.new(0xd0, 0xff)), -0x01, q[int8];
uasi/messagepack-pm6:34: is .unpack(buf8.new(0xd0, 0x80)), -0x80, q[int8];
uasi/messagepack-pm6:36: is .unpack(buf8.new(0xd1, 0x00, 0x00)), 0x0000, q[int16];
uasi/messagepack-pm6:37: is .unpack(buf8.new(0xd1, 0x7f, 0xff)), 0x7fff, q[int16];
uasi/messagepack-pm6:38: is .unpack(buf8.new(0xd1, 0xff, 0xff)), -0x0001, q[int16];
uasi/messagepack-pm6:39: is .unpack(buf8.new(0xd1, 0x80, 0x00)), -0x8000, q[int16];
uasi/messagepack-pm6:41: is .unpack(buf8.new(0xd2, 0x00, 0x00, 0x00, 0x00)), 0x0000_0000, q[int32];
uasi/messagepack-pm6:42: is .unpack(buf8.new(0xd2, 0x7f, 0xff, 0xff, 0xff)), 0x7fff_ffff, q[int32];
uasi/messagepack-pm6:43: is .unpack(buf8.new(0xd2, 0xff, 0xff, 0xff, 0xff)), -0x0000_0001, q[int32];
uasi/messagepack-pm6:44: is .unpack(buf8.new(0xd2, 0x80, 0x00, 0x00, 0x00)), -0x8000_0000, q[int32];
uasi/messagepack-pm6:46: is .unpack(buf8.new((0xd3, 0x00 xx 8).flat)), 0x0000_0000_0000_0000, q[int64];
uasi/messagepack-pm6:47: is .unpack(buf8.new((0xd3, 0x7f, 0xff xx 7).flat)), 0x7fff_ffff_ffff_ffff, q[int64];
uasi/messagepack-pm6:48: is .unpack(buf8.new((0xd3, 0xff xx 8).flat)), -0x0000_0000_0000_0001, q[int64];
uasi/messagepack-pm6:49: is .unpack(buf8.new((0xd3, 0x80, 0x00 xx 7).flat)), -0x8000_0000_0000_0000, q[int64];
uasi/messagepack-pm6:51: is .unpack(buf8.new(0xc0)), Any, q[nil];
uasi/messagepack-pm6:52: is .unpack(buf8.new(0xc2)), False, q[false];
uasi/messagepack-pm6:53: is .unpack(buf8.new(0xc3)), True, q[true];
uasi/messagepack-pm6:55: is .unpack(buf8.new(0xca, 0x00, 0x00, 0x00, 0x00)), 0.0, q[float];
uasi/messagepack-pm6:56: is .unpack(buf8.new(0xca, 0x3f, 0x00, 0x00, 0x00)), 0.5, q[float];
uasi/messagepack-pm6:57: is .unpack(buf8.new(0xca, 0xbf, 0x00, 0x00, 0x00)), -0.5, q[float];
uasi/messagepack-pm6:59: is .unpack(buf8.new(0xcb, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00)), 0.0, q[double];
uasi/messagepack-pm6:60: is .unpack(buf8.new(0xcb, 0x3f, 0xe0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00)), 0.5, q[double];
uasi/messagepack-pm6:61: is .unpack(buf8.new(0xcb, 0xbf, 0xe0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00)), -0.5, q[double];
uasi/messagepack-pm6:63: is .unpack(buf8.new(0xa0 )), "", q[fixraw];
uasi/messagepack-pm6:64: is .unpack(buf8.new((0xa3, "ABC".encode.list).flat)), "ABC", q[fixfaw];
uasi/messagepack-pm6:65: is .unpack(buf8.new((0xbf, ("A" x 31).encode.list).flat)), "A" x 31, q[fixraw];
uasi/messagepack-pm6:67: is .unpack(buf8.new(0xda, 0x00, 0x00 )), "", q[raw16];
uasi/messagepack-pm6:68: is .unpack(buf8.new((0xda, 0x00, 0x03, "ABC".encode.list).flat)), "ABC", q[raw16];
uasi/messagepack-pm6:69: is .unpack(buf8.new((0xda, 0xff, 0xff, ("A" x 0xffff).encode.list).flat)), "A" x 0xffff, q[raw16];
uasi/messagepack-pm6:71: is .unpack(buf8.new(0xdb, 0x00, 0x00, 0x00, 0x00 )), "", q[raw32];
uasi/messagepack-pm6:72: is .unpack(buf8.new((0xdb, 0x00, 0x00, 0x00, 0x03, "ABC".encode.list).flat)), "ABC", q[raw32];
uasi/messagepack-pm6:73: is .unpack(buf8.new((0xdb, 0x00, 0x01, 0x00, 0x00, ("A" x 0x1_0000).encode.list).flat)), "A" x 0x1_0000, q[raw32];
uasi/messagepack-pm6:75: is .unpack(buf8.new(0x90 )), [], q[fixarray];
uasi/messagepack-pm6:76: is .unpack(buf8.new(0x93, 0x00, 0x01, 0x02)), [0, 1, 2], q[fixarray];
uasi/messagepack-pm6:78: is .unpack(buf8.new(0xdc, 0x00, 0x00 )), [], q[array16];
uasi/messagepack-pm6:79: is .unpack(buf8.new(0xdc, 0x00, 0x03, 0x00, 0x01, 0x02)), [0, 1, 2], q[array16];
uasi/messagepack-pm6:81: is .unpack(buf8.new(0xdd, 0x00, 0x00, 0x00, 0x00 )), [], q[array32];
uasi/messagepack-pm6:82: is .unpack(buf8.new(0xdd, 0x00, 0x00, 0x00, 0x03, 0x00, 0x01, 0x02)), [0, 1, 2], q[array32];
uasi/messagepack-pm6:84: is .unpack(buf8.new(0x80 )), {}, q[fixmap];
uasi/messagepack-pm6:85: is .unpack(buf8.new(0x82, 0x00, 0x01, 0x02, 0x03)), {0 => 1, 2 => 3}, q[fixmap];
uasi/messagepack-pm6:87: is .unpack(buf8.new(0xde, 0x00, 0x00 )), {}, q[map16];
uasi/messagepack-pm6:88: is .unpack(buf8.new(0xde, 0x00, 0x02, 0x00, 0x01, 0x02, 0x03)), {0 => 1, 2 => 3}, q[map16];
uasi/messagepack-pm6:90: is .unpack(buf8.new(0xdf, 0x00, 0x00, 0x00, 0x00 )), {}, q[map32];
uasi/messagepack-pm6:91: is .unpack(buf8.new(0xdf, 0x00, 0x00, 0x00, 0x02, 0x00, 0x01, 0x02, 0x03)), {0 => 1, 2 => 3}, q[map32];
ugexe/Perl6-Net--HTTP:11: my sub body2str($_) { $_ ~~ Blob ?? $_.unpack("A*") !! $_ }
yowcow/p6-Digest-MurmurHash3:37: Calculates 32-bit hash, and returns as Buf. A hex string can be obtained with `.unpack("H4")`.
yowcow/p6-Digest-MurmurHash3:47: Calculates 128-bit hash, and returns as Buf. A hex string can be obtained with `.unpack("H16")`.
yowcow/p6-Digest-MurmurHash3:93: A hex string can be obtained with `.unpack("H4")`.
yowcow/p6-Digest-MurmurHash3:102: A hex string can be obtained with `.unpack("H16")`.
yowcow/p6-Digest-MurmurHash3:27: is $result.unpack('H4'), '633ea11b';
yowcow/p6-Digest-MurmurHash3:47: is $result.unpack('H16'), '80852a5af05357d2931b9ad8434fb91c';
zengargoyle/Text-Fortune:130: $!version = $dat.read(4).unpack('N');
zengargoyle/Text-Fortune:131: $!count = $dat.read(4).unpack('N');
zengargoyle/Text-Fortune:132: $!longest = $dat.read(4).unpack('N');
zengargoyle/Text-Fortune:133: $!shortest = $dat.read(4).unpack('N');
zengargoyle/Text-Fortune:135: $.flags-from-int( $dat.read(4).unpack('N') );
zengargoyle/Text-Fortune:137: $!delimiter = $dat.read(1).unpack('C').chr;
zengargoyle/Text-Fortune:141: @!offset.push: $dat.read(4).unpack('N');
zengargoyle/Text-Fortune:153: $b = pack('N', $!version);
zengargoyle/Text-Fortune:154: $b ~= pack('N', $!count);
zengargoyle/Text-Fortune:155: $b ~= pack('N', $!longest);
zengargoyle/Text-Fortune:156: $b ~= pack('N', $!shortest);
zengargoyle/Text-Fortune:158: $b ~= pack('N', $.flags-to-int);
zengargoyle/Text-Fortune:159: $b ~= pack('CCCC', $!delimiter.ord, 0, 0, 0);
zengargoyle/Text-Fortune:162: $b ~= pack('N', 0);
zengargoyle/Text-Fortune:166: $b ~= pack('N', $o);
Created
May 29, 2017 17:56
-
-
Save Whateverable/0450cd99cf5bb95d70234687d457c0b7 to your computer and use it in GitHub Desktop.
greppable6
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| pack\( |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment