static function WriteStringDataDict(&$binstr_writebuf, &$seek, $isPubDict, $pid) { $bytelen = 1; $c = $pid; while ($c >= 0x100) { $c = floor($c / 0x100); $bytelen++; } $tag = JsonPack::MakeStringTag(true, $isPubDict, $bytelen); $binstr_writebuf .= pack("C", $tag); $seek++; JsonPack::WriteIntPiece($binstr_writebuf, $seek, $bytelen, $pid); }