static int tclvarNext(sqlite3_vtab_cursor cur)
{
Tcl_Obj pObj = null;
int n = 0;
int ok = 0;
tclvar_cursor pCur = (tclvar_cursor )cur;
Tcl_Interp interp = ((tclvar_vtab )(cur.pVtab)).interp;
TCL.Tcl_ListObjLength(null, pCur.pList1, out n);
while (0 == ok && pCur.i1 < n)
{
TCL.Tcl_ListObjIndex(null, pCur.pList1, pCur.i1, out pObj);
ok = next2(interp, pCur, pObj);
if (0 == ok)
{
pCur.i1++;
}
}
return(0);
}
static int tclvarColumn(sqlite3_vtab_cursor cur, sqlite3_context ctx, int i)
{
Tcl_Obj p1 = null;
Tcl_Obj p2 = null;
string z1;
string z2 = "";
tclvar_cursor pCur = (tclvar_cursor)cur;
Tcl_Interp interp = ((tclvar_vtab )cur.pVtab).interp;
TCL.Tcl_ListObjIndex(interp, pCur.pList1, pCur.i1, out p1);
TCL.Tcl_ListObjIndex(interp, pCur.pList2, pCur.i2, out p2);
z1 = TCL.Tcl_GetString(p1);
if (p2 != null)
{
z2 = TCL.Tcl_GetString(p2);
}
switch (i)
{
case 0: {
sqlite3_result_text(ctx, z1, -1, SQLITE_TRANSIENT);
break;
}
case 1: {
sqlite3_result_text(ctx, z2, -1, SQLITE_TRANSIENT);
break;
}
case 2: {
Tcl_Obj pVal = TCL.Tcl_GetVar2Ex(interp, z1, z2 == "" ? null : z2, (TCL.VarFlag)TCL.TCL_GLOBAL_ONLY);
sqlite3_result_text(ctx, TCL.Tcl_GetString(pVal), -1, SQLITE_TRANSIENT);
break;
}
}
return(SQLITE_OK);
}