Statistics
| Branch: | Revision:

ffmpeg / libavformat / mxfenc.c @ 8ed82d81

History | View | Annotate | Download (41.8 KB)

1
/*
2
 * MXF muxer
3
 * Copyright (c) 2008 GUCAS, Zhentan Feng <spyfeng at gmail dot com>
4
 * Copyright (c) 2008 Baptiste Coudurier <baptiste dot coudurier at gmail dot com>
5
 *
6
 * This file is part of FFmpeg.
7
 *
8
 * FFmpeg is free software; you can redistribute it and/or
9
 * modify it under the terms of the GNU Lesser General Public
10
 * License as published by the Free Software Foundation; either
11
 * version 2.1 of the License, or (at your option) any later version.
12
 *
13
 * FFmpeg is distributed in the hope that it will be useful,
14
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
15
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
16
 * Lesser General Public License for more details.
17
 *
18
 * You should have received a copy of the GNU Lesser General Public
19
 * License along with FFmpeg; if not, write to the Free Software
20
 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
21
 */
22

    
23
/*
24
 * References
25
 * SMPTE 336M KLV Data Encoding Protocol Using Key-Length-Value
26
 * SMPTE 377M MXF File Format Specifications
27
 * SMPTE 379M MXF Generic Container
28
 * SMPTE 381M Mapping MPEG Streams into the MXF Generic Container
29
 * SMPTE RP210: SMPTE Metadata Dictionary
30
 * SMPTE RP224: Registry of SMPTE Universal Labels
31
 */
32

    
33
//#define DEBUG
34

    
35
#include "libavutil/fifo.h"
36
#include "mxf.h"
37

    
38
static const int NTSC_samples_per_frame[] = { 1602, 1601, 1602, 1601, 1602, 0 };
39
static const int PAL_samples_per_frame[]  = { 1920, 0 };
40

    
41
typedef struct {
42
    AVFifoBuffer fifo;
43
    unsigned fifo_size;           ///< current fifo size allocated
44
    uint64_t dts;                 ///< current dts
45
    int sample_size;              ///< size of one sample all channels included
46
    const int *samples_per_frame; ///< must be 0 terminated
47
    const int *samples;           ///< current samples per frame, pointer to samples_per_frame
48
} AudioInterleaveContext;
49

    
50
typedef struct {
51
    int local_tag;
52
    UID uid;
53
} MXFLocalTagPair;
54

    
55
typedef struct {
56
    AudioInterleaveContext aic;
57
    UID track_essence_element_key;
58
    int index;            ///< index in mxf_essence_container_uls table
59
    const UID *codec_ul;
60
    int64_t duration;
61
    int order;            ///< interleaving order if dts are equal
62
    int interlaced;       ///< wether picture is interlaced
63
} MXFStreamContext;
64

    
65
typedef struct {
66
    UID container_ul;
67
    UID element_ul;
68
    UID codec_ul;
69
    enum CodecID id;
70
    void (*write_desc)();
71
} MXFContainerEssenceEntry;
72

    
73
static void mxf_write_wav_desc(AVFormatContext *s, AVStream *st);
74
static void mxf_write_aes3_desc(AVFormatContext *s, AVStream *st);
75
static void mxf_write_mpegvideo_desc(AVFormatContext *s, AVStream *st);
76

    
77
static const MXFContainerEssenceEntry mxf_essence_container_uls[] = {
78
    { { 0x06,0x0E,0x2B,0x34,0x04,0x01,0x01,0x02,0x0D,0x01,0x03,0x01,0x02,0x04,0x60,0x01 },
79
      { 0x06,0x0E,0x2B,0x34,0x01,0x02,0x01,0x01,0x0D,0x01,0x03,0x01,0x15,0x01,0x05,0x00 },
80
      { 0x06,0x0E,0x2B,0x34,0x04,0x01,0x01,0x03,0x04,0x01,0x02,0x02,0x01,0x00,0x00,0x00 },
81
      CODEC_ID_MPEG2VIDEO, mxf_write_mpegvideo_desc },
82
    { { 0x06,0x0E,0x2B,0x34,0x04,0x01,0x01,0x01,0x0D,0x01,0x03,0x01,0x02,0x06,0x03,0x00 },
83
      { 0x06,0x0E,0x2B,0x34,0x01,0x02,0x01,0x01,0x0D,0x01,0x03,0x01,0x16,0x01,0x03,0x00 },
84
      { 0x06,0x0E,0x2B,0x34,0x04,0x01,0x01,0x01,0x04,0x02,0x02,0x01,0x00,0x00,0x00,0x00 },
85
      CODEC_ID_PCM_S16LE, mxf_write_aes3_desc },
86
    { { 0x06,0x0E,0x2B,0x34,0x04,0x01,0x01,0x01,0x0D,0x01,0x03,0x01,0x02,0x06,0x01,0x00 },
87
      { 0x06,0x0E,0x2B,0x34,0x01,0x02,0x01,0x01,0x0D,0x01,0x03,0x01,0x16,0x01,0x01,0x00 },
88
      { 0x06,0x0E,0x2B,0x34,0x04,0x01,0x01,0x01,0x04,0x02,0x02,0x01,0x00,0x00,0x00,0x00 },
89
      CODEC_ID_PCM_S16LE, mxf_write_wav_desc },
90
    { { 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 },
91
      { 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 },
92
      { 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 },
93
      CODEC_ID_NONE, NULL },
94
};
95

    
96
typedef struct MXFContext {
97
    int64_t footer_partition_offset;
98
    int essence_container_count;
99
    uint8_t essence_containers_indices[FF_ARRAY_ELEMS(mxf_essence_container_uls)];
100
    AVRational time_base;
101
    int header_written;
102
} MXFContext;
103

    
104
static const uint8_t uuid_base[]            = { 0xAD,0xAB,0x44,0x24,0x2f,0x25,0x4d,0xc7,0x92,0xff,0x29,0xbd };
105
static const uint8_t umid_base[]            = { 0x06,0x0A,0x2B,0x34,0x01,0x01,0x01,0x05,0x01,0x01,0x0D,0x00,0x13,0x00,0x00,0x00 };
106

    
107
/**
108
 * complete key for operation pattern, partitions, and primer pack
109
 */
110
static const uint8_t op1a_ul[]              = { 0x06,0x0E,0x2B,0x34,0x04,0x01,0x01,0x01,0x0D,0x01,0x02,0x01,0x01,0x01,0x01,0x00 };
111
static const uint8_t footer_partition_key[] = { 0x06,0x0E,0x2B,0x34,0x02,0x05,0x01,0x01,0x0D,0x01,0x02,0x01,0x01,0x04,0x04,0x00 }; // ClosedComplete
112
static const uint8_t primer_pack_key[]      = { 0x06,0x0E,0x2B,0x34,0x02,0x05,0x01,0x01,0x0D,0x01,0x02,0x01,0x01,0x05,0x01,0x00 };
113

    
114

    
115
static const uint8_t header_open_partition_key[]   = { 0x06,0x0E,0x2B,0x34,0x02,0x05,0x01,0x01,0x0D,0x01,0x02,0x01,0x01,0x02,0x01,0x00 }; // OpenIncomplete
116
static const uint8_t header_closed_partition_key[] = { 0x06,0x0E,0x2B,0x34,0x02,0x05,0x01,0x01,0x0D,0x01,0x02,0x01,0x01,0x02,0x04,0x00 }; // ClosedComplete
117

    
118
/**
119
 * partial key for header metadata
120
 */
121
static const uint8_t header_metadata_key[]  = { 0x06,0x0E,0x2B,0x34,0x02,0x53,0x01,0x01,0x0D,0x01,0x01,0x01,0x01 };
122

    
123
static const uint8_t multiple_desc_ul[] = { 0x06,0x0E,0x2B,0x34,0x04,0x01,0x01,0x03,0x0D,0x01,0x03,0x01,0x02,0x7F,0x01,0x00 };
124

    
125
/**
126
 * SMPTE RP210 http://www.smpte-ra.org/mdd/index.html
127
 */
128
static const MXFLocalTagPair mxf_local_tag_batch[] = {
129
    // preface set
130
    { 0x3C0A, {0x06,0x0E,0x2B,0x34,0x01,0x01,0x01,0x01,0x01,0x01,0x15,0x02,0x00,0x00,0x00,0x00}}, /* Instance UID */
131
    { 0x3B02, {0x06,0x0E,0x2B,0x34,0x01,0x01,0x01,0x02,0x07,0x02,0x01,0x10,0x02,0x04,0x00,0x00}}, /* Last Modified Date */
132
    { 0x3B05, {0x06,0x0E,0x2B,0x34,0x01,0x01,0x01,0x02,0x03,0x01,0x02,0x01,0x05,0x00,0x00,0x00}}, /* Version */
133
    { 0x3B06, {0x06,0x0E,0x2B,0x34,0x01,0x01,0x01,0x02,0x06,0x01,0x01,0x04,0x06,0x04,0x00,0x00}}, /* Identifications reference */
134
    { 0x3B03, {0x06,0x0E,0x2B,0x34,0x01,0x01,0x01,0x02,0x06,0x01,0x01,0x04,0x02,0x01,0x00,0x00}}, /* Content Storage reference */
135
    { 0x3B09, {0x06,0x0E,0x2B,0x34,0x01,0x01,0x01,0x05,0x01,0x02,0x02,0x03,0x00,0x00,0x00,0x00}}, /* Operational Pattern UL */
136
    { 0x3B0A, {0x06,0x0E,0x2B,0x34,0x01,0x01,0x01,0x05,0x01,0x02,0x02,0x10,0x02,0x01,0x00,0x00}}, /* Essence Containers UL batch */
137
    { 0x3B0B, {0x06,0x0E,0x2B,0x34,0x01,0x01,0x01,0x05,0x01,0x02,0x02,0x10,0x02,0x02,0x00,0x00}}, /* DM Schemes UL batch */
138
    // Identification
139
    { 0x3C09, {0x06,0x0E,0x2B,0x34,0x01,0x01,0x01,0x02,0x05,0x20,0x07,0x01,0x01,0x00,0x00,0x00}}, /* This Generation UID */
140
    { 0x3C01, {0x06,0x0E,0x2B,0x34,0x01,0x01,0x01,0x02,0x05,0x20,0x07,0x01,0x02,0x01,0x00,0x00}}, /* Company Name */
141
    { 0x3C02, {0x06,0x0E,0x2B,0x34,0x01,0x01,0x01,0x02,0x05,0x20,0x07,0x01,0x03,0x01,0x00,0x00}}, /* Product Name */
142
    { 0x3C04, {0x06,0x0E,0x2B,0x34,0x01,0x01,0x01,0x02,0x05,0x20,0x07,0x01,0x05,0x01,0x00,0x00}}, /* Version String */
143
    { 0x3C05, {0x06,0x0E,0x2B,0x34,0x01,0x01,0x01,0x02,0x05,0x20,0x07,0x01,0x07,0x00,0x00,0x00}}, /* Product ID */
144
    { 0x3C06, {0x06,0x0E,0x2B,0x34,0x01,0x01,0x01,0x02,0x07,0x02,0x01,0x10,0x02,0x03,0x00,0x00}}, /* Modification Date */
145
    // Content Storage
146
    { 0x1901, {0x06,0x0E,0x2B,0x34,0x01,0x01,0x01,0x02,0x06,0x01,0x01,0x04,0x05,0x01,0x00,0x00}}, /* Package strong reference batch */
147
    { 0x1902, {0x06,0x0E,0x2B,0x34,0x01,0x01,0x01,0x02,0x06,0x01,0x01,0x04,0x05,0x02,0x00,0x00}}, /* Package strong reference batch */
148
    // Essence Container Data
149
    { 0x2701, {0x06,0x0E,0x2B,0x34,0x01,0x01,0x01,0x02,0x06,0x01,0x01,0x06,0x01,0x00,0x00,0x00}}, /* Linked Package UID */
150
    { 0x3F07, {0x06,0x0E,0x2B,0x34,0x01,0x01,0x01,0x04,0x01,0x03,0x04,0x04,0x00,0x00,0x00,0x00}}, /* BodySID */
151
    // Package
152
    { 0x4401, {0x06,0x0E,0x2B,0x34,0x01,0x01,0x01,0x01,0x01,0x01,0x15,0x10,0x00,0x00,0x00,0x00}}, /* Package UID */
153
    { 0x4405, {0x06,0x0E,0x2B,0x34,0x01,0x01,0x01,0x02,0x07,0x02,0x01,0x10,0x01,0x03,0x00,0x00}}, /* Package Creation Date */
154
    { 0x4404, {0x06,0x0E,0x2B,0x34,0x01,0x01,0x01,0x02,0x07,0x02,0x01,0x10,0x02,0x05,0x00,0x00}}, /* Package Modified Date */
155
    { 0x4403, {0x06,0x0E,0x2B,0x34,0x01,0x01,0x01,0x02,0x06,0x01,0x01,0x04,0x06,0x05,0x00,0x00}}, /* Tracks Strong reference array */
156
    { 0x4701, {0x06,0x0E,0x2B,0x34,0x01,0x01,0x01,0x02,0x06,0x01,0x01,0x04,0x02,0x03,0x00,0x00}}, /* Descriptor */
157
    // Track
158
    { 0x4801, {0x06,0x0E,0x2B,0x34,0x01,0x01,0x01,0x02,0x01,0x07,0x01,0x01,0x00,0x00,0x00,0x00}}, /* Track ID */
159
    { 0x4804, {0x06,0x0E,0x2B,0x34,0x01,0x01,0x01,0x02,0x01,0x04,0x01,0x03,0x00,0x00,0x00,0x00}}, /* Track Number */
160
    { 0x4B01, {0x06,0x0E,0x2B,0x34,0x01,0x01,0x01,0x02,0x05,0x30,0x04,0x05,0x00,0x00,0x00,0x00}}, /* Edit Rate */
161
    { 0x4B02, {0x06,0x0E,0x2B,0x34,0x01,0x01,0x01,0x02,0x07,0x02,0x01,0x03,0x01,0x03,0x00,0x00}}, /* Origin */
162
    { 0x4803, {0x06,0x0E,0x2B,0x34,0x01,0x01,0x01,0x02,0x06,0x01,0x01,0x04,0x02,0x04,0x00,0x00}}, /* Sequence reference */
163
    // Sequence
164
    { 0x0201, {0x06,0x0E,0x2B,0x34,0x01,0x01,0x01,0x02,0x04,0x07,0x01,0x00,0x00,0x00,0x00,0x00}}, /* Data Definition UL */
165
    { 0x0202, {0x06,0x0E,0x2B,0x34,0x01,0x01,0x01,0x02,0x07,0x02,0x02,0x01,0x01,0x03,0x00,0x00}}, /* Duration */
166
    { 0x1001, {0x06,0x0E,0x2B,0x34,0x01,0x01,0x01,0x02,0x06,0x01,0x01,0x04,0x06,0x09,0x00,0x00}}, /* Structural Components reference array */
167
    // Source Clip
168
    { 0x1201, {0x06,0x0E,0x2B,0x34,0x01,0x01,0x01,0x05,0x07,0x02,0x01,0x03,0x01,0x04,0x00,0x00}}, /* Start position */
169
    { 0x1101, {0x06,0x0E,0x2B,0x34,0x01,0x01,0x01,0x02,0x06,0x01,0x01,0x03,0x01,0x00,0x00,0x00}}, /* SourcePackageID */
170
    { 0x1102, {0x06,0x0E,0x2B,0x34,0x01,0x01,0x01,0x02,0x06,0x01,0x01,0x03,0x02,0x00,0x00,0x00}}, /* SourceTrackID */
171
    // File Descriptor
172
    { 0x3F01, {0x06,0x0E,0x2B,0x34,0x01,0x01,0x01,0x04,0x06,0x01,0x01,0x04,0x06,0x0B,0x00,0x00}}, /* Sub Descriptors reference array */
173
    { 0x3006, {0x06,0x0E,0x2B,0x34,0x01,0x01,0x01,0x05,0x06,0x01,0x01,0x03,0x05,0x00,0x00,0x00}}, /* Linked Track ID */
174
    { 0x3001, {0x06,0x0E,0x2B,0x34,0x01,0x01,0x01,0x01,0x04,0x06,0x01,0x01,0x00,0x00,0x00,0x00}}, /* SampleRate */
175
    { 0x3004, {0x06,0x0E,0x2B,0x34,0x01,0x01,0x01,0x02,0x06,0x01,0x01,0x04,0x01,0x02,0x00,0x00}}, /* Essence Container */
176
    // Generic Picture Essence Descriptor
177
    { 0x320C, {0x06,0x0E,0x2B,0x34,0x01,0x01,0x01,0x01,0x04,0x01,0x03,0x01,0x04,0x00,0x00,0x00}}, /* Frame Layout */
178
    { 0x320D, {0x06,0x0E,0x2B,0x34,0x01,0x01,0x01,0x01,0x04,0x01,0x03,0x02,0x05,0x00,0x00,0x00}}, /* Video Line Map */
179
    { 0x3203, {0x06,0x0E,0x2B,0x34,0x01,0x01,0x01,0x01,0x04,0x01,0x05,0x02,0x02,0x00,0x00,0x00}}, /* Stored Width */
180
    { 0x3202, {0x06,0x0E,0x2B,0x34,0x01,0x01,0x01,0x01,0x04,0x01,0x05,0x02,0x01,0x00,0x00,0x00}}, /* Stored Height */
181
    { 0x3209, {0x06,0x0E,0x2B,0x34,0x01,0x01,0x01,0x01,0x04,0x01,0x05,0x01,0x0C,0x00,0x00,0x00}}, /* Display Width */
182
    { 0x3208, {0x06,0x0E,0x2B,0x34,0x01,0x01,0x01,0x01,0x04,0x01,0x05,0x01,0x0B,0x00,0x00,0x00}}, /* Display Height */
183
    { 0x320E, {0x06,0x0E,0x2B,0x34,0x01,0x01,0x01,0x01,0x04,0x01,0x01,0x01,0x01,0x00,0x00,0x00}}, /* Aspect Ratio */
184
    { 0x3201, {0x06,0x0E,0x2B,0x34,0x01,0x01,0x01,0x02,0x04,0x01,0x06,0x01,0x00,0x00,0x00,0x00}}, /* Picture Essence Coding */
185
    // Generic Sound Essence Descriptor
186
    { 0x3D02, {0x06,0x0E,0x2B,0x34,0x01,0x01,0x01,0x05,0x04,0x02,0x03,0x01,0x04,0x00,0x00,0x00}}, /* Locked/Unlocked */
187
    { 0x3D03, {0x06,0x0E,0x2B,0x34,0x01,0x01,0x01,0x05,0x04,0x02,0x03,0x01,0x01,0x01,0x00,0x00}}, /* Audio sampling rate */
188
    { 0x3D07, {0x06,0x0E,0x2B,0x34,0x01,0x01,0x01,0x05,0x04,0x02,0x01,0x01,0x04,0x00,0x00,0x00}}, /* ChannelCount */
189
    { 0x3D01, {0x06,0x0E,0x2B,0x34,0x01,0x01,0x01,0x04,0x04,0x02,0x03,0x03,0x04,0x00,0x00,0x00}}, /* Quantization bits */
190
    { 0x3D06, {0x06,0x0E,0x2B,0x34,0x01,0x01,0x01,0x02,0x04,0x02,0x04,0x02,0x00,0x00,0x00,0x00}}, /* Sound Essence Compression */
191
    // MPEG video Descriptor
192
    { 0x8000, {0x06,0x0E,0x2B,0x34,0x01,0x01,0x01,0x05,0x04,0x01,0x06,0x02,0x01,0x0B,0x00,0x00}}, /* BitRate */
193
};
194

    
195
static void mxf_write_uuid(ByteIOContext *pb, enum MXFMetadataSetType type, int value)
196
{
197
    put_buffer(pb, uuid_base, 12);
198
    put_be16(pb, type);
199
    put_be16(pb, value);
200
}
201

    
202
static void mxf_write_umid(ByteIOContext *pb, enum MXFMetadataSetType type, int value)
203
{
204
    put_buffer(pb, umid_base, 16);
205
    mxf_write_uuid(pb, type, value);
206
}
207

    
208
static void mxf_write_refs_count(ByteIOContext *pb, int ref_count)
209
{
210
    put_be32(pb, ref_count);
211
    put_be32(pb, 16);
212
}
213

    
214
static int klv_encode_ber_length(ByteIOContext *pb, uint64_t len)
215
{
216
    // Determine the best BER size
217
    int size;
218
    if (len < 128) {
219
        //short form
220
        put_byte(pb, len);
221
        return 1;
222
    }
223

    
224
    size = (av_log2(len) >> 3) + 1;
225

    
226
    // long form
227
    put_byte(pb, 0x80 + size);
228
    while(size) {
229
        size --;
230
        put_byte(pb, len >> 8 * size & 0xff);
231
    }
232
    return 0;
233
}
234

    
235
/*
236
 * Get essence container ul index
237
 */
238
static int mxf_get_essence_container_ul_index(enum CodecID id)
239
{
240
    int i;
241
    for (i = 0; i < FF_ARRAY_ELEMS(mxf_essence_container_uls); i++)
242
        if (mxf_essence_container_uls[i].id == id)
243
            return i;
244
    return -1;
245
}
246

    
247
static void mxf_write_primer_pack(AVFormatContext *s)
248
{
249
    ByteIOContext *pb = s->pb;
250
    int local_tag_number, i = 0;
251

    
252
    local_tag_number = FF_ARRAY_ELEMS(mxf_local_tag_batch);
253

    
254
    put_buffer(pb, primer_pack_key, 16);
255
    klv_encode_ber_length(pb, local_tag_number * 18 + 8);
256

    
257
    put_be32(pb, local_tag_number); // local_tag num
258
    put_be32(pb, 18); // item size, always 18 according to the specs
259

    
260
    for (i = 0; i < local_tag_number; i++) {
261
        put_be16(pb, mxf_local_tag_batch[i].local_tag);
262
        put_buffer(pb, mxf_local_tag_batch[i].uid, 16);
263
    }
264
}
265

    
266
static void mxf_write_local_tag(ByteIOContext *pb, int size, int tag)
267
{
268
    put_be16(pb, tag);
269
    put_be16(pb, size);
270
}
271

    
272
static void mxf_write_metadata_key(ByteIOContext *pb, unsigned int value)
273
{
274
    put_buffer(pb, header_metadata_key, 13);
275
    put_be24(pb, value);
276
}
277

    
278
static void mxf_free(AVFormatContext *s)
279
{
280
    int i;
281

    
282
    for (i = 0; i < s->nb_streams; i++) {
283
        AVStream *st = s->streams[i];
284
        av_freep(&st->priv_data);
285
    }
286
}
287

    
288
static const MXFDataDefinitionUL *mxf_get_data_definition_ul(enum CodecType type)
289
{
290
    const MXFDataDefinitionUL *uls = ff_mxf_data_definition_uls;
291
    while (uls->type != CODEC_TYPE_DATA) {
292
        if (type == uls->type)
293
            break;
294
        uls++;
295
    }
296
    return uls;
297
}
298

    
299
static void mxf_write_essence_container_refs(AVFormatContext *s)
300
{
301
    MXFContext *c = s->priv_data;
302
    ByteIOContext *pb = s->pb;
303
    int i;
304

    
305
    mxf_write_refs_count(pb, c->essence_container_count);
306
    av_log(s,AV_LOG_DEBUG, "essence container count:%d\n", c->essence_container_count);
307
    for (i = 0; i < c->essence_container_count; i++) {
308
        put_buffer(pb, mxf_essence_container_uls[c->essence_containers_indices[i]].container_ul, 16);
309
        PRINT_KEY(s, "essence container ul:\n", mxf_essence_container_uls[c->essence_containers_indices[i]].container_ul);
310
    }
311
}
312

    
313
static void mxf_write_preface(AVFormatContext *s)
314
{
315
    MXFContext *mxf = s->priv_data;
316
    ByteIOContext *pb = s->pb;
317

    
318
    mxf_write_metadata_key(pb, 0x012f00);
319
    PRINT_KEY(s, "preface key", pb->buf_ptr - 16);
320
    klv_encode_ber_length(pb, 130 + 16 * mxf->essence_container_count);
321

    
322
    // write preface set uid
323
    mxf_write_local_tag(pb, 16, 0x3C0A);
324
    mxf_write_uuid(pb, Preface, 0);
325
    PRINT_KEY(s, "preface uid", pb->buf_ptr - 16);
326

    
327
    // write create date as unknown
328
    mxf_write_local_tag(pb, 8, 0x3B02);
329
    put_be64(pb, 0);
330

    
331
    // write version
332
    mxf_write_local_tag(pb, 2, 0x3B05);
333
    put_be16(pb, 1);
334

    
335
    // write identification_refs
336
    mxf_write_local_tag(pb, 16 + 8, 0x3B06);
337
    mxf_write_refs_count(pb, 1);
338
    mxf_write_uuid(pb, Identification, 0);
339

    
340
    // write content_storage_refs
341
    mxf_write_local_tag(pb, 16, 0x3B03);
342
    mxf_write_uuid(pb, ContentStorage, 0);
343

    
344
    mxf_write_local_tag(pb, 16, 0x3B09);
345
    put_buffer(pb, op1a_ul, 16);
346

    
347
    // write essence_container_refs
348
    mxf_write_local_tag(pb, 8 + 16 * mxf->essence_container_count, 0x3B0A);
349
    mxf_write_essence_container_refs(s);
350

    
351
    // write dm_scheme_refs
352
    mxf_write_local_tag(pb, 8, 0x3B0B);
353
    put_be64(pb, 0);
354
}
355

    
356
/*
357
 * Write a local tag containing an ascii string as utf-16
358
 */
359
static void mxf_write_local_tag_utf16(ByteIOContext *pb, int tag, const char *value)
360
{
361
    int i, size = strlen(value);
362
    mxf_write_local_tag(pb, size*2, tag);
363
    for (i = 0; i < size; i++)
364
        put_be16(pb, value[i]);
365
}
366

    
367
static void mxf_write_identification(AVFormatContext *s)
368
{
369
    ByteIOContext *pb = s->pb;
370
    const char *company = "FFmpeg";
371
    const char *product = "OP1a Muxer";
372
    const char *version;
373
    int length;
374

    
375
    mxf_write_metadata_key(pb, 0x013000);
376
    PRINT_KEY(s, "identification key", pb->buf_ptr - 16);
377

    
378
    version = s->streams[0]->codec->flags & CODEC_FLAG_BITEXACT ?
379
        "0.0.0" : AV_STRINGIFY(LIBAVFORMAT_VERSION);
380
    length = 84 + (strlen(company)+strlen(product)+strlen(version))*2; // utf-16
381
    klv_encode_ber_length(pb, length);
382

    
383
    // write uid
384
    mxf_write_local_tag(pb, 16, 0x3C0A);
385
    mxf_write_uuid(pb, Identification, 0);
386
    PRINT_KEY(s, "identification uid", pb->buf_ptr - 16);
387

    
388
    // write generation uid
389
    mxf_write_local_tag(pb, 16, 0x3C09);
390
    mxf_write_uuid(pb, Identification, 1);
391

    
392
    mxf_write_local_tag_utf16(pb, 0x3C01, company); // Company Name
393
    mxf_write_local_tag_utf16(pb, 0x3C02, product); // Product Name
394
    mxf_write_local_tag_utf16(pb, 0x3C04, version); // Version String
395

    
396
    // write product uid
397
    mxf_write_local_tag(pb, 16, 0x3C05);
398
    mxf_write_uuid(pb, Identification, 2);
399

    
400
    // write modified date
401
    mxf_write_local_tag(pb, 8, 0x3C06);
402
    put_be64(pb, 0);
403
}
404

    
405
static void mxf_write_content_storage(AVFormatContext *s)
406
{
407
    ByteIOContext *pb = s->pb;
408

    
409
    mxf_write_metadata_key(pb, 0x011800);
410
    PRINT_KEY(s, "content storage key", pb->buf_ptr - 16);
411
    klv_encode_ber_length(pb, 92);
412

    
413
    // write uid
414
    mxf_write_local_tag(pb, 16, 0x3C0A);
415
    mxf_write_uuid(pb, ContentStorage, 0);
416
    PRINT_KEY(s, "content storage uid", pb->buf_ptr - 16);
417

    
418
    // write package reference
419
    mxf_write_local_tag(pb, 16 * 2 + 8, 0x1901);
420
    mxf_write_refs_count(pb, 2);
421
    mxf_write_uuid(pb, MaterialPackage, 0);
422
    mxf_write_uuid(pb, SourcePackage, 0);
423

    
424
    // write essence container data
425
    mxf_write_local_tag(pb, 8 + 16, 0x1902);
426
    mxf_write_refs_count(pb, 1);
427
    mxf_write_uuid(pb, EssenceContainerData, 0);
428
}
429

    
430
static void mxf_write_track(AVFormatContext *s, AVStream *st, enum MXFMetadataSetType type)
431
{
432
    ByteIOContext *pb = s->pb;
433
    MXFStreamContext *sc = st->priv_data;
434

    
435
    mxf_write_metadata_key(pb, 0x013b00);
436
    PRINT_KEY(s, "track key", pb->buf_ptr - 16);
437
    klv_encode_ber_length(pb, 80);
438

    
439
    // write track uid
440
    mxf_write_local_tag(pb, 16, 0x3C0A);
441
    mxf_write_uuid(pb, type == MaterialPackage ? Track : Track + TypeBottom, st->index);
442
    PRINT_KEY(s, "track uid", pb->buf_ptr - 16);
443

    
444
    // write track id
445
    mxf_write_local_tag(pb, 4, 0x4801);
446
    put_be32(pb, st->index);
447

    
448
    // write track number
449
    mxf_write_local_tag(pb, 4, 0x4804);
450
    if (type == MaterialPackage)
451
        put_be32(pb, 0); // track number of material package is 0
452
    else
453
        put_buffer(pb, sc->track_essence_element_key + 12, 4);
454

    
455
    mxf_write_local_tag(pb, 8, 0x4B01);
456
    put_be32(pb, st->time_base.den);
457
    put_be32(pb, st->time_base.num);
458

    
459
    // write origin
460
    mxf_write_local_tag(pb, 8, 0x4B02);
461
    put_be64(pb, 0);
462

    
463
    // write sequence refs
464
    mxf_write_local_tag(pb, 16, 0x4803);
465
    mxf_write_uuid(pb, type == MaterialPackage ? Sequence: Sequence + TypeBottom, st->index);
466
}
467

    
468
static void mxf_write_common_fields(ByteIOContext *pb, AVStream *st)
469
{
470
    const MXFDataDefinitionUL *data_def_ul = mxf_get_data_definition_ul(st->codec->codec_type);
471
    MXFStreamContext *sc = st->priv_data;
472

    
473
    // find data define uls
474
    mxf_write_local_tag(pb, 16, 0x0201);
475
    put_buffer(pb, data_def_ul->uid, 16);
476

    
477
    // write duration
478
    mxf_write_local_tag(pb, 8, 0x0202);
479
    put_be64(pb, sc->duration);
480
}
481

    
482
static void mxf_write_sequence(AVFormatContext *s, AVStream *st, enum MXFMetadataSetType type)
483
{
484
    ByteIOContext *pb = s->pb;
485

    
486
    mxf_write_metadata_key(pb, 0x010f00);
487
    PRINT_KEY(s, "sequence key", pb->buf_ptr - 16);
488
    klv_encode_ber_length(pb, 80);
489

    
490
    mxf_write_local_tag(pb, 16, 0x3C0A);
491
    mxf_write_uuid(pb, type == MaterialPackage ? Sequence: Sequence + TypeBottom, st->index);
492

    
493
    PRINT_KEY(s, "sequence uid", pb->buf_ptr - 16);
494
    mxf_write_common_fields(pb, st);
495

    
496
    // write structural component
497
    mxf_write_local_tag(pb, 16 + 8, 0x1001);
498
    mxf_write_refs_count(pb, 1);
499
    mxf_write_uuid(pb, type == MaterialPackage ? SourceClip: SourceClip + TypeBottom, st->index);
500
}
501

    
502
static void mxf_write_structural_component(AVFormatContext *s, AVStream *st, enum MXFMetadataSetType type)
503
{
504
    ByteIOContext *pb = s->pb;
505
    int i;
506

    
507
    mxf_write_metadata_key(pb, 0x011100);
508
    PRINT_KEY(s, "sturctural component key", pb->buf_ptr - 16);
509
    klv_encode_ber_length(pb, 108);
510

    
511
    // write uid
512
    mxf_write_local_tag(pb, 16, 0x3C0A);
513
    mxf_write_uuid(pb, type == MaterialPackage ? SourceClip: SourceClip + TypeBottom, st->index);
514

    
515
    PRINT_KEY(s, "structural component uid", pb->buf_ptr - 16);
516
    mxf_write_common_fields(pb, st);
517

    
518
    // write start_position
519
    mxf_write_local_tag(pb, 8, 0x1201);
520
    put_be64(pb, 0);
521

    
522
    // write source package uid, end of the reference
523
    mxf_write_local_tag(pb, 32, 0x1101);
524
    if (type == SourcePackage) {
525
        for (i = 0; i < 4; i++)
526
            put_be64(pb, 0);
527
    } else
528
        mxf_write_umid(pb, SourcePackage, 0);
529

    
530
    // write source track id
531
    mxf_write_local_tag(pb, 4, 0x1102);
532
    if (type == SourcePackage)
533
        put_be32(pb, 0);
534
    else
535
        put_be32(pb, st->index);
536
}
537

    
538
static void mxf_write_multi_descriptor(AVFormatContext *s)
539
{
540
    ByteIOContext *pb = s->pb;
541
    int i;
542

    
543
    mxf_write_metadata_key(pb, 0x014400);
544
    PRINT_KEY(s, "multiple descriptor key", pb->buf_ptr - 16);
545
    klv_encode_ber_length(pb, 64 + 16 * s->nb_streams);
546

    
547
    mxf_write_local_tag(pb, 16, 0x3C0A);
548
    mxf_write_uuid(pb, MultipleDescriptor, 0);
549
    PRINT_KEY(s, "multi_desc uid", pb->buf_ptr - 16);
550

    
551
    // write sample rate
552
    mxf_write_local_tag(pb, 8, 0x3001);
553
    put_be32(pb, s->streams[0]->time_base.den);
554
    put_be32(pb, s->streams[0]->time_base.num);
555

    
556
    // write essence container ul
557
    mxf_write_local_tag(pb, 16, 0x3004);
558
    put_buffer(pb, multiple_desc_ul, 16);
559

    
560
    // write sub descriptor refs
561
    mxf_write_local_tag(pb, s->nb_streams * 16 + 8, 0x3F01);
562
    mxf_write_refs_count(pb, s->nb_streams);
563
    for (i = 0; i < s->nb_streams; i++)
564
        mxf_write_uuid(pb, SubDescriptor, i);
565
}
566

    
567
static void mxf_write_generic_desc(ByteIOContext *pb, AVStream *st, const UID key, unsigned size)
568
{
569
    MXFStreamContext *sc = st->priv_data;
570

    
571
    put_buffer(pb, key, 16);
572
    klv_encode_ber_length(pb, size);
573

    
574
    mxf_write_local_tag(pb, 16, 0x3C0A);
575
    mxf_write_uuid(pb, SubDescriptor, st->index);
576

    
577
    mxf_write_local_tag(pb, 4, 0x3006);
578
    put_be32(pb, st->index);
579

    
580
    mxf_write_local_tag(pb, 8, 0x3001);
581
    put_be32(pb, st->time_base.den);
582
    put_be32(pb, st->time_base.num);
583

    
584
    mxf_write_local_tag(pb, 16, 0x3004);
585
    put_buffer(pb, mxf_essence_container_uls[sc->index].container_ul, 16);
586
}
587

    
588
static const UID mxf_mpegvideo_descriptor_key = { 0x06,0x0E,0x2B,0x34,0x02,0x53,0x01,0x01,0x0d,0x01,0x01,0x01,0x01,0x01,0x51,0x00 };
589
static const UID mxf_wav_descriptor_key       = { 0x06,0x0E,0x2B,0x34,0x02,0x53,0x01,0x01,0x0d,0x01,0x01,0x01,0x01,0x01,0x48,0x00 };
590
static const UID mxf_aes3_descriptor_key      = { 0x06,0x0E,0x2B,0x34,0x02,0x53,0x01,0x01,0x0d,0x01,0x01,0x01,0x01,0x01,0x47,0x00 };
591

    
592
static void mxf_write_mpegvideo_desc(AVFormatContext *s, AVStream *st)
593
{
594
    MXFStreamContext *sc = st->priv_data;
595
    ByteIOContext *pb = s->pb;
596
    int stored_height = (st->codec->height+15)/16*16;
597
    AVRational dar;
598
    int f1, f2;
599

    
600
    mxf_write_generic_desc(pb, st, mxf_mpegvideo_descriptor_key, 157);
601

    
602
    mxf_write_local_tag(pb, 4, 0x3203);
603
    put_be32(pb, st->codec->width);
604

    
605
    mxf_write_local_tag(pb, 4, 0x3202);
606
    put_be32(pb, stored_height>>sc->interlaced);
607

    
608
    mxf_write_local_tag(pb, 4, 0x3209);
609
    put_be32(pb, st->codec->width);
610

    
611
    mxf_write_local_tag(pb, 4, 0x3208);
612
    put_be32(pb, st->codec->height>>sc->interlaced);
613

    
614
    // bit rate
615
    mxf_write_local_tag(pb, 4, 0x8000);
616
    put_be32(pb, st->codec->bit_rate);
617

    
618
    // frame layout
619
    mxf_write_local_tag(pb, 1, 0x320C);
620
    put_byte(pb, sc->interlaced);
621

    
622
    // video line map
623
    switch (st->codec->height) {
624
    case  576: f1 = 23; f2 = 336; break;
625
    case  608: f1 =  7; f2 = 320; break;
626
    case  480: f1 = 20; f2 = 283; break;
627
    case  512: f1 =  7; f2 = 270; break;
628
    case  720: f1 = 26; f2 =   0; break; // progressive
629
    case 1080: f1 = 21; f2 = 584; break;
630
    default:   f1 =  0; f2 =   0; break;
631
    }
632

    
633
    if (!sc->interlaced) {
634
        f2  = 0;
635
        f1 *= 2;
636
    }
637

    
638
    mxf_write_local_tag(pb, 16, 0x320D);
639
    put_be32(pb, sc->interlaced ? 2 : 1);
640
    put_be32(pb, 4);
641
    put_be32(pb, f1);
642
    if (sc->interlaced)
643
        put_be32(pb, f2);
644

    
645
    av_reduce(&dar.num, &dar.den,
646
              st->codec->width*st->codec->sample_aspect_ratio.num,
647
              st->codec->height*st->codec->sample_aspect_ratio.den,
648
              1024*1024);
649

    
650
    mxf_write_local_tag(pb, 8, 0x320E);
651
    put_be32(pb, dar.num);
652
    put_be32(pb, dar.den);
653

    
654
    mxf_write_local_tag(pb, 16, 0x3201);
655
    put_buffer(pb, *sc->codec_ul, 16);
656
}
657

    
658
static void mxf_write_generic_sound_desc(AVFormatContext *s, AVStream *st, const UID key, unsigned size)
659
{
660
    ByteIOContext *pb = s->pb;
661

    
662
    mxf_write_generic_desc(pb, st, key, size);
663

    
664
    // audio locked
665
    mxf_write_local_tag(pb, 1, 0x3D02);
666
    put_byte(pb, 1);
667

    
668
    // write audio sampling rate
669
    mxf_write_local_tag(pb, 8, 0x3D03);
670
    put_be32(pb, st->codec->sample_rate);
671
    put_be32(pb, 1);
672

    
673
    mxf_write_local_tag(pb, 4, 0x3D07);
674
    put_be32(pb, st->codec->channels);
675

    
676
    mxf_write_local_tag(pb, 4, 0x3D01);
677
    put_be32(pb, st->codec->bits_per_coded_sample);
678
}
679

    
680
static void mxf_write_wav_desc(AVFormatContext *s, AVStream *st)
681
{
682
    mxf_write_generic_sound_desc(s, st, mxf_wav_descriptor_key, 93);
683
}
684

    
685
static void mxf_write_aes3_desc(AVFormatContext *s, AVStream *st)
686
{
687
    mxf_write_generic_sound_desc(s, st, mxf_aes3_descriptor_key, 93);
688
}
689

    
690
static void mxf_write_package(AVFormatContext *s, enum MXFMetadataSetType type)
691
{
692
    ByteIOContext *pb = s->pb;
693
    int i;
694

    
695
    if (type == MaterialPackage) {
696
        mxf_write_metadata_key(pb, 0x013600);
697
        PRINT_KEY(s, "Material Package key", pb->buf_ptr - 16);
698
        klv_encode_ber_length(pb, 92 + 16 * s->nb_streams);
699
    } else {
700
        mxf_write_metadata_key(pb, 0x013700);
701
        PRINT_KEY(s, "Source Package key", pb->buf_ptr - 16);
702
        klv_encode_ber_length(pb, 112 + 16 * s->nb_streams); // 20 bytes length for descriptor reference
703
    }
704

    
705
    // write uid
706
    mxf_write_local_tag(pb, 16, 0x3C0A);
707
    mxf_write_uuid(pb, type, 0);
708
    av_log(s,AV_LOG_DEBUG, "package type:%d\n", type);
709
    PRINT_KEY(s, "package uid", pb->buf_ptr - 16);
710

    
711
    // write package umid
712
    mxf_write_local_tag(pb, 32, 0x4401);
713
    mxf_write_umid(pb, type, 0);
714
    PRINT_KEY(s, "package umid second part", pb->buf_ptr - 16);
715

    
716
    // write create date
717
    mxf_write_local_tag(pb, 8, 0x4405);
718
    put_be64(pb, 0);
719

    
720
    // write modified date
721
    mxf_write_local_tag(pb, 8, 0x4404);
722
    put_be64(pb, 0);
723

    
724
    // write track refs
725
    mxf_write_local_tag(pb, s->nb_streams * 16 + 8, 0x4403);
726
    mxf_write_refs_count(pb, s->nb_streams);
727
    for (i = 0; i < s->nb_streams; i++)
728
        mxf_write_uuid(pb, type == MaterialPackage ? Track : Track + TypeBottom, i);
729

    
730
    // write multiple descriptor reference
731
    if (type == SourcePackage) {
732
        mxf_write_local_tag(pb, 16, 0x4701);
733
        if (s->nb_streams > 1) {
734
            mxf_write_uuid(pb, MultipleDescriptor, 0);
735
            mxf_write_multi_descriptor(s);
736
        } else
737
            mxf_write_uuid(pb, SubDescriptor, 0);
738
    }
739

    
740
    for (i = 0; i < s->nb_streams; i++) {
741
        AVStream *st = s->streams[i];
742
        mxf_write_track(s, st, type);
743
        mxf_write_sequence(s, st, type);
744
        mxf_write_structural_component(s, st, type);
745

    
746
        if (type == SourcePackage) {
747
            MXFStreamContext *sc = st->priv_data;
748
            mxf_essence_container_uls[sc->index].write_desc(s, st);
749
        }
750
    }
751
}
752

    
753
static int mxf_write_essence_container_data(AVFormatContext *s)
754
{
755
    ByteIOContext *pb = s->pb;
756

    
757
    mxf_write_metadata_key(pb, 0x012300);
758
    klv_encode_ber_length(pb, 64);
759

    
760
    mxf_write_local_tag(pb, 16, 0x3C0A); // Instance UID
761
    mxf_write_uuid(pb, EssenceContainerData, 0);
762

    
763
    mxf_write_local_tag(pb, 32, 0x2701); // Linked Package UID
764
    mxf_write_umid(pb, SourcePackage, 0);
765

    
766
    mxf_write_local_tag(pb, 4, 0x3F07); // BodySID
767
    put_be32(pb, 1);
768

    
769
    return 0;
770
}
771

    
772
static int mxf_write_header_metadata_sets(AVFormatContext *s)
773
{
774
    mxf_write_preface(s);
775
    mxf_write_identification(s);
776
    mxf_write_content_storage(s);
777
    mxf_write_package(s, MaterialPackage);
778
    mxf_write_package(s, SourcePackage);
779
    mxf_write_essence_container_data(s);
780
    return 0;
781
}
782

    
783
static void mxf_write_partition(AVFormatContext *s, int bodysid, const uint8_t *key, int write_metadata)
784
{
785
    MXFContext *mxf = s->priv_data;
786
    ByteIOContext *pb = s->pb;
787
    int64_t header_byte_count_offset;
788

    
789
    // write klv
790
    put_buffer(pb, key, 16);
791

    
792
    klv_encode_ber_length(pb, 88 + 16 * mxf->essence_container_count);
793

    
794
    // write partition value
795
    put_be16(pb, 1); // majorVersion
796
    put_be16(pb, 2); // minorVersion
797
    put_be32(pb, 1); // kagSize
798

    
799
    put_be64(pb, url_ftell(pb) - 25); // thisPartition
800
    put_be64(pb, 0); // previousPartition
801

    
802
    put_be64(pb, mxf->footer_partition_offset); // footerPartition
803

    
804
    // set offset
805
    header_byte_count_offset = url_ftell(pb);
806
    put_be64(pb, 0); // headerByteCount, update later
807

    
808
    // no indexTable
809
    put_be64(pb, 0); // indexByteCount
810
    put_be32(pb, 0); // indexSID
811
    put_be64(pb, 0); // bodyOffset
812

    
813
    put_be32(pb, bodysid); // bodySID
814
    put_buffer(pb, op1a_ul, 16); // operational pattern
815

    
816
    // essence container
817
    mxf_write_essence_container_refs(s);
818

    
819
    if (write_metadata) {
820
        // mark the start of the headermetadata and calculate metadata size
821
        int64_t pos, start = url_ftell(s->pb);
822
        mxf_write_primer_pack(s);
823
        mxf_write_header_metadata_sets(s);
824
        pos = url_ftell(s->pb);
825
        // update header_byte_count
826
        url_fseek(pb, header_byte_count_offset, SEEK_SET);
827
        put_be64(pb, pos - start);
828
        url_fseek(pb, pos, SEEK_SET);
829
    }
830

    
831
    put_flush_packet(pb);
832
}
833

    
834
static const UID mxf_mpeg2_codec_uls[] = {
835
    { 0x06,0x0E,0x2B,0x34,0x04,0x01,0x01,0x03,0x04,0x01,0x02,0x02,0x01,0x01,0x10,0x00 }, // MP-ML I-Frame
836
    { 0x06,0x0E,0x2B,0x34,0x04,0x01,0x01,0x03,0x04,0x01,0x02,0x02,0x01,0x01,0x11,0x00 }, // MP-ML Long GOP
837
    { 0x06,0x0E,0x2B,0x34,0x04,0x01,0x01,0x03,0x04,0x01,0x02,0x02,0x01,0x02,0x02,0x00 }, // 422P-ML I-Frame
838
    { 0x06,0x0E,0x2B,0x34,0x04,0x01,0x01,0x03,0x04,0x01,0x02,0x02,0x01,0x02,0x03,0x00 }, // 422P-ML Long GOP
839
    { 0x06,0x0E,0x2B,0x34,0x04,0x01,0x01,0x03,0x04,0x01,0x02,0x02,0x01,0x03,0x02,0x00 }, // MP-HL I-Frame
840
    { 0x06,0x0E,0x2B,0x34,0x04,0x01,0x01,0x03,0x04,0x01,0x02,0x02,0x01,0x03,0x03,0x00 }, // MP-HL Long GOP
841
    { 0x06,0x0E,0x2B,0x34,0x04,0x01,0x01,0x03,0x04,0x01,0x02,0x02,0x01,0x04,0x02,0x00 }, // 422P-HL I-Frame
842
    { 0x06,0x0E,0x2B,0x34,0x04,0x01,0x01,0x03,0x04,0x01,0x02,0x02,0x01,0x04,0x03,0x00 }, // 422P-HL Long GOP
843
};
844

    
845
static const UID *mxf_get_mpeg2_codec_ul(AVCodecContext *avctx)
846
{
847
    if (avctx->profile == 4) { // Main
848
        if (avctx->level == 8) // Main
849
            return avctx->gop_size ?
850
                &mxf_mpeg2_codec_uls[1] :
851
                &mxf_mpeg2_codec_uls[0];
852
        else if (avctx->level == 4) // High
853
            return avctx->gop_size ?
854
                &mxf_mpeg2_codec_uls[5] :
855
                &mxf_mpeg2_codec_uls[4];
856
    } else if (avctx->profile == 0) { // 422
857
        if (avctx->level == 5) // Main
858
            return avctx->gop_size ?
859
                &mxf_mpeg2_codec_uls[3] :
860
                &mxf_mpeg2_codec_uls[2];
861
        else if (avctx->level == 2) // High
862
            return avctx->gop_size ?
863
                &mxf_mpeg2_codec_uls[7] :
864
                &mxf_mpeg2_codec_uls[6];
865
    }
866
    return NULL;
867
}
868

    
869
static int mxf_parse_mpeg2_frame(AVFormatContext *s, AVStream *st, AVPacket *pkt)
870
{
871
    MXFStreamContext *sc = st->priv_data;
872
    uint32_t c = -1;
873
    int i;
874

    
875
    for(i = 0; i < pkt->size - 4; i++) {
876
        c = (c<<8) + pkt->data[i];
877
        if (c == 0x1B5) {
878
            if (i + 2 < pkt->size && (pkt->data[i+1] & 0xf0) == 0x10) { // seq ext
879
                st->codec->profile = pkt->data[i+1] & 0x07;
880
                st->codec->level   = pkt->data[i+2] >> 4;
881
            } else if (i + 5 < pkt->size && (pkt->data[i+1] & 0xf0) == 0x80) { // pict coding ext
882
                sc->interlaced = !(pkt->data[i+5] & 0x80); // progressive frame
883
                break;
884
            }
885
        }
886
    }
887
    sc->codec_ul = mxf_get_mpeg2_codec_ul(st->codec);
888
    return !!sc->codec_ul;
889
}
890

    
891
static int ff_audio_interleave_init(AVFormatContext *s, const int *samples_per_frame)
892
{
893
    int i;
894

    
895
    if (!samples_per_frame)
896
        return -1;
897

    
898
    for (i = 0; i < s->nb_streams; i++) {
899
        AVStream *st = s->streams[i];
900
        AudioInterleaveContext *aic = st->priv_data;
901

    
902
        if (st->codec->codec_type == CODEC_TYPE_AUDIO) {
903
            aic->sample_size = (st->codec->channels *
904
                                av_get_bits_per_sample(st->codec->codec_id)) / 8;
905
            if (!aic->sample_size) {
906
                av_log(s, AV_LOG_ERROR, "could not compute sample size\n");
907
                return -1;
908
            }
909
            aic->samples_per_frame = samples_per_frame;
910
            aic->samples = aic->samples_per_frame;
911

    
912
            av_fifo_init(&aic->fifo, 100 * *aic->samples);
913
        }
914
    }
915

    
916
    return 0;
917
}
918

    
919
static void ff_audio_interleave_close(AVFormatContext *s)
920
{
921
    int i;
922
    for (i = 0; i < s->nb_streams; i++) {
923
        AVStream *st = s->streams[i];
924
        AudioInterleaveContext *aic = st->priv_data;
925

    
926
        if (st->codec->codec_type == CODEC_TYPE_AUDIO)
927
            av_fifo_free(&aic->fifo);
928
    }
929
}
930

    
931
static int mxf_write_header(AVFormatContext *s)
932
{
933
    MXFContext *mxf = s->priv_data;
934
    int i;
935
    uint8_t present[FF_ARRAY_ELEMS(mxf_essence_container_uls)] = {0};
936
    const int *samples_per_frame = NULL;
937

    
938
    for (i = 0; i < s->nb_streams; i++) {
939
        AVStream *st = s->streams[i];
940
        MXFStreamContext *sc = av_mallocz(sizeof(*sc));
941
        if (!sc)
942
            return AVERROR(ENOMEM);
943
        st->priv_data = sc;
944

    
945
        if (st->codec->codec_type == CODEC_TYPE_VIDEO) {
946
            if (!av_cmp_q(st->codec->time_base, (AVRational){ 1, 25 })) {
947
                samples_per_frame = PAL_samples_per_frame;
948
                mxf->time_base = (AVRational){ 1, 25 };
949
            } else if (!av_cmp_q(st->codec->time_base, (AVRational){ 1001, 30000 })) {
950
                samples_per_frame = NTSC_samples_per_frame;
951
                mxf->time_base = (AVRational){ 1001, 30000 };
952
            } else {
953
                av_log(s, AV_LOG_ERROR, "unsupported video frame rate\n");
954
                return -1;
955
            }
956
        } else if (st->codec->codec_type == CODEC_TYPE_AUDIO) {
957
            if (st->codec->sample_rate != 48000) {
958
                av_log(s, AV_LOG_ERROR, "only 48khz is implemented\n");
959
                return -1;
960
            }
961
        }
962
        sc->duration = -1;
963

    
964
        sc->index = mxf_get_essence_container_ul_index(st->codec->codec_id);
965
        if (sc->index == -1) {
966
            av_log(s, AV_LOG_ERROR, "track %d: could not find essence container ul, "
967
                   "codec not currently supported in container\n", i);
968
            return -1;
969
        }
970

    
971
        sc->codec_ul = &mxf_essence_container_uls[sc->index].codec_ul;
972

    
973
        if (!present[sc->index]) {
974
            mxf->essence_containers_indices[mxf->essence_container_count++] = sc->index;
975
            present[sc->index] = 1;
976
        } else
977
            present[sc->index]++;
978
        memcpy(sc->track_essence_element_key, mxf_essence_container_uls[sc->index].element_ul, 15);
979
        sc->track_essence_element_key[15] = present[sc->index];
980
        PRINT_KEY(s, "track essence element key", sc->track_essence_element_key);
981
    }
982

    
983
    for (i = 0; i < s->nb_streams; i++) {
984
        MXFStreamContext *sc = s->streams[i]->priv_data;
985
        av_set_pts_info(s->streams[i], 64, mxf->time_base.num, mxf->time_base.den);
986
        // update element count
987
        sc->track_essence_element_key[13] = present[sc->index];
988
        sc->order = AV_RB32(sc->track_essence_element_key+12);
989
    }
990

    
991
    if (!samples_per_frame)
992
        samples_per_frame = PAL_samples_per_frame;
993

    
994
    if (ff_audio_interleave_init(s, samples_per_frame) < 0)
995
        return -1;
996

    
997
    return 0;
998
}
999

    
1000
static int mxf_write_packet(AVFormatContext *s, AVPacket *pkt)
1001
{
1002
    MXFContext *mxf = s->priv_data;
1003
    ByteIOContext *pb = s->pb;
1004
    AVStream *st = s->streams[pkt->stream_index];
1005
    MXFStreamContext *sc = st->priv_data;
1006

    
1007
    if (!mxf->header_written) {
1008
        if (st->codec->codec_id == CODEC_ID_MPEG2VIDEO) {
1009
            if (!mxf_parse_mpeg2_frame(s, st, pkt)) {
1010
                av_log(s, AV_LOG_ERROR, "could not get mpeg2 profile and level\n");
1011
                return -1;
1012
            }
1013
        }
1014
        mxf_write_partition(s, 1, header_open_partition_key, 1);
1015
        mxf->header_written = 1;
1016
    }
1017

    
1018
    put_buffer(pb, sc->track_essence_element_key, 16); // write key
1019
    klv_encode_ber_length(pb, pkt->size); // write length
1020
    put_buffer(pb, pkt->data, pkt->size); // write value
1021

    
1022
    sc->duration = FFMAX(pkt->pts + pkt->duration, sc->duration);
1023

    
1024
    put_flush_packet(pb);
1025
    return 0;
1026
}
1027

    
1028
static int mxf_write_footer(AVFormatContext *s)
1029
{
1030
    MXFContext *mxf = s->priv_data;
1031
    ByteIOContext *pb = s->pb;
1032

    
1033
    mxf->footer_partition_offset = url_ftell(pb);
1034
    mxf_write_partition(s, 0, footer_partition_key, 0);
1035
    if (!url_is_streamed(s->pb)) {
1036
        url_fseek(pb, 0, SEEK_SET);
1037
        mxf_write_partition(s, 1, header_closed_partition_key, 1);
1038
    }
1039

    
1040
    ff_audio_interleave_close(s);
1041

    
1042
    mxf_free(s);
1043
    return 0;
1044
}
1045

    
1046
static int mxf_interleave_new_audio_packet(AVFormatContext *s, AVPacket *pkt,
1047
                                           int stream_index, int flush)
1048
{
1049
    AVStream *st = s->streams[stream_index];
1050
    AudioInterleaveContext *aic = st->priv_data;
1051

    
1052
    int size = FFMIN(av_fifo_size(&aic->fifo), *aic->samples * aic->sample_size);
1053
    if (!size || (!flush && size == av_fifo_size(&aic->fifo)))
1054
        return 0;
1055

    
1056
    av_new_packet(pkt, size);
1057
    av_fifo_read(&aic->fifo, pkt->data, size);
1058

    
1059
    pkt->dts = pkt->pts = aic->dts;
1060
    pkt->duration = av_rescale_q(*aic->samples,
1061
                                 (AVRational){ 1, st->codec->sample_rate },
1062
                                 st->time_base);
1063
    pkt->stream_index = stream_index;
1064
    aic->dts += pkt->duration;
1065

    
1066
    aic->samples++;
1067
    if (!*aic->samples)
1068
        aic->samples = aic->samples_per_frame;
1069

    
1070
    return size;
1071
}
1072

    
1073
static int mxf_interleave_get_packet(AVFormatContext *s, AVPacket *out, AVPacket *pkt, int flush)
1074
{
1075
    AVPacketList *pktl;
1076
    int stream_count = 0;
1077
    int streams[MAX_STREAMS];
1078

    
1079
    memset(streams, 0, sizeof(streams));
1080
    pktl = s->packet_buffer;
1081
    while (pktl) {
1082
        //av_log(s, AV_LOG_DEBUG, "show st:%d dts:%lld\n", pktl->pkt.stream_index, pktl->pkt.dts);
1083
        if (!streams[pktl->pkt.stream_index])
1084
            stream_count++;
1085
        streams[pktl->pkt.stream_index]++;
1086
        pktl = pktl->next;
1087
    }
1088

    
1089
    if (stream_count && (s->nb_streams == stream_count || flush)) {
1090
        pktl = s->packet_buffer;
1091
        *out = pktl->pkt;
1092
        //av_log(s, AV_LOG_DEBUG, "out st:%d dts:%lld\n", (*out).stream_index, (*out).dts);
1093
        s->packet_buffer = pktl->next;
1094
        av_freep(&pktl);
1095

    
1096
        if (flush && stream_count < s->nb_streams) {
1097
            // purge packet queue
1098
            pktl = s->packet_buffer;
1099
            while (pktl) {
1100
                AVPacketList *next = pktl->next;
1101
                av_free_packet(&pktl->pkt);
1102
                av_freep(&pktl);
1103
                pktl = next;
1104
            }
1105
            s->packet_buffer = NULL;
1106
        }
1107

    
1108
        return 1;
1109
    } else {
1110
        av_init_packet(out);
1111
        return 0;
1112
    }
1113
}
1114

    
1115
static int mxf_compare_timestamps(AVFormatContext *s, AVPacket *next, AVPacket *pkt)
1116
{
1117
    AVStream *st  = s->streams[pkt ->stream_index];
1118
    AVStream *st2 = s->streams[next->stream_index];
1119
    MXFStreamContext *sc  = st ->priv_data;
1120
    MXFStreamContext *sc2 = st2->priv_data;
1121

    
1122
    int64_t left  = st2->time_base.num * (int64_t)st ->time_base.den;
1123
    int64_t right = st ->time_base.num * (int64_t)st2->time_base.den;
1124

    
1125
    return next->dts * left > pkt->dts * right || // FIXME this can overflow
1126
        (next->dts * left == pkt->dts * right && sc->order < sc2->order);
1127
}
1128

    
1129
static int mxf_interleave(AVFormatContext *s, AVPacket *out, AVPacket *pkt, int flush)
1130
{
1131
    int i;
1132

    
1133
    if (pkt) {
1134
        AVStream *st = s->streams[pkt->stream_index];
1135
        AudioInterleaveContext *aic = st->priv_data;
1136
        if (st->codec->codec_type == CODEC_TYPE_AUDIO) {
1137
            av_fifo_generic_write(&aic->fifo, pkt->data, pkt->size, NULL);
1138
        } else {
1139
            // rewrite pts and dts to be decoded time line position
1140
            pkt->pts = pkt->dts = aic->dts;
1141
            aic->dts += pkt->duration;
1142
            ff_interleave_add_packet(s, pkt, mxf_compare_timestamps);
1143
        }
1144
        pkt = NULL;
1145
    }
1146

    
1147
    for (i = 0; i < s->nb_streams; i++) {
1148
        AVStream *st = s->streams[i];
1149
        if (st->codec->codec_type == CODEC_TYPE_AUDIO) {
1150
            AVPacket new_pkt;
1151
            while (mxf_interleave_new_audio_packet(s, &new_pkt, i, flush))
1152
                ff_interleave_add_packet(s, &new_pkt, mxf_compare_timestamps);
1153
        }
1154
    }
1155

    
1156
    return mxf_interleave_get_packet(s, out, pkt, flush);
1157
}
1158

    
1159
AVOutputFormat mxf_muxer = {
1160
    "mxf",
1161
    NULL_IF_CONFIG_SMALL("Material eXchange Format"),
1162
    NULL,
1163
    "mxf",
1164
    sizeof(MXFContext),
1165
    CODEC_ID_PCM_S16LE,
1166
    CODEC_ID_MPEG2VIDEO,
1167
    mxf_write_header,
1168
    mxf_write_packet,
1169
    mxf_write_footer,
1170
    0,
1171
    NULL,
1172
    mxf_interleave,
1173
};