Fossil

Differences From Artifact [f456996ecf]:

• File src/th.c — part of check-in [b153caf67e] at 2014-04-07 19:08:56 on branch trunk — Fix fossil test-th-eval 'expr 0+0x0bc': TH_ERROR: expected number, got: "0x0bc" (user: jan.nijtmans size: 78473) [more...]

To Artifact [3a7a898e82]:

• File src/th.c — part of check-in [2ba71f5105] at 2014-07-31 20:46:25 on branch trunk — th1 parse error reporting tweaks from Sergei Gavrikov. (user: stephan size: 78565) [more...]

509
510
511
512
513
514
515

516
517
518
519
520
521

522
523
524
525
526
527
528

        case '[': if( nBrace==0 ) nSq++; break;
        case ']': if( nBrace==0 ) nSq--; break;
      }
      iEnd++;
    }
    if( nBrace>0 || nSq>0 ){
      /* Parse error */

      return TH_ERROR;
    }
  }

  if( iEnd>nInput ){
    /* Parse error */

    return TH_ERROR;
  }
  *pnWord = iEnd;
  return TH_OK;
}

/*

>






>

509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530

        case '[': if( nBrace==0 ) nSq++; break;
        case ']': if( nBrace==0 ) nSq--; break;
      }
      iEnd++;
    }
    if( nBrace>0 || nSq>0 ){
      /* Parse error */
      Th_SetResult(interp, "parse error", -1);
      return TH_ERROR;
    }
  }

  if( iEnd>nInput ){
    /* Parse error */
    Th_SetResult(interp, "parse error", -1);
    return TH_ERROR;
  }
  *pnWord = iEnd;
  return TH_OK;
}

/*