115   tclvar_cursor *pCur;  in tclvarOpen()  local
116   pCur = sqlite3MallocZero(sizeof(tclvar_cursor));  in tclvarOpen()
117   *ppCursor = &pCur->base;  in tclvarOpen()
125   tclvar_cursor *pCur = (tclvar_cursor *)cur;  in tclvarClose()  local
126   if( pCur->pList1 ){  in tclvarClose()
127     Tcl_DecrRefCount(pCur->pList1);  in tclvarClose()
129   if( pCur->pList2 ){  in tclvarClose()
130     Tcl_DecrRefCount(pCur->pList2);  in tclvarClose()
132   sqlite3_free(pCur);  in tclvarClose()
139 static int next2(Tcl_Interp *interp, tclvar_cursor *pCur, Tcl_Obj *pObj){  in next2()  argument
143     if( !pCur->pList2 ){  in next2()
149       pCur->pList2 = Tcl_GetObjResult(interp);  in next2()
150       Tcl_IncrRefCount(pCur->pList2);  in next2()
151       assert( pCur->i2==0 );  in next2()
154       pCur->i2++;  in next2()
155       Tcl_ListObjLength(0, pCur->pList2, &n);  in next2()
156       if( pCur->i2>=n ){  in next2()
157         Tcl_DecrRefCount(pCur->pList2);  in next2()
158         pCur->pList2 = 0;  in next2()
159         pCur->i2 = 0;  in next2()
173   tclvar_cursor *pCur = (tclvar_cursor *)cur;  in tclvarNext()  local
176   Tcl_ListObjLength(0, pCur->pList1, &n);  in tclvarNext()
177   while( !ok && pCur->i1<n ){  in tclvarNext()
178     Tcl_ListObjIndex(0, pCur->pList1, pCur->i1, &pObj);  in tclvarNext()
179     ok = next2(interp, pCur, pObj);  in tclvarNext()
181       pCur->i1++;  in tclvarNext()
193   tclvar_cursor *pCur = (tclvar_cursor *)pVtabCursor;  in tclvarFilter()  local
234   if( pCur->pList1 ){  in tclvarFilter()
235     Tcl_DecrRefCount(pCur->pList1);  in tclvarFilter()
237   if( pCur->pList2 ){  in tclvarFilter()
238     Tcl_DecrRefCount(pCur->pList2);  in tclvarFilter()
239     pCur->pList2 = 0;  in tclvarFilter()
241   pCur->i1 = 0;  in tclvarFilter()
242   pCur->i2 = 0;  in tclvarFilter()
243   pCur->pList1 = Tcl_GetObjResult(interp);  in tclvarFilter()
244   Tcl_IncrRefCount(pCur->pList1);  in tclvarFilter()
255   tclvar_cursor *pCur = (tclvar_cursor*)cur;  in tclvarColumn()  local
258   Tcl_ListObjIndex(interp, pCur->pList1, pCur->i1, &p1);  in tclvarColumn()
259   Tcl_ListObjIndex(interp, pCur->pList2, pCur->i2, &p2);  in tclvarColumn()
298   tclvar_cursor *pCur = (tclvar_cursor*)cur;  in tclvarEof()  local
299   return (pCur->pList2?0:1);  in tclvarEof()