diff options
Diffstat (limited to 'src/tools')
| -rw-r--r-- | src/tools/msvc/Install.pm | 39 |
1 files changed, 0 insertions, 39 deletions
diff --git a/src/tools/msvc/Install.pm b/src/tools/msvc/Install.pm index 7e1c9ac8480..7494bfa0047 100644 --- a/src/tools/msvc/Install.pm +++ b/src/tools/msvc/Install.pm @@ -139,7 +139,6 @@ sub Install CopyFiles( 'Error code data', $target . '/share/', 'src/backend/utils/', 'errcodes.txt'); - GenerateConversionScript($target); GenerateTimezoneFiles($target, $conf); GenerateTsearchFiles($target); CopySetOfFiles( @@ -348,44 +347,6 @@ sub CopySolutionOutput return; } -sub GenerateConversionScript -{ - my $target = shift; - my $sql = ""; - my $F; - - print "Generating conversion proc script..."; - my $mf = read_file('src/backend/utils/mb/conversion_procs/Makefile'); - $mf =~ s{\\\r?\n}{}g; - $mf =~ /^CONVERSIONS\s*=\s*(.*)$/m - || die "Could not find CONVERSIONS line in conversions Makefile\n"; - my @pieces = split /\s+/, $1; - while ($#pieces > 0) - { - my $name = shift @pieces; - my $se = shift @pieces; - my $de = shift @pieces; - my $func = shift @pieces; - my $obj = shift @pieces; - $sql .= "-- $se --> $de\n"; - $sql .= - "CREATE OR REPLACE FUNCTION $func (INTEGER, INTEGER, CSTRING, INTERNAL, INTEGER) RETURNS VOID AS '\$libdir/$obj', '$func' LANGUAGE C STRICT;\n"; - $sql .= - "COMMENT ON FUNCTION $func(INTEGER, INTEGER, CSTRING, INTERNAL, INTEGER) IS 'internal conversion function for $se to $de';\n"; - $sql .= "DROP CONVERSION pg_catalog.$name;\n"; - $sql .= - "CREATE DEFAULT CONVERSION pg_catalog.$name FOR '$se' TO '$de' FROM $func;\n"; - $sql .= - "COMMENT ON CONVERSION pg_catalog.$name IS 'conversion for $se to $de';\n\n"; - } - open($F, '>', "$target/share/conversion_create.sql") - || die "Could not write to conversion_create.sql\n"; - print $F $sql; - close($F); - print "\n"; - return; -} - sub GenerateTimezoneFiles { my $target = shift; |