308 |
|
|
309 |
int string_sign, string_boundary; |
int string_sign, string_boundary; |
310 |
|
|
311 |
@(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, e1, s2, e2; |
314 |
int i1, i2; |
int i1, i2; |
347 |
void Lstring_ge() { string_sign = -1; string_boundary = 0; Lstring_cmp(); } |
void Lstring_ge() { string_sign = -1; string_boundary = 0; Lstring_cmp(); } |
348 |
void Lstring_neq() { string_sign = 0; string_boundary = 1; Lstring_cmp(); } |
void Lstring_neq() { string_sign = 0; string_boundary = 1; Lstring_cmp(); } |
349 |
|
|
350 |
@(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, e1, s2, e2; |
353 |
int i1, i2; |
int i1, i2; |
414 |
@(return x) |
@(return x) |
415 |
@) |
@) |
416 |
|
|
417 |
bool |
static bool |
418 |
member_char(c, char_bag) |
member_char(c, char_bag) |
419 |
int c; |
int c; |
420 |
object char_bag; |
object char_bag; |
457 |
} |
} |
458 |
} |
} |
459 |
|
|
460 |
void Lstring_trim0(); |
static void Lstring_trim0(); |
461 |
void Lstring_trim() { left_trim = right_trim = TRUE; Lstring_trim0(); } |
void Lstring_trim() { left_trim = right_trim = TRUE; Lstring_trim0(); } |
462 |
void Lstring_left_trim() { left_trim = TRUE; right_trim = FALSE; Lstring_trim0(); } |
void Lstring_left_trim() { left_trim = TRUE; right_trim = FALSE; Lstring_trim0(); } |
463 |
void Lstring_right_trim() { left_trim = FALSE; right_trim = TRUE; Lstring_trim0();} |
void Lstring_right_trim() { left_trim = FALSE; right_trim = TRUE; Lstring_trim0();} |
464 |
|
|
465 |
@(defun string_trim0 (char_bag strng &aux res) |
@(static defun string_trim0 (char_bag strng &aux res) |
466 |
int i, j, k; |
int i, j, k; |
467 |
@ |
@ |
468 |
strng = coerce_to_string(strng); |
strng = coerce_to_string(strng); |
522 |
return(c); |
return(c); |
523 |
} |
} |
524 |
|
|
525 |
@(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, e, i; |
527 |
bool b; |
bool b; |
528 |
@ |
@ |
541 |
void Lstring_capitalize() { casefun = char_capitalize; Lstring_case(); } |
void Lstring_capitalize() { casefun = char_capitalize; Lstring_case(); } |
542 |
|
|
543 |
|
|
544 |
@(defun nstring_case (strng &key start end) |
@(static defun nstring_case (strng &key start end) |
545 |
int s, e, i; |
int s, e, i; |
546 |
bool b; |
bool b; |
547 |
@ |
@ |
564 |
@(return `coerce_to_string(x)`) |
@(return `coerce_to_string(x)`) |
565 |
@) |
@) |
566 |
|
|
567 |
void |
static void |
568 |
siLstring_concatenate() |
siLstring_concatenate() |
569 |
{ |
{ |
570 |
int narg, i, l, m; |
int narg, i, l, m; |