Add nomacro script from cpuminer sources tree.

This script could be helpful in LLVM based environments.

diff --git a/contrib/clang/nomacro.pl b/contrib/clang/nomacro.pl
new file mode 100755 (executable)
index 0000000..e91cda3
--- /dev/null
+++ b/contrib/clang/nomacro.pl
@@ -0,0 +1,47 @@
+#!/usr/bin/perl
+# Copyright 2012 pooler@litecoinpool.org
+#
+# This program is free software; you can redistribute it and/or modify it
+# under the terms of the GNU General Public License as published by the Free
+# Software Foundation; either version 2 of the License, or (at your option)
+# any later version.  See COPYING for more details.
+#
+# nomacro.pl - convert assembler macros to C preprocessor macros.
+
+use strict;
+
+foreach my $f (<*.S>) {
+       rename $f, "$f.orig";
+       open FIN, "$f.orig";
+       open FOUT, ">$f";
+       my $inmacro = 0;
+       my %macros = ();
+       while (<FIN>) {
+               if (m/^\.macro\s+([_0-9A-Z]+)(?:\s*)(.*)$/i) {
+                       print FOUT "#define $1($2) \\\n";
+                       $macros{$1} = 1;
+                       $inmacro = 1;
+                       next;
+               }
+               if (m/^\.endm/) {
+                       print FOUT "\n";
+                       $inmacro = 0;
+                       next;
+               }
+               for my $m (keys %macros) {
+                       s/^([ \t]*)($m)(?:[ \t]+([^#\n]*))?([;\n])/\1\2(\3)\4/;
+               }
+               if ($inmacro) {
+                       if (m/^\s*#if/) {
+                               $_ = <FIN> while (!m/^\s*#endif/);
+                               next;
+                       }
+                       next if (m/^\s*$/);
+                       s/\\//g;
+                       s/$/; \\/;
+               }
+               print FOUT;
+       }
+       close FOUT;
+       close FIN;
+}