From 08d500519f15e6af421f3596b923205cde3fba97 Mon Sep 17 00:00:00 2001
From: Timo Sirainen <cras@irssi.org>
Date: Sun, 9 Jul 2000 14:02:56 +0000
Subject: Create colorless.theme automatically with a perl script in autogen.sh

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@443 dbcabf3a-b0e7-0310-adc4-f8d773084564
---
 autogen.sh | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

(limited to 'autogen.sh')

diff --git a/autogen.sh b/autogen.sh
index 5043cab8..7ae651ed 100755
--- a/autogen.sh
+++ b/autogen.sh
@@ -133,3 +133,18 @@ if test x$NOCONFIGURE = x; then
 else
   echo Skipping configure process.
 fi
+
+# generate colorless.theme
+echo "formats = {" > colorless.theme
+
+files=`find src -name 'module-formats.c'`
+for i in $files; do
+  file=`echo "$i"|sed 's@^src/@@'`
+  file=`echo "$file"|sed 's@/module-formats\.c$@@'`
+  echo "  \"$file\" = {" >> colorless.theme
+  #cat $i | perl -e 'while (<>) { if (/.*".*".*".*"/) { s/^\W*{\W*"([^"]*)",\W*"([^"]*)".*/    \1 = "\2;"/; print $_; } }' >> colorless.theme
+  cat $i | perl -e 'while (<>) { if (/^\W*{\W*"([^"]*)",\W*"([^"]*)".*/) { $key = $1; $value = $2; $value ~= s/%[krgybmpcwKRGYBMPCW01234567]//g; print("    $key = \"$value\";\n"); } }' >> colorless.theme
+  echo "  };" >> colorless.theme
+done
+
+echo "};" >> colorless.theme
-- 
cgit v1.2.3