TDBC
Diff
Not logged in
Tcl 2014 Conference, Portland/OR, US, Nov 10-14
Browse the schedule online.

Differences From Artifact [f602a0664f]:

  • File tdbc/generic/tdbcTokenize.c — part of checkin [f6b8184538] at 2011-04-13 00:32:16 on branch trunk — Added PostgreSQL typecast syntax to the tokenizer (user: kennykb

    To Artifact [fbe1b103c1]:


    135
    136
    137
    138
    139
    140
    141
    142
    143
    144
    145
    146
    147
    148
    149
    150
    
    	    ** is also not a host parameter.
                */
    	    case ':': {
    		if (i > 0 && zSql[i-1] == ':') break;
    	    }
    		/* fallthru */
    	    
                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));
    
    
    
    
    
    
    
    
    |
    <
    
    
    
    
    
    
    
    
    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 '$': {
    
                    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));