diff options
author | Timothy Pearson <kb9vqf@pearsoncomputing.net> | 2013-01-26 13:17:50 -0600 |
---|---|---|
committer | Timothy Pearson <kb9vqf@pearsoncomputing.net> | 2013-01-26 13:17:50 -0600 |
commit | b363d2579af0a11b77e698aed2e1021c2233b644 (patch) | |
tree | f4a47b87354b7a6a3b266c8121bd8ddaeb7accaa /tderesources/groupwise/soap/fixup_groupwise.h.pl | |
parent | 61bddfe3a7226b18c68a76124b727c736f431688 (diff) | |
download | tdepim-b363d2579af0a11b77e698aed2e1021c2233b644.tar.gz tdepim-b363d2579af0a11b77e698aed2e1021c2233b644.zip |
Rename a number of libraries and executables to avoid conflicts with KDE4
Diffstat (limited to 'tderesources/groupwise/soap/fixup_groupwise.h.pl')
-rwxr-xr-x | tderesources/groupwise/soap/fixup_groupwise.h.pl | 60 |
1 files changed, 60 insertions, 0 deletions
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" ); +} |