using System; using System.Diagnostics; using System.Text; using i64 = System.Int64; using u32 = System.UInt32; using u64 = System.UInt64; using u8 = System.Byte; namespace Community.CsharpSqlite { using sqlite_int64 = System.Int64; public partial class Sqlite3 { /* ** 2001 September 15 ** ** The author disclaims copyright to this source code. In place of ** a legal notice, here is a blessing: ** ** May you do good and not evil. ** May you find forgiveness for yourself and forgive others. ** May you share freely, never taking more than you give. ** ************************************************************************* ** Utility functions used throughout sqlite. ** ** This file contains functions for allocating memory, comparing ** strings, and stuff like that. ** ************************************************************************* ** Included in SQLite3 port to C#-SQLite; 2008 Noah B Hart ** C#-SQLite is an independent reimplementation of the SQLite software library ** ** SQLITE_SOURCE_ID: 2011-06-23 19:49:22 4374b7e83ea0a3fbc3691f9c0c936272862f32f2 ** ************************************************************************* */ //#include "sqliteInt.h" //#include #if SQLITE_HAVE_ISNAN //# include #endif /* ** Routine needed to support the testcase() macro. */ #if SQLITE_COVERAGE_TEST void sqlite3Coverage(int x){ static uint dummy = 0; dummy += (uint)x; } #endif #if !SQLITE_OMIT_FLOATING_POINT /* ** Return true if the floating point value is Not a Number (NaN). ** ** Use the math library isnan() function if compiled with SQLITE_HAVE_ISNAN. ** Otherwise, we have our own implementation that works on most systems. */ private static bool sqlite3IsNaN(double x) { bool rc; /* The value return */ #if !(SQLITE_HAVE_ISNAN) /* ** Systems that support the isnan() library function should probably ** make use of it by compiling with -DSQLITE_HAVE_ISNAN. But we have ** found that many systems do not have a working isnan() function so ** this implementation is provided as an alternative. ** ** This NaN test sometimes fails if compiled on GCC with -ffast-math. ** On the other hand, the use of -ffast-math comes with the following ** warning: ** ** This option [-ffast-math] should never be turned on by any ** -O option since it can result in incorrect output for programs ** which depend on an exact implementation of IEEE or ISO ** rules/specifications for math functions. ** ** Under MSVC, this NaN test may fail if compiled with a floating- ** point precision mode other than /fp:precise. From the MSDN ** documentation: ** ** The compiler [with /fp:precise] will properly handle comparisons ** involving NaN. For example, x != x evaluates to true if x is NaN ** ... */ #if __FAST_MATH__ # error SQLite will not work correctly with the -ffast-math option of GCC. #endif double y = x; double z = y; rc = (y != z); #else //* if defined(SQLITE_HAVE_ISNAN) */ rc = isnan(x); #endif //* SQLITE_HAVE_ISNAN */ testcase(rc); return rc; } #endif //* SQLITE_OMIT_FLOATING_POINT */ /* ** Compute a string length that is limited to what can be stored in ** lower 30 bits of a 32-bit signed integer. ** ** The value returned will never be negative. Nor will it ever be greater ** than the actual length of the string. For very long strings (greater ** than 1GiB) the value returned might be less than the true string length. */ private static int sqlite3Strlen30(int z) { return 0x3fffffff & z; } private static int sqlite3Strlen30(StringBuilder z) { //string z2 = z; if (z == null) return 0; //while( *z2 ){ z2++; } //return 0x3fffffff & (int)(z2 - z); int iLen = z.ToString().IndexOf('\0'); return 0x3fffffff & (iLen == -1 ? z.Length : iLen); } private static int sqlite3Strlen30(string z) { //string z2 = z; if (z == null) return 0; //while( *z2 ){ z2++; } //return 0x3fffffff & (int)(z2 - z); int iLen = z.IndexOf('\0'); return 0x3fffffff & (iLen == -1 ? z.Length : iLen); } /* ** Set the most recent error code and error string for the sqlite ** handle "db". The error code is set to "err_code". ** ** If it is not NULL, string zFormat specifies the format of the ** error string in the style of the printf functions: The following ** format characters are allowed: ** ** %s Insert a string ** %z A string that should be freed after use ** %d Insert an integer ** %T Insert a token ** %S Insert the first element of a SrcList ** ** zFormat and any string tokens that follow it are assumed to be ** encoded in UTF-8. ** ** To clear the most recent error for sqlite handle "db", sqlite3Error ** should be called with err_code set to SQLITE_OK and zFormat set ** to NULL. */ //Overloads private static void sqlite3Error(sqlite3 db, int err_code, int noString) { sqlite3Error(db, err_code, err_code == 0 ? null : ""); } private static void sqlite3Error(sqlite3 db, int err_code, string zFormat, params object[] ap) { if (db != null && (db.pErr != null || (db.pErr = sqlite3ValueNew(db)) != null)) { db.errCode = err_code; if (zFormat != null) { lock (lock_va_list) { string z; va_start(ap, zFormat); z = sqlite3VMPrintf(db, zFormat, ap); va_end(ref ap); sqlite3ValueSetStr(db.pErr, -1, z, SQLITE_UTF8, (dxDel)SQLITE_DYNAMIC); } } else { sqlite3ValueSetStr(db.pErr, 0, null, SQLITE_UTF8, SQLITE_STATIC); } } } /* ** Add an error message to pParse.zErrMsg and increment pParse.nErr. ** The following formatting characters are allowed: ** ** %s Insert a string ** %z A string that should be freed after use ** %d Insert an integer ** %T Insert a token ** %S Insert the first element of a SrcList ** ** This function should be used to report any error that occurs whilst ** compiling an SQL statement (i.e. within sqlite3_prepare()). The ** last thing the sqlite3_prepare() function does is copy the error ** stored by this function into the database handle using sqlite3Error(). ** Function sqlite3Error() should be used during statement execution ** (sqlite3_step() etc.). */ private static void sqlite3ErrorMsg(Parse pParse, string zFormat, params object[] ap) { string zMsg; sqlite3 db = pParse.db; //va_list ap; lock (lock_va_list) { va_start(ap, zFormat); zMsg = sqlite3VMPrintf(db, zFormat, ap); va_end(ref ap); } if (db.suppressErr != 0) { sqlite3DbFree(db, ref zMsg); } else { pParse.nErr++; sqlite3DbFree(db, ref pParse.zErrMsg); pParse.zErrMsg = zMsg; pParse.rc = SQLITE_ERROR; } } /* ** Convert an SQL-style quoted string into a normal string by removing ** the quote characters. The conversion is done in-place. If the ** input does not begin with a quote character, then this routine ** is a no-op. ** ** The input string must be zero-terminated. A new zero-terminator ** is added to the dequoted string. ** ** The return value is -1 if no dequoting occurs or the length of the ** dequoted string, exclusive of the zero terminator, if dequoting does ** occur. ** ** 2002-Feb-14: This routine is extended to remove MS-Access style ** brackets from around identifers. For example: "[a-b-c]" becomes ** "a-b-c". */ private static int sqlite3Dequote(ref string z) { char quote; int i; if (z == null || z == "") return -1; quote = z[0]; switch (quote) { case '\'': break; case '"': break; case '`': break; /* For MySQL compatibility */ case '[': quote = ']'; break; /* For MS SqlServer compatibility */ default: return -1; } StringBuilder sbZ = new StringBuilder(z.Length); for (i = 1; i < z.Length; i++) //z[i] != 0; i++) { if (z[i] == quote) { if (i < z.Length - 1 && (z[i + 1] == quote)) { sbZ.Append(quote); i++; } else { break; } } else { sbZ.Append(z[i]); } } z = sbZ.ToString(); return sbZ.Length; } /* Convenient short-hand */ //#define UpperToLower sqlite3UpperToLower /* ** Some systems have stricmp(). Others have strcasecmp(). Because ** there is no consistency, we will define our own. ** ** IMPLEMENTATION-OF: R-20522-24639 The sqlite3_strnicmp() API allows ** applications and extensions to compare the contents of two buffers ** containing UTF-8 strings in a case-independent fashion, using the same ** definition of case independence that SQLite uses internally when ** comparing identifiers. */ private static int sqlite3StrNICmp(string zLeft, int offsetLeft, string zRight, int N) { //register unsigned char *a, *b; //a = (unsigned char )zLeft; //b = (unsigned char )zRight; int a = 0, b = 0; while (N-- > 0 && a < zLeft.Length - offsetLeft && b < zRight.Length && zLeft[a + offsetLeft] != 0 && UpperToLower[zLeft[a + offsetLeft]] == UpperToLower[zRight[b]]) { a++; b++; } return N < 0 ? 0 : ((a < zLeft.Length - offsetLeft) ? UpperToLower[zLeft[a + offsetLeft]] : 0) - UpperToLower[zRight[b]]; } private static int sqlite3StrNICmp(string zLeft, string zRight, int N) { //register unsigned char *a, *b; //a = (unsigned char )zLeft; //b = (unsigned char )zRight; int a = 0, b = 0; while (N-- > 0 && a < zLeft.Length && b < zRight.Length && (zLeft[a] == zRight[b] || (zLeft[a] != 0 && zLeft[a] < 256 && zRight[b] < 256 && UpperToLower[zLeft[a]] == UpperToLower[zRight[b]]))) { a++; b++; } if (N < 0) return 0; if (a == zLeft.Length && b == zRight.Length) return 0; if (a == zLeft.Length) return -UpperToLower[zRight[b]]; if (b == zRight.Length) return UpperToLower[zLeft[a]]; return (zLeft[a] < 256 ? UpperToLower[zLeft[a]] : zLeft[a]) - (zRight[b] < 256 ? UpperToLower[zRight[b]] : zRight[b]); } /* ** The string z[] is an text representation of a real number. ** Convert this string to a double and write it into *pResult. ** ** The string z[] is length bytes in length (bytes, not characters) and ** uses the encoding enc. The string is not necessarily zero-terminated. ** ** Return TRUE if the result is a valid real number (or integer) and FALSE ** if the string is empty or contains extraneous text. Valid numbers ** are in one of these formats: ** ** [+-]digits[E[+-]digits] ** [+-]digits.[digits][E[+-]digits] ** [+-].digits[E[+-]digits] ** ** Leading and trailing whitespace is ignored for the purpose of determining ** validity. ** ** If some prefix of the input string is a valid number, this routine ** returns FALSE but it still converts the prefix and writes the result ** into *pResult. */ private static bool sqlite3AtoF(string z, ref double pResult, int length, u8 enc) { #if !SQLITE_OMIT_FLOATING_POINT if (String.IsNullOrEmpty(z)) { pResult = 0; return false; } int incr = (enc == SQLITE_UTF8 ? 1 : 2); //const char* zEnd = z + length; /* sign * significand * (10 ^ (esign * exponent)) */ int sign = 1; /* sign of significand */ i64 s = 0; /* significand */ int d = 0; /* adjust exponent for shifting decimal point */ int esign = 1; /* sign of exponent */ int e = 0; /* exponent */ int eValid = 1; /* True exponent is either not used or is well-formed */ double result = 0; int nDigits = 0; pResult = 0.0; /* Default return value, in case of an error */ int zDx = 0; if (enc == SQLITE_UTF16BE) zDx++; while (zDx < length && sqlite3Isspace(z[zDx])) zDx++; if (zDx >= length) return false; /* get sign of significand */ if (z[zDx] == '-') { sign = -1; zDx += incr; } else if (z[zDx] == '+') { zDx += incr; } /* skip leading zeroes */ while (zDx < z.Length && z[zDx] == '0') { zDx += incr; nDigits++; } /* copy max significant digits to significand */ while (zDx < length && sqlite3Isdigit(z[zDx]) && s < ((LARGEST_INT64 - 9) / 10)) { s = s * 10 + (z[zDx] - '0'); zDx += incr; nDigits++; } /* skip non-significant significand digits ** (increase exponent by d to shift decimal left) */ while (zDx < length && sqlite3Isdigit(z[zDx])) { zDx += incr; nDigits++; d++; } if (zDx >= length) goto do_atof_calc; /* if decimal point is present */ if (z[zDx] == '.') { zDx += incr; /* copy digits from after decimal to significand ** (decrease exponent by d to shift decimal right) */ while (zDx < length && sqlite3Isdigit(z[zDx]) && s < ((LARGEST_INT64 - 9) / 10)) { s = s * 10 + (z[zDx] - '0'); zDx += incr; nDigits++; d--; } /* skip non-significant digits */ while (zDx < length && sqlite3Isdigit(z[zDx])) { zDx += incr; nDigits++; } if (zDx >= length) goto do_atof_calc; } /* if exponent is present */ if (z[zDx] == 'e' || z[zDx] == 'E') { zDx += incr; eValid = 0; if (zDx >= length) goto do_atof_calc; /* get sign of exponent */ if (z[zDx] == '-') { esign = -1; zDx += incr; } else if (z[zDx] == '+') { zDx += incr; } /* copy digits to exponent */ while (zDx < length && sqlite3Isdigit(z[zDx])) { e = e * 10 + (z[zDx] - '0'); zDx += incr; eValid = 1; } } /* skip trailing spaces */ if (nDigits > 0 && eValid > 0) { while (zDx < length && sqlite3Isspace(z[zDx])) zDx += incr; } do_atof_calc: /* adjust exponent by d, and update sign */ e = (e * esign) + d; if (e < 0) { esign = -1; e *= -1; } else { esign = 1; } /* if 0 significand */ if (0 == s) { /* In the IEEE 754 standard, zero is signed. ** Add the sign if we've seen at least one digit */ result = (sign < 0 && nDigits != 0) ? -(double)0 : (double)0; } else { /* attempt to reduce exponent */ if (esign > 0) { while (s < (LARGEST_INT64 / 10) && e > 0) { e--; s *= 10; } } else { while (0 == (s % 10) && e > 0) { e--; s /= 10; } } /* adjust the sign of significand */ s = sign < 0 ? -s : s; /* if exponent, scale significand as appropriate ** and store in result. */ if (e != 0) { double scale = 1.0; /* attempt to handle extremely small/large numbers better */ if (e > 307 && e < 342) { while ((e % 308) != 0) { scale *= 1.0e+1; e -= 1; } if (esign < 0) { result = s / scale; result /= 1.0e+308; } else { result = s * scale; result *= 1.0e+308; } } else { /* 1.0e+22 is the largest power of 10 than can be ** represented exactly. */ while ((e % 22) != 0) { scale *= 1.0e+1; e -= 1; } while (e > 0) { scale *= 1.0e+22; e -= 22; } if (esign < 0) { result = s / scale; } else { result = s * scale; } } } else { result = (double)s; } } /* store the result */ pResult = result; /* return true if number and no extra non-whitespace chracters after */ return zDx >= length && nDigits > 0 && eValid != 0; #else return !sqlite3Atoi64(z, pResult, length, enc); #endif //* SQLITE_OMIT_FLOATING_POINT */ } /* ** Compare the 19-character string zNum against the text representation ** value 2^63: 9223372036854775808. Return negative, zero, or positive ** if zNum is less than, equal to, or greater than the string. ** Note that zNum must contain exactly 19 characters. ** ** Unlike memcmp() this routine is guaranteed to return the difference ** in the values of the last digit if the only difference is in the ** last digit. So, for example, ** ** compare2pow63("9223372036854775800", 1) ** ** will return -8. */ private static int compare2pow63(string zNum, int incr) { int c = 0; int i; /* 012345678901234567 */ string pow63 = "922337203685477580"; for (i = 0; c == 0 && i < 18; i++) { c = (zNum[i * incr] - pow63[i]) * 10; } if (c == 0) { c = zNum[18 * incr] - '8'; testcase(c == (-1)); testcase(c == 0); testcase(c == (+1)); } return c; } /* ** Convert zNum to a 64-bit signed integer. ** ** If the zNum value is representable as a 64-bit twos-complement ** integer, then write that value into *pNum and return 0. ** ** If zNum is exactly 9223372036854665808, return 2. This special ** case is broken out because while 9223372036854665808 cannot be a ** signed 64-bit integer, its negative -9223372036854665808 can be. ** ** If zNum is too big for a 64-bit integer and is not ** 9223372036854665808 then return 1. ** ** length is the number of bytes in the string (bytes, not characters). ** The string is not necessarily zero-terminated. The encoding is ** given by enc. */ private static int sqlite3Atoi64(string zNum, ref i64 pNum, int length, u8 enc) { if (zNum == null) { pNum = 0; return 1; } int incr = (enc == SQLITE_UTF8 ? 1 : 2); u64 u = 0; int neg = 0; /* assume positive */ int i; int c = 0; int zDx = 0;// string zStart; //string zEnd = zNum + length; if (enc == SQLITE_UTF16BE) zDx++; while (zDx < length && sqlite3Isspace(zNum[zDx])) zDx += incr; if (zDx < length) { if (zNum[zDx] == '-') { neg = 1; zDx += incr; } else if (zNum[zDx] == '+') { zDx += incr; } } //zStart = zNum; if (length > zNum.Length) length = zNum.Length; while (zDx < length - 1 && zNum[zDx] == '0') { zDx += incr; } /* Skip leading zeros. */ for (i = zDx; i < length && (c = zNum[i]) >= '0' && c <= '9'; i += incr) { u = u * 10 + (u64)(c - '0'); } if (u > LARGEST_INT64) { pNum = SMALLEST_INT64; } else if (neg != 0) { pNum = -(i64)u; } else { pNum = (i64)u; } testcase(i - zDx == 18); testcase(i - zDx == 19); testcase(i - zDx == 20); if ((c != 0 && i < length) || i == zDx || i - zDx > 19 * incr) { /* zNum is empty or contains non-numeric text or is longer ** than 19 digits (thus guaranteeing that it is too large) */ return 1; } else if (i - zDx < 19 * incr) { /* Less than 19 digits, so we know that it fits in 64 bits */ Debug.Assert(u <= LARGEST_INT64); return 0; } else { /* zNum is a 19-digit numbers. Compare it against 9223372036854775808. */ c = compare2pow63(zNum.Substring(zDx), incr); if (c < 0) { /* zNum is less than 9223372036854775808 so it fits */ Debug.Assert(u <= LARGEST_INT64); return 0; } else if (c > 0) { /* zNum is greater than 9223372036854775808 so it overflows */ return 1; } else { /* zNum is exactly 9223372036854775808. Fits if negative. The ** special case 2 overflow if positive */ Debug.Assert(u - 1 == LARGEST_INT64); Debug.Assert((pNum) == SMALLEST_INT64); return neg != 0 ? 0 : 2; } } } /* ** If zNum represents an integer that will fit in 32-bits, then set ** pValue to that integer and return true. Otherwise return false. ** ** Any non-numeric characters that following zNum are ignored. ** This is different from sqlite3Atoi64() which requires the ** input number to be zero-terminated. */ private static bool sqlite3GetInt32(string zNum, ref int pValue) { return sqlite3GetInt32(zNum, 0, ref pValue); } private static bool sqlite3GetInt32(string zNum, int iZnum, ref int pValue) { sqlite_int64 v = 0; int i, c; int neg = 0; if (zNum[iZnum] == '-') { neg = 1; iZnum++; } else if (zNum[iZnum] == '+') { iZnum++; } while (iZnum < zNum.Length && zNum[iZnum] == '0') iZnum++; for (i = 0; i < 11 && i + iZnum < zNum.Length && (c = zNum[iZnum + i] - '0') >= 0 && c <= 9; i++) { v = v * 10 + c; } /* The longest decimal representation of a 32 bit integer is 10 digits: ** ** 1234567890 ** 2^31 . 2147483648 */ testcase(i == 10); if (i > 10) { return false; } testcase(v - neg == 2147483647); if (v - neg > 2147483647) { return false; } if (neg != 0) { v = -v; } pValue = (int)v; return true; } /* ** Return a 32-bit integer value extracted from a string. If the ** string is not an integer, just return 0. */ private static int sqlite3Atoi(string z) { int x = 0; if (!String.IsNullOrEmpty(z)) sqlite3GetInt32(z, ref x); return x; } /* ** The variable-length integer encoding is as follows: ** ** KEY: ** A = 0xxxxxxx 7 bits of data and one flag bit ** B = 1xxxxxxx 7 bits of data and one flag bit ** C = xxxxxxxx 8 bits of data ** ** 7 bits - A ** 14 bits - BA ** 21 bits - BBA ** 28 bits - BBBA ** 35 bits - BBBBA ** 42 bits - BBBBBA ** 49 bits - BBBBBBA ** 56 bits - BBBBBBBA ** 64 bits - BBBBBBBBC */ /* ** Write a 64-bit variable-length integer to memory starting at p[0]. ** The length of data write will be between 1 and 9 bytes. The number ** of bytes written is returned. ** ** A variable-length integer consists of the lower 7 bits of each byte ** for all bytes that have the 8th bit set and one byte with the 8th ** bit clear. Except, if we get to the 9th byte, it stores the full ** 8 bits and is the last byte. */ private static int getVarint(byte[] p, out u32 v) { v = p[0]; if (v <= 0x7F) return 1; u64 u64_v = 0; int result = sqlite3GetVarint(p, 0, out u64_v); v = (u32)u64_v; return result; } private static int getVarint(byte[] p, int offset, out u32 v) { v = p[offset + 0]; if (v <= 0x7F) return 1; u64 u64_v = 0; int result = sqlite3GetVarint(p, offset, out u64_v); v = (u32)u64_v; return result; } private static int getVarint(byte[] p, int offset, out int v) { v = p[offset + 0]; if (v <= 0x7F) return 1; u64 u64_v = 0; int result = sqlite3GetVarint(p, offset, out u64_v); v = (int)u64_v; return result; } private static int getVarint(byte[] p, int offset, out i64 v) { v = offset >= p.Length ? 0 : (int)p[offset + 0]; if (v <= 0x7F) return 1; if (offset + 1 >= p.Length) { v = 65535; return 2; } else { u64 u64_v = 0; int result = sqlite3GetVarint(p, offset, out u64_v); v = (i64)u64_v; return result; } } private static int getVarint(byte[] p, int offset, out u64 v) { v = p[offset + 0]; if (v <= 0x7F) return 1; int result = sqlite3GetVarint(p, offset, out v); return result; } private static int getVarint32(byte[] p, out u32 v) { //(*B=*(A))<=0x7f?1:sqlite3GetVarint32(A,B)) v = p[0]; if (v <= 0x7F) return 1; return sqlite3GetVarint32(p, 0, out v); } private static byte[] pByte4 = new byte[4]; private static int getVarint32(string s, u32 offset, out int v) { //(*B=*(A))<=0x7f?1:sqlite3GetVarint32(A,B)) v = s[(int)offset]; if (v <= 0x7F) return 1; pByte4[0] = (u8)s[(int)offset + 0]; pByte4[1] = (u8)s[(int)offset + 1]; pByte4[2] = (u8)s[(int)offset + 2]; pByte4[3] = (u8)s[(int)offset + 3]; u32 u32_v = 0; int result = sqlite3GetVarint32(pByte4, 0, out u32_v); v = (int)u32_v; return sqlite3GetVarint32(pByte4, 0, out v); } private static int getVarint32(string s, u32 offset, out u32 v) { //(*B=*(A))<=0x7f?1:sqlite3GetVarint32(A,B)) v = s[(int)offset]; if (v <= 0x7F) return 1; pByte4[0] = (u8)s[(int)offset + 0]; pByte4[1] = (u8)s[(int)offset + 1]; pByte4[2] = (u8)s[(int)offset + 2]; pByte4[3] = (u8)s[(int)offset + 3]; return sqlite3GetVarint32(pByte4, 0, out v); } private static int getVarint32(byte[] p, u32 offset, out u32 v) { //(*B=*(A))<=0x7f?1:sqlite3GetVarint32(A,B)) v = p[offset]; if (v <= 0x7F) return 1; return sqlite3GetVarint32(p, (int)offset, out v); } private static int getVarint32(byte[] p, int offset, out u32 v) { //(*B=*(A))<=0x7f?1:sqlite3GetVarint32(A,B)) v = offset >= p.Length ? 0 : (u32)p[offset]; if (v <= 0x7F) return 1; return sqlite3GetVarint32(p, offset, out v); } private static int getVarint32(byte[] p, int offset, out int v) { //(*B=*(A))<=0x7f?1:sqlite3GetVarint32(A,B)) v = p[offset + 0]; if (v <= 0x7F) return 1; u32 u32_v = 0; int result = sqlite3GetVarint32(p, offset, out u32_v); v = (int)u32_v; return result; } private static int putVarint(byte[] p, int offset, int v) { return putVarint(p, offset, (u64)v); } private static int putVarint(byte[] p, int offset, u64 v) { return sqlite3PutVarint(p, offset, v); } private static int sqlite3PutVarint(byte[] p, int offset, int v) { return sqlite3PutVarint(p, offset, (u64)v); } private static u8[] bufByte10 = new u8[10]; private static int sqlite3PutVarint(byte[] p, int offset, u64 v) { int i, j, n; if ((v & (((u64)0xff000000) << 32)) != 0) { p[offset + 8] = (byte)v; v >>= 8; for (i = 7; i >= 0; i--) { p[offset + i] = (byte)((v & 0x7f) | 0x80); v >>= 7; } return 9; } n = 0; do { bufByte10[n++] = (byte)((v & 0x7f) | 0x80); v >>= 7; } while (v != 0); bufByte10[0] &= 0x7f; Debug.Assert(n <= 9); for (i = 0, j = n - 1; j >= 0; j--, i++) { p[offset + i] = bufByte10[j]; } return n; } /* ** This routine is a faster version of sqlite3PutVarint() that only ** works for 32-bit positive integers and which is optimized for ** the common case of small integers. */ private static int putVarint32(byte[] p, int offset, int v) { #if !putVarint32 if ((v & ~0x7f) == 0) { p[offset] = (byte)v; return 1; } #endif if ((v & ~0x3fff) == 0) { p[offset] = (byte)((v >> 7) | 0x80); p[offset + 1] = (byte)(v & 0x7f); return 2; } return sqlite3PutVarint(p, offset, v); } private static int putVarint32(byte[] p, int v) { if ((v & ~0x7f) == 0) { p[0] = (byte)v; return 1; } else if ((v & ~0x3fff) == 0) { p[0] = (byte)((v >> 7) | 0x80); p[1] = (byte)(v & 0x7f); return 2; } else { return sqlite3PutVarint(p, 0, v); } } /* ** Bitmasks used by sqlite3GetVarint(). These precomputed constants ** are defined here rather than simply putting the constant expressions ** inline in order to work around bugs in the RVT compiler. ** ** SLOT_2_0 A mask for (0x7f<<14) | 0x7f ** ** SLOT_4_2_0 A mask for (0x7f<<28) | SLOT_2_0 */ private const int SLOT_2_0 = 0x001fc07f; //#define SLOT_2_0 0x001fc07f private const u32 SLOT_4_2_0 = (u32)0xf01fc07f; //#define SLOT_4_2_0 0xf01fc07f /* ** Read a 64-bit variable-length integer from memory starting at p[0]. ** Return the number of bytes read. The value is stored in *v. */ private static u8 sqlite3GetVarint(byte[] p, int offset, out u64 v) { u32 a, b, s; a = p[offset + 0]; /* a: p0 (unmasked) */ if (0 == (a & 0x80)) { v = a; return 1; } //p++; b = p[offset + 1]; /* b: p1 (unmasked) */ if (0 == (b & 0x80)) { a &= 0x7f; a = a << 7; a |= b; v = a; return 2; } /* Verify that constants are precomputed correctly */ Debug.Assert(SLOT_2_0 == ((0x7f << 14) | (0x7f))); Debug.Assert(SLOT_4_2_0 == ((0xfU << 28) | (0x7f << 14) | (0x7f))); //p++; a = a << 14; a |= p[offset + 2]; /* a: p0<<14 | p2 (unmasked) */ if (0 == (a & 0x80)) { a &= SLOT_2_0; b &= 0x7f; b = b << 7; a |= b; v = a; return 3; } /* CSE1 from below */ a &= SLOT_2_0; //p++; b = b << 14; b |= p[offset + 3]; /* b: p1<<14 | p3 (unmasked) */ if (0 == (b & 0x80)) { b &= SLOT_2_0; /* moved CSE1 up */ /* a &= (0x7f<<14)|(0x7f); */ a = a << 7; a |= b; v = a; return 4; } /* a: p0<<14 | p2 (masked) */ /* b: p1<<14 | p3 (unmasked) */ /* 1:save off p0<<21 | p1<<14 | p2<<7 | p3 (masked) */ /* moved CSE1 up */ /* a &= (0x7f<<14)|(0x7f); */ b &= SLOT_2_0; s = a; /* s: p0<<14 | p2 (masked) */ //p++; a = a << 14; a |= p[offset + 4]; /* a: p0<<28 | p2<<14 | p4 (unmasked) */ if (0 == (a & 0x80)) { /* we can skip these cause they were (effectively) done above in calc'ing s */ /* a &= (0x1f<<28)|(0x7f<<14)|(0x7f); */ /* b &= (0x7f<<14)|(0x7f); */ b = b << 7; a |= b; s = s >> 18; v = ((u64)s) << 32 | a; return 5; } /* 2:save off p0<<21 | p1<<14 | p2<<7 | p3 (masked) */ s = s << 7; s |= b; /* s: p0<<21 | p1<<14 | p2<<7 | p3 (masked) */ //p++; b = b << 14; b |= p[offset + 5]; /* b: p1<<28 | p3<<14 | p5 (unmasked) */ if (0 == (b & 0x80)) { /* we can skip this cause it was (effectively) done above in calc'ing s */ /* b &= (0x1f<<28)|(0x7f<<14)|(0x7f); */ a &= SLOT_2_0; a = a << 7; a |= b; s = s >> 18; v = ((u64)s) << 32 | a; return 6; } //p++; a = a << 14; a |= p[offset + 6]; /* a: p2<<28 | p4<<14 | p6 (unmasked) */ if (0 == (a & 0x80)) { a &= SLOT_4_2_0; b &= SLOT_2_0; b = b << 7; a |= b; s = s >> 11; v = ((u64)s) << 32 | a; return 7; } /* CSE2 from below */ a &= SLOT_2_0; //p++; b = b << 14; b |= p[offset + 7]; /* b: p3<<28 | p5<<14 | p7 (unmasked) */ if (0 == (b & 0x80)) { b &= SLOT_4_2_0; /* moved CSE2 up */ /* a &= (0x7f<<14)|(0x7f); */ a = a << 7; a |= b; s = s >> 4; v = ((u64)s) << 32 | a; return 8; } //p++; a = a << 15; a |= p[offset + 8]; /* a: p4<<29 | p6<<15 | p8 (unmasked) */ /* moved CSE2 up */ /* a &= (0x7f<<29)|(0x7f<<15)|(0xff); */ b &= SLOT_2_0; b = b << 8; a |= b; s = s << 4; b = p[offset + 4]; b &= 0x7f; b = b >> 3; s |= b; v = ((u64)s) << 32 | a; return 9; } /* ** Read a 32-bit variable-length integer from memory starting at p[0]. ** Return the number of bytes read. The value is stored in *v. ** ** If the varint stored in p[0] is larger than can fit in a 32-bit unsigned ** integer, then set *v to 0xffffffff. ** ** A MACRO version, getVarint32, is provided which inlines the ** single-byte case. All code should use the MACRO version as ** this function assumes the single-byte case has already been handled. */ private static u8 sqlite3GetVarint32(byte[] p, out int v) { u32 u32_v = 0; u8 result = sqlite3GetVarint32(p, 0, out u32_v); v = (int)u32_v; return result; } private static u8 sqlite3GetVarint32(byte[] p, int offset, out int v) { u32 u32_v = 0; u8 result = sqlite3GetVarint32(p, offset, out u32_v); v = (int)u32_v; return result; } private static u8 sqlite3GetVarint32(byte[] p, out u32 v) { return sqlite3GetVarint32(p, 0, out v); } private static u8 sqlite3GetVarint32(byte[] p, int offset, out u32 v) { u32 a, b; /* The 1-byte case. Overwhelmingly the most common. Handled inline ** by the getVarin32() macro */ a = p[offset + 0]; /* a: p0 (unmasked) */ //#if getVarint32 // if ( 0==( a&0x80)) // { /* Values between 0 and 127 */ // v = a; // return 1; // } //#endif /* The 2-byte case */ //p++; b = (offset + 1) < p.Length ? p[offset + 1] : (u32)0; /* b: p1 (unmasked) */ if (0 == (b & 0x80)) { /* Values between 128 and 16383 */ a &= 0x7f; a = a << 7; v = a | b; return 2; } /* The 3-byte case */ //p++; a = a << 14; a |= (offset + 2) < p.Length ? p[offset + 2] : (u32)0; /* a: p0<<14 | p2 (unmasked) */ if (0 == (a & 0x80)) { /* Values between 16384 and 2097151 */ a &= (0x7f << 14) | (0x7f); b &= 0x7f; b = b << 7; v = a | b; return 3; } /* A 32-bit varint is used to store size information in btrees. ** Objects are rarely larger than 2MiB limit of a 3-byte varint. ** A 3-byte varint is sufficient, for example, to record the size ** of a 1048569-byte BLOB or string. ** ** We only unroll the first 1-, 2-, and 3- byte cases. The very ** rare larger cases can be handled by the slower 64-bit varint ** routine. */ #if TRUE { u64 v64 = 0; u8 n; //p -= 2; n = sqlite3GetVarint(p, offset, out v64); Debug.Assert(n > 3 && n <= 9); if ((v64 & SQLITE_MAX_U32) != v64) { v = 0xffffffff; } else { v = (u32)v64; } return n; } #else /* For following code (kept for historical record only) shows an ** unrolling for the 3- and 4-byte varint cases. This code is ** slightly faster, but it is also larger and much harder to test. */ //p++; b = b << 14; b |= p[offset + 3]; /* b: p1<<14 | p3 (unmasked) */ if ( 0 == ( b & 0x80 ) ) { /* Values between 2097152 and 268435455 */ b &= ( 0x7f << 14 ) | ( 0x7f ); a &= ( 0x7f << 14 ) | ( 0x7f ); a = a << 7; v = a | b; return 4; } //p++; a = a << 14; a |= p[offset + 4]; /* a: p0<<28 | p2<<14 | p4 (unmasked) */ if ( 0 == ( a & 0x80 ) ) { /* Values between 268435456 and 34359738367 */ a &= SLOT_2_0; b &= SLOT_4_2_0; b = b << 7; v = a | b; return 5; } /* We can only reach this point when reading a corrupt database ** file. In that case we are not in any hurry. Use the (relatively ** slow) general-purpose sqlite3GetVarint() routine to extract the ** value. */ { u64 v64 = 0; int n; //p -= 4; n = sqlite3GetVarint( p, offset, out v64 ); Debug.Assert( n > 5 && n <= 9 ); v = (u32)v64; return n; } #endif } /* ** Return the number of bytes that will be needed to store the given ** 64-bit integer. */ private static int sqlite3VarintLen(u64 v) { int i = 0; do { i++; v >>= 7; } while (v != 0 && ALWAYS(i < 9)); return i; } /* ** Read or write a four-byte big-endian integer value. */ private static u32 sqlite3Get4byte(u8[] p, int p_offset, int offset) { offset += p_offset; return (offset + 3 > p.Length) ? 0 : (u32)((p[0 + offset] << 24) | (p[1 + offset] << 16) | (p[2 + offset] << 8) | p[3 + offset]); } private static u32 sqlite3Get4byte(u8[] p, int offset) { return (offset + 3 > p.Length) ? 0 : (u32)((p[0 + offset] << 24) | (p[1 + offset] << 16) | (p[2 + offset] << 8) | p[3 + offset]); } private static u32 sqlite3Get4byte(u8[] p, u32 offset) { return (offset + 3 > p.Length) ? 0 : (u32)((p[0 + offset] << 24) | (p[1 + offset] << 16) | (p[2 + offset] << 8) | p[3 + offset]); } private static u32 sqlite3Get4byte(u8[] p) { return (u32)((p[0] << 24) | (p[1] << 16) | (p[2] << 8) | p[3]); } private static void sqlite3Put4byte(byte[] p, int v) { p[0] = (byte)(v >> 24 & 0xFF); p[1] = (byte)(v >> 16 & 0xFF); p[2] = (byte)(v >> 8 & 0xFF); p[3] = (byte)(v & 0xFF); } private static void sqlite3Put4byte(byte[] p, int offset, int v) { p[0 + offset] = (byte)(v >> 24 & 0xFF); p[1 + offset] = (byte)(v >> 16 & 0xFF); p[2 + offset] = (byte)(v >> 8 & 0xFF); p[3 + offset] = (byte)(v & 0xFF); } private static void sqlite3Put4byte(byte[] p, u32 offset, u32 v) { p[0 + offset] = (byte)(v >> 24 & 0xFF); p[1 + offset] = (byte)(v >> 16 & 0xFF); p[2 + offset] = (byte)(v >> 8 & 0xFF); p[3 + offset] = (byte)(v & 0xFF); } private static void sqlite3Put4byte(byte[] p, int offset, u64 v) { p[0 + offset] = (byte)(v >> 24 & 0xFF); p[1 + offset] = (byte)(v >> 16 & 0xFF); p[2 + offset] = (byte)(v >> 8 & 0xFF); p[3 + offset] = (byte)(v & 0xFF); } private static void sqlite3Put4byte(byte[] p, u64 v) { p[0] = (byte)(v >> 24 & 0xFF); p[1] = (byte)(v >> 16 & 0xFF); p[2] = (byte)(v >> 8 & 0xFF); p[3] = (byte)(v & 0xFF); } /* ** Translate a single byte of Hex into an integer. ** This routine only works if h really is a valid hexadecimal ** character: 0..9a..fA..F */ private static int sqlite3HexToInt(int h) { Debug.Assert((h >= '0' && h <= '9') || (h >= 'a' && h <= 'f') || (h >= 'A' && h <= 'F')); #if SQLITE_ASCII h += 9 * (1 & (h >> 6)); #endif //#if SQLITE_EBCDIC //h += 9*(1&~(h>>4)); //#endif return h & 0xf; } #if !SQLITE_OMIT_BLOB_LITERAL || SQLITE_HAS_CODEC /* ** Convert a BLOB literal of the form "x'hhhhhh'" into its binary ** value. Return a pointer to its binary value. Space to hold the ** binary value has been obtained from malloc and must be freed by ** the calling routine. */ private static byte[] sqlite3HexToBlob(sqlite3 db, string z, int n) { StringBuilder zBlob; int i; zBlob = new StringBuilder(n / 2 + 1);// (char)sqlite3DbMallocRaw(db, n / 2 + 1); n--; if (zBlob != null) { for (i = 0; i < n; i += 2) { zBlob.Append(Convert.ToChar((sqlite3HexToInt(z[i]) << 4) | sqlite3HexToInt(z[i + 1]))); } //zBlob[i / 2] = '\0'; } return Encoding.UTF8.GetBytes(zBlob.ToString()); } #endif // * !SQLITE_OMIT_BLOB_LITERAL || SQLITE_HAS_CODEC */ /* ** Log an error that is an API call on a connection pointer that should ** not have been used. The "type" of connection pointer is given as the ** argument. The zType is a word like "NULL" or "closed" or "invalid". */ private static void logBadConnection(string zType) { sqlite3_log(SQLITE_MISUSE, "API call with %s database connection pointer", zType ); } /* ** Check to make sure we have a valid db pointer. This test is not ** foolproof but it does provide some measure of protection against ** misuse of the interface such as passing in db pointers that are ** NULL or which have been previously closed. If this routine returns ** 1 it means that the db pointer is valid and 0 if it should not be ** dereferenced for any reason. The calling function should invoke ** SQLITE_MISUSE immediately. ** ** sqlite3SafetyCheckOk() requires that the db pointer be valid for ** use. sqlite3SafetyCheckSickOrOk() allows a db pointer that failed to ** open properly and is not fit for general use but which can be ** used as an argument to sqlite3_errmsg() or sqlite3_close(). */ private static bool sqlite3SafetyCheckOk(sqlite3 db) { u32 magic; if (db == null) { logBadConnection("NULL"); return false; } magic = db.magic; if (magic != SQLITE_MAGIC_OPEN) { if (sqlite3SafetyCheckSickOrOk(db)) { testcase(sqlite3GlobalConfig.xLog != null); logBadConnection("unopened"); } return false; } else { return true; } } private static bool sqlite3SafetyCheckSickOrOk(sqlite3 db) { u32 magic; magic = db.magic; if (magic != SQLITE_MAGIC_SICK && magic != SQLITE_MAGIC_OPEN && magic != SQLITE_MAGIC_BUSY) { testcase(sqlite3GlobalConfig.xLog != null); logBadConnection("invalid"); return false; } else { return true; } } /* ** Attempt to add, substract, or multiply the 64-bit signed value iB against ** the other 64-bit signed integer at *pA and store the result in *pA. ** Return 0 on success. Or if the operation would have resulted in an ** overflow, leave *pA unchanged and return 1. */ private static int sqlite3AddInt64(ref i64 pA, i64 iB) { i64 iA = pA; testcase(iA == 0); testcase(iA == 1); testcase(iB == -1); testcase(iB == 0); if (iB >= 0) { testcase(iA > 0 && LARGEST_INT64 - iA == iB); testcase(iA > 0 && LARGEST_INT64 - iA == iB - 1); if (iA > 0 && LARGEST_INT64 - iA < iB) return 1; pA += iB; } else { testcase(iA < 0 && -(iA + LARGEST_INT64) == iB + 1); testcase(iA < 0 && -(iA + LARGEST_INT64) == iB + 2); if (iA < 0 && -(iA + LARGEST_INT64) > iB + 1) return 1; pA += iB; } return 0; } private static int sqlite3SubInt64(ref i64 pA, i64 iB) { testcase(iB == SMALLEST_INT64 + 1); if (iB == SMALLEST_INT64) { testcase((pA) == (-1)); testcase((pA) == 0); if ((pA) >= 0) return 1; pA -= iB; return 0; } else { return sqlite3AddInt64(ref pA, -iB); } } //#define TWOPOWER32 (((i64)1)<<32) private const i64 TWOPOWER32 = (((i64)1) << 32); //#define TWOPOWER31 (((i64)1)<<31) private const i64 TWOPOWER31 = (((i64)1) << 31); private static int sqlite3MulInt64(ref i64 pA, i64 iB) { i64 iA = pA; i64 iA1, iA0, iB1, iB0, r; iA1 = iA / TWOPOWER32; iA0 = iA % TWOPOWER32; iB1 = iB / TWOPOWER32; iB0 = iB % TWOPOWER32; if (iA1 * iB1 != 0) return 1; Debug.Assert(iA1 * iB0 == 0 || iA0 * iB1 == 0); r = iA1 * iB0 + iA0 * iB1; testcase(r == (-TWOPOWER31) - 1); testcase(r == (-TWOPOWER31)); testcase(r == TWOPOWER31); testcase(r == TWOPOWER31 - 1); if (r < (-TWOPOWER31) || r >= TWOPOWER31) return 1; r *= TWOPOWER32; if (sqlite3AddInt64(ref r, iA0 * iB0) != 0) return 1; pA = r; return 0; } /* ** Compute the absolute value of a 32-bit signed integer, if possible. Or ** if the integer has a value of -2147483648, return +2147483647 */ private static int sqlite3AbsInt32(int x) { if (x >= 0) return x; if (x == -2147483648) // 0x80000000 return 0x7fffffff; return -x; } #if SQLITE_ENABLE_8_3_NAMES /* ** If SQLITE_ENABLE_8_3_NAME is set at compile-time and if the database ** filename in zBaseFilename is a URI with the "8_3_names=1" parameter and ** if filename in z[] has a suffix (a.k.a. "extension") that is longer than ** three characters, then shorten the suffix on z[] to be the last three ** characters of the original suffix. ** ** Examples: ** ** test.db-journal => test.nal ** test.db-wal => test.wal ** test.db-shm => test.shm */ static void sqlite3FileSuffix3(string zBaseFilename, string z){ string zOk; zOk = sqlite3_uri_parameter(zBaseFilename, "8_3_names"); if( zOk != null && sqlite3GetBoolean(zOk) ){ int i, sz; sz = sqlite3Strlen30(z); for(i=sz-1; i>0 && z[i]!='/' && z[i]!='.'; i--){} if( z[i]=='.' && ALWAYS(sz>i+4) ) memcpy(&z[i+1], &z[sz-3], 4); } } #endif } }