Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | no message |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | sourceforge |
Files: | files | file ages | folders |
SHA1: |
2f09f480565a8943154fb7a09852572e |
User & Date: | rmsimpson 2007-01-10 15:50:30 |
Context
2007-01-10
| ||
16:04 | 1.0.39.0 check-in: b5149d055f user: rmsimpson tags: sourceforge | |
15:50 | no message check-in: 2f09f48056 user: rmsimpson tags: sourceforge | |
14:50 | SQLite 3.3.10 check-in: 0b4eec86dd user: rmsimpson tags: sourceforge | |
Changes
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 -