new tool for the calculation of four letter tags. Some ffmpeg files need these hard-coded. Includes binaries.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@2957 b956fd51-792f-4845-bead-9b4dfca2ff2c

4 files changed, 26 insertions, 0 deletions

diff --git a/tools/DoTags/DoTags.exe b/tools/DoTags/DoTags.exe
new file mode 100644
index 00000000..48ee1285
--- /dev/null
+++ b/tools/DoTags/DoTags.exe
diff --git a/tools/DoTags/DoTags.pas b/tools/DoTags/DoTags.pas
new file mode 100644
index 00000000..1e18ea12
--- /dev/null
+++ b/tools/DoTags/DoTags.pas
@@ -0,0 +1,26 @@
+program DoTags;
+var
+  four_letters: string;
+  tag: int32;
+begin
+  writeln ('Program for the calculation of 4 letter tags, little and big endian.');
+  writeln ('Enter 4 letters:');
+  readln (four_letters);
+  while length(four_letters) <> 4 do
+  begin
+    writeln ('This were ', length(four_letters), ' letter(s). Enter exactly 4 letters:');
+    readln (four_letters);
+  end;
+  tag := ord(four_letters[4]) or (ord(four_letters[3]) shl 8) or (ord(four_letters[2]) shl 16) or (ord(four_letters[1]) shl 24);
+  writeln ('BE-TAG: $', hexStr(tag, 8));
+  tag := ord(four_letters[1]) or (ord(four_letters[2]) shl 8) or (ord(four_letters[3]) shl 16) or (ord(four_letters[4]) shl 24);
+  writeln ('LE-TAG: $', hexStr(tag, 8));
+  if four_letters[1] = '0' then
+  begin
+    writeln ('Maybe you want a digital zero in the first position. Here you go:');
+    tag := ord(four_letters[4]) or (ord(four_letters[3]) shl 8) or (ord(four_letters[2]) shl 16);
+    writeln ('BE-TAG: $', hexStr(tag, 8));
+    tag := (ord(four_letters[2]) shl 8) or (ord(four_letters[3]) shl 16) or (ord(four_letters[4]) shl 24);
+    writeln ('LE-TAG: $', hexStr(tag, 8));
+  end;
+end.
diff --git a/tools/DoTags/DoTags_linux b/tools/DoTags/DoTags_linux
new file mode 100755
index 00000000..0aaea9f4
--- /dev/null
+++ b/tools/DoTags/DoTags_linux
diff --git a/tools/DoTags/DoTags_macosx b/tools/DoTags/DoTags_macosx
new file mode 100755
index 00000000..8858e351
--- /dev/null
+++ b/tools/DoTags/DoTags_macosx