TDBC

Diff
Login

Differences From Artifact [f602a0664f]:

To Artifact [fbe1b103c1]:


135
136
137
138
139
140
141
142

143
144
145
146
147
148
149
150
135
136
137
138
139
140
141

142

143
144
145
146
147
148
149







-
+
-







	    ** is also not a host parameter.
            */
	    case ':': {
		if (i > 0 && zSql[i-1] == ':') break;
	    }
		/* fallthru */
	    
            case '$':
            case '$': {
            case '@': {
                if (i>0 && (isalnum((unsigned char)(zSql[i-1]))
			    || zSql[i-1]=='_')) break;
                if (!isalnum((unsigned char)(zSql[i+1]))
		    && zSql[i+1]!='_') break;
                if (i>0 ){
                    Tcl_ListObjAppendElement(interp, resultPtr,
                              Tcl_NewStringObj(zSql, i));