/* determines the size of the given AMF data */
size_t amf_data_size(const amf_data * data) {
size_t s = 0;
amf_node * node;
if (data != NULL) {
s += sizeof(byte);
switch (data->type) {
case AMF_TYPE_NUMBER:
s += sizeof(number64_be);
break;
case AMF_TYPE_BOOLEAN:
s += sizeof(uint8);
break;
case AMF_TYPE_STRING:
s += sizeof(uint16) + (size_t)amf_string_get_size(data);
break;
case AMF_TYPE_OBJECT:
node = amf_object_first(data);
while (node != NULL) {
s += sizeof(uint16) + (size_t)amf_string_get_size(amf_object_get_name(node));
s += (size_t)amf_data_size(amf_object_get_data(node));
node = amf_object_next(node);
}
s += sizeof(uint16) + sizeof(uint8);
break;
case AMF_TYPE_NULL:
case AMF_TYPE_UNDEFINED:
break;
/*case AMF_TYPE_REFERENCE:*/
case AMF_TYPE_ASSOCIATIVE_ARRAY:
s += sizeof(uint32);
node = amf_associative_array_first(data);
while (node != NULL) {
s += sizeof(uint16) + (size_t)amf_string_get_size(amf_associative_array_get_name(node));
s += (size_t)amf_data_size(amf_associative_array_get_data(node));
node = amf_associative_array_next(node);
}
s += sizeof(uint16) + sizeof(uint8);
break;
case AMF_TYPE_ARRAY:
s += sizeof(uint32);
node = amf_array_first(data);
while (node != NULL) {
s += (size_t)amf_data_size(amf_array_get(node));
node = amf_array_next(node);
}
break;
case AMF_TYPE_DATE:
s += sizeof(number64) + sizeof(sint16);
break;
/*case AMF_TYPE_SIMPLEOBJECT:*/
case AMF_TYPE_XML:
case AMF_TYPE_CLASS:
case AMF_TYPE_END:
break; /* end of composite object */
default:
break;
}
}
return s;
}
/*
Write the flv output file
*/
static int write_flv(flv_stream * flv_in, FILE * flv_out, const flv_info * info, const flv_metadata * meta, const flvmeta_opts * opts) {
uint32_be size;
uint32 on_metadata_name_size;
uint32 on_metadata_size;
uint32 prev_timestamp_video;
uint32 prev_timestamp_audio;
uint32 prev_timestamp_meta;
uint8 timestamp_extended_video;
uint8 timestamp_extended_audio;
uint8 timestamp_extended_meta;
byte * copy_buffer;
flv_tag ft, omft;
int have_on_last_second;
if (opts->verbose) {
fprintf(stdout, "Writing %s...\n", opts->output_file);
}
/* write the flv header */
if (flv_write_header(flv_out, &info->header) != 1) {
return ERROR_WRITE;
}
/* first "previous tag size" */
size = swap_uint32(0);
if (fwrite(&size, sizeof(uint32_be), 1, flv_out) != 1) {
return ERROR_WRITE;
}
/* create the onMetaData tag */
on_metadata_name_size = (uint32)amf_data_size(meta->on_metadata_name);
on_metadata_size = (uint32)amf_data_size(meta->on_metadata);
omft.type = FLV_TAG_TYPE_META;
omft.body_length = uint32_to_uint24_be(on_metadata_name_size + on_metadata_size);
flv_tag_set_timestamp(&omft, 0);
omft.stream_id = uint32_to_uint24_be(0);
/* write the computed onMetaData tag first if it doesn't exist in the input file */
if (info->on_metadata_size == 0) {
if (flv_write_tag(flv_out, &omft) != 1
|| amf_data_file_write(meta->on_metadata_name, flv_out) < on_metadata_name_size
|| amf_data_file_write(meta->on_metadata, flv_out) < on_metadata_size) {
return ERROR_WRITE;
}
/* previous tag size */
size = swap_uint32(FLV_TAG_SIZE + on_metadata_name_size + on_metadata_size);
if (fwrite(&size, sizeof(uint32_be), 1, flv_out) != 1) {
return ERROR_WRITE;
}
}
/* extended timestamp initialization */
prev_timestamp_video = 0;
prev_timestamp_audio = 0;
prev_timestamp_meta = 0;
timestamp_extended_video = 0;
timestamp_extended_audio = 0;
timestamp_extended_meta = 0;
/* copy the tags verbatim */
flv_reset(flv_in);
copy_buffer = (byte *)malloc(info->biggest_tag_body_size + FLV_TAG_SIZE);
have_on_last_second = 0;
while (flv_read_tag(flv_in, &ft) == FLV_OK) {
file_offset_t offset;
uint32 body_length;
uint32 timestamp;
offset = flv_get_current_tag_offset(flv_in);
body_length = flv_tag_get_body_length(ft);
timestamp = flv_tag_get_timestamp(ft);
/* extended timestamp fixing */
if (ft.type == FLV_TAG_TYPE_META) {
if (timestamp < prev_timestamp_meta
&& prev_timestamp_meta - timestamp > 0xF00000) {
++timestamp_extended_meta;
}
prev_timestamp_meta = timestamp;
if (timestamp_extended_meta > 0) {
timestamp += timestamp_extended_meta << 24;
}
}
else if (ft.type == FLV_TAG_TYPE_AUDIO) {
if (timestamp < prev_timestamp_audio
&& prev_timestamp_audio - timestamp > 0xF00000) {
++timestamp_extended_audio;
}
prev_timestamp_audio = timestamp;
if (timestamp_extended_audio > 0) {
timestamp += timestamp_extended_audio << 24;
}
}
else if (ft.type == FLV_TAG_TYPE_VIDEO) {
if (timestamp < prev_timestamp_video
&& prev_timestamp_video - timestamp > 0xF00000) {
++timestamp_extended_video;
}
prev_timestamp_video = timestamp;
if (timestamp_extended_video > 0) {
timestamp += timestamp_extended_video << 24;
}
}
/* non-zero starting timestamp handling */
if (opts->reset_timestamps && timestamp > 0) {
timestamp -= info->first_timestamp;
}
flv_tag_set_timestamp(&ft, timestamp);
/* if we're at the offset of the first onMetaData tag in the input file,
we write the one we computed instead, discarding the old one */
if (info->on_metadata_offset == offset) {
if (flv_write_tag(flv_out, &omft) != 1
|| amf_data_file_write(meta->on_metadata_name, flv_out) < on_metadata_name_size
|| amf_data_file_write(meta->on_metadata, flv_out) < on_metadata_size) {
free(copy_buffer);
return ERROR_WRITE;
}
/* previous tag size */
size = swap_uint32(FLV_TAG_SIZE + on_metadata_name_size + on_metadata_size);
if (fwrite(&size, sizeof(uint32_be), 1, flv_out) != 1) {
free(copy_buffer);
return ERROR_WRITE;
}
}
else {
size_t read_body;
/* insert an onLastSecond metadata tag */
if (opts->insert_onlastsecond && !have_on_last_second && !info->have_on_last_second && (info->last_timestamp - timestamp) <= 1000) {
flv_tag tag;
uint32 on_last_second_name_size = (uint32)amf_data_size(meta->on_last_second_name);
uint32 on_last_second_size = (uint32)amf_data_size(meta->on_last_second);
tag.type = FLV_TAG_TYPE_META;
tag.body_length = uint32_to_uint24_be(on_last_second_name_size + on_last_second_size);
tag.timestamp = ft.timestamp;
tag.timestamp_extended = ft.timestamp_extended;
tag.stream_id = uint32_to_uint24_be(0);
if (flv_write_tag(flv_out, &tag) != 1
|| amf_data_file_write(meta->on_last_second_name, flv_out) < on_last_second_name_size
|| amf_data_file_write(meta->on_last_second, flv_out) < on_last_second_size) {
free(copy_buffer);
return ERROR_WRITE;
}
/* previous tag size */
size = swap_uint32(FLV_TAG_SIZE + on_last_second_name_size + on_last_second_size);
if (fwrite(&size, sizeof(uint32_be), 1, flv_out) != 1) {
free(copy_buffer);
return ERROR_WRITE;
}
have_on_last_second = 1;
}
/* if the tag is bigger than expected, it means that
it's an unknown tag type. In this case, we only
copy as much data as the copy buffer can contain */
if (body_length > info->biggest_tag_body_size) {
body_length = info->biggest_tag_body_size;
}
/* copy the tag verbatim */
read_body = flv_read_tag_body(flv_in, copy_buffer, body_length);
if (read_body < body_length) {
/* we have reached end of file on an incomplete tag */
if (opts->error_handling == FLVMETA_EXIT_ON_ERROR) {
free(copy_buffer);
return ERROR_EOF;
}
else if (opts->error_handling == FLVMETA_FIX_ERRORS) {
/* the tag is bogus, just omit it,
even though it will make the whole file length
calculation wrong, and the metadata inaccurate */
/* TODO : fix it by handling that problem in the first pass */
free(copy_buffer);
return OK;
}
else if (opts->error_handling == FLVMETA_IGNORE_ERRORS) {
/* just copy the whole tag and exit */
flv_write_tag(flv_out, &ft);
fwrite(copy_buffer, 1, read_body, flv_out);
free(copy_buffer);
size = swap_uint32(FLV_TAG_SIZE + read_body);
fwrite(&size, sizeof(uint32_be), 1, flv_out);
return OK;
}
}
if (flv_write_tag(flv_out, &ft) != 1
|| fwrite(copy_buffer, 1, body_length, flv_out) < body_length) {
free(copy_buffer);
return ERROR_WRITE;
}
/* previous tag length */
size = swap_uint32(FLV_TAG_SIZE + body_length);
if (fwrite(&size, sizeof(uint32_be), 1, flv_out) != 1) {
free(copy_buffer);
return ERROR_WRITE;
}
}
}
if (opts->verbose) {
fprintf(stdout, "%s successfully written\n", opts->output_file);
}
free(copy_buffer);
return OK;
}
