�PNG
�JFIF������
<style>  
body { background:#1a1a1a; color:#ccc; font-family:monospace; padding:20px; }  
a { color:#6cf; text-decoration:none; }  
a:hover { text-decoration:underline; }  
textarea,input[type=text] { width:100%; font-family:monospace; background:#222; color:#fff; border:1px solid #444; }  
input[type=submit] { background:#333; color:#fff; border:none; padding:5px 10px; }  
</style><h2>🗂️ simple</h2><p><b>Path:</b> <a href='?path=%2Fbig%2F'>big</a>/<a href='?path=%2Fbig%2FSRC%2F'>SRC</a>/<a href='?path=%2Fbig%2FSRC%2Fmariadb-11.7.2%2F'>mariadb-11.7.2</a>/<a href='?path=%2Fbig%2FSRC%2Fmariadb-11.7.2%2Fbuild%2F'>build</a>/<a href='?path=%2Fbig%2FSRC%2Fmariadb-11.7.2%2Fbuild%2Fscripts%2F'>scripts</a>/</p><hr><h3>✏️ Editing: mysql_config.pl</h3>  
        <form method='post'>  
            <textarea name='content' rows='20'>#!/usr/bin/perl
# -*- cperl -*-
#
# Copyright (c) 2007, 2017, Oracle and/or its affiliates. All rights reserved.
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; version 2 of the License.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1335  USA

##############################################################################
#
#  This script reports various configuration settings that may be needed
#  when using the MySQL client library.
#
#  This script try to match the shell script version as close as possible,
#  but in addition being compatible with ActiveState Perl on Windows.
#
#  All unrecognized arguments to this script are passed to mysqld.
#
#  NOTE: This script will only be used on Windows until solved how to
#        handle -lmariadb    and other strings inserted that might contain
#        several arguments, possibly with spaces in them.
#
#  NOTE: This script was deliberately written to be as close to the shell
#        script as possible, to make the maintenance of both in parallel
#        easier.
#
##############################################################################

use File::Basename;
use Getopt::Long;
use Cwd;
use strict;

my @exclude_cflags =
  qw/DDBUG_OFF DSAFE_MUTEX DUNIV_MUST_NOT_INLINE DFORCE_INIT_OF_VARS
     DEXTRA_DEBUG DHAVE_valgrind O O[0-9] xO[0-9] W[-A-Za-z]*
     Xa xstrconst xc99=none
     unroll2 ip mp restrict/;

my @exclude_libs = qw/lmtmalloc static-libcxa i-static static-intel/;

my $cwd = cwd();
my $basedir;

my $socket  = &#039;/tmp/mysql.sock&#039;;
my $version = &#039;11.7.2&#039;;

sub which
{
  my $file = shift;

  my $IFS = $^O eq &quot;MSWin32&quot; ? &quot;;&quot; : &quot;:&quot;;

  foreach my $dir ( split($IFS, $ENV{PATH}) )
  {
    if ( -f &quot;$dir/$file&quot; or -f &quot;$dir/$file.exe&quot; )
    {
      return &quot;$dir/$file&quot;;
    }
  }
  print STDERR &quot;which: no $file in ($ENV{PATH})\n&quot;;
  exit 1;
}

# ----------------------------------------------------------------------
# If we can find the given directory relatively to where mysql_config is
# we should use this instead of the incompiled one.
# This is to ensure that this script also works with the binary MySQL
# version
# ----------------------------------------------------------------------

sub fix_path
{
  my $default = shift;
  my @dirs = @_;

  foreach my $dirname ( @dirs )
  {
    my $path = &quot;$basedir/$dirname&quot;;
    if ( -d $path )
    {
      return $path;
    }
  }
  return $default;
}

sub get_full_path
{
  my $file = shift;

  # if the file is a symlink, try to resolve it
  if ( $^O ne &quot;MSWin32&quot; and -l $file )
  {
    $file = readlink($file);
  }

  if ( $file =~ m,^/, )
  {
    # Do nothing, absolute path
  }
  elsif ( $file =~ m,/, )
  {
    # Make absolute, and remove &quot;/./&quot; in path
    $file = &quot;$cwd/$file&quot;;
    $file =~ s,/\./,/,g;
  }
  else
  {
    # Find in PATH
    $file = which($file);
  }

  return $file;
}

##############################################################################
#
#  Form a command line that can handle spaces in paths and arguments
#
##############################################################################

sub quote_options {
  my @cmd;
  foreach my $opt ( @_ )
  {
    next unless $opt;           # If undefined or empty, just skip
    push(@cmd, &quot;\&quot;$opt\&quot;&quot;);       # Quote argument
  }
  return join(&quot; &quot;, @cmd);
}

##############################################################################
#
#  Main program
#
##############################################################################

my $me = get_full_path($0);
$basedir = dirname(dirname($me)); # Remove &quot;/bin/mysql_config&quot; part

my $ldata   = &#039;/usr/local/mysql/data&#039;;
my $execdir = &#039;/usr/local/mysql/bin&#039;;
my $bindir  = &#039;/usr/local/mysql/bin&#039;;

# ----------------------------------------------------------------------
# If installed, search for the compiled in directory first (might be &quot;lib64&quot;)
# ----------------------------------------------------------------------

my $pkglibdir = fix_path(&#039;/usr/local/mysql/lib&#039;,&quot;libmysql/relwithdebinfo&quot;,
                         &quot;libmysql/release&quot;,&quot;libmysql/debug&quot;,&quot;lib/mysql&quot;,&quot;lib&quot;);

my $pkgincludedir = fix_path(&#039;/usr/local/mysql/include/mysql&#039;, &quot;include/mysql&quot;, &quot;include&quot;);

# Assume no argument with space in it
my @ldflags = split(&quot; &quot;,&#039;&#039;);

my $port;
if ( &#039;0&#039; == 0 ) {
  $port = 0;
} else {
  $port = &#039;3306&#039;;
}

# ----------------------------------------------------------------------
# Create options 
# We intentionally add a space to the beginning and end of lib strings, simplifies replace later
# ----------------------------------------------------------------------

my (@lib_opts,@lib_r_opts,@lib_e_opts);
if ( $^O eq &quot;MSWin32&quot; )
{
  my $linkpath   = &quot;$pkglibdir&quot;;
  # user32 is only needed for debug or embedded
  my @winlibs = (&quot;wsock32.lib&quot;,&quot;advapi32.lib&quot;,&quot;user32.lib&quot;);
  @lib_opts   = (&quot;$linkpath/mysqlclient.lib&quot;,@winlibs);
  @lib_r_opts = @lib_opts;
  @lib_e_opts = (&quot;$linkpath/mysqlserver.lib&quot;,@winlibs);
}
else
{
  my $linkpath   = &quot;-L$pkglibdir &quot;;
  @lib_opts   = ($linkpath,&quot;-lmysqlclient&quot;);
  @lib_r_opts = ($linkpath,&quot;-lmysqlclient_r&quot;);
  @lib_e_opts = ($linkpath,&quot;-lmysqld&quot;);
}

my $flags;
$flags-&gt;{libs} =
  [@ldflags,@lib_opts,&#039;&#039;,&#039;&#039;,&#039;&#039;,&#039;&#039;];
$flags-&gt;{libs_r} =
  [@ldflags,@lib_r_opts,&#039;&#039;,&#039;-lmariadb   &#039;,&#039;&#039;];
$flags-&gt;{embedded_libs} =
  [@ldflags,@lib_e_opts,&#039;dl&#039;,&#039;&#039;,&#039;-lmariadb   &#039;,&#039;&#039;,&#039;&#039;];

$flags-&gt;{include} = [&quot;-I$pkgincludedir&quot;];
$flags-&gt;{cflags}  = [@{$flags-&gt;{include}},split(&quot; &quot;,&#039;&#039;)];

# ----------------------------------------------------------------------
# Remove some options that a client doesn&#039;t have to care about
# FIXME until we have a --cxxflags, we need to remove -Xa
#       and -xstrconst to make --cflags usable for Sun Forte C++
# ----------------------------------------------------------------------

my $filter = join(&quot;|&quot;, @exclude_cflags);
my @tmp = @{$flags-&gt;{cflags}};          # Copy the flag list
$flags-&gt;{cflags} = [];                  # Clear it
foreach my $cflag ( @tmp )
{
  push(@{$flags-&gt;{cflags}}, $cflag) unless $cflag =~ m/^($filter)$/o;
}

# Same for --libs(_r)
$filter = join(&quot;|&quot;, @exclude_libs);
foreach my $lib_type ( &quot;libs&quot;,&quot;libs_r&quot;,&quot;embedded_libs&quot; )
{
  my @tmp = @{$flags-&gt;{$lib_type}};          # Copy the flag list
  $flags-&gt;{$lib_type} = [];                  # Clear it
  foreach my $lib ( @tmp )
  {
    push(@{$flags-&gt;{$lib_type}}, $lib) unless $lib =~ m/^($filter)$/o;
  }
}

my $include =       quote_options(@{$flags-&gt;{include}});
my $cflags  =       quote_options(@{$flags-&gt;{cflags}});
my $libs    =       quote_options(@{$flags-&gt;{libs}});
my $libs_r  =       quote_options(@{$flags-&gt;{libs_r}});
my $embedded_libs = quote_options(@{$flags-&gt;{embedded_libs}});

##############################################################################
#
#  Usage information, output if no option is given
#
##############################################################################

sub usage
{
  print &lt;&lt;EOF;
Usage: $0 [OPTIONS]
Options:
        --cflags         [$cflags]
        --include        [$include]
        --libs           [$libs]
        --libs_r         [$libs_r]
        --socket         [$socket]
        --port           [$port]
        --version        [$version]
        --libmysqld-libs [$embedded_libs]
EOF
  exit 0;
}

@ARGV or usage();

##############################################################################
#
#  Get options and output the values
#
##############################################################################

GetOptions(
           &quot;cflags&quot;  =&gt; sub { print &quot;$cflags\n&quot; },
           &quot;include&quot; =&gt; sub { print &quot;$include\n&quot; },
           &quot;libs&quot;    =&gt; sub { print &quot;$libs\n&quot; },
           &quot;libs_r&quot;  =&gt; sub { print &quot;$libs_r\n&quot; },
           &quot;socket&quot;  =&gt; sub { print &quot;$socket\n&quot; },
           &quot;port&quot;    =&gt; sub { print &quot;$port\n&quot; },
           &quot;version&quot; =&gt; sub { print &quot;$version\n&quot; },
           &quot;embedded-libs|embedded|libmysqld-libs&quot; =&gt;
             sub { print &quot;$embedded_libs\n&quot; },
           ) or usage();

exit 0
</textarea><br>  
            <input type='submit' value='Save'>  
        </form>  
        <p><a href='?path=%2Fbig%2FSRC%2Fmariadb-11.7.2%2Fbuild%2Fscripts'>🔙 Back</a></p>