Fix T67191: Redo fails for 3D text operations
[blender.git] / source / blender / avi / intern / avi.c
1 /*
2  * This program is free software; you can redistribute it and/or
3  * modify it under the terms of the GNU General Public License
4  * as published by the Free Software Foundation; either version 2
5  * of the License, or (at your option) any later version.
6  *
7  * This program is distributed in the hope that it will be useful,
8  * but WITHOUT ANY WARRANTY; without even the implied warranty of
9  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
10  * GNU General Public License for more details.
11  *
12  * You should have received a copy of the GNU General Public License
13  * along with this program; if not, write to the Free Software Foundation,
14  * Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
15  *
16  * The Original Code is Copyright (C) 2001-2002 by NaN Holding BV.
17  * All rights reserved.
18  */
19
20 /** \file
21  * \ingroup avi
22  *
23  * This is external code.
24  */
25
26 #include <stdlib.h>
27 #include <string.h>
28 #include <stdarg.h>
29 #include <stdio.h>
30 #include <ctype.h>
31
32 #ifdef WIN32
33 #  include "BLI_winstuff.h"
34 #endif
35
36 #include "MEM_guardedalloc.h"
37
38 #include "BLI_sys_types.h"
39 #include "BLI_utildefines.h"
40 #include "BLI_fileops.h"
41
42 #include "AVI_avi.h"
43 #include "avi_intern.h"
44
45 #include "avi_endian.h"
46
47 static int AVI_DEBUG = 0;
48 static char DEBUG_FCC[4];
49
50 #define DEBUG_PRINT(x) \
51   if (AVI_DEBUG) { \
52     printf("AVI DEBUG: " x); \
53   } \
54   (void)0
55
56 /* local functions */
57 char *fcc_to_char(unsigned int fcc);
58 char *tcc_to_char(unsigned int tcc);
59
60 /* implementation */
61
62 unsigned int GET_FCC(FILE *fp)
63 {
64   unsigned char tmp[4];
65
66   tmp[0] = getc(fp);
67   tmp[1] = getc(fp);
68   tmp[2] = getc(fp);
69   tmp[3] = getc(fp);
70
71   return FCC(tmp);
72 }
73
74 unsigned int GET_TCC(FILE *fp)
75 {
76   char tmp[5];
77
78   tmp[0] = getc(fp);
79   tmp[1] = getc(fp);
80   tmp[2] = 0;
81   tmp[3] = 0;
82
83   return FCC(tmp);
84 }
85
86 char *fcc_to_char(unsigned int fcc)
87 {
88   DEBUG_FCC[0] = (fcc)&127;
89   DEBUG_FCC[1] = (fcc >> 8) & 127;
90   DEBUG_FCC[2] = (fcc >> 16) & 127;
91   DEBUG_FCC[3] = (fcc >> 24) & 127;
92
93   return DEBUG_FCC;
94 }
95
96 char *tcc_to_char(unsigned int tcc)
97 {
98   DEBUG_FCC[0] = (tcc)&127;
99   DEBUG_FCC[1] = (tcc >> 8) & 127;
100   DEBUG_FCC[2] = 0;
101   DEBUG_FCC[3] = 0;
102
103   return DEBUG_FCC;
104 }
105
106 int AVI_get_stream(AviMovie *movie, int avist_type, int stream_num)
107 {
108   int cur_stream;
109
110   if (movie == NULL) {
111     return -AVI_ERROR_OPTION;
112   }
113
114   for (cur_stream = 0; cur_stream < movie->header->Streams; cur_stream++) {
115     if (movie->streams[cur_stream].sh.Type == avist_type) {
116       if (stream_num == 0) {
117         return cur_stream;
118       }
119       else {
120         stream_num--;
121       }
122     }
123   }
124
125   return -AVI_ERROR_FOUND;
126 }
127
128 static int fcc_get_stream(int fcc)
129 {
130   char fccs[4];
131
132   fccs[0] = fcc;
133   fccs[1] = fcc >> 8;
134   fccs[2] = fcc >> 16;
135   fccs[3] = fcc >> 24;
136
137   return 10 * (fccs[0] - '0') + (fccs[1] - '0');
138 }
139
140 static bool fcc_is_data(int fcc)
141 {
142   char fccs[4];
143
144   fccs[0] = fcc;
145   fccs[1] = fcc >> 8;
146   fccs[2] = fcc >> 16;
147   fccs[3] = fcc >> 24;
148
149   if (!isdigit(fccs[0]) || !isdigit(fccs[1]) || (fccs[2] != 'd' && fccs[2] != 'w')) {
150     return 0;
151   }
152   if (fccs[3] != 'b' && fccs[3] != 'c') {
153     return 0;
154   }
155
156   return 1;
157 }
158
159 AviError AVI_print_error(AviError in_error)
160 {
161   int error;
162
163   if ((int)in_error < 0) {
164     error = -in_error;
165   }
166   else {
167     error = in_error;
168   }
169
170   switch (error) {
171     case AVI_ERROR_NONE:
172       break;
173     case AVI_ERROR_COMPRESSION:
174       printf("AVI ERROR: compressed in an unsupported format\n");
175       break;
176     case AVI_ERROR_OPEN:
177       printf("AVI ERROR: could not open file\n");
178       break;
179     case AVI_ERROR_READING:
180       printf("AVI ERROR: could not read from file\n");
181       break;
182     case AVI_ERROR_WRITING:
183       printf("AVI ERROR: could not write to file\n");
184       break;
185     case AVI_ERROR_FORMAT:
186       printf("AVI ERROR: file is in an illegal or unrecognized format\n");
187       break;
188     case AVI_ERROR_ALLOC:
189       printf("AVI ERROR: error encountered while allocating memory\n");
190       break;
191     case AVI_ERROR_OPTION:
192       printf("AVI ERROR: program made illegal request\n");
193       break;
194     case AVI_ERROR_FOUND:
195       printf("AVI ERROR: movie did not contain expected item\n");
196       break;
197     default:
198       break;
199   }
200
201   return in_error;
202 }
203
204 bool AVI_is_avi(const char *name)
205 {
206   int temp, fcca, j;
207   AviMovie movie = {NULL};
208   AviMainHeader header;
209   AviBitmapInfoHeader bheader;
210   int movie_tracks = 0;
211
212   DEBUG_PRINT("opening movie\n");
213
214   movie.type = AVI_MOVIE_READ;
215   movie.fp = BLI_fopen(name, "rb");
216   movie.offset_table = NULL;
217
218   if (movie.fp == NULL) {
219     return 0;
220   }
221
222   if (GET_FCC(movie.fp) != FCC("RIFF") || !(movie.size = GET_FCC(movie.fp))) {
223     fclose(movie.fp);
224     return 0;
225   }
226
227   movie.header = &header;
228
229   if (GET_FCC(movie.fp) != FCC("AVI ") || GET_FCC(movie.fp) != FCC("LIST") || !GET_FCC(movie.fp) ||
230       GET_FCC(movie.fp) != FCC("hdrl") || (movie.header->fcc = GET_FCC(movie.fp)) != FCC("avih") ||
231       !(movie.header->size = GET_FCC(movie.fp))) {
232     DEBUG_PRINT("bad initial header info\n");
233     fclose(movie.fp);
234     return 0;
235   }
236
237   movie.header->MicroSecPerFrame = GET_FCC(movie.fp);
238   movie.header->MaxBytesPerSec = GET_FCC(movie.fp);
239   movie.header->PaddingGranularity = GET_FCC(movie.fp);
240   movie.header->Flags = GET_FCC(movie.fp);
241   movie.header->TotalFrames = GET_FCC(movie.fp);
242   movie.header->InitialFrames = GET_FCC(movie.fp);
243   movie.header->Streams = GET_FCC(movie.fp);
244   movie.header->SuggestedBufferSize = GET_FCC(movie.fp);
245   movie.header->Width = GET_FCC(movie.fp);
246   movie.header->Height = GET_FCC(movie.fp);
247   movie.header->Reserved[0] = GET_FCC(movie.fp);
248   movie.header->Reserved[1] = GET_FCC(movie.fp);
249   movie.header->Reserved[2] = GET_FCC(movie.fp);
250   movie.header->Reserved[3] = GET_FCC(movie.fp);
251
252   fseek(movie.fp, movie.header->size - 14 * 4, SEEK_CUR);
253
254   /* Limit number of streams to some reasonable amount to prevent
255    * buffer overflow vulnerabilities. */
256   if (movie.header->Streams < 1 || movie.header->Streams > 65536) {
257     DEBUG_PRINT("Number of streams should be in range 1-65536\n");
258     fclose(movie.fp);
259     return 0;
260   }
261
262   movie.streams = (AviStreamRec *)MEM_calloc_arrayN(
263       movie.header->Streams, sizeof(AviStreamRec), "moviestreams");
264
265   for (temp = 0; temp < movie.header->Streams; temp++) {
266
267     if (GET_FCC(movie.fp) != FCC("LIST") || !GET_FCC(movie.fp) ||
268         GET_FCC(movie.fp) != FCC("strl") ||
269         (movie.streams[temp].sh.fcc = GET_FCC(movie.fp)) != FCC("strh") ||
270         !(movie.streams[temp].sh.size = GET_FCC(movie.fp))) {
271       DEBUG_PRINT("bad stream header information\n");
272
273       MEM_freeN(movie.streams);
274       fclose(movie.fp);
275       return 0;
276     }
277
278     movie.streams[temp].sh.Type = GET_FCC(movie.fp);
279     movie.streams[temp].sh.Handler = GET_FCC(movie.fp);
280
281     fcca = movie.streams[temp].sh.Handler;
282
283     if (movie.streams[temp].sh.Type == FCC("vids")) {
284       if (fcca == FCC("DIB ") || fcca == FCC("RGB ") || fcca == FCC("rgb ") ||
285           fcca == FCC("RAW ") || fcca == 0) {
286         movie.streams[temp].format = AVI_FORMAT_AVI_RGB;
287       }
288       else if (fcca == FCC("mjpg") || fcca == FCC("MJPG")) {
289         movie.streams[temp].format = AVI_FORMAT_MJPEG;
290       }
291       else {
292         MEM_freeN(movie.streams);
293         fclose(movie.fp);
294         return 0;
295       }
296       movie_tracks++;
297     }
298
299     movie.streams[temp].sh.Flags = GET_FCC(movie.fp);
300     movie.streams[temp].sh.Priority = GET_TCC(movie.fp);
301     movie.streams[temp].sh.Language = GET_TCC(movie.fp);
302     movie.streams[temp].sh.InitialFrames = GET_FCC(movie.fp);
303     movie.streams[temp].sh.Scale = GET_FCC(movie.fp);
304     movie.streams[temp].sh.Rate = GET_FCC(movie.fp);
305     movie.streams[temp].sh.Start = GET_FCC(movie.fp);
306     movie.streams[temp].sh.Length = GET_FCC(movie.fp);
307     movie.streams[temp].sh.SuggestedBufferSize = GET_FCC(movie.fp);
308     movie.streams[temp].sh.Quality = GET_FCC(movie.fp);
309     movie.streams[temp].sh.SampleSize = GET_FCC(movie.fp);
310     movie.streams[temp].sh.left = GET_TCC(movie.fp);
311     movie.streams[temp].sh.top = GET_TCC(movie.fp);
312     movie.streams[temp].sh.right = GET_TCC(movie.fp);
313     movie.streams[temp].sh.bottom = GET_TCC(movie.fp);
314
315     fseek(movie.fp, movie.streams[temp].sh.size - 14 * 4, SEEK_CUR);
316
317     if (GET_FCC(movie.fp) != FCC("strf")) {
318       DEBUG_PRINT("no stream format information\n");
319       MEM_freeN(movie.streams);
320       fclose(movie.fp);
321       return 0;
322     }
323
324     movie.streams[temp].sf_size = GET_FCC(movie.fp);
325     if (movie.streams[temp].sh.Type == FCC("vids")) {
326       j = movie.streams[temp].sf_size - (sizeof(AviBitmapInfoHeader) - 8);
327       if (j >= 0) {
328         AviBitmapInfoHeader *bi;
329
330         movie.streams[temp].sf = &bheader;
331         bi = (AviBitmapInfoHeader *)movie.streams[temp].sf;
332
333         bi->fcc = FCC("strf");
334         bi->size = movie.streams[temp].sf_size;
335         bi->Size = GET_FCC(movie.fp);
336         bi->Width = GET_FCC(movie.fp);
337         bi->Height = GET_FCC(movie.fp);
338         bi->Planes = GET_TCC(movie.fp);
339         bi->BitCount = GET_TCC(movie.fp);
340         bi->Compression = GET_FCC(movie.fp);
341         bi->SizeImage = GET_FCC(movie.fp);
342         bi->XPelsPerMeter = GET_FCC(movie.fp);
343         bi->YPelsPerMeter = GET_FCC(movie.fp);
344         bi->ClrUsed = GET_FCC(movie.fp);
345         bi->ClrImportant = GET_FCC(movie.fp);
346
347         fcca = bi->Compression;
348
349         if (movie.streams[temp].format == AVI_FORMAT_AVI_RGB) {
350           if (fcca == FCC("DIB ") || fcca == FCC("RGB ") || fcca == FCC("rgb ") ||
351               fcca == FCC("RAW ") || fcca == 0) {
352             /* pass */
353           }
354           else if (fcca == FCC("mjpg") || fcca == FCC("MJPG")) {
355             movie.streams[temp].format = AVI_FORMAT_MJPEG;
356           }
357           else {
358             MEM_freeN(movie.streams);
359             fclose(movie.fp);
360             return 0;
361           }
362         }
363       }
364       if (j > 0) {
365         fseek(movie.fp, j, SEEK_CUR);
366       }
367     }
368     else {
369       fseek(movie.fp, movie.streams[temp].sf_size, SEEK_CUR);
370     }
371
372     /* Walk to the next LIST */
373     while (GET_FCC(movie.fp) != FCC("LIST")) {
374       temp = GET_FCC(movie.fp);
375       if (temp < 0 || ftell(movie.fp) > movie.size) {
376         DEBUG_PRINT("incorrect size in header or error in AVI\n");
377
378         MEM_freeN(movie.streams);
379         fclose(movie.fp);
380         return 0;
381       }
382       fseek(movie.fp, temp, SEEK_CUR);
383     }
384
385     fseek(movie.fp, -4L, SEEK_CUR);
386   }
387
388   MEM_freeN(movie.streams);
389   fclose(movie.fp);
390
391   /* at least one video track is needed */
392   return (movie_tracks != 0);
393 }
394
395 AviError AVI_open_movie(const char *name, AviMovie *movie)
396 {
397   int temp, fcca, size, j;
398
399   DEBUG_PRINT("opening movie\n");
400
401   memset(movie, 0, sizeof(AviMovie));
402
403   movie->type = AVI_MOVIE_READ;
404   movie->fp = BLI_fopen(name, "rb");
405   movie->offset_table = NULL;
406
407   if (movie->fp == NULL) {
408     return AVI_ERROR_OPEN;
409   }
410
411   if (GET_FCC(movie->fp) != FCC("RIFF") || !(movie->size = GET_FCC(movie->fp))) {
412     return AVI_ERROR_FORMAT;
413   }
414
415   movie->header = (AviMainHeader *)MEM_mallocN(sizeof(AviMainHeader), "movieheader");
416
417   if (GET_FCC(movie->fp) != FCC("AVI ") || GET_FCC(movie->fp) != FCC("LIST") ||
418       !GET_FCC(movie->fp) || GET_FCC(movie->fp) != FCC("hdrl") ||
419       (movie->header->fcc = GET_FCC(movie->fp)) != FCC("avih") ||
420       !(movie->header->size = GET_FCC(movie->fp))) {
421     DEBUG_PRINT("bad initial header info\n");
422     return AVI_ERROR_FORMAT;
423   }
424
425   movie->header->MicroSecPerFrame = GET_FCC(movie->fp);
426   movie->header->MaxBytesPerSec = GET_FCC(movie->fp);
427   movie->header->PaddingGranularity = GET_FCC(movie->fp);
428   movie->header->Flags = GET_FCC(movie->fp);
429   movie->header->TotalFrames = GET_FCC(movie->fp);
430   movie->header->InitialFrames = GET_FCC(movie->fp);
431   movie->header->Streams = GET_FCC(movie->fp);
432   movie->header->SuggestedBufferSize = GET_FCC(movie->fp);
433   movie->header->Width = GET_FCC(movie->fp);
434   movie->header->Height = GET_FCC(movie->fp);
435   movie->header->Reserved[0] = GET_FCC(movie->fp);
436   movie->header->Reserved[1] = GET_FCC(movie->fp);
437   movie->header->Reserved[2] = GET_FCC(movie->fp);
438   movie->header->Reserved[3] = GET_FCC(movie->fp);
439
440   fseek(movie->fp, movie->header->size - 14 * 4, SEEK_CUR);
441
442   /* Limit number of streams to some reasonable amount to prevent
443    * buffer overflow vulnerabilities. */
444   if (movie->header->Streams < 1 || movie->header->Streams > 65536) {
445     DEBUG_PRINT("Number of streams should be in range 1-65536\n");
446     return AVI_ERROR_FORMAT;
447   }
448
449   movie->streams = (AviStreamRec *)MEM_calloc_arrayN(
450       movie->header->Streams, sizeof(AviStreamRec), "moviestreams");
451
452   for (temp = 0; temp < movie->header->Streams; temp++) {
453
454     if (GET_FCC(movie->fp) != FCC("LIST") || !GET_FCC(movie->fp) ||
455         GET_FCC(movie->fp) != FCC("strl") ||
456         (movie->streams[temp].sh.fcc = GET_FCC(movie->fp)) != FCC("strh") ||
457         !(movie->streams[temp].sh.size = GET_FCC(movie->fp))) {
458       DEBUG_PRINT("bad stream header information\n");
459       return AVI_ERROR_FORMAT;
460     }
461
462     movie->streams[temp].sh.Type = GET_FCC(movie->fp);
463     movie->streams[temp].sh.Handler = GET_FCC(movie->fp);
464
465     fcca = movie->streams[temp].sh.Handler;
466
467     if (movie->streams[temp].sh.Type == FCC("vids")) {
468       if (fcca == FCC("DIB ") || fcca == FCC("RGB ") || fcca == FCC("rgb ") ||
469           fcca == FCC("RAW ") || fcca == 0) {
470         movie->streams[temp].format = AVI_FORMAT_AVI_RGB;
471       }
472       else if (fcca == FCC("mjpg") || fcca == FCC("MJPG")) {
473         movie->streams[temp].format = AVI_FORMAT_MJPEG;
474       }
475       else {
476         return AVI_ERROR_COMPRESSION;
477       }
478     }
479
480     movie->streams[temp].sh.Flags = GET_FCC(movie->fp);
481     movie->streams[temp].sh.Priority = GET_TCC(movie->fp);
482     movie->streams[temp].sh.Language = GET_TCC(movie->fp);
483     movie->streams[temp].sh.InitialFrames = GET_FCC(movie->fp);
484     movie->streams[temp].sh.Scale = GET_FCC(movie->fp);
485     movie->streams[temp].sh.Rate = GET_FCC(movie->fp);
486     movie->streams[temp].sh.Start = GET_FCC(movie->fp);
487     movie->streams[temp].sh.Length = GET_FCC(movie->fp);
488     movie->streams[temp].sh.SuggestedBufferSize = GET_FCC(movie->fp);
489     movie->streams[temp].sh.Quality = GET_FCC(movie->fp);
490     movie->streams[temp].sh.SampleSize = GET_FCC(movie->fp);
491     movie->streams[temp].sh.left = GET_TCC(movie->fp);
492     movie->streams[temp].sh.top = GET_TCC(movie->fp);
493     movie->streams[temp].sh.right = GET_TCC(movie->fp);
494     movie->streams[temp].sh.bottom = GET_TCC(movie->fp);
495
496     fseek(movie->fp, movie->streams[temp].sh.size - 14 * 4, SEEK_CUR);
497
498     if (GET_FCC(movie->fp) != FCC("strf")) {
499       DEBUG_PRINT("no stream format information\n");
500       return AVI_ERROR_FORMAT;
501     }
502
503     movie->streams[temp].sf_size = GET_FCC(movie->fp);
504     if (movie->streams[temp].sh.Type == FCC("vids")) {
505       j = movie->streams[temp].sf_size - (sizeof(AviBitmapInfoHeader) - 8);
506       if (j >= 0) {
507         AviBitmapInfoHeader *bi;
508
509         movie->streams[temp].sf = MEM_mallocN(sizeof(AviBitmapInfoHeader), "streamformat");
510
511         bi = (AviBitmapInfoHeader *)movie->streams[temp].sf;
512
513         bi->fcc = FCC("strf");
514         bi->size = movie->streams[temp].sf_size;
515         bi->Size = GET_FCC(movie->fp);
516         bi->Width = GET_FCC(movie->fp);
517         bi->Height = GET_FCC(movie->fp);
518         bi->Planes = GET_TCC(movie->fp);
519         bi->BitCount = GET_TCC(movie->fp);
520         bi->Compression = GET_FCC(movie->fp);
521         bi->SizeImage = GET_FCC(movie->fp);
522         bi->XPelsPerMeter = GET_FCC(movie->fp);
523         bi->YPelsPerMeter = GET_FCC(movie->fp);
524         bi->ClrUsed = GET_FCC(movie->fp);
525         bi->ClrImportant = GET_FCC(movie->fp);
526
527         fcca = bi->Compression;
528
529         if (movie->streams[temp].format == AVI_FORMAT_AVI_RGB) {
530           if (fcca == FCC("DIB ") || fcca == FCC("RGB ") || fcca == FCC("rgb ") ||
531               fcca == FCC("RAW ") || fcca == 0) {
532             /* pass */
533           }
534           else if (fcca == FCC("mjpg") || fcca == FCC("MJPG")) {
535             movie->streams[temp].format = AVI_FORMAT_MJPEG;
536           }
537           else {
538             return AVI_ERROR_COMPRESSION;
539           }
540         }
541       }
542       if (j > 0) {
543         fseek(movie->fp, j, SEEK_CUR);
544       }
545     }
546     else {
547       fseek(movie->fp, movie->streams[temp].sf_size, SEEK_CUR);
548     }
549
550     /* Walk to the next LIST */
551     while (GET_FCC(movie->fp) != FCC("LIST")) {
552       temp = GET_FCC(movie->fp);
553       if (temp < 0 || ftell(movie->fp) > movie->size) {
554         DEBUG_PRINT("incorrect size in header or error in AVI\n");
555         return AVI_ERROR_FORMAT;
556       }
557       fseek(movie->fp, temp, SEEK_CUR);
558     }
559
560     fseek(movie->fp, -4L, SEEK_CUR);
561   }
562
563   while (1) {
564     temp = GET_FCC(movie->fp);
565     size = GET_FCC(movie->fp);
566
567     if (size == 0) {
568       break;
569     }
570
571     if (temp == FCC("LIST")) {
572       if (GET_FCC(movie->fp) == FCC("movi")) {
573         break;
574       }
575       else {
576         fseek(movie->fp, size - 4, SEEK_CUR);
577       }
578     }
579     else {
580       fseek(movie->fp, size, SEEK_CUR);
581     }
582     if (ftell(movie->fp) > movie->size) {
583       DEBUG_PRINT("incorrect size in header or error in AVI\n");
584       return AVI_ERROR_FORMAT;
585     }
586   }
587
588   movie->movi_offset = ftell(movie->fp);
589   movie->read_offset = movie->movi_offset;
590
591   /* Read in the index if the file has one, otherwise create one */
592   if (movie->header->Flags & AVIF_HASINDEX) {
593     fseek(movie->fp, size - 4, SEEK_CUR);
594
595     if (GET_FCC(movie->fp) != FCC("idx1")) {
596       DEBUG_PRINT("bad index informatio\n");
597       return AVI_ERROR_FORMAT;
598     }
599
600     movie->index_entries = GET_FCC(movie->fp) / sizeof(AviIndexEntry);
601     if (movie->index_entries == 0) {
602       DEBUG_PRINT("no index entries\n");
603       return AVI_ERROR_FORMAT;
604     }
605
606     movie->entries = (AviIndexEntry *)MEM_mallocN(movie->index_entries * sizeof(AviIndexEntry),
607                                                   "movieentries");
608
609     for (temp = 0; temp < movie->index_entries; temp++) {
610       movie->entries[temp].ChunkId = GET_FCC(movie->fp);
611       movie->entries[temp].Flags = GET_FCC(movie->fp);
612       movie->entries[temp].Offset = GET_FCC(movie->fp);
613       movie->entries[temp].Size = GET_FCC(movie->fp);
614
615       if (AVI_DEBUG) {
616         printf("Index entry %04d: ChunkId:%s Flags:%d Offset:%d Size:%d\n",
617                temp,
618                fcc_to_char(movie->entries[temp].ChunkId),
619                movie->entries[temp].Flags,
620                movie->entries[temp].Offset,
621                movie->entries[temp].Size);
622       }
623     }
624
625     /* Some AVI's have offset entries in absolute coordinates
626      * instead of an offset from the movie beginning... this is...
627      * wacky, but we need to handle it. The wacky offset always
628      * starts at movi_offset it seems... so we'll check that.
629      * Note the offset needs an extra 4 bytes for some
630      * undetermined reason */
631
632     if (movie->entries[0].Offset == movie->movi_offset) {
633       movie->read_offset = 4;
634     }
635   }
636
637   DEBUG_PRINT("movie successfully opened\n");
638   return AVI_ERROR_NONE;
639 }
640
641 void *AVI_read_frame(AviMovie *movie, AviFormat format, int frame, int stream)
642 {
643   int cur_frame = -1, i = 0, rewind = 1;
644   void *buffer;
645
646   /* Retrieve the record number of the desired frame in the index
647    * If a chunk has Size 0 we need to rewind to previous frame */
648   while (rewind && frame > -1) {
649     i = 0;
650     cur_frame = -1;
651     rewind = 0;
652
653     while (cur_frame < frame && i < movie->index_entries) {
654       if (fcc_is_data(movie->entries[i].ChunkId) &&
655           fcc_get_stream(movie->entries[i].ChunkId) == stream) {
656         if ((cur_frame == frame - 1) && (movie->entries[i].Size == 0)) {
657           rewind = 1;
658           frame = frame - 1;
659         }
660         else {
661           cur_frame++;
662         }
663       }
664       i++;
665     }
666   }
667
668   if (cur_frame != frame) {
669     return NULL;
670   }
671
672   fseek(movie->fp, movie->read_offset + movie->entries[i - 1].Offset, SEEK_SET);
673
674   size_t size = GET_FCC(movie->fp);
675   buffer = MEM_mallocN(size, "readbuffer");
676
677   if (fread(buffer, 1, size, movie->fp) != size) {
678     MEM_freeN(buffer);
679
680     return NULL;
681   }
682
683   buffer = avi_format_convert(movie, stream, buffer, movie->streams[stream].format, format, &size);
684
685   return buffer;
686 }
687
688 AviError AVI_close(AviMovie *movie)
689 {
690   int i;
691
692   fclose(movie->fp);
693
694   for (i = 0; i < movie->header->Streams; i++) {
695     if (movie->streams[i].sf != NULL) {
696       MEM_freeN(movie->streams[i].sf);
697     }
698   }
699
700   MEM_freeN(movie->header);
701   MEM_freeN(movie->streams);
702
703   if (movie->entries != NULL) {
704     MEM_freeN(movie->entries);
705   }
706   if (movie->offset_table != NULL) {
707     MEM_freeN(movie->offset_table);
708   }
709
710   return AVI_ERROR_NONE;
711 }
712
713 AviError AVI_open_compress(char *name, AviMovie *movie, int streams, ...)
714 {
715   va_list ap;
716   AviList list;
717   AviChunk chunk;
718   int i;
719   int64_t header_pos1, header_pos2;
720   int64_t stream_pos1, stream_pos2;
721   int64_t junk_pos;
722
723   movie->type = AVI_MOVIE_WRITE;
724   movie->fp = BLI_fopen(name, "wb");
725
726   movie->index_entries = 0;
727
728   if (movie->fp == NULL) {
729     return AVI_ERROR_OPEN;
730   }
731
732   movie->offset_table = (int64_t *)MEM_mallocN((1 + streams * 2) * sizeof(int64_t), "offsettable");
733
734   for (i = 0; i < 1 + streams * 2; i++) {
735     movie->offset_table[i] = -1L;
736   }
737
738   movie->entries = NULL;
739
740   movie->header = (AviMainHeader *)MEM_mallocN(sizeof(AviMainHeader), "movieheader");
741
742   movie->header->fcc = FCC("avih");
743   movie->header->size = 56;
744   movie->header->MicroSecPerFrame = 66667;
745   movie->header->MaxBytesPerSec = 0;
746   movie->header->PaddingGranularity = 0;
747   movie->header->Flags = AVIF_HASINDEX | AVIF_MUSTUSEINDEX;
748   movie->header->TotalFrames = 0;
749   movie->header->InitialFrames = 0;
750   movie->header->Streams = streams;
751   movie->header->SuggestedBufferSize = 0;
752   movie->header->Width = 0;
753   movie->header->Height = 0;
754   movie->header->Reserved[0] = 0;
755   movie->header->Reserved[1] = 0;
756   movie->header->Reserved[2] = 0;
757   movie->header->Reserved[3] = 0;
758
759   /* Limit number of streams to some reasonable amount to prevent
760    * buffer overflow vulnerabilities. */
761   if (movie->header->Streams < 0 || movie->header->Streams > 65536) {
762     DEBUG_PRINT("Number of streams should be in range 0-65536\n");
763     return AVI_ERROR_FORMAT;
764   }
765
766   movie->streams = (AviStreamRec *)MEM_mallocN(sizeof(AviStreamRec) * movie->header->Streams,
767                                                "moviestreams");
768
769   va_start(ap, streams);
770
771   for (i = 0; i < movie->header->Streams; i++) {
772     movie->streams[i].format = va_arg(ap, AviFormat);
773
774     movie->streams[i].sh.fcc = FCC("strh");
775     movie->streams[i].sh.size = 56;
776     movie->streams[i].sh.Type = avi_get_format_type(movie->streams[i].format);
777     if (movie->streams[i].sh.Type == 0) {
778       va_end(ap);
779       return AVI_ERROR_FORMAT;
780     }
781
782     movie->streams[i].sh.Handler = avi_get_format_fcc(movie->streams[i].format);
783     if (movie->streams[i].sh.Handler == 0) {
784       va_end(ap);
785       return AVI_ERROR_FORMAT;
786     }
787
788     movie->streams[i].sh.Flags = 0;
789     movie->streams[i].sh.Priority = 0;
790     movie->streams[i].sh.Language = 0;
791     movie->streams[i].sh.InitialFrames = 0;
792     movie->streams[i].sh.Scale = 66667;
793     movie->streams[i].sh.Rate = 1000000;
794     movie->streams[i].sh.Start = 0;
795     movie->streams[i].sh.Length = 0;
796     movie->streams[i].sh.SuggestedBufferSize = 0;
797     movie->streams[i].sh.Quality = 10000;
798     movie->streams[i].sh.SampleSize = 0;
799     movie->streams[i].sh.left = 0;
800     movie->streams[i].sh.top = 0;
801     movie->streams[i].sh.right = 0;
802     movie->streams[i].sh.bottom = 0;
803
804     if (movie->streams[i].sh.Type == FCC("vids")) {
805       movie->streams[i].sf = MEM_mallocN(sizeof(AviBitmapInfoHeader), "moviestreamformatS");
806       movie->streams[i].sf_size = sizeof(AviBitmapInfoHeader);
807
808       ((AviBitmapInfoHeader *)movie->streams[i].sf)->fcc = FCC("strf");
809       ((AviBitmapInfoHeader *)movie->streams[i].sf)->size = movie->streams[i].sf_size - 8;
810       ((AviBitmapInfoHeader *)movie->streams[i].sf)->Size = movie->streams[i].sf_size - 8;
811       ((AviBitmapInfoHeader *)movie->streams[i].sf)->Width = 0;
812       ((AviBitmapInfoHeader *)movie->streams[i].sf)->Height = 0;
813       ((AviBitmapInfoHeader *)movie->streams[i].sf)->Planes = 1;
814       ((AviBitmapInfoHeader *)movie->streams[i].sf)->BitCount = 24;
815       ((AviBitmapInfoHeader *)movie->streams[i].sf)->Compression = avi_get_format_compression(
816           movie->streams[i].format);
817       ((AviBitmapInfoHeader *)movie->streams[i].sf)->SizeImage = 0;
818       ((AviBitmapInfoHeader *)movie->streams[i].sf)->XPelsPerMeter = 0;
819       ((AviBitmapInfoHeader *)movie->streams[i].sf)->YPelsPerMeter = 0;
820       ((AviBitmapInfoHeader *)movie->streams[i].sf)->ClrUsed = 0;
821       ((AviBitmapInfoHeader *)movie->streams[i].sf)->ClrImportant = 0;
822     }
823   }
824
825   list.fcc = FCC("RIFF");
826   list.size = 0;
827   list.ids = FCC("AVI ");
828
829   awrite(movie, &list, 1, sizeof(AviList), movie->fp, AVI_LIST);
830
831   list.fcc = FCC("LIST");
832   list.size = 0;
833   list.ids = FCC("hdrl");
834
835   awrite(movie, &list, 1, sizeof(AviList), movie->fp, AVI_LIST);
836
837   header_pos1 = ftell(movie->fp);
838
839   movie->offset_table[0] = ftell(movie->fp);
840
841   awrite(movie, movie->header, 1, sizeof(AviMainHeader), movie->fp, AVI_MAINH);
842
843   for (i = 0; i < movie->header->Streams; i++) {
844     list.fcc = FCC("LIST");
845     list.size = 0;
846     list.ids = FCC("strl");
847
848     awrite(movie, &list, 1, sizeof(AviList), movie->fp, AVI_LIST);
849
850     stream_pos1 = ftell(movie->fp);
851
852     movie->offset_table[1 + i * 2] = ftell(movie->fp);
853     awrite(movie, &movie->streams[i].sh, 1, sizeof(AviStreamHeader), movie->fp, AVI_STREAMH);
854
855     movie->offset_table[1 + i * 2 + 1] = ftell(movie->fp);
856     awrite(movie, movie->streams[i].sf, 1, movie->streams[i].sf_size, movie->fp, AVI_BITMAPH);
857
858     stream_pos2 = ftell(movie->fp);
859
860     fseek(movie->fp, stream_pos1 - 8, SEEK_SET);
861
862     PUT_FCCN((stream_pos2 - stream_pos1 + 4L), movie->fp);
863
864     fseek(movie->fp, stream_pos2, SEEK_SET);
865   }
866
867   junk_pos = ftell(movie->fp);
868
869   if (junk_pos < 2024 - 8) {
870     chunk.fcc = FCC("JUNK");
871     chunk.size = 2024 - 8 - (int)junk_pos;
872
873     awrite(movie, &chunk, 1, sizeof(AviChunk), movie->fp, AVI_CHUNK);
874
875     for (i = 0; i < chunk.size; i++) {
876       putc(0, movie->fp);
877     }
878   }
879
880   header_pos2 = ftell(movie->fp);
881
882   list.fcc = FCC("LIST");
883   list.size = 0;
884   list.ids = FCC("movi");
885
886   awrite(movie, &list, 1, sizeof(AviList), movie->fp, AVI_LIST);
887
888   movie->movi_offset = ftell(movie->fp) - 8L;
889
890   fseek(movie->fp, AVI_HDRL_SOFF, SEEK_SET);
891
892   PUT_FCCN((header_pos2 - header_pos1 + 4L), movie->fp);
893
894   va_end(ap);
895
896   return AVI_ERROR_NONE;
897 }
898
899 AviError AVI_write_frame(AviMovie *movie, int frame_num, ...)
900 {
901   AviList list;
902   AviChunk chunk;
903   va_list ap;
904   int stream;
905   int64_t rec_off;
906   AviFormat format;
907   void *buffer;
908
909   if (frame_num < 0) {
910     return AVI_ERROR_OPTION;
911   }
912
913   /* Allocate the new memory for the index entry */
914
915   if (frame_num >= movie->index_entries) {
916     const size_t entry_size = (movie->header->Streams + 1) * sizeof(AviIndexEntry);
917     movie->entries = (AviIndexEntry *)MEM_recallocN(movie->entries, (frame_num + 1) * entry_size);
918     movie->index_entries = frame_num + 1;
919   }
920
921   /* Slap a new record entry onto the end of the file */
922
923   fseek(movie->fp, 0L, SEEK_END);
924
925   list.fcc = FCC("LIST");
926   list.size = 0;
927   list.ids = FCC("rec ");
928
929   awrite(movie, &list, 1, sizeof(AviList), movie->fp, AVI_LIST);
930
931   rec_off = ftell(movie->fp) - 8L;
932
933   /* Write a frame for every stream */
934
935   va_start(ap, frame_num);
936
937   for (stream = 0; stream < movie->header->Streams; stream++) {
938     unsigned int tbuf = 0;
939
940     format = va_arg(ap, AviFormat);
941     buffer = va_arg(ap, void *);
942     size_t size = va_arg(ap, int);
943
944     /* Convert the buffer into the output format */
945     buffer = avi_format_convert(
946         movie, stream, buffer, format, movie->streams[stream].format, &size);
947
948     /* Write the header info for this data chunk */
949
950     fseek(movie->fp, 0L, SEEK_END);
951
952     chunk.fcc = avi_get_data_id(format, stream);
953     chunk.size = size;
954
955     if (size % 4) {
956       chunk.size += 4 - size % 4;
957     }
958
959     awrite(movie, &chunk, 1, sizeof(AviChunk), movie->fp, AVI_CHUNK);
960
961     /* Write the index entry for this data chunk */
962
963     movie->entries[frame_num * (movie->header->Streams + 1) + stream + 1].ChunkId = chunk.fcc;
964     movie->entries[frame_num * (movie->header->Streams + 1) + stream + 1].Flags = AVIIF_KEYFRAME;
965     movie->entries[frame_num * (movie->header->Streams + 1) + stream + 1].Offset =
966         (int)(ftell(movie->fp) - 12L - movie->movi_offset);
967     movie->entries[frame_num * (movie->header->Streams + 1) + stream + 1].Size = chunk.size;
968
969     /* Write the chunk */
970     awrite(movie, buffer, 1, size, movie->fp, AVI_RAW);
971     MEM_freeN(buffer);
972
973     if (size % 4) {
974       awrite(movie, &tbuf, 1, 4 - size % 4, movie->fp, AVI_RAW);
975     }
976
977     /* Update the stream headers length field */
978     movie->streams[stream].sh.Length++;
979     fseek(movie->fp, movie->offset_table[1 + stream * 2], SEEK_SET);
980     awrite(movie, &movie->streams[stream].sh, 1, sizeof(AviStreamHeader), movie->fp, AVI_STREAMH);
981   }
982   va_end(ap);
983
984   /* Record the entry for the new record */
985
986   fseek(movie->fp, 0L, SEEK_END);
987
988   movie->entries[frame_num * (movie->header->Streams + 1)].ChunkId = FCC("rec ");
989   movie->entries[frame_num * (movie->header->Streams + 1)].Flags = AVIIF_LIST;
990   movie->entries[frame_num * (movie->header->Streams + 1)].Offset = (int)(rec_off - 8L -
991                                                                           movie->movi_offset);
992   movie->entries[frame_num * (movie->header->Streams + 1)].Size = (int)(ftell(movie->fp) -
993                                                                         (rec_off + 4L));
994
995   /* Update the record size */
996   fseek(movie->fp, rec_off, SEEK_SET);
997   PUT_FCCN(movie->entries[frame_num * (movie->header->Streams + 1)].Size, movie->fp);
998
999   /* Update the main header information in the file */
1000   movie->header->TotalFrames++;
1001   fseek(movie->fp, movie->offset_table[0], SEEK_SET);
1002   awrite(movie, movie->header, 1, sizeof(AviMainHeader), movie->fp, AVI_MAINH);
1003
1004   return AVI_ERROR_NONE;
1005 }
1006
1007 AviError AVI_close_compress(AviMovie *movie)
1008 {
1009   int temp, movi_size, i;
1010
1011   if (movie->fp == NULL) {
1012     /* none of the allocations below were done if the file failed to open */
1013     return AVI_ERROR_FOUND;
1014   }
1015
1016   fseek(movie->fp, 0L, SEEK_END);
1017   movi_size = (int)ftell(movie->fp);
1018
1019   PUT_FCC("idx1", movie->fp);
1020   PUT_FCCN((movie->index_entries * (movie->header->Streams + 1) * 16), movie->fp);
1021
1022   for (temp = 0; temp < movie->index_entries * (movie->header->Streams + 1); temp++) {
1023     awrite(movie, &movie->entries[temp], 1, sizeof(AviIndexEntry), movie->fp, AVI_INDEXE);
1024   }
1025
1026   temp = (int)ftell(movie->fp);
1027
1028   fseek(movie->fp, AVI_RIFF_SOFF, SEEK_SET);
1029
1030   PUT_FCCN((temp - 8L), movie->fp);
1031
1032   fseek(movie->fp, movie->movi_offset, SEEK_SET);
1033
1034   PUT_FCCN((movi_size - (movie->movi_offset + 4L)), movie->fp);
1035
1036   fclose(movie->fp);
1037
1038   for (i = 0; i < movie->header->Streams; i++) {
1039     if (movie->streams && (movie->streams[i].sf != NULL)) {
1040       MEM_freeN(movie->streams[i].sf);
1041     }
1042   }
1043
1044   MEM_freeN(movie->header);
1045
1046   if (movie->entries != NULL) {
1047     MEM_freeN(movie->entries);
1048   }
1049   if (movie->streams != NULL) {
1050     MEM_freeN(movie->streams);
1051   }
1052   if (movie->offset_table != NULL) {
1053     MEM_freeN(movie->offset_table);
1054   }
1055   return AVI_ERROR_NONE;
1056 }