SQLite

        if( longvalue==0 ) flag_alternateform = 0;
#else
        /* More sensible: turn off the prefix for octal (to prevent "00"),
        ** but leave the prefix for hex. */
        if( longvalue==0 && infop->base==8 ) flag_alternateform = 0;
#endif
        if( infop->flags & FLAG_SIGNED ){








          if( *(long*)&longvalue<0 ){
            longvalue = -*(long*)&longvalue;
            prefix = '-';
          }else if( flag_plussign )  prefix = '+';
          else if( flag_blanksign )  prefix = ' ';
          else                       prefix = 0;

        }else                        prefix = 0;
        if( flag_zeropad && precision<width-(prefix!=0) ){
          precision = width-(prefix!=0);
        }
        bufpt = &buf[etBUFSIZE-1];
        {
          register char *cset;      /* Use registers for speed */

/*
** 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.
**
*************************************************************************
** Internal interface definitions for SQLite.
**
** @(#) $Id: sqliteInt.h,v 1.229 2004/05/10 23:29:50 drh Exp $
*/
#include "config.h"
#include "sqlite.h"
#include "hash.h"
#include "parse.h"
#include <stdio.h>
#include <stdlib.h>

void *sqlite3utf8to16be(const unsigned char *pIn, int N);
void *sqlite3utf8to16le(const unsigned char *pIn, int N);
void sqlite3utf16to16le(void *pData, int N);
void sqlite3utf16to16be(void *pData, int N);
int sqlite3PutVarint(unsigned char *, u64);
int sqlite3GetVarint(const unsigned char *, u64 *);
int sqlite3VarintLen(u64 v);

**
** Various scripts scan this source file in order to generate HTML
** documentation, headers files, or other derived files.  The formatting
** of the code in this file is, therefore, important.  See other comments
** in this file for details.  If in doubt, do not deviate from existing
** commenting and indentation practices when changing or adding code.
**
** $Id: vdbe.c,v 1.282 2004/05/11 09:57:35 drh Exp $
*/
#include "sqliteInt.h"
#include "os.h"
#include <ctype.h>
#include "vdbeInt.h"

/*

*/
#define Stringify(P) if(((P)->flags & MEM_Str)==0){hardStringify(P);}
static int hardStringify(Mem *pStack){
  int fg = pStack->flags;
  if( fg & MEM_Real ){
    sqlite3_snprintf(sizeof(pStack->zShort),pStack->zShort,"%.15g",pStack->r);
  }else if( fg & MEM_Int ){
    sqlite3_snprintf(sizeof(pStack->zShort),pStack->zShort,"%d",pStack->i);
  }else{
    pStack->zShort[0] = 0;
  }
  pStack->z = pStack->zShort;
  pStack->n = strlen(pStack->zShort)+1;
  pStack->flags = MEM_Str | MEM_Short;
  return 0;

  assert( pNos>=p->aStack );
  if( ((pTos->flags | pNos->flags) & MEM_Null)!=0 ){
    Release(pTos);
    pTos--;
    Release(pTos);
    pTos->flags = MEM_Null;
  }else if( (pTos->flags & pNos->flags & MEM_Int)==MEM_Int ){
    int a, b;
    a = pTos->i;
    b = pNos->i;
    switch( pOp->opcode ){
      case OP_Add:         b += a;       break;
      case OP_Subtract:    b -= a;       break;
      case OP_Multiply:    b *= a;       break;
      case OP_Divide: {

  if( i>=cnt ) pc = pOp->p2-1;
  if( pOp->p1>0 ) popStack(&pTos, cnt);
  break;
}

/* Opcode: Column3 P1 P2 *
**
** This opcode (not yet in use) is a replacement for the current
** OP_Column3 that supports the SQLite3 manifest typing feature.
**
** Interpret the data that cursor P1 points to as
** a structure built using the MakeRecord instruction.
** (See the MakeRecord opcode for additional information about
** the format of the data.)
** Push onto the stack the value of the P2-th column contained
** in the data.
**
** If the KeyAsData opcode has previously executed on this cursor,
** then the field might be extracted from the key rather than the
** data.
**
** If P1 is negative, then the record is stored on the stack rather
** than in a table.  For P1==-1, the top of the stack is used.
** For P1==-2, the next on the stack is used.  And so forth.  The
** value pushed is always just a pointer into the record which is
** stored further down on the stack.  The column value is not copied.
*/
case OP_Column3: {
  int payloadSize;
  int i = pOp->p1;
  int p2 = pOp->p2;
  Cursor *pC;
  char *zRec;
  BtCursor *pCrsr;

  char *zHdr = 0;
  int freeZHdr = 0;
  int dataOffsetLen;




  u64 dataOffset;
  char *zIdx = 0;
  int cnt;
  u64 idxN;
  u64 idxN1;

  assert( i<p->nCursor );
  pTos++;





  if( i<0 ){
    assert( &pTos[i]>=p->aStack );
    assert( pTos[i].flags & MEM_Str );
    zRec = pTos[i].z;
    payloadSize = pTos[i].n;
  }else if( (pC = &p->aCsr[i])->pCursor!=0 ){
    sqlite3VdbeCursorMoveto(pC);

  /* If payloadSize is 0, then just push a NULL onto the stack. */
  if( payloadSize==0 ){
    pTos->flags = MEM_Null;
    break;
  }

  /* Read the data-offset for this record */



  if( zRec ){
    dataOffsetLen = sqlite3GetVarint(zRec, &dataOffset);

  }else{
    unsigned char zDataOffset[9];



    if( pC->keyAsData ){
      sqlite3BtreeKey(pCrsr, 0, 9, zDataOffset);
    }else{
      sqlite3BtreeData(pCrsr, 0, 9, zDataOffset);
    }


    dataOffsetLen = sqlite3GetVarint(zDataOffset, &dataOffset);
  }















  /* Set zHdr to point at the start of the Idx() fields of the
  ** record. Set freeZHdr to 1 if we need to sqliteFree(zHdr) later.
  */


  if( zRec ){


    zHdr = zRec + dataOffsetLen;


  }else{






    zHdr = sqliteMalloc(dataOffset);
    if( !zHdr ){
      rc = SQLITE_NOMEM;
      goto abort_due_to_error;
    }
    freeZHdr = 1;
    if( pC->keyAsData ){
      sqlite3BtreeKey(pCrsr, dataOffsetLen, dataOffset, zHdr);
    }else{
      sqlite3BtreeData(pCrsr, dataOffsetLen, dataOffset, zHdr);
    }



  }


  /* Find the Nth byte of zHdr that does not have the 0x80
  ** bit set. The byte after this one is the start of the Idx(N)
  ** varint. Then read Idx(N) and Idx(N+1)
  */
  cnt = p2;
  zIdx = zHdr;
  while( cnt>0 ){
    assert( (zIdx-zHdr)<dataOffset );
    if( !(*zIdx & 0x80) ) cnt--;
    zIdx++;

  }
  zIdx += sqlite3GetVarint(zIdx, &idxN);



  sqlite3GetVarint(zIdx, &idxN1);

  /* Set zHdr to point at the field data */
  if( freeZHdr ){
    sqliteFree(zHdr);
    freeZHdr = 0;
  }
  if( zRec ){
    zHdr = zRec + (dataOffsetLen + dataOffset + idxN);
  }else{
    cnt = idxN1 - idxN;
    assert( cnt>0 );
    zHdr = sqliteMalloc(cnt);
    if( !zHdr ){
      rc = SQLITE_NOMEM;
      goto abort_due_to_error;
    }



    freeZHdr = 1;
    if( pC->keyAsData ){
      sqlite3BtreeKey(pCrsr, dataOffsetLen+dataOffset+idxN, cnt, zHdr);
    }else{
      sqlite3BtreeData(pCrsr, dataOffsetLen+dataOffset+idxN, cnt, zHdr);
    }
  }




  /* Deserialize the field value directory into the top of the

  ** stack. If the deserialized length does not match the expected
  ** length, this indicates corruption.



  */

  if( (idxN1-idxN)!=sqlite3VdbeDeserialize(pTos, zHdr) ){





    if( freeZHdr ){
      sqliteFree(zHdr);


    }





    rc = SQLITE_CORRUPT;


    goto abort_due_to_error;
  }









  if( freeZHdr ){
    sqliteFree(zHdr);
  }
  break;
}

/* Opcode MakeRecord3 P1 * *
**
** This opcode (not yet in use) is a replacement for the current
** OP_MakeRecord that supports the SQLite3 manifest typing feature.
** It drops the (P2==1) option that was never use.
**
** Convert the top P1 entries of the stack into a single entry
** suitable for use as a data record in a database table.  The
** details of the format are irrelavant as long as the OP_Column
** opcode can decode the record later.  Refer to source code
** comments for the details of the record format.
*/
case OP_MakeRecord3: {
  /* Assuming the record contains N fields, the record format looks
  ** like this:
  **
  ** --------------------------------------------------------------------------
  ** | data-offset | idx1 | ... | idx(N-1) | idx(N) | data0 | ... | data(N-1) |
  ** --------------------------------------------------------------------------
  **
  ** Data(0) is taken from the lowest element of the stack and data(N-1) is
  ** the top of the stack.
  **
  ** The data-offset and each of the idx() entries is stored as a 1-9 
  ** byte variable-length integer (see comments in btree.c). The
  ** data-offset contains the offset from the end of itself to the start 
  ** of data(0).
  ** 
  ** Idx(k) contains the offset from the start of data(0) to the first 
  ** byte of data(k). Idx(0) is implicitly 0. Hence:
  ** 
  **    sizeof(data-offset) + data-offset + Idx(N) 
  **
  ** is the number of bytes in the record. The offset to start of data(X)
  ** is sizeof(data-offset) + data-offset + Idx(X
  **
  ** TODO: Even when the record is short enough for Mem::zShort, this opcode
  **   allocates it dynamically.
  */
  int nDataLen = 0;
  int nHdrLen = 0;
  int data_offset = 0;
  int nField = pOp->p1;
  unsigned char *zNewRecord;
  unsigned char *zHdr;
  Mem *pRec;


  Mem *pData0 = &pTos[1-nField];
  assert( pData0>=p->aStack );

  /* Loop through the elements that will make up the record, determining
  ** the aggregate length of the Data() segments and the data_offset.

  */

  for(pRec=pData0; pRec!=pTos; pRec++){
    nDataLen += sqlite3VdbeSerialLen(pRec);
    data_offset += sqlite3VarintLen(nDataLen);
  }
 
  /* The size of the header is the data-offset + the size of the
  ** data-offset as a varint. If the size of the header combined with
  ** the size of the Data() segments is greater than MAX_BYTES_PER_ROW, 
  ** report an error.
  */
  nHdrLen = data_offset + sqlite3VarintLen(data_offset);
  if( (nHdrLen+nDataLen)>MAX_BYTES_PER_ROW ){
    rc = SQLITE_TOOBIG;
    goto abort_due_to_error;
  }

  /* Allocate space for the new row. */
  zNewRecord = sqliteMalloc(nHdrLen+nDataLen);
  if( !zNewRecord ){
    rc = SQLITE_NOMEM;
    goto abort_due_to_error;
  }

  /* Write the data offset */
  zHdr = zNewRecord;



  zHdr += sqlite3PutVarint(zHdr, data_offset);




  /* Loop through the values on the stack writing both the serialized value
  ** and the the Idx() offset for each.



  */
  nDataLen = 0;
  for(pRec=pData0; pRec!=pTos; pRec++){
    nDataLen += sqlite3VdbeSerialize(pRec, &zNewRecord[nDataLen]);
    zHdr += sqlite3PutVarint(zHdr, nDataLen);


  }

  /* Pop nField entries from the stack and push the new entry on */
  popStack(&pTos, nField);
  pTos++;
  pTos->n = nDataLen+nHdrLen;
  pTos->z = zNewRecord;
  pTos->flags = MEM_Str | MEM_Dyn;

  break;
}

/* Opcode: MakeRecord P1 P2 *
**
** Convert the top P1 entries of the stack into a single entry
** suitable for use as a data record in a database table.  The
** details of the format are irrelavant as long as the OP_Column
** opcode can decode the record later.  Refer to source code
** comments for the details of the record format.
**
** If P2 is true (non-zero) and one or more of the P1 entries
** that go into building the record is NULL, then add some extra
** bytes to the record to make it distinct for other entries created
** during the same run of the VDBE.  The extra bytes added are a
** counter that is reset with each run of the VDBE, so records
** created this way will not necessarily be distinct across runs.
** But they should be distinct for transient tables (created using
** OP_OpenTemp) which is what they are intended for.
**
** (Later:) The P2==1 option was intended to make NULLs distinct
** for the UNION operator.  But I have since discovered that NULLs
** are indistinct for UNION.  So this option is never used.
*/
case OP_MakeRecord: {
  char *zNewRecord;
  int nByte;
  int nField;
  int i, j;
  int idxWidth;
  u32 addr;
  Mem *pRec;
  int addUnique = 0;   /* True to cause bytes to be added to make the
                       ** generated record distinct */
  char zTemp[NBFS];    /* Temp space for small records */

  /* Assuming the record contains N fields, the record format looks
  ** like this:
  **
  **   -------------------------------------------------------------------
  **   | idx0 | idx1 | ... | idx(N-1) | idx(N) | data0 | ... | data(N-1) |
  **   -------------------------------------------------------------------
  **
  ** All data fields are converted to strings before being stored and
  ** are stored with their null terminators.  NULL entries omit the
  ** null terminator.  Thus an empty string uses 1 byte and a NULL uses
  ** zero bytes.  Data(0) is taken from the lowest element of the stack
  ** and data(N-1) is the top of the stack.
  **
  ** Each of the idx() entries is either 1, 2, or 3 bytes depending on
  ** how big the total record is.  Idx(0) contains the offset to the start
  ** of data(0).  Idx(k) contains the offset to the start of data(k).
  ** Idx(N) contains the total number of bytes in the record.
  */
  nField = pOp->p1;
  pRec = &pTos[1-nField];
  assert( pRec>=p->aStack );
  nByte = 0;
  for(i=0; i<nField; i++, pRec++){
    if( pRec->flags & MEM_Null ){
      addUnique = pOp->p2;
    }else{
      Stringify(pRec);
      nByte += pRec->n;
    }
  }
  if( addUnique ) nByte += sizeof(p->uniqueCnt);
  if( nByte + nField + 1 < 256 ){
    idxWidth = 1;
  }else if( nByte + 2*nField + 2 < 65536 ){
    idxWidth = 2;
  }else{
    idxWidth = 3;
  }
  nByte += idxWidth*(nField + 1);
  if( nByte>MAX_BYTES_PER_ROW ){
    rc = SQLITE_TOOBIG;
    goto abort_due_to_error;
  }
  if( nByte<=NBFS ){
    zNewRecord = zTemp;
  }else{
    zNewRecord = sqliteMallocRaw( nByte );
    if( zNewRecord==0 ) goto no_mem;
  }
  j = 0;
  addr = idxWidth*(nField+1) + addUnique*sizeof(p->uniqueCnt);
  for(i=0, pRec=&pTos[1-nField]; i<nField; i++, pRec++){
    zNewRecord[j++] = addr & 0xff;
    if( idxWidth>1 ){
      zNewRecord[j++] = (addr>>8)&0xff;
      if( idxWidth>2 ){
        zNewRecord[j++] = (addr>>16)&0xff;
      }
    }
    if( (pRec->flags & MEM_Null)==0 ){
      addr += pRec->n;
    }
  }
  zNewRecord[j++] = addr & 0xff;
  if( idxWidth>1 ){
    zNewRecord[j++] = (addr>>8)&0xff;
    if( idxWidth>2 ){
      zNewRecord[j++] = (addr>>16)&0xff;
    }
  }
  if( addUnique ){
    memcpy(&zNewRecord[j], &p->uniqueCnt, sizeof(p->uniqueCnt));
    p->uniqueCnt++;
    j += sizeof(p->uniqueCnt);
  }
  for(i=0, pRec=&pTos[1-nField]; i<nField; i++, pRec++){
    if( (pRec->flags & MEM_Null)==0 ){
      memcpy(&zNewRecord[j], pRec->z, pRec->n);
      j += pRec->n;
    }
  }
  popStack(&pTos, nField);
  pTos++;
  pTos->n = nByte;
  if( nByte<=NBFS ){
    assert( zNewRecord==zTemp );
    memcpy(pTos->zShort, zTemp, nByte);
    pTos->z = pTos->zShort;
    pTos->flags = MEM_Str | MEM_Short;
  }else{
    assert( zNewRecord!=zTemp );
    pTos->z = zNewRecord;
    pTos->flags = MEM_Str | MEM_Dyn;
  }
  break;
}

/* Opcode: MakeKey P1 P2 P3
**
** Convert the top P1 entries of the stack into a single entry suitable
** for use as the key in an index.  The top P1 records are

  }else if( pC->pseudoTable ){
    pTos->n = pC->nData;
    pTos->z = pC->pData;
    pTos->flags = MEM_Str|MEM_Ephem;
  }else{
    pTos->flags = MEM_Null;
  }
  break;
}

/* Opcode: Column P1 P2 *
**
** Interpret the data that cursor P1 points to as
** a structure built using the MakeRecord instruction.
** (See the MakeRecord opcode for additional information about
** the format of the data.)
** Push onto the stack the value of the P2-th column contained
** in the data.
**
** If the KeyAsData opcode has previously executed on this cursor,
** then the field might be extracted from the key rather than the
** data.
**
** If P1 is negative, then the record is stored on the stack rather
** than in a table.  For P1==-1, the top of the stack is used.
** For P1==-2, the next on the stack is used.  And so forth.  The
** value pushed is always just a pointer into the record which is
** stored further down on the stack.  The column value is not copied.
*/
case OP_Column: {
  int amt, offset, end, payloadSize;
  int i = pOp->p1;
  int p2 = pOp->p2;
  Cursor *pC;
  char *zRec;
  BtCursor *pCrsr;
  int idxWidth;
  unsigned char aHdr[10];

  assert( i<p->nCursor );
  pTos++;
  if( i<0 ){
    assert( &pTos[i]>=p->aStack );
    assert( pTos[i].flags & MEM_Str );
    zRec = pTos[i].z;
    payloadSize = pTos[i].n;
  }else if( (pC = &p->aCsr[i])->pCursor!=0 ){
    sqlite3VdbeCursorMoveto(pC);
    zRec = 0;
    pCrsr = pC->pCursor;
    if( pC->nullRow ){
      payloadSize = 0;
    }else if( pC->keyAsData ){
      u64 pl64;
      assert( !pC->intKey );
      sqlite3BtreeKeySize(pCrsr, &pl64);
      payloadSize = pl64;
    }else{
      sqlite3BtreeDataSize(pCrsr, &payloadSize);
    }
  }else if( pC->pseudoTable ){
    payloadSize = pC->nData;
    zRec = pC->pData;
    assert( payloadSize==0 || zRec!=0 );
  }else{
    payloadSize = 0;
  }

  /* Figure out how many bytes in the column data and where the column
  ** data begins.
  */
  if( payloadSize==0 ){
    pTos->flags = MEM_Null;
    break;
  }else if( payloadSize<256 ){
    idxWidth = 1;
  }else if( payloadSize<65536 ){
    idxWidth = 2;
  }else{
    idxWidth = 3;
  }

  /* Figure out where the requested column is stored and how big it is.
  */
  if( payloadSize < idxWidth*(p2+1) ){
    rc = SQLITE_CORRUPT;
    goto abort_due_to_error;
  }
  if( zRec ){
    memcpy(aHdr, &zRec[idxWidth*p2], idxWidth*2);
  }else if( pC->keyAsData ){
    sqlite3BtreeKey(pCrsr, idxWidth*p2, idxWidth*2, (char*)aHdr);
  }else{
    sqlite3BtreeData(pCrsr, idxWidth*p2, idxWidth*2, (char*)aHdr);
  }
  offset = aHdr[0];
  end = aHdr[idxWidth];
  if( idxWidth>1 ){
    offset |= aHdr[1]<<8;
    end |= aHdr[idxWidth+1]<<8;
    if( idxWidth>2 ){
      offset |= aHdr[2]<<16;
      end |= aHdr[idxWidth+2]<<16;
    }
  }
  amt = end - offset;
  if( amt<0 || offset<0 || end>payloadSize ){
    rc = SQLITE_CORRUPT;
    goto abort_due_to_error;
  }

  /* amt and offset now hold the offset to the start of data and the
  ** amount of data.  Go get the data and put it on the stack.
  */
  pTos->n = amt;
  if( amt==0 ){
    pTos->flags = MEM_Null;
  }else if( zRec ){
    pTos->flags = MEM_Str | MEM_Ephem;
    pTos->z = &zRec[offset];
  }else{
    if( amt<=NBFS ){
      pTos->flags = MEM_Str | MEM_Short;
      pTos->z = pTos->zShort;
    }else{
      char *z = sqliteMallocRaw( amt );
      if( z==0 ) goto no_mem;
      pTos->flags = MEM_Str | MEM_Dyn;
      pTos->z = z;
    }
    if( pC->keyAsData ){
      sqlite3BtreeKey(pCrsr, offset, amt, pTos->z);
    }else{
      sqlite3BtreeData(pCrsr, offset, amt, pTos->z);
    }
  }
  break;
}

/* Opcode: Recno P1 * *
**
** Push onto the stack an integer which is the first 4 bytes of the
** the key to the current entry in a sequential scan of the database

void sqlite3VdbeKeylistFree(Keylist*);
void sqliteVdbePopStack(Vdbe*,int);
int sqlite3VdbeCursorMoveto(Cursor*);
int sqlite3VdbeByteSwap(int);
#if !defined(NDEBUG) || defined(VDBE_PROFILE)
void sqlite3VdbePrintOp(FILE*, int, Op*);
#endif
int sqlite3VdbeSerialize(const Mem *, unsigned char *);

int sqlite3VdbeSerialLen(const Mem *);
int sqlite3VdbeDeserialize(Mem *, const unsigned char *);

int sqlite2BtreeKeyCompare(BtCursor *, const void *, int, int, int *);

  *pResult = memcmp(pMallocedKey, pKey, nKey>nCellKey?nCellKey:nKey);
  sqliteFree(pMallocedKey);

  return rc;
}

/*
** The following three functions:
**
** sqlite3VdbeSerialize()


** sqlite3VdbeSerialLen()
** sqlite3VdbeDeserialize()
**
** encapsulate the code that serializes values for storage in SQLite
** databases. Each serialized value consists of a variable length integer







** followed by type specific storage.
**


**   initial varint     bytes to follow    type
**   --------------     ---------------    ---------------
**      0                     0            NULL
**      1                     1            signed integer
**      2                     2            signed integer
**      3                     4            signed integer
**      4                     8            signed integer
**      5                     8            IEEE float
**     6..12                               reserved for expansion
**    N>=12 and even       (N-12)/2        BLOB
**    N>=13 and odd        (N-13)/2        text
**
*/

/*
** Write the serialized form of the value held by pMem into zBuf. Return
** the number of bytes written.
*/
int sqlite3VdbeSerialize(

  const Mem *pMem,      /* Pointer to vdbe value to serialize */
  unsigned char *zBuf   /* Buffer to write to */
){
  if( pMem->flags&MEM_Null ){
    return sqlite3PutVarint(zBuf, 0);
  }


  if( pMem->flags&MEM_Real ){

    assert(!"TODO: float");


  }



  if( pMem->flags&MEM_Str ){
    int data_type_len;
    u64 data_type = (pMem->n*2+31);

    data_type_len = sqlite3PutVarint(zBuf, data_type); 
    memcpy(&zBuf[data_type_len], pMem->z, pMem->n);
    return pMem->n + data_type_len;
  }

  if( pMem->flags& MEM_Int ){
    u64 absval;
    int size = 8;
    int ii;

    if( pMem->i<0 ){
      absval = pMem->i * -1;
    }else{
      absval = pMem->i;
    }
    if( absval<=127 ){
      size = 1;
      sqlite3PutVarint(zBuf, 1);
    }else if( absval<=32767 ){
      size = 2;
      sqlite3PutVarint(zBuf, 2);
    }else if( absval<=2147483647 ){
      size = 4;
      sqlite3PutVarint(zBuf, 3);
    }else{
      size = 8;
      sqlite3PutVarint(zBuf, 4);
    }

    for(ii=0; ii<size; ii++){
      zBuf[ii+1] = (pMem->i >> (8*ii)) & 0xFF;
    }
    if( pMem->i<0 ){
      zBuf[size] = zBuf[size] & 0x80;
    }




    return size+1;





  }

  return -1;
}

/*


** Return the number of bytes that would be consumed by the serialized
** form of the value held by pMem. Return negative if an error occurs.
*/
int sqlite3VdbeSerialLen(const Mem *pMem){


  if( pMem->flags&MEM_Null ){


    return 1; /* Varint 0 is 1 byte */
  }
  if( pMem->flags&MEM_Real ){








    return 9; /* Varing 5 (1 byte) + 8 bytes IEEE float */    

  }
  if( pMem->flags&MEM_Str ){
    return pMem->n + sqlite3VarintLen((pMem->n*2)+13);
  }
  if( pMem->flags& MEM_Int ){
    u64 absval;
    if( pMem->i<0 ){
      absval = pMem->i * -1;

    }else{
      absval = pMem->i;

    }
    if( absval<=127 ) return 2;        /* 1 byte integer */
    if( absval<=32767 ) return 3;      /* 2 byte integer */
    if( absval<=2147483647 ) return 5; /* 4 byte integer */
    return 9;                         /* 8 byte integer */
  }




  return -1;
}

/*
** Deserialize a value from zBuf and store it in *pMem. Return the number
** of bytes written, or negative if an error occurs.
*/
int sqlite3VdbeDeserialize(
  Mem *pMem,                   /* structure to write new value to */
  const unsigned char *zBuf    /* Buffer to read from */
){
  u64 data_type;
  int ret;
  int len;

  memset(pMem, 0, sizeof(Mem));
  ret = sqlite3GetVarint(zBuf, &data_type);


  if( data_type==0 ){  /* NULL */

    pMem->flags = MEM_Null;
    return ret;
  }

  /* FIX ME: update for 8-byte integers */
  if( data_type>0 && data_type<5 ){  /* 1, 2, 4 or 8 byte integer */

    int ii;
    int bytes = 1 << (data_type-1);

    pMem->flags = MEM_Int;


    pMem->i = 0;

    for(ii=0; ii<bytes; ii++){
      pMem->i = (pMem->i<<8) + zBuf[ii+ret];
    }




    /* If this is a 1, 2 or 4 byte integer, extend the sign-bit if need be. */
    if( bytes<8 && pMem->i & (1<<(bytes*8-1)) ){
      pMem->i = pMem->i - (1<<(bytes*8));
    }

    return ret+bytes;
  }


  if( data_type==5 ){ /* IEEE float */

    assert(!"TODO: float");



  }

  /* Must be text or a blob */
  assert( data_type>=12 );
  len = (data_type-12)/2;
  pMem->flags = MEM_Str;  /* FIX ME: there should be a MEM_Blob or similar */




  /* If the length of the text or blob is greater than NBFS, use space
  ** dynamically allocated. Otherwise, store the value in Mem::zShort.
  */
  if( len>NBFS ){
    pMem->z = sqliteMalloc( len );
    if( !pMem->z ){
      return -1;
    }
    pMem->flags |= MEM_Dyn;
  }else{
    pMem->z = pMem->zShort;
    pMem->flags |= MEM_Short;
  }
  memcpy(pMem->z, &zBuf[ret], len); 
  ret += len;

  return ret;
}

/*
** The following is the comparison function for (non-integer)
** keys in the btrees.  This function returns negative, zero, or
** positive if the first key is less than, equal to, or greater than
** the second.

# 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.
#
#***********************************************************************
# This file runs all tests.
#
# $Id: quick.test,v 1.6 2004/02/11 02:18:07 drh Exp $

set testdir [file dirname $argv0]
source $testdir/tester.tcl
rename finish_test really_finish_test
proc finish_test {} {}
set ISQUICK 1

set EXCLUDE {
  all.test
  quick.test
  btree2.test
  malloc.test
  memleak.test
  misuse.test
}


































if {[sqlite -has-codec]} {
  lappend EXCLUDE \
    attach.test \
    attach2.test \
    auth.test \
    format3.test \

  catch {db close}
  if {$sqlite_open_file_count>0} {
    puts "$tail did not close all files: $sqlite_open_file_count"
    incr nErr
    lappend ::failList $tail
  }
}
source $testdir/misuse.test

set sqlite_open_file_count 0
really_finish_test