diff options
Diffstat (limited to 'bin/subst_env.pl')
-rwxr-xr-x | bin/subst_env.pl | 67 |
1 files changed, 0 insertions, 67 deletions
diff --git a/bin/subst_env.pl b/bin/subst_env.pl deleted file mode 100755 index be4007b7a61..00000000000 --- a/bin/subst_env.pl +++ /dev/null @@ -1,67 +0,0 @@ -#!/usr/bin/perl -# -# $Id$ -# -# This script eases the transition from the CORBA::Environment& ACE_TRY_ENV -# declarations and method parameters to the ACE_ENV_ARG macros. -# It was used for converting TAO between versions 1.2.1 and 1.2.2. -# The converted output is written to stdout. -# Typical usage would be as follows: -# perl subst_env.pl file_with_acetryenv.cpp >file_with_taoenvarg.cpp -# -$linenum = 0; -$last=""; -$corbaenv = 'CORBA(::|_)Environment'; -$envdecl = 'CORBA(::|_)Environment *& *\w*[Ee][Nn][Vv]\w*'; -$default = '(TAO_|CORBA\::Environment\::)default_environment *\(\)'; -$envvar = '(ACE|TAO)_TRY_ENV'; -while (($l = <>)) { - $linenum++; - if ($l =~ /$corbaenv/) { - my $single = "SINGLE_"; - if ($last =~ /,\s*$/) { - $last =~ s/,\s*$/\n/; - $single = ""; - } elsif ($l =~ /,\s*$corbaenv/) { - $l =~ s/,\s*$corbaenv/ CORBA_Environment/; # Preparation. - $single = ""; - } - unless ($l =~ /${corbaenv}.*\)/) { # Need the method's closing paren. - chop $l; - my $nxt = <>; - $linenum++; - $nxt =~ s/^\s+//; - $l .= $nxt; - } - if ($l =~ /$envdecl/) { - if ($l =~ /$envdecl *= *$default/) { - $l =~ s/$envdecl *= *$default/ACE_ENV_${single}ARG_DECL_WITH_DEFAULTS/; - } else { - $l =~ s/$envdecl/ACE_ENV_${single}ARG_DECL/; - } - } else { - $l =~ s/$corbaenv *& */ACE_ENV_${single}ARG_DECL_NOT_USED/; - } - print $last; - print $l; - $last = ""; - } elsif ($l =~ /$envvar/) { - my $single = "SINGLE_"; - if ($last =~ /,\s*$/) { - $last =~ s/,\s*$/\n/; - $single = ""; - } elsif ($l =~ /,\s*$envvar/) { - $l =~ s/,\s*$envvar/ ACE_TRY_ENV/; # Preparation. - $single = ""; - } - $l =~ s/$envvar/ACE_ENV_${single}ARG_PARAMETER/; - print $last; - print $l; - $last = ""; - } else { - print $last; - $last = $l; - } -} -print $last; - |