216 |
@(return `code_char(s->ust.ust_self[j])`) |
@(return `code_char(s->ust.ust_self[j])`) |
217 |
@) |
@) |
218 |
|
|
219 |
void |
LFD(siLchar_set)() |
|
siLchar_set() |
|
220 |
{ |
{ |
221 |
int j; |
int j; |
222 |
|
|
340 |
@(return `string_sign>=0 ? make_fixnum(s1) : Cnil`) |
@(return `string_sign>=0 ? make_fixnum(s1) : Cnil`) |
341 |
@) |
@) |
342 |
|
|
343 |
void Lstring_l() { string_sign = 1; string_boundary = 1; Lstring_cmp(); } |
LFD(Lstring_l)() { string_sign = 1; string_boundary = 1; FFN(Lstring_cmp)(); } |
344 |
void Lstring_g() { string_sign = -1; string_boundary = 1; Lstring_cmp(); } |
LFD(Lstring_g)() { string_sign = -1; string_boundary = 1; FFN(Lstring_cmp)(); } |
345 |
void Lstring_le() { string_sign = 1; string_boundary = 0; Lstring_cmp(); } |
LFD(Lstring_le)() { string_sign = 1; string_boundary = 0; FFN(Lstring_cmp)(); } |
346 |
void Lstring_ge() { string_sign = -1; string_boundary = 0; Lstring_cmp(); } |
LFD(Lstring_ge)() { string_sign = -1; string_boundary = 0; FFN(Lstring_cmp)(); } |
347 |
void Lstring_neq() { string_sign = 0; string_boundary = 1; Lstring_cmp(); } |
LFD(Lstring_neq)() { string_sign = 0; string_boundary = 1; FFN(Lstring_cmp)(); } |
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) |
383 |
@(return `string_sign>=0 ? make_fixnum(s1) : Cnil`) |
@(return `string_sign>=0 ? make_fixnum(s1) : Cnil`) |
384 |
@) |
@) |
385 |
|
|
386 |
void Lstring_lessp() { string_sign = 1; string_boundary = 1; Lstring_compare(); } |
LFD(Lstring_lessp)() { string_sign = 1; string_boundary = 1; FFN(Lstring_compare)(); } |
387 |
void Lstring_greaterp() { string_sign = -1; string_boundary = 1; Lstring_compare(); } |
LFD(Lstring_greaterp)() { string_sign = -1; string_boundary = 1; FFN(Lstring_compare)(); } |
388 |
void Lstring_not_greaterp(){ string_sign = 1; string_boundary = 0; Lstring_compare(); } |
LFD(Lstring_not_greaterp)(){ string_sign = 1; string_boundary = 0; FFN(Lstring_compare)(); } |
389 |
void Lstring_not_lessp() { string_sign = -1; string_boundary = 0; Lstring_compare(); } |
LFD(Lstring_not_lessp)() { string_sign = -1; string_boundary = 0; FFN(Lstring_compare)(); } |
390 |
void Lstring_not_equal() { string_sign = 0; string_boundary = 1; Lstring_compare(); } |
LFD(Lstring_not_equal)() { string_sign = 0; string_boundary = 1; FFN(Lstring_compare)(); } |
391 |
|
|
392 |
/* element_type is currently ignored -- character == base-char == standard-char */ |
/* element_type is currently ignored -- character == base-char == standard-char */ |
393 |
@(defun make_string (size |
@(defun make_string (size |
456 |
} |
} |
457 |
} |
} |
458 |
|
|
459 |
static void Lstring_trim0(); |
/*static void Lstring_trim0();*/ |
|
void Lstring_trim() { left_trim = right_trim = TRUE; Lstring_trim0(); } |
|
|
void Lstring_left_trim() { left_trim = TRUE; right_trim = FALSE; Lstring_trim0(); } |
|
|
void Lstring_right_trim() { left_trim = FALSE; right_trim = TRUE; Lstring_trim0();} |
|
460 |
|
|
461 |
@(static defun string_trim0 (char_bag strng &aux res) |
@(static defun string_trim0 (char_bag strng &aux res) |
462 |
int i, j, k; |
int i, j, k; |
482 |
@(return res) |
@(return res) |
483 |
@) |
@) |
484 |
|
|
485 |
|
LFD(Lstring_trim)() { left_trim = right_trim = TRUE; FFN(Lstring_trim0)(); } |
486 |
|
LFD(Lstring_left_trim)() { left_trim = TRUE; right_trim = FALSE; FFN(Lstring_trim0)(); } |
487 |
|
LFD(Lstring_right_trim)() { left_trim = FALSE; right_trim = TRUE; FFN(Lstring_trim0)();} |
488 |
|
|
489 |
static int char_upcase(c, bp) |
static int char_upcase(c, bp) |
490 |
int c, *bp; |
int c, *bp; |
491 |
{ |
{ |
536 |
@(return conv) |
@(return conv) |
537 |
@) |
@) |
538 |
|
|
539 |
void Lstring_upcase() { casefun = char_upcase; Lstring_case(); } |
LFD(Lstring_upcase)() { casefun = char_upcase; FFN(Lstring_case)(); } |
540 |
void Lstring_downcase() { casefun = char_downcase; Lstring_case(); } |
LFD(Lstring_downcase)() { casefun = char_downcase; FFN(Lstring_case)(); } |
541 |
void Lstring_capitalize() { casefun = char_capitalize; Lstring_case(); } |
LFD(Lstring_capitalize)() { casefun = char_capitalize; FFN(Lstring_case)(); } |
542 |
|
|
543 |
|
|
544 |
@(static defun nstring_case (strng &key start end) |
@(static defun nstring_case (strng &key start end) |
554 |
@(return strng) |
@(return strng) |
555 |
@) |
@) |
556 |
|
|
557 |
void Lnstring_upcase() { casefun = char_upcase; Lnstring_case(); } |
LFD(Lnstring_upcase)() { casefun = char_upcase; FFN(Lnstring_case)(); } |
558 |
void Lnstring_downcase() { casefun = char_downcase; Lnstring_case(); } |
LFD(Lnstring_downcase)() { casefun = char_downcase; FFN(Lnstring_case)(); } |
559 |
void Lnstring_capitalize() { casefun = char_capitalize; Lnstring_case(); } |
LFD(Lnstring_capitalize)() { casefun = char_capitalize; FFN(Lnstring_case)(); } |
560 |
|
|
561 |
|
|
562 |
@(defun string (x) |
@(defun string (x) |
565 |
@) |
@) |
566 |
|
|
567 |
static void |
static void |
568 |
siLstring_concatenate() |
FFN(siLstring_concatenate)() |
569 |
{ |
{ |
570 |
int narg, i, l, m; |
int narg, i, l, m; |
571 |
object *v; |
object *v; |