360 lines
12 KiB
C
Executable File
360 lines
12 KiB
C
Executable File
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <inttypes.h>
|
|
#include <string.h>
|
|
#include <sys/stat.h>
|
|
#include <fcntl.h>
|
|
#include <unistd.h>
|
|
#include <malloc.h>
|
|
|
|
|
|
#ifdef __MINGW32__
|
|
#define fseeko(x,y,z) fseeko64(x,y,z)
|
|
#define ftello(x) ftello64(x)
|
|
#endif
|
|
|
|
#define BE_16(x) ((((uint8_t*)(x))[0] << 8) | ((uint8_t*)(x))[1])
|
|
#define BE_32(x) ((((uint8_t*)(x))[0] << 24) | \
|
|
(((uint8_t*)(x))[1] << 16) | \
|
|
(((uint8_t*)(x))[2] << 8) | \
|
|
((uint8_t*)(x))[3])
|
|
#define BE_64(x) (((uint64_t)(((uint8_t*)(x))[0]) << 56) | \
|
|
((uint64_t)(((uint8_t*)(x))[1]) << 48) | \
|
|
((uint64_t)(((uint8_t*)(x))[2]) << 40) | \
|
|
((uint64_t)(((uint8_t*)(x))[3]) << 32) | \
|
|
((uint64_t)(((uint8_t*)(x))[4]) << 24) | \
|
|
((uint64_t)(((uint8_t*)(x))[5]) << 16) | \
|
|
((uint64_t)(((uint8_t*)(x))[6]) << 8) | \
|
|
((uint64_t)((uint8_t*)(x))[7]))
|
|
|
|
#define BE_FOURCC( ch0, ch1, ch2, ch3 ) \
|
|
( (uint32_t)(unsigned char)(ch3) | \
|
|
( (uint32_t)(unsigned char)(ch2) << 8 ) | \
|
|
( (uint32_t)(unsigned char)(ch1) << 16 ) | \
|
|
( (uint32_t)(unsigned char)(ch0) << 24 ) )
|
|
|
|
#define QT_ATOM BE_FOURCC
|
|
/* top level atoms */
|
|
#define FREE_ATOM QT_ATOM('f', 'r', 'e', 'e')
|
|
#define JUNK_ATOM QT_ATOM('j', 'u', 'n', 'k')
|
|
#define MDAT_ATOM QT_ATOM('m', 'd', 'a', 't')
|
|
#define MOOV_ATOM QT_ATOM('m', 'o', 'o', 'v')
|
|
#define PNOT_ATOM QT_ATOM('p', 'n', 'o', 't')
|
|
#define SKIP_ATOM QT_ATOM('s', 'k', 'i', 'p')
|
|
#define WIDE_ATOM QT_ATOM('w', 'i', 'd', 'e')
|
|
#define PICT_ATOM QT_ATOM('P', 'I', 'C', 'T')
|
|
#define FTYP_ATOM QT_ATOM('f', 't', 'y', 'p')
|
|
#define UUID_ATOM QT_ATOM('u', 'u', 'i', 'd')
|
|
|
|
#define CMOV_ATOM QT_ATOM('c', 'm', 'o', 'v')
|
|
#define STCO_ATOM QT_ATOM('s', 't', 'c', 'o')
|
|
#define CO64_ATOM QT_ATOM('c', 'o', '6', '4')
|
|
|
|
#define ATOM_PREAMBLE_SIZE 8
|
|
#define COPY_BUFFER_SIZE 1024
|
|
|
|
int fixForFastPlayback(char* path) {
|
|
unsigned char atom_bytes[ATOM_PREAMBLE_SIZE];
|
|
uint32_t atom_type = 0;
|
|
uint64_t atom_size = 0;
|
|
uint64_t atom_offset = 0;
|
|
uint64_t last_offset;
|
|
unsigned char *moov_atom = NULL;
|
|
unsigned char *ftyp_atom = NULL;
|
|
uint64_t moov_atom_size;
|
|
uint64_t ftyp_atom_size = 0;
|
|
uint64_t i, j;
|
|
uint32_t offset_count;
|
|
uint64_t current_offset;
|
|
uint64_t start_offset = 0;
|
|
int infile_fd, outfile_fd;
|
|
unsigned char *temp_buf = NULL;
|
|
|
|
|
|
/* open file using open instead of fopen*/
|
|
infile_fd = open(path, O_RDONLY, S_IRGRP);
|
|
|
|
if (infile_fd < 0) {
|
|
perror(path);
|
|
goto error_out;
|
|
}
|
|
|
|
/* traverse through the atoms in the file to make sure that 'moov' is
|
|
* at the end */
|
|
|
|
while (1) {
|
|
ssize_t r;
|
|
r = read(infile_fd, atom_bytes, ATOM_PREAMBLE_SIZE);
|
|
if (r == 0) break;
|
|
atom_size = (uint32_t) BE_32(&atom_bytes[0]);
|
|
atom_type = BE_32(&atom_bytes[4]);
|
|
/* keep ftyp atom */
|
|
if (atom_type == FTYP_ATOM) {
|
|
ftyp_atom_size = atom_size;
|
|
free(ftyp_atom);
|
|
ftyp_atom = malloc(ftyp_atom_size);
|
|
if (!ftyp_atom) {
|
|
printf("could not allocate %"PRIu64" byte for ftyp atom\n",
|
|
atom_size);
|
|
goto error_out;
|
|
}
|
|
start_offset = lseek(infile_fd, -ATOM_PREAMBLE_SIZE, SEEK_CUR);
|
|
printf("start_offset before verify: %"PRIu64" \n", start_offset);
|
|
r = read(infile_fd, ftyp_atom, atom_size);
|
|
if (r < 0) {
|
|
perror(path);
|
|
goto error_out;
|
|
}
|
|
printf("atom_size: %"PRIu64" \n", atom_size);
|
|
start_offset = atom_size;
|
|
printf("start_offset to verify: %"PRIu64" \n", start_offset);
|
|
} else {
|
|
/* 64-bit special case */
|
|
if (atom_size == 1) {
|
|
if (read(infile_fd, atom_bytes, ATOM_PREAMBLE_SIZE) == 0) {
|
|
break;
|
|
}
|
|
atom_size = BE_64(&atom_bytes[0]);
|
|
lseek(infile_fd, atom_size - ATOM_PREAMBLE_SIZE * 2, SEEK_CUR);
|
|
} else {
|
|
lseek(infile_fd, atom_size - ATOM_PREAMBLE_SIZE, SEEK_CUR);
|
|
}
|
|
}
|
|
printf("%c%c%c%c %10"PRIu64" %"PRIu64"\n",
|
|
(atom_type >> 24) & 255,
|
|
(atom_type >> 16) & 255,
|
|
(atom_type >> 8) & 255,
|
|
(atom_type >> 0) & 255,
|
|
atom_offset,
|
|
atom_size);
|
|
if ((atom_type != FREE_ATOM) &&
|
|
(atom_type != JUNK_ATOM) &&
|
|
(atom_type != MDAT_ATOM) &&
|
|
(atom_type != MOOV_ATOM) &&
|
|
(atom_type != PNOT_ATOM) &&
|
|
(atom_type != SKIP_ATOM) &&
|
|
(atom_type != WIDE_ATOM) &&
|
|
(atom_type != PICT_ATOM) &&
|
|
(atom_type != UUID_ATOM) &&
|
|
(atom_type != FTYP_ATOM)) {
|
|
printf("encountered non-QT top-level atom (is this a Quicktime file?)\n");
|
|
break;
|
|
}
|
|
atom_offset += atom_size;
|
|
|
|
/* The atom header is 8 (or 16 bytes), if the atom size (which
|
|
* includes these 8 or 16 bytes) is less than that, we won't be
|
|
* able to continue scanning sensibly after this atom, so break. */
|
|
if (atom_size < 8)
|
|
break;
|
|
}
|
|
|
|
if (atom_type != MOOV_ATOM) {
|
|
printf("last atom in file was not a moov atom\n");
|
|
free(ftyp_atom);
|
|
close(infile_fd);
|
|
return 0;
|
|
}
|
|
|
|
/* moov atom was, in fact, the last atom in the chunk; load the whole
|
|
* moov atom */
|
|
last_offset = lseek(infile_fd, -atom_size, SEEK_END);
|
|
printf("last_offset: %"PRIu64" \n", last_offset);
|
|
|
|
moov_atom_size = atom_size;
|
|
moov_atom = malloc(moov_atom_size);
|
|
if (!moov_atom) {
|
|
printf("could not allocate %"PRIu64" byte for moov atom\n",
|
|
atom_size);
|
|
goto error_out;
|
|
}
|
|
if (read(infile_fd, moov_atom, atom_size) < 0) {
|
|
perror(path);
|
|
goto error_out;
|
|
}
|
|
|
|
|
|
/* this utility does not support compressed atoms yet, so disqualify
|
|
* files with compressed QT atoms */
|
|
if (BE_32(&moov_atom[12]) == CMOV_ATOM) {
|
|
printf("this utility does not support compressed moov atoms yet\n");
|
|
goto error_out;
|
|
}
|
|
|
|
/* read next move_atom_size bytes
|
|
* since we read/write file in same time, we must read before write into
|
|
* the buffer
|
|
*/
|
|
temp_buf = malloc(moov_atom_size);
|
|
if (!temp_buf) {
|
|
printf("Cannot allocate %"PRIu64" byte for temp buf \n", moov_atom_size);
|
|
goto error_out;
|
|
}
|
|
/* seek to after ftyp_atom */
|
|
lseek(infile_fd, ftyp_atom_size, SEEK_SET);
|
|
if (read(infile_fd, temp_buf, moov_atom_size) < 0) {
|
|
perror(path);
|
|
goto error_out;
|
|
}
|
|
|
|
|
|
start_offset += moov_atom_size;
|
|
|
|
/* end read temp buffer bytes */
|
|
|
|
|
|
|
|
/* close; will be re-opened later */
|
|
close(infile_fd);
|
|
|
|
/* crawl through the moov chunk in search of stco or co64 atoms */
|
|
for (i = 4; i < moov_atom_size - 4; i++) {
|
|
atom_type = BE_32(&moov_atom[i]);
|
|
if (atom_type == STCO_ATOM) {
|
|
printf(" patching stco atom...\n");
|
|
atom_size = BE_32(&moov_atom[i - 4]);
|
|
if (i + atom_size - 4 > moov_atom_size) {
|
|
printf(" bad atom size\n");
|
|
goto error_out;
|
|
}
|
|
offset_count = BE_32(&moov_atom[i + 8]);
|
|
for (j = 0; j < offset_count; j++) {
|
|
current_offset = BE_32(&moov_atom[i + 12 + j * 4]);
|
|
current_offset += moov_atom_size;
|
|
moov_atom[i + 12 + j * 4 + 0] = (current_offset >> 24) & 0xFF;
|
|
moov_atom[i + 12 + j * 4 + 1] = (current_offset >> 16) & 0xFF;
|
|
moov_atom[i + 12 + j * 4 + 2] = (current_offset >> 8) & 0xFF;
|
|
moov_atom[i + 12 + j * 4 + 3] = (current_offset >> 0) & 0xFF;
|
|
}
|
|
i += atom_size - 4;
|
|
} else if (atom_type == CO64_ATOM) {
|
|
printf(" patching co64 atom...\n");
|
|
atom_size = BE_32(&moov_atom[i - 4]);
|
|
if (i + atom_size - 4 > moov_atom_size) {
|
|
printf(" bad atom size\n");
|
|
goto error_out;
|
|
}
|
|
offset_count = BE_32(&moov_atom[i + 8]);
|
|
for (j = 0; j < offset_count; j++) {
|
|
current_offset = BE_64(&moov_atom[i + 12 + j * 8]);
|
|
current_offset += moov_atom_size;
|
|
moov_atom[i + 12 + j * 8 + 0] = (current_offset >> 56) & 0xFF;
|
|
moov_atom[i + 12 + j * 8 + 1] = (current_offset >> 48) & 0xFF;
|
|
moov_atom[i + 12 + j * 8 + 2] = (current_offset >> 40) & 0xFF;
|
|
moov_atom[i + 12 + j * 8 + 3] = (current_offset >> 32) & 0xFF;
|
|
moov_atom[i + 12 + j * 8 + 4] = (current_offset >> 24) & 0xFF;
|
|
moov_atom[i + 12 + j * 8 + 5] = (current_offset >> 16) & 0xFF;
|
|
moov_atom[i + 12 + j * 8 + 6] = (current_offset >> 8) & 0xFF;
|
|
moov_atom[i + 12 + j * 8 + 7] = (current_offset >> 0) & 0xFF;
|
|
}
|
|
i += atom_size - 4;
|
|
}
|
|
}
|
|
|
|
infile_fd = open(path, O_RDONLY);
|
|
if (infile_fd < 0) {
|
|
perror(path);
|
|
goto error_out;
|
|
}
|
|
printf("start_offset after patching %"PRIu64" \n", start_offset);
|
|
if (start_offset > 0) { /* seek after ftyp atom */
|
|
lseek(infile_fd, start_offset, SEEK_SET);
|
|
last_offset -= start_offset;
|
|
}
|
|
|
|
printf("last_offset: %"PRIu64" \n", last_offset);
|
|
outfile_fd = open(path, O_WRONLY);
|
|
printf("outfile fd: %d\n", outfile_fd);
|
|
if (outfile_fd < 0) {
|
|
perror(path);
|
|
goto error_out;
|
|
}
|
|
ssize_t written;
|
|
/* dump the same ftyp atom */
|
|
if (ftyp_atom_size > 0) {
|
|
printf(" writing ftyp atom...\n");
|
|
written = write(outfile_fd, ftyp_atom, ftyp_atom_size);
|
|
if (written < 0) {
|
|
perror(path);
|
|
goto error_out;
|
|
}
|
|
}
|
|
|
|
printf("bytes written: %zu \n", written);
|
|
i = 0;
|
|
/*
|
|
we must use 2 buffer to read/write
|
|
*/
|
|
printf("moov_atom_size: %"PRIu64" \n", moov_atom_size);
|
|
while (last_offset) {
|
|
ssize_t r;
|
|
if (i == 0) {
|
|
printf("writing moov atom...\n");
|
|
}
|
|
written = write(outfile_fd, moov_atom, moov_atom_size);
|
|
if (written < 0) {
|
|
perror(path);
|
|
goto error_out;
|
|
}
|
|
if (last_offset < moov_atom_size) {
|
|
moov_atom_size = last_offset;
|
|
}
|
|
r = read(infile_fd, moov_atom, moov_atom_size);
|
|
if (r < 0) {
|
|
perror(path);
|
|
goto error_out;
|
|
}
|
|
|
|
/*this do the trick*/
|
|
if (i == 1) {
|
|
last_offset -= moov_atom_size;
|
|
}
|
|
i = 1;
|
|
written = write(outfile_fd, temp_buf, moov_atom_size);
|
|
if (written < 0) {
|
|
perror(path);
|
|
goto error_out;
|
|
}
|
|
if (last_offset < moov_atom_size) {
|
|
moov_atom_size = last_offset;
|
|
}
|
|
r = read(infile_fd, temp_buf, moov_atom_size);
|
|
if (r < 0) {
|
|
perror(path);
|
|
goto error_out;
|
|
}
|
|
last_offset -= moov_atom_size;
|
|
}
|
|
close(infile_fd);
|
|
close(outfile_fd);
|
|
free(moov_atom);
|
|
free(ftyp_atom);
|
|
free(temp_buf);
|
|
|
|
return 0;
|
|
|
|
/* clean up */
|
|
error_out:
|
|
if (infile_fd > 0) {
|
|
close(infile_fd);
|
|
}
|
|
if (outfile_fd > 0) {
|
|
close(outfile_fd);
|
|
}
|
|
if (moov_atom) {
|
|
free(moov_atom);
|
|
}
|
|
if (ftyp_atom) {
|
|
free(ftyp_atom);
|
|
}
|
|
if (temp_buf) {
|
|
free(temp_buf);
|
|
}
|
|
|
|
return 1;
|
|
}
|
|
|
|
int main(int argc, char* argv[]) {
|
|
fixForFastPlayback(argv[1]);
|
|
}
|