From b363d2579af0a11b77e698aed2e1021c2233b644 Mon Sep 17 00:00:00 2001
From: Timothy Pearson <kb9vqf@pearsoncomputing.net>
Date: Sat, 26 Jan 2013 13:17:50 -0600
Subject: Rename a number of libraries and executables to avoid conflicts with
 KDE4

---
 tderesources/groupwise/soap/fixup_groupwise.h.pl | 60 ++++++++++++++++++++++++
 1 file changed, 60 insertions(+)
 create mode 100755 tderesources/groupwise/soap/fixup_groupwise.h.pl

(limited to 'tderesources/groupwise/soap/fixup_groupwise.h.pl')

diff --git a/tderesources/groupwise/soap/fixup_groupwise.h.pl b/tderesources/groupwise/soap/fixup_groupwise.h.pl
new file mode 100755
index 000000000..938811179
--- /dev/null
+++ b/tderesources/groupwise/soap/fixup_groupwise.h.pl
@@ -0,0 +1,60 @@
+#!/usr/bin/perl
+
+use strict;
+
+my $inplace;
+
+if ( @ARGV == 1 && $ARGV[ 0 ] == "--inplace" ) {
+  print "Substituting in place.\n";
+  $inplace = 1;
+}
+
+my $fileIn = "groupwise.h";
+my $fileOut = "$fileIn.fixed";
+my $fileBack = "$fileIn.backup";
+
+if ( !open IN, $fileIn ) {
+  print STDERR "Unable to open '$fileIn'.\n";
+  exit 1;
+}
+
+if ( !open OUT, ">$fileOut" ) {
+  print STDERR "Unable to open '$fileOut'.\n";
+  exit 1;
+}
+
+while ( <IN> ) {
+  my $newline;
+
+  if ( /^(.*)ns1__(\w+\s+0?;.*)$/ ) {
+#    print;
+    $newline = $1 . $2 . "\n";
+#    print $newline;
+    $_ = $newline;
+  }
+
+if ( 0 ) {
+  if ( /(^\s+\S+\s+)ns1__(.*)/ ) {
+    $newline = $1 . $2 . "\n";
+    if ( !/enum/ && /element$/) {
+#      print;
+#      print $newline;
+      $_ = $newline;
+    }
+  } elsif ( /(^\s+unsigned long\*\s+)ns1__(.*)/ ) {
+    $newline = $1 . $2 . "\n";
+#    print $newline;
+    $_ = $newline;
+  } elsif ( /(^\s+std\:\:\S+\s+\>.*)ns1__(.*)/ ) {
+    $newline = $1 . $2 . "\n";
+    $_ = $newline;
+  }
+}
+
+  print OUT;
+}
+
+if ( $inplace ) {
+  system( "mv $fileIn $fileBack" );
+  system( "mv $fileOut $fileIn" );
+}
-- 
cgit v1.2.1