Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Deleted SQLite.Interop/fixsource.vbs.

     1         -' VBScript source code
     2         -Main
     3         -
     4         -Sub Main()
     5         -  Dim WshShell
     6         -  Set WshShell = WScript.CreateObject("WScript.Shell")
     7         -  
     8         -  Dim fso
     9         -  Set fso = WScript.CreateObject("Scripting.FileSystemObject")
    10         -  
    11         -  Dim srcFile
    12         -  Dim srcFileContents
    13         -  dim newFileContents
    14         -  
    15         -  ' In order to support encryption, we need to know when the pager is being destroyed so we can destroy our encryption
    16         -  ' objects.  This modification adds code to support that.
    17         -  '
    18         -  Set srcFile = fso.OpenTextFile("src\pager.c", 1)  
    19         -  srcFileContents = srcFile.ReadAll()
    20         -  srcFile.Close()
    21         -  If InStr(1, srcFileContents, "sqlite3pager_free_codecarg", 1) = 0 Then
    22         -    newFileContents = Replace(srcFileContents, Chr(10) & "  sqliteFree(pPager);", Chr(10) & "#ifdef SQLITE_HAS_CODEC" & Chr(10) & "  sqlite3pager_free_codecarg(pPager->pCodecArg);" & Chr(10) & "#endif" & Chr(10) & "  sqliteFree(pPager);")
    23         -    If (newFileContents <> srcFileContents) Then
    24         -      WScript.StdOut.WriteLine "Updating pager.c"
    25         -      Set srcFile = fso.CreateTextFile("src\pager.c", true)
    26         -      srcFile.Write(newFileContents)
    27         -      srcFile.Close()
    28         -    End If
    29         -  End If
    30         -
    31         -  Set srcFile = fso.OpenTextFile("src\sqlite3.def", 1)
    32         -  srcFileContents = srcFile.ReadAll()
    33         -  srcFile.Close()
    34         -  
    35         -  If InStr(1, srcFileContents, "sqlite3_key", 1) = 0 Then
    36         -    newFileContents = srcFileContents & Chr(10) & "sqlite3_key" & Chr(10) & "sqlite3_rekey" & Chr(10)
    37         -    WScript.StdOut.WriteLine "Updating sqlite3.def"
    38         -    set srcFile = fso.CreateTextFile("src\sqlite3.def", true)
    39         -    srcFile.Write(newFileContents)
    40         -    srcFile.Close()
    41         -  End If
    42         -  
    43         -End Sub
    44         -