/[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.6 by camm, Sat Oct 5 18:34:15 2002 UTC revision 1.7 by camm, Sat Feb 15 00:38:28 2003 UTC
# Line 308  for the string ~S.", 3, start, end, stri Line 308  for the string ~S.", 3, start, end, stri
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;
# Line 347  void Lstring_le() { string_sign =  1;  s Line 347  void Lstring_le() { string_sign =  1;  s
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;
# Line 414  void Lstring_not_equal()   { string_sign Line 414  void Lstring_not_equal()   { string_sign
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;
# Line 457  object char_bag; Line 457  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);
# Line 522  int c, *bp; Line 522  int c, *bp;
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  @  @
# Line 541  void Lstring_downcase()   { casefun = Line 541  void Lstring_downcase()   { casefun =
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  @  @
# Line 564  void Lnstring_capitalize() { casefun = c Line 564  void Lnstring_capitalize() { casefun = c
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;

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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