From bcb704366cb5e333a626c18c308c7e0448a8e69f Mon Sep 17 00:00:00 2001
From: toma <toma@283d02a7-25f6-0310-bc7c-ecb5cbfe19da>
Date: Wed, 25 Nov 2009 17:56:58 +0000
Subject: Copy the KDE 3.5 branch to branches/trinity for new KDE 3.5 features.
 BUG:215923

git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/kdenetwork@1054174 283d02a7-25f6-0310-bc7c-ecb5cbfe19da
---
 ksirc/puke/convert_commands.pl | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100755 ksirc/puke/convert_commands.pl

(limited to 'ksirc/puke/convert_commands.pl')

diff --git a/ksirc/puke/convert_commands.pl b/ksirc/puke/convert_commands.pl
new file mode 100755
index 00000000..98ad7e35
--- /dev/null
+++ b/ksirc/puke/convert_commands.pl
@@ -0,0 +1,13 @@
+#!/usr/bin/perl
+
+open(CMD, "cat commands.h *-cmd.h|");
+open(CMDP, ">commands-perl.pl");
+while(<CMD>){
+  if(/#define (\S+) (.+)/){
+     print CMDP "\$${1} = $2;\n";
+     print CMDP "\$PUKE_NAME2NUM\{'$1'\} = $2;\n";
+     print CMDP "\$PUKE_NUM2NAME\{'$2'\} = '$1';\n";
+   }
+}
+
+print CMDP "\n1;\n";
-- 
cgit v1.2.1