|
|
@@ -738,6 +738,7 @@ let build_swf8 com codeclip exports =
|
|
|
type file_format =
|
|
|
| BJPG
|
|
|
| BPNG
|
|
|
+ | BGIF
|
|
|
| SWAV
|
|
|
| SMP3
|
|
|
|
|
|
@@ -748,6 +749,7 @@ let detect_format data p =
|
|
|
| 'R', 'I', 'F' -> SWAV
|
|
|
| 'I', 'D', '3' -> SMP3
|
|
|
| '\xFF', '\xFB', _ -> SMP3
|
|
|
+ | 'G', 'I', 'F' -> BGIF
|
|
|
| _ ->
|
|
|
error "Unknown file format" p
|
|
|
|
Nicolas Cannasse