265 |
|
|
266 |
@(defun string_eq (string1 string2 |
@(defun string_eq (string1 string2 |
267 |
&key start1 end1 start2 end2) |
&key start1 end1 start2 end2) |
268 |
int s1, e1, s2, e2; |
int s1=0, e1=0, s2=0, e2=0; |
269 |
@ |
@ |
270 |
string1 = coerce_to_string(string1); |
string1 = coerce_to_string(string1); |
271 |
string2 = coerce_to_string(string2); |
string2 = coerce_to_string(string2); |
282 |
|
|
283 |
@(defun string_equal (string1 string2 |
@(defun string_equal (string1 string2 |
284 |
&key start1 end1 start2 end2) |
&key start1 end1 start2 end2) |
285 |
int s1, e1, s2, e2; |
int s1=0, e1=0, s2=0, e2=0; |
286 |
int i1, i2; |
int i1, i2; |
287 |
@ |
@ |
288 |
string1 = coerce_to_string(string1); |
string1 = coerce_to_string(string1); |
309 |
|
|
310 |
@(static defun string_cmp (string1 string2 |
@(static defun string_cmp (string1 string2 |
311 |
&key start1 end1 start2 end2) |
&key start1 end1 start2 end2) |
312 |
int s1, e1, s2, e2; |
int s1=0, e1=0, s2=0, e2=0; |
313 |
int i1, i2; |
int i1, i2; |
314 |
int s; |
int s; |
315 |
@ |
@ |
348 |
|
|
349 |
@(static defun string_compare (string1 string2 |
@(static defun string_compare (string1 string2 |
350 |
&key start1 end1 start2 end2) |
&key start1 end1 start2 end2) |
351 |
int s1, e1, s2, e2; |
int s1=0, e1=0, s2=0, e2=0; |
352 |
int i1, i2; |
int i1, i2; |
353 |
int s; |
int s; |
354 |
@ |
@ |
523 |
} |
} |
524 |
|
|
525 |
@(static defun string_case (strng &key start end &aux conv) |
@(static defun string_case (strng &key start end &aux conv) |
526 |
int s, e, i; |
int s=0, e=0, i; |
527 |
bool b; |
bool b; |
528 |
@ |
@ |
529 |
strng = coerce_to_string(strng); |
strng = coerce_to_string(strng); |
542 |
|
|
543 |
|
|
544 |
@(static defun nstring_case (strng &key start end) |
@(static defun nstring_case (strng &key start end) |
545 |
int s, e, i; |
int s=0, e=0, i; |
546 |
bool b; |
bool b; |
547 |
@ |
@ |
548 |
check_type_string(&strng); |
check_type_string(&strng); |