Differences From Artifact [55c0017cc5]:

• File src/th_lang.c — part of check-in [5291edac07] at 2025-04-24 11:18:02 on branch trunk — Preserve taint across TH1 commands: foreach, lappend, lindex, string index, string range, and string trim. Add test cases for taint. (user: drh size: 33472) [more...]

To Artifact [c59bbad1fe]:

• File src/th_lang.c — part of check-in [d546932976] at 2025-08-16 10:10:15 on branch trunk — Correct the signature of an extern decl of fossil_strndup(), as reported in [forum:21ac5f59a0 | forum post 21ac5f59a0]. (user: stephan size: 33476) [more...]

954
955
956
957
958
959
960
961
962
963
964
965
966
967
968

**
**   string match PATTERN STRING
**
*/
static int string_match_command(
  Th_Interp *interp, void *ctx, int argc, const char **argv, int *argl
){
  extern char *fossil_strndup(const char*,int);
  extern void fossil_free(void*);
  char *zPat, *zStr;
  int rc;
  if( argc!=4 ){
    return Th_WrongNumArgs(interp, "string match pattern string");
  }
  zPat = fossil_strndup(argv[2],TH1_LEN(argl[2]));

|

954
955
956
957
958
959
960
961
962
963
964
965
966
967
968

**
**   string match PATTERN STRING
**
*/
static int string_match_command(
  Th_Interp *interp, void *ctx, int argc, const char **argv, int *argl
){
  extern char *fossil_strndup(const char*,ssize_t);
  extern void fossil_free(void*);
  char *zPat, *zStr;
  int rc;
  if( argc!=4 ){
    return Th_WrongNumArgs(interp, "string match pattern string");
  }
  zPat = fossil_strndup(argv[2],TH1_LEN(argl[2]));