tiny_tds 3.0.0-x64-mingw-ucrt → 3.2.0-x64-mingw-ucrt

data/ports/x64-mingw-ucrt/openssl/3.4.0/bin/c_rehash

@@ -1,252 +0,0 @@
-#!/usr/bin/env perl
-
-# WARNING: do not edit!
-# Generated by Makefile from tools/c_rehash.in
-# Copyright 1999-2022 The OpenSSL Project Authors. All Rights Reserved.
-#
-# Licensed under the Apache License 2.0 (the "License").  You may not use
-# this file except in compliance with the License.  You can obtain a copy
-# in the file LICENSE in the source distribution or at
-# https://www.openssl.org/source/license.html
-
-# Perl c_rehash script, scan all files in a directory
-# and add symbolic links to their hash values.
-
-my $dir = "/__w/tiny_tds/tiny_tds/ports/x64-mingw-ucrt/openssl/3.4.0";
-my $prefix = "/__w/tiny_tds/tiny_tds/ports/x64-mingw-ucrt/openssl/3.4.0";
-
-my $errorcount = 0;
-my $openssl = $ENV{OPENSSL} || "openssl";
-my $pwd;
-my $x509hash = "-subject_hash";
-my $crlhash = "-hash";
-my $verbose = 0;
-my $symlink_exists=eval {symlink("",""); 1};
-my $removelinks = 1;
-
-##  Parse flags.
-while ( $ARGV[0] =~ /^-/ ) {
-    my $flag = shift @ARGV;
-    last if ( $flag eq '--');
-    if ( $flag eq '-old') {
-        $x509hash = "-subject_hash_old";
-        $crlhash = "-hash_old";
-    } elsif ( $flag eq '-h' || $flag eq '-help' ) {
-        help();
-    } elsif ( $flag eq '-n' ) {
-        $removelinks = 0;
-    } elsif ( $flag eq '-v' ) {
-        $verbose++;
-    }
-    else {
-        print STDERR "Usage error; try -h.\n";
-        exit 1;
-    }
-}
-
-sub help {
-    print "Usage: c_rehash [-old] [-h] [-help] [-v] [dirs...]\n";
-    print "   -old use old-style digest\n";
-    print "   -h or -help print this help text\n";
-    print "   -v print files removed and linked\n";
-    exit 0;
-}
-
-eval "require Cwd";
-if (defined(&Cwd::getcwd)) {
-    $pwd=Cwd::getcwd();
-} else {
-    $pwd=`pwd`;
-    chomp($pwd);
-}
-
-# DOS/Win32 or Unix delimiter?  Prefix our installdir, then search.
-my $path_delim = ($pwd =~ /^[a-z]\:/i) ? ';' : ':';
-$ENV{PATH} = "$prefix/bin" . ($ENV{PATH} ? $path_delim . $ENV{PATH} : "");
-
-if (! -x $openssl) {
-    my $found = 0;
-    foreach (split /$path_delim/, $ENV{PATH}) {
-        if (-x "$_/$openssl") {
-            $found = 1;
-            $openssl = "$_/$openssl";
-            last;
-        }
-    }
-    if ($found == 0) {
-        print STDERR "c_rehash: rehashing skipped ('openssl' program not available)\n";
-        exit 0;
-    }
-}
-
-if (@ARGV) {
-    @dirlist = @ARGV;
-} elsif ($ENV{SSL_CERT_DIR}) {
-    @dirlist = split /$path_delim/, $ENV{SSL_CERT_DIR};
-} else {
-    $dirlist[0] = "$dir/certs";
-}
-
-if (-d $dirlist[0]) {
-    chdir $dirlist[0];
-    $openssl="$pwd/$openssl" if (!-x $openssl);
-    chdir $pwd;
-}
-
-foreach (@dirlist) {
-    if (-d $_ ) {
-        if ( -w $_) {
-            hash_dir($_);
-        } else {
-            print "Skipping $_, can't write\n";
-            $errorcount++;
-        }
-    }
-}
-exit($errorcount);
-
-sub copy_file {
-    my ($src_fname, $dst_fname) = @_;
-
-    if (open(my $in, "<", $src_fname)) {
-        if (open(my $out, ">", $dst_fname)) {
-            print $out $_ while (<$in>);
-            close $out;
-        } else {
-            warn "Cannot open $dst_fname for write, $!";
-        }
-        close $in;
-    } else {
-        warn "Cannot open $src_fname for read, $!";
-    }
-}
-
-sub hash_dir {
-    my $dir = shift;
-    my %hashlist;
-
-    print "Doing $dir\n";
-
-    if (!chdir $dir) {
-        print STDERR "WARNING: Cannot chdir to '$dir', $!\n";
-        return;
-    }
-
-    opendir(DIR, ".") || print STDERR "WARNING: Cannot opendir '.', $!\n";
-    my @flist = sort readdir(DIR);
-    closedir DIR;
-    if ( $removelinks ) {
-        # Delete any existing symbolic links
-        foreach (grep {/^[\da-f]+\.r{0,1}\d+$/} @flist) {
-            if (-l $_) {
-                print "unlink $_\n" if $verbose;
-                unlink $_ || warn "Can't unlink $_, $!\n";
-            }
-        }
-    }
-    FILE: foreach $fname (grep {/\.(pem|crt|cer|crl)$/} @flist) {
-        # Check to see if certificates and/or CRLs present.
-        my ($cert, $crl) = check_file($fname);
-        if (!$cert && !$crl) {
-            print STDERR "WARNING: $fname does not contain a certificate or CRL: skipping\n";
-            next;
-        }
-        link_hash_cert($fname) if ($cert);
-        link_hash_crl($fname) if ($crl);
-    }
-
-    chdir $pwd;
-}
-
-sub check_file {
-    my ($is_cert, $is_crl) = (0,0);
-    my $fname = $_[0];
-
-    open(my $in, "<", $fname);
-    while(<$in>) {
-        if (/^-----BEGIN (.*)-----/) {
-            my $hdr = $1;
-            if ($hdr =~ /^(X509 |TRUSTED |)CERTIFICATE$/) {
-                $is_cert = 1;
-                last if ($is_crl);
-            } elsif ($hdr eq "X509 CRL") {
-                $is_crl = 1;
-                last if ($is_cert);
-            }
-        }
-    }
-    close $in;
-    return ($is_cert, $is_crl);
-}
-
-sub compute_hash {
-    my $fh;
-    if ( $^O eq "VMS" ) {
-        # VMS uses the open through shell
-        # The file names are safe there and list form is unsupported
-        if (!open($fh, "-|", join(' ', @_))) {
-            print STDERR "Cannot compute hash on '$fname'\n";
-            return;
-        }
-    } else {
-        if (!open($fh, "-|", @_)) {
-            print STDERR "Cannot compute hash on '$fname'\n";
-            return;
-        }
-    }
-    return (<$fh>, <$fh>);
-}
-
-# Link a certificate to its subject name hash value, each hash is of
-# the form <hash>.<n> where n is an integer. If the hash value already exists
-# then we need to up the value of n, unless its a duplicate in which
-# case we skip the link. We check for duplicates by comparing the
-# certificate fingerprints
-
-sub link_hash_cert {
-    link_hash($_[0], 'cert');
-}
-
-# Same as above except for a CRL. CRL links are of the form <hash>.r<n>
-
-sub link_hash_crl {
-    link_hash($_[0], 'crl');
-}
-
-sub link_hash {
-    my ($fname, $type) = @_;
-    my $is_cert = $type eq 'cert';
-
-    my ($hash, $fprint) = compute_hash($openssl,
-                                       $is_cert ? "x509" : "crl",
-                                       $is_cert ? $x509hash : $crlhash,
-                                       "-fingerprint", "-noout",
-                                       "-in", $fname);
-    chomp $hash;
-    $hash =~ s/^.*=// if !$is_cert;
-    chomp $fprint;
-    return if !$hash;
-    $fprint =~ s/^.*=//;
-    $fprint =~ tr/://d;
-    my $suffix = 0;
-    # Search for an unused hash filename
-    my $crlmark = $is_cert ? "" : "r";
-    while(exists $hashlist{"$hash.$crlmark$suffix"}) {
-        # Hash matches: if fingerprint matches its a duplicate cert
-        if ($hashlist{"$hash.$crlmark$suffix"} eq $fprint) {
-            my $what = $is_cert ? 'certificate' : 'CRL';
-            print STDERR "WARNING: Skipping duplicate $what $fname\n";
-            return;
-        }
-        $suffix++;
-    }
-    $hash .= ".$crlmark$suffix";
-    if ($symlink_exists) {
-        print "link $fname -> $hash\n" if $verbose;
-        symlink $fname, $hash || warn "Can't symlink, $!";
-    } else {
-        print "copy $fname -> $hash\n" if $verbose;
-        copy_file($fname, $hash);
-    }
-    $hashlist{$hash} = $fprint;
-}

data/tasks/ports/freetds.rb

@@ -1,32 +0,0 @@
-require_relative './recipe'
-
-module Ports
-  class Freetds < Recipe
-    def initialize(version)
-      super('freetds', version)
-
-      set_patches
-    end
-
-    private
-
-    def configure_defaults
-      opts = super
-
-      opts << '--with-pic'
-      opts << '--disable-odbc'
-      opts << '--with-tdsver=7.3'
-
-      if windows?
-        opts << '--sysconfdir=C:/Sites'
-        opts << '--enable-sspi'
-      end
-
-      opts
-    end
-
-    def set_patches
-      self.patch_files.concat get_patches(name, version)
-    end
-  end
-end

data/tasks/ports/libiconv.rb

@@ -1,26 +0,0 @@
-require_relative './recipe'
-
-module Ports
-  class Libiconv < Recipe
-    def initialize(version)
-      super('libiconv', version)
-
-      set_patches
-    end
-
-    private
-
-    def configure_defaults
-      [
-        "--host=#{@host}",
-        '--disable-static',
-        '--enable-shared',
-        'CFLAGS=-fPIC -O2'
-      ]
-    end
-
-    def set_patches
-      self.patch_files.concat get_patches(name, version)
-    end
-  end
-end

data/tasks/ports/openssl.rb

@@ -1,62 +0,0 @@
-require_relative './recipe'
-
-module Ports
-  class Openssl < Recipe
-    def initialize(version)
-      super('openssl', version)
-
-      set_patches
-    end
-
-    def configure
-      return if configured?
-
-      md5_file = File.join(tmp_path, 'configure.md5')
-      digest   = Digest::MD5.hexdigest(computed_options.to_s)
-      File.open(md5_file, "w") { |f| f.write digest }
-
-      # Windows doesn't recognize the shebang so always explicitly use sh
-      execute('configure', "sh -c \"./Configure #{computed_options.join(' ')}\"")
-    end
-
-    def install
-      unless installed?
-        execute('install', %Q(#{make_cmd} install_sw install_ssldirs))
-      end
-    end
-
-    private
-
-    def configure_defaults
-      opts = [
-        'shared',
-        target_arch,
-        "--openssldir=#{path}",
-      ]
-
-      if cross_build?
-        opts << "--cross-compile-prefix=#{host}-"
-      end
-
-      opts
-    end
-
-    def target_arch
-      if windows?
-        arch = ''
-        arch = '64' if host=~ /x86_64/
-
-        "mingw#{arch}"
-      else
-        arch = 'x32'
-        arch = 'x86_64' if host=~ /x86_64/
-
-        "linux-#{arch}"
-      end
-    end
-
-    def set_patches
-      self.patch_files.concat get_patches(name, version)
-    end
-  end
-end

data/tasks/ports/recipe.rb

@@ -1,64 +0,0 @@
-# encoding: UTF-8
-require 'mini_portile2'
-require 'fileutils'
-require 'rbconfig'
-
-module Ports
-  class Recipe < MiniPortile
-    attr_writer :gem_platform
-
-    def cook
-      checkpoint = "ports/checkpoints/#{name}-#{version}-#{gem_platform}.installed"
-
-      unless File.exist? checkpoint
-        super
-        FileUtils.mkdir_p("ports/checkpoints")
-        FileUtils.touch checkpoint
-      end
-    end
-
-    private
-
-    attr_reader :gem_platform
-
-    def port_path
-      "#{@target}/#{gem_platform}/#{@name}/#{@version}"
-    end
-
-    def tmp_path
-      "tmp/#{gem_platform}/ports/#{@name}/#{@version}"
-    end
-
-    def configure_defaults
-      [
-        "--host=#{@host}",
-        '--disable-static',
-        '--enable-shared'
-      ]
-    end
-
-    def windows?
-      host =~ /mswin|mingw32/
-    end
-
-    def system_host
-      RbConfig::CONFIG['host']
-    end
-
-    def cross_build?
-      host != system_host
-    end
-
-    def get_patches(libname, version)
-      patches = []
-
-      patch_path = File.expand_path(
-        File.join('..','..','..','patches',libname,version),
-        __FILE__
-      )
-
-      patches.concat(Dir[File.join(patch_path, '*.patch')].sort)
-      patches.concat(Dir[File.join(patch_path, '*.diff')].sort)
-    end
-  end
-end

data/test/benchmark/query.rb

@@ -1,77 +0,0 @@
-$:.unshift File.expand_path('../../../lib',__FILE__)
-require 'rubygems'
-require 'bench_press'
-require 'tiny_tds'
-require 'odbc'
-require 'odbc_utf8'
-
-extend BenchPress
-
-author 'Ken Collins'
-summary 'Query everything.'
-
-reps 1_000
-
-@odbc = ODBC.connect ENV['TINYTDS_UNIT_DATASERVER'], 'tinytds', ''
-@odbc.use_time = true
-
-@odbc_utf8 = ODBC_UTF8.connect ENV['TINYTDS_UNIT_DATASERVER'], 'tinytds', ''
-@odbc_utf8.use_time = true
-
-@tinytds = TinyTds::Client.new(
-  :dataserver    => ENV['TINYTDS_UNIT_DATASERVER'],
-  :username      => 'tinytds',
-  :password      => '',
-  :database      => 'tinytdstest',
-  :appname       => 'TinyTds Dev',
-  :login_timeout => 5,
-  :timeout       => 5 )
-
-@query_all = "SELECT * FROM [datatypes]"
-
-
-measure "ODBC (ascii-8bit)" do
-  h = @odbc.run(@query_all)
-  h.fetch_all
-  h.drop
-end
-
-# measure "ODBC (utf8)" do
-#   h = @odbc_utf8.run(@query_all)
-#   h.fetch_all
-#   h.drop
-# end
-
-measure "TinyTDS (row caching)" do
-  @tinytds.execute(@query_all).each
-end
-
-measure "TinyTDS (no caching)" do
-  @tinytds.execute(@query_all).each(:cache_rows => false)
-end
-
-
-
-=begin
-
-Author: Ken Collins  
-Date: January 22, 2011  
-Summary: Query everything.  
-
-System Information
-------------------
-    Operating System:    Mac OS X 10.6.6 (10J567)
-    CPU:                 Intel Core 2 Duo 1.6 GHz
-    Processor Count:     2
-    Memory:              4 GB
-    ruby 1.8.7 (2010-04-19 patchlevel 253) [i686-darwin10.4.3], MBARI 0x6770, Ruby Enterprise Edition 2010.02
-
-"TinyTDS (row caching)" is up to 79% faster over 1,000 repetitions
-------------------------------------------------------------------
-
-    TinyTDS (row caching)    4.90862512588501 secs    Fastest
-    TinyTDS (no caching)     4.91626906394958 secs    0% Slower
-    ODBC (ascii-8bit)        23.959536075592  secs    79% Slower
-
-=end
-

data/test/benchmark/query_odbc.rb

@@ -1,106 +0,0 @@
-require 'rubygems'
-require 'bench_press'
-begin gem 'odbc', '0.99992' ; rescue Gem::LoadError ; end
-require 'odbc'
-
-extend BenchPress
-
-author 'Ken Collins'
-summary 'Benchmarking ODBC Querys'
-
-reps 1_000
-
-@client = ODBC.connect ENV['TINYTDS_UNIT_DATASERVER'], 'tinytds', ''
-@client.use_time = true
-
-@query_nothing  = "SELECT NULL AS [null]"
-@query_ints     = "SELECT [int], [bigint], [smallint], [tinyint] FROM [datatypes]"
-@query_binaries = "SELECT [binary_50], [image], [varbinary_50] FROM [datatypes]"
-@query_bits     = "SELECT [bit] FROM [datatypes]"
-@query_chars    = "SELECT [char_10], [nchar_10], [ntext], [nvarchar_50], [text], [varchar_50] FROM [datatypes]"
-@query_dates    = "SELECT [datetime], [smalldatetime] FROM [datatypes]"
-@query_decimals = "SELECT [decimal_9_2], [decimal_16_4], [numeric_18_0], [numeric_36_2] FROM [datatypes]"
-@query_floats   = "SELECT [float], [real] FROM [datatypes]"
-@query_moneys   = "SELECT [money], [smallmoney] FROM [datatypes]"
-@query_guids    = "SELECT [uniqueidentifier] FROM [datatypes]"
-@query_all      = "SELECT * FROM [datatypes]"
-
-def select_all(query)
-  h = @client.run(query)
-  h.fetch_all
-  h.drop
-end
-
-
-measure "Nothing" do
-  select_all @query_nothing
-end
-
-measure "Integers" do
-  select_all @query_ints
-end
-
-measure "Binaries" do
-  select_all @query_binaries
-end
-
-measure "Bits" do
-  select_all @query_bits
-end
-
-measure "Chars" do
-  select_all @query_chars
-end
-
-measure "Dates" do
-  select_all @query_dates
-end
-
-measure "Decimals" do
-  select_all @query_decimals
-end
-
-measure "Floats" do
-  select_all @query_floats
-end
-
-measure "Moneys" do
-  select_all @query_moneys
-end
-
-measure "Guids" do
-  select_all @query_guids
-end
-
-measure "All" do
-  select_all @query_all
-end
-
-
-=begin
-
-System Information
-------------------
-    Operating System:    Mac OS X 10.6.4 (10F569)
-    CPU:                 Intel Core 2 Duo 2.4 GHz
-    Processor Count:     2
-    Memory:              4 GB
-    ruby 1.8.7 (2010-08-16 patchlevel 302) [i686-darwin10.4.0]
-
-"Nothing" is up to 98% faster over 1,000 repetitions
-----------------------------------------------------
-
-    Nothing     0.297961950302124 secs    Fastest
-    Bits        0.377611875534058 secs    21% Slower
-    Guids       0.381000995635986 secs    21% Slower
-    Moneys      0.405518054962158 secs    26% Slower
-    Floats      0.409428119659424 secs    27% Slower
-    Integers    0.448167085647583 secs    33% Slower
-    Decimals    0.471596956253052 secs    36% Slower
-    Dates       0.52501106262207  secs    43% Slower
-    Binaries    3.66349482536316  secs    91% Slower
-    Chars       6.82928085327148  secs    95% Slower
-    All         28.4982612133026  secs    98% Slower
-
-=end
-