/[gcl]/gcl/o/string.d
ViewVC logotype

Diff of /gcl/o/string.d

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7.6.1 by camm, Sun Sep 14 02:30:45 2003 UTC revision 1.7.6.2 by camm, Thu Nov 6 16:16:53 2003 UTC
# Line 216  object x; Line 216  object x;
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    
# Line 341  int string_sign, string_boundary; Line 340  int string_sign, string_boundary;
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)
# Line 384  void Lstring_neq() { string_sign = 0;  s Line 383  void Lstring_neq() { string_sign = 0;  s
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
# Line 457  object char_bag; Line 456  object char_bag;
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;
# Line 486  void Lstring_right_trim() { left_trim = Line 482  void Lstring_right_trim() { left_trim =
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  {  {
# Line 536  int c, *bp; Line 536  int c, *bp;
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)
# Line 554  void Lstring_capitalize() { casefun = ch Line 554  void Lstring_capitalize() { casefun = ch
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)
# Line 565  void Lnstring_capitalize() { casefun = c Line 565  void Lnstring_capitalize() { casefun = c
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;

Legend:
Removed from v.1.7.6.1  
changed lines
  Added in v.1.7.6.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26