/[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.2 by camm, Thu Nov 6 16:16:53 2003 UTC revision 1.7.6.2.10.1 by camm, Mon Jul 18 17:07:24 2005 UTC
# Line 265  for the string ~S.", 3, start, end, stri Line 265  for the string ~S.", 3, start, end, stri
265    
266  @(defun string_eq (string1 string2  @(defun string_eq (string1 string2
267                     &key start1 end1 start2 end2)                     &key start1 end1 start2 end2)
268          int s1, e1, s2, e2;          int s1=0, e1=0, s2=0, e2=0;
269  @  @
270          string1 = coerce_to_string(string1);          string1 = coerce_to_string(string1);
271          string2 = coerce_to_string(string2);          string2 = coerce_to_string(string2);
# Line 282  for the string ~S.", 3, start, end, stri Line 282  for the string ~S.", 3, start, end, stri
282    
283  @(defun string_equal (string1 string2  @(defun string_equal (string1 string2
284                        &key start1 end1 start2 end2)                        &key start1 end1 start2 end2)
285          int s1, e1, s2, e2;          int s1=0, e1=0, s2=0, e2=0;
286          int i1, i2;          int i1, i2;
287  @  @
288          string1 = coerce_to_string(string1);          string1 = coerce_to_string(string1);
# Line 309  int string_sign, string_boundary; Line 309  int string_sign, string_boundary;
309    
310  @(static defun string_cmp (string1 string2  @(static defun string_cmp (string1 string2
311                      &key start1 end1 start2 end2)                      &key start1 end1 start2 end2)
312          int s1, e1, s2, e2;          int s1=0, e1=0, s2=0, e2=0;
313          int i1, i2;          int i1, i2;
314          int s;          int s;
315  @  @
# Line 348  LFD(Lstring_neq)() { string_sign = 0;  s Line 348  LFD(Lstring_neq)() { string_sign = 0;  s
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)
351          int s1, e1, s2, e2;          int s1=0, e1=0, s2=0, e2=0;
352          int i1, i2;          int i1, i2;
353          int s;          int s;
354  @  @
# Line 523  int c, *bp; Line 523  int c, *bp;
523  }  }
524    
525  @(static 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=0, e=0, i;
527          bool b;          bool b;
528  @  @
529          strng = coerce_to_string(strng);          strng = coerce_to_string(strng);
# Line 542  LFD(Lstring_capitalize)() { casefun = ch Line 542  LFD(Lstring_capitalize)() { casefun = ch
542    
543    
544  @(static defun nstring_case (strng &key start end)  @(static defun nstring_case (strng &key start end)
545          int s, e, i;          int s=0, e=0, i;
546          bool b;          bool b;
547  @  @
548          check_type_string(&strng);          check_type_string(&strng);

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

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