Lines Matching defs:start1
2648 * Syntax: (compare-strings str1 start1 end1 str2 start2 end2 /opt-case-insensitive)
2650 * 'start1' is first char (0..)
2661 int start1, end1, start2, end2;
2663 for (start1 = 0; start1 < 7; start1++) {
2664 p[start1] = eval(instance, car(p1));
2702 start1 = p[1]->value.i;
2706 end2 = alisp_compare_type(p[5], ALISP_OBJ_NIL) ? start2 + (end1 - start1) : p[5]->value.i;
2707 if (start1 < 0 || start2 < 0 || end1 < 0 || end2 < 0 ||
2708 start1 >= (int)strlen(s1) || start2 >= (int)strlen(s2) ||
2709 (end1 - start1) != (end2 - start2)) {
2714 while (start1 < end1) {
2715 if (s1[start1] == '\0' ||
2717 tolower(s1[start1]) != tolower(s2[start2])) {
2721 start1++;
2725 while (start1 < end1) {
2726 if (s1[start1] == '\0' ||
2728 s1[start1] != s2[start2]) {
2732 start1++;
2739 for (start1 = 0; start1 < 7; start1++)
2740 delete_tree(instance, p[start1]);
