Lines Matching defs:start1
2652 * Syntax: (compare-strings str1 start1 end1 str2 start2 end2 /opt-case-insensitive)
2654 * 'start1' is first char (0..)
2665 int start1, end1, start2, end2;
2667 for (start1 = 0; start1 < 7; start1++) {
2668 p[start1] = eval(instance, car(p1));
2706 start1 = p[1]->value.i;
2710 end2 = alisp_compare_type(p[5], ALISP_OBJ_NIL) ? start2 + (end1 - start1) : p[5]->value.i;
2711 if (start1 < 0 || start2 < 0 || end1 < 0 || end2 < 0 ||
2712 start1 >= (int)strlen(s1) || start2 >= (int)strlen(s2) ||
2713 (end1 - start1) != (end2 - start2)) {
2718 while (start1 < end1) {
2719 if (s1[start1] == '\0' ||
2721 tolower(s1[start1]) != tolower(s2[start2])) {
2725 start1++;
2729 while (start1 < end1) {
2730 if (s1[start1] == '\0' ||
2732 s1[start1] != s2[start2]) {
2736 start1++;
2743 for (start1 = 0; start1 < 7; start1++)
2744 delete_tree(instance, p[start1]);