1 |
|
/* -*-C-*- */ |
2 |
/* |
/* |
3 |
Copyright (C) 1994 M. Hagiya, W. Schelter, T. Yuasa |
Copyright (C) 1994 M. Hagiya, W. Schelter, T. Yuasa |
4 |
|
|
266 |
|
|
267 |
@(defun string_eq (string1 string2 |
@(defun string_eq (string1 string2 |
268 |
&key start1 end1 start2 end2) |
&key start1 end1 start2 end2) |
269 |
int s1, e1, s2, e2; |
int s1=0, e1=0, s2=0, e2=0; |
270 |
@ |
@ |
271 |
string1 = coerce_to_string(string1); |
string1 = coerce_to_string(string1); |
272 |
string2 = coerce_to_string(string2); |
string2 = coerce_to_string(string2); |
283 |
|
|
284 |
@(defun string_equal (string1 string2 |
@(defun string_equal (string1 string2 |
285 |
&key start1 end1 start2 end2) |
&key start1 end1 start2 end2) |
286 |
int s1, e1, s2, e2; |
int s1=0, e1=0, s2=0, e2=0; |
287 |
int i1, i2; |
int i1, i2; |
288 |
@ |
@ |
289 |
string1 = coerce_to_string(string1); |
string1 = coerce_to_string(string1); |
310 |
|
|
311 |
@(static defun string_cmp (string1 string2 |
@(static defun string_cmp (string1 string2 |
312 |
&key start1 end1 start2 end2) |
&key start1 end1 start2 end2) |
313 |
int s1, e1, s2, e2; |
int s1=0, e1=0, s2=0, e2=0; |
314 |
int i1, i2; |
int i1, i2; |
315 |
int s; |
int s; |
316 |
@ |
@ |
349 |
|
|
350 |
@(static defun string_compare (string1 string2 |
@(static defun string_compare (string1 string2 |
351 |
&key start1 end1 start2 end2) |
&key start1 end1 start2 end2) |
352 |
int s1, e1, s2, e2; |
int s1=0, e1=0, s2=0, e2=0; |
353 |
int i1, i2; |
int i1, i2; |
354 |
int s; |
int s; |
355 |
@ |
@ |
524 |
} |
} |
525 |
|
|
526 |
@(static defun string_case (strng &key start end &aux conv) |
@(static defun string_case (strng &key start end &aux conv) |
527 |
int s, e, i; |
int s=0, e=0, i; |
528 |
bool b; |
bool b; |
529 |
@ |
@ |
530 |
strng = coerce_to_string(strng); |
strng = coerce_to_string(strng); |
543 |
|
|
544 |
|
|
545 |
@(static defun nstring_case (strng &key start end) |
@(static defun nstring_case (strng &key start end) |
546 |
int s, e, i; |
int s=0, e=0, i; |
547 |
bool b; |
bool b; |
548 |
@ |
@ |
549 |
check_type_string(&strng); |
check_type_string(&strng); |