static function WriteObjectCountHead(&$binstr_writebuf, &$seek, $arraycount) { $bytelen = 1; $c = $arraycount; while ($c >= 0x100) { $c /= 0x100; $bytelen++; } $tag = JsonPack::MakeObjectTag($arraycount, $bytelen); $binstr_writebuf .= pack("C", $tag); $seek++; if ($arraycount >= 32) { JsonPack::WriteIntPiece($binstr_writebuf, $seek, $bytelen, $arraycount); } }