Lines Matching defs:start1
2651 * Syntax: (compare-strings str1 start1 end1 str2 start2 end2 /opt-case-insensitive)
2653 * 'start1' is first char (0..)
2664 int start1, end1, start2, end2;
2666 for (start1 = 0; start1 < 7; start1++) {
2667 p[start1] = eval(instance, car(p1));
2705 start1 = p[1]->value.i;
2709 end2 = alisp_compare_type(p[5], ALISP_OBJ_NIL) ? start2 + (end1 - start1) : p[5]->value.i;
2710 if (start1 < 0 || start2 < 0 || end1 < 0 || end2 < 0 ||
2711 start1 >= (int)strlen(s1) || start2 >= (int)strlen(s2) ||
2712 (end1 - start1) != (end2 - start2)) {
2717 while (start1 < end1) {
2718 if (s1[start1] == '\0' ||
2720 tolower(s1[start1]) != tolower(s2[start2])) {
2724 start1++;
2728 while (start1 < end1) {
2729 if (s1[start1] == '\0' ||
2731 s1[start1] != s2[start2]) {
2735 start1++;
2742 for (start1 = 0; start1 < 7; start1++)
2743 delete_tree(instance, p[start1]);