3 files changed, 101 insertions, 0 deletions
diff --git a/test/ffmpeg_structs/Makefile b/test/ffmpeg_structs/Makefile
new file mode 100644
index 00000000..11e87cf0
--- /dev/null
+++ b/test/ffmpeg_structs/Makefile
@@ -0,0 +1,22 @@
+FFMPEG_VERSION=1.0
+
+all: ffmpeg_c ffmpeg_pas
+	@./ffmpeg_c >ffmpeg_c.txt
+	@./ffmpeg_pas >ffmpeg_pas.txt
+	@diff ffmpeg_c.txt ffmpeg_pas.txt
+
+ffmpeg_c: ffmpeg_c.c
+	@gcc -o $@ $^
+
+ffmpeg_pas: ffmpeg_pas.pas
+	@fpc -v0 -Fi../../src $^ >/dev/null 2>&1
+
+ffmpeg_c.c:
+	@FFMPEG_VERSION=$(FFMPEG_VERSION) ./find_avtypes
+
+ffmpeg_pas.pas:
+	@FFMPEG_VERSION=$(FFMPEG_VERSION) ./find_avtypes
+
+.PHONY: clean
+clean:
+	@rm -f ffmpeg_c* ffmpeg_pas*
diff --git a/test/ffmpeg_structs/README b/test/ffmpeg_structs/README
new file mode 100644
index 00000000..cba407d7
--- /dev/null
+++ b/test/ffmpeg_structs/README
@@ -0,0 +1,22 @@
+This test scans through the source files in order to find types
+and pointers to types from the pascal port of the ffmpeg
+libraries (TAV..., PAV...).
+
+It generates source files for pascal and c that print the sizes
+of the types used in the sources.
+
+The concluding comparison shows the size differences between the
+pascal types and the c structs:
+- type is bigger than struct
+- type is smaller than struct
+
+If struct members' names have changed, the compiler will complain.
+
+The test doesn't, however, show if struct members have been swapped
+with the size staying exactly the same. Hopefully, that scenario
+isn't too likely.
+
+With the exception of the last point, if this test doesn't yield
+a result (the types and structs have the same size), it is quite
+plausible that the pascal port of the c structs has been done
+correctly.
diff --git a/test/ffmpeg_structs/find_avtypes b/test/ffmpeg_structs/find_avtypes
new file mode 100755
index 00000000..c13672f5
--- /dev/null
+++ b/test/ffmpeg_structs/find_avtypes
@@ -0,0 +1,57 @@
+#!/bin/sh
+
+SRC_DIR='../../src'
+PAS='ffmpeg_pas.pas'
+C='ffmpeg_c.c'
+
+types=$(find $SRC_DIR -path "$SRC_DIR/lib" -prune -o -name "*.pas" -print0|xargs -0 grep --files-with-match '\bavcodec\b'|xargs grep --no-filename --only-matching '\b[PT]AV\w\+'|sed 's/^P/T/'|sort|uniq)
+
+# swscale doesn't seem to contain noteworthy types, thus it's not considered
+
+cat >$PAS <<EOL
+program ffmpeg_pas;
+
+uses
+  avcodec  in '$SRC_DIR/lib/ffmpeg-$FFMPEG_VERSION/avcodec.pas',
+  avformat in '$SRC_DIR/lib/ffmpeg-$FFMPEG_VERSION/avformat.pas',
+  avutil   in '$SRC_DIR/lib/ffmpeg-$FFMPEG_VERSION/avutil.pas',
+  rational in '$SRC_DIR/lib/ffmpeg-$FFMPEG_VERSION/rational.pas',
+  avio     in '$SRC_DIR/lib/ffmpeg-$FFMPEG_VERSION/avio.pas',
+  UConfig  in '$SRC_DIR/base/UConfig',
+  SysUtils;
+
+begin
+EOL
+
+for t in $types
+do
+	echo "  WriteLn('$t: ' + IntToStr(SizeOf($t)));" >>$PAS
+done
+
+cat >>$PAS <<EOL
+end.
+EOL
+
+cat >$C <<EOL
+#include "libavcodec/avcodec.h"
+#include "libavformat/avformat.h"
+#include "libavutil/samplefmt.h"
+#include "libavutil/avutil.h"
+#include "libavformat/avio.h"
+
+// workaround for enum
+typedef enum AVSampleFormat AVSampleFormat;
+
+int main(int argc, char *argv[]) {
+EOL
+
+for t in $types
+do
+	tt=$(echo $t|sed 's/^T//')
+	echo "   printf(\"$t: %ld\\n\", sizeof($tt));" >>$C
+done
+
+cat >>$C <<EOL
+   return 0;
+}
+EOL