System.Data.SQLite

    <ul>
      <li>Updated to <a href="https://www.sqlite.org/releaselog/3_45_3.html">SQLite 3.45.3</a>.</li>
      <li>Update internal resource list of reserved SQL words.</li>
      <li>Avoid NullReferenceException from Path.Combine method when the PublishSingleFile property is enabled for a project. Pursuant to forum post <a href="https://www.sqlite.org/forum/forumpost/66a0d2716a">[66a0d2716a]</a>.</li>
      <li>Add the VfsName connection string property.</li>
      <li>Fix rarely seen NullReferenceException in the StaticWeakConnectionPool.Add method.</li>
      <li>Revise the calculation used to bind DateTime values. Fix for <a href="https://system.data.sqlite.org/index.html/info/bbddfeb773">[bbddfeb773]</a>.</li>
      <li>Fix support for unnamed parameters using the ?NNN syntax. Pursuant to forum post <a href="https://www.sqlite.org/forum/forumpost/76cb35b58d">[76cb35b58d]</a>.</li>
    </ul>
    <p><b>1.0.118.0 - June 10, 2023</b></p>
    <ul>
      <li>Updated to <a href="https://www.sqlite.org/releaselog/3_42_0.html">SQLite 3.42.0</a>.</li>
      <li>Add the ConnectionStringPreview, SqlStringPreview, and Canceled connection events.</li>
      <li>Add support for the sqlite3_is_interrupted core library API. Pursuant to forum post <a href="https://www.sqlite.org/forum/forumpost/b6a707bffb">[b6a707bffb]</a>.</li>
      <li>Add support for the sqlite_trace_v2 core library API. Pursuant to forum post <a href="https://www.sqlite.org/forum/forumpost/1c418d7edc">[1c418d7edc]</a>.</li>

  Tests/function.eagle
  Tests/installer.eagle
  Tests/linq.eagle
  Tests/memory.eagle
  Tests/pool.eagle
  Tests/progress.eagle
  Tests/pst-4db2934c2e.eagle
  Tests/pst-76cb35b58d.eagle
  Tests/pst-eeaefb84ec.eagle
  Tests/pst-f4e718891d.eagle
  Tests/session.eagle
  Tests/speed.eagle
  Tests/stress.eagle
  Tests/template/
  Tests/template/empty.eagle

/********************************************************
 * ADO.NET 2.0 Data Provider for SQLite Version 3.X
 * Written by Robert Simpson (robert@blackcastlesoft.com)
 * 
 *
 * Released to the public domain, use at your own risk!
 ********************************************************/

namespace System.Data.SQLite
{
  using System;
  using System.Data;
  using System.Data.Common;
  using System.ComponentModel;
  using System.Globalization;

  /// <summary>
  /// SQLite implementation of DbParameter.
  /// </summary>
  public sealed class SQLiteParameter : DbParameter, ICloneable
  {
    /// <summary>

    {
        _command = command;
    }

    /// <summary>
    /// Default constructor
    /// </summary>
    public SQLiteParameter() 
    public SQLiteParameter()
      : this(null, UnknownDbType, 0, null, DataRowVersion.Current)
    {
    }

    /// <summary>
    /// Constructs a named parameter given the specified parameter name
    /// </summary>

    /// Constructs a named parameter of the specified type, size, source column and row version
    /// </summary>
    /// <param name="parameterName">The name of the parameter</param>
    /// <param name="parameterType">The data type</param>
    /// <param name="parameterSize">The size of the parameter</param>
    /// <param name="sourceColumn">The source column</param>
    /// <param name="rowVersion">The row version information</param>
    public SQLiteParameter(string parameterName, DbType parameterType, int parameterSize, string sourceColumn, DataRowVersion rowVersion)      
    public SQLiteParameter(string parameterName, DbType parameterType, int parameterSize, string sourceColumn, DataRowVersion rowVersion)
    {
      _parameterName = parameterName;
      _dbType = parameterType;
      _sourceColumn = sourceColumn;
      _rowVersion = rowVersion;
      _dataSize = parameterSize;
      _nullable = true;

    /// <param name="parameterSize">The size of the parameter</param>
    /// <param name="direction">Only input parameters are supported in SQLite</param>
    /// <param name="isNullable">Ignored</param>
    /// <param name="precision">Ignored</param>
    /// <param name="scale">Ignored</param>
    /// <param name="sourceColumn">The source column</param>
    /// <param name="rowVersion">The row version information</param>
    /// <param name="value">The initial value to assign the parameter</param>   
    /// <param name="value">The initial value to assign the parameter</param>
#if !PLATFORM_COMPACTFRAMEWORK
    [EditorBrowsable(EditorBrowsableState.Advanced)]
#endif
    public SQLiteParameter(string parameterName, DbType parameterType, int parameterSize, ParameterDirection direction, bool isNullable, byte precision, byte scale, string sourceColumn, DataRowVersion rowVersion, object value)
      : this(parameterName, parameterType, parameterSize, sourceColumn, rowVersion)
    {
      Direction = direction;

    /// </summary>
    public IDbCommand Command
    {
      get
      {
        return _command;
      }
      set 
      set
      {
        _command = value;
      }
    }

    /// <summary>
    /// Whether or not the parameter can contain a null value
    /// </summary>
    public override bool IsNullable
    {
      get
      {
        return _nullable;
      }
      set 
      set
      {
        _nullable = value;
      }
    }

    /// <summary>
    /// Returns the datatype of the parameter

    /// <returns>A new, unassociated SQLiteParameter</returns>
    public object Clone()
    {
      SQLiteParameter newparam = new SQLiteParameter(this);

      return newparam;
    }
  }
}

    /// <summary>
    /// Attempts to build a name suitable for use with an index-only
    /// (unnamed) parameter.
    /// </summary>
    /// <param name="index">The index for the parameter.</param>
    /// <param name="placeholder">
    /// Non-zero if the returned name should be a placeholder, i.e.
    /// an unnamed parameter that does not use a syntax supported by
    /// the SQLite core library.
    /// </param>
    /// <returns>The built name -OR- null if it cannot be built.</returns>
    internal static string CreateNameForIndex(int index, bool placeholder)
    {
        return HelperMethods.StringFormat(CultureInfo.InvariantCulture,
            placeholder ? ";{0}" : "?{0}", index + 1);
    }

    /// <summary>
    /// Returns non-zero if the specified parameter name appears to
    /// refer to an unnamed parameter placeholder.
    /// </summary>
    /// <param name="name">
    /// The parameter name to check.
    /// </param>
    /// <param name="index">
    /// The parameter index or negative one if it cannot be determined.
    /// </param>
    /// <returns>
    /// Non-zero if the specified parameter name represents an unnamed
    /// placeholder parameter.
    /// </returns>
    internal static bool IsUnnamedPlaceholder(string name, out int index)
    {
        index = -1;

        if (String.IsNullOrEmpty(name))
            return false;

        if (name[0] != ';')
            return false;

        return int.TryParse(
            name.Substring(1), NumberStyles.None, null, out index);
    }
  }
}

      string s;
      int n;
      int y = -1;
      SQLiteStatement stmt;

      foreach(SQLiteParameter p in _parameterList)
      {
        y ++;
        y++;
        s = p.ParameterName;
        if (s == null)
        if (String.IsNullOrEmpty(s))
        {
          s = HelperMethods.StringFormat(CultureInfo.InvariantCulture, ";{0}", nUnnamed);
          s = SQLiteParameter.CreateNameForIndex(nUnnamed, true);
          nUnnamed++;
        }

        int x;
        bool isMapped = false;

        if (activeStatement == null)

          stmt = null;
        }

        // If the parameter has a name, but the SQL statement uses unnamed references, this can happen -- attempt to map
        // the parameter by its index in the collection
        if (isMapped == false)
        {
          s = HelperMethods.StringFormat(CultureInfo.InvariantCulture, ";{0}", y);
          s = SQLiteParameter.CreateNameForIndex(y, true);

          stmt = activeStatement;
          for (n = 0; n < x; n++)
          {
            if (stmt == null) stmt = _command._statementList[n];
            if (stmt._paramNames != null)
            {
              if (stmt.MapParameter(s, p) == true)
              if (stmt.MapParameter(s, p) ||
                  stmt.MapUnnamedParameter(s, p))
              {
                isMapped = true;
              }
            }
            stmt = null;
          }
        }
      }
      if (activeStatement == null) _unboundFlag = false;
    }
  }
}

        _paramValues = new SQLiteParameter[n];

        for (x = 0; x < n; x++)
        {
          s = _sql.Bind_ParamName(this, _flags, x + 1);
          if (String.IsNullOrEmpty(s))
          {
            s = HelperMethods.StringFormat(CultureInfo.InvariantCulture, ";{0}", nCmdStart);
            s = SQLiteParameter.CreateNameForIndex(nCmdStart, true);
            nCmdStart++;
            _unnamedParameters++;
          }
          _paramNames[x] = s;
          _paramValues[x] = null;
        }
      }

        if ((_sql != null) && _sql.IsOpen())
        {
            changes = _sql.Changes;
            readOnly = _sql.IsReadOnly(this);

            return true;
        }

        return false;
    }

    ///////////////////////////////////////////////////////////////////////////////////////////////

    /// <summary>
    /// This method attempts to map the specified named placeholder
    /// parameter, i.e. an unnamed parameter that has been given an
    /// placeholder name.
    /// </summary>
    /// <param name="s">The placeholder parameter name to map.</param>
    /// <param name="p">The parameter to assign it.</param>
    internal bool MapUnnamedParameter(string s, SQLiteParameter p)
    {
        if (_paramNames == null)
            return false;

        int index;

        if (SQLiteParameter.IsUnnamedPlaceholder(s, out index))
        {
            s = String.Format("?{0}", index);

            int length = s.Length;
            int count = _paramNames.Length;

            for (int n = 0; n < count; n++)
            {
                if (String.Compare(
                      _paramNames[n], 0, s, 0, length,
                      StringComparison.Ordinal) == 0)
                {
                    _paramValues[n] = p;
                    return true;
                }
            }
        }

        return false;
    }

    ///////////////////////////////////////////////////////////////////////////////////////////////

    /// <summary>

###############################################################################
#
# pst-76cb35b58d.eagle --
#
# Written by Joe Mistachkin.
# Released to the public domain, use at your own risk!
#
###############################################################################

package require Eagle
package require Eagle.Library
package require Eagle.Test

runTestPrologue

###############################################################################

package require System.Data.SQLite.Test
runSQLiteTestPrologue

###############################################################################

runTest {test pst-76cb35b58d-1.1 {duplicate unnamed parameters} -setup {
  setupDb [set fileName pst-76cb35b58d-1.1.db]
} -body {
  sql execute $db {
    CREATE TABLE t1(x INTEGER, y TEXT, z TEXT, w TEXT);
    INSERT INTO t1 (x, y) VALUES(1, 'one');
    INSERT INTO t1 (x, y) VALUES(2, 'two');
    INSERT INTO t1 (x, y) VALUES(3, 'three');
  }

  set param1 [list "" Int64 99]

  sql execute $db "INSERT INTO t1 (x, y) VALUES(4, 'four');" $param1
  sql execute $db "INSERT INTO t1 (x, y) VALUES(5, ?1);" $param1

  set param1 [list "" Int64 6]

  sql execute $db "INSERT INTO t1 (x, y) VALUES(?1, ?1);" $param1

  set param1 [list "" Int64 7]
  set param2 [list "" String "something else"]

  sql execute $db \
      "INSERT INTO t1 (x, y, z, w) VALUES(?1, ?1, ?2, ?2);" \
      $param1 $param2

  sql execute -execute reader -format list \
      $db "SELECT x, y, z FROM t1 ORDER BY x;"
} -cleanup {
  cleanupDb $fileName

  unset -nocomplain param1 param2
  unset -nocomplain db fileName
} -constraints {eagle monoBug28 command.sql compile.DATA SQLite\
System.Data.SQLite} -result {1 one 2 two 3 three 4 four 5 99 6 6 7 7 {something\
else}}}

###############################################################################

runTest {test pst-76cb35b58d-1.2 {duplicate unnamed parameters} -setup {
  setupDb [set fileName pst-76cb35b58d-1.2.db]
} -body {
  sql execute $db {
    CREATE TABLE t1(x INTEGER, y TEXT);
    INSERT INTO t1 (x, y) VALUES(1, '1');
    INSERT INTO t1 (x, y) VALUES(2, '2');
    INSERT INTO t1 (x, y) VALUES(3, '3');
    INSERT INTO t1 (x, y) VALUES(4, '4');
  }

  set sql(0) {
    SELECT x, y FROM t1 WHERE x = 1 OR y = 1 ORDER BY x;
  }

  set sql(1) {
    SELECT x, y FROM t1 WHERE x = ? OR y = ? ORDER BY x;
  }

  set sql(2) {
    SELECT x, y FROM t1 WHERE x = ?1 OR y = ?1 ORDER BY x;
  }

  set sql(3) {
    SELECT x, y FROM t1 WHERE x = ?1 OR y = ?2 ORDER BY x;
  }

  set sql(4) {
    SELECT x, y FROM t1 WHERE x = ?2 OR y = ?1 ORDER BY x;
  }

  set sql(5) {
    SELECT x, y FROM t1 WHERE x = ?2 OR y = ?2 ORDER BY x;
  }

  set result [list]
  set param1 [list arg1 Int64 3]
  set param2 [list arg2 Int64 4]

  foreach name [lsort -integer [array names sql]] {
    lappend result [sql execute -execute reader \
        -format list $db $sql($name) $param1 $param2]
  }

  set result
} -cleanup {
  cleanupDb $fileName

  unset -nocomplain sql name result param1 param2
  unset -nocomplain db fileName
} -constraints {eagle monoBug28 command.sql compile.DATA SQLite\
System.Data.SQLite} -result {{1 1} {3 3 4 4} {3 3} {3 3 4 4} {3 3 4 4} {4 4}}}

###############################################################################

runSQLiteTestEpilogue
runTestEpilogue

        file copy $old_test_log $new_test_log; file delete $old_test_log
        set ::test_log $new_test_log

        if {[info exists ::test_log_path]} then {
          set ::test_log_path $path
        }

        #
        # NOTE: Since renaming the test log file during a test run
        #       is unusual -AND- this condition cannot be detected
        #       by the core script library without our help, issue
        #       the manual notification to the core script library
        #       now.
        #
        catch {newTestLog $old_test_log $new_test_log}

        tputs $::test_channel [appendArgs \
            "---- moved test log from \"" $old_test_log "\" to \"" \
            $new_test_log \"\n]
      }
    }

    proc showSQLiteBuildParameters { channel } {

<ul>
    <li>Updated to <a href="https://www.sqlite.org/releaselog/3_45_3.html">SQLite 3.45.3</a>.</li>
    <li>Update internal resource list of reserved SQL words.</li>
    <li>Avoid NullReferenceException from Path.Combine method when the PublishSingleFile property is enabled for a project. Pursuant to forum post [66a0d2716a].</li>
    <li>Add the VfsName connection string property.</li>
    <li>Fix rarely seen NullReferenceException in the StaticWeakConnectionPool.Add method.</li>
    <li>Revise the calculation used to bind DateTime values. Fix for [bbddfeb773].</li>
    <li>Fix support for unnamed parameters using the ?NNN syntax. Pursuant to forum post [76cb35b58d].</li>
</ul>
<p>
    <b>1.0.118.0 - June 10, 2023</b>
</p>
<ul>
    <li>Updated to <a href="https://www.sqlite.org/releaselog/3_42_0.html">SQLite 3.42.0</a>.</li>
    <li>Add the ConnectionStringPreview, SqlStringPreview, and Canceled connection events.</li>

<ul>
    <li>Updated to [https://www.sqlite.org/releaselog/3_45_3.html|SQLite 3.45.3].</li>
    <li>Update internal resource list of reserved SQL words.</li>
    <li>Avoid NullReferenceException from Path.Combine method when the PublishSingleFile property is enabled for a project. Pursuant to forum post [https://www.sqlite.org/forum/forumpost/66a0d2716a|66a0d2716a].</li>
    <li>Add the VfsName connection string property.</li>
    <li>Fix rarely seen NullReferenceException in the StaticWeakConnectionPool.Add method.</li>
    <li>Revise the calculation used to bind DateTime values. Fix for [bbddfeb773].</li>
    <li>Fix support for unnamed parameters using the ?NNN syntax. Pursuant to forum post [https://www.sqlite.org/forum/forumpost/76cb35b58d|76cb35b58d].</li>
</ul>
<p>
    <b>1.0.118.0 - June 10, 2023</b>
</p>
<ul>
    <li>Updated to [https://www.sqlite.org/releaselog/3_42_0.html|SQLite 3.42.0].</li>
    <li>Add the ConnectionStringPreview, SqlStringPreview, and Canceled connection events.</li>