/[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.9 by camm, Thu Nov 6 16:08:11 2003 UTC revision 1.10 by camm, Sat Jul 23 08:55:08 2005 UTC
# Line 1  Line 1 
1    /* -*-C-*- */
2  /*  /*
3   Copyright (C) 1994 M. Hagiya, W. Schelter, T. Yuasa   Copyright (C) 1994 M. Hagiya, W. Schelter, T. Yuasa
4    
# Line 265  for the string ~S.", 3, start, end, stri Line 266  for the string ~S.", 3, start, end, stri
266    
267  @(defun string_eq (string1 string2  @(defun string_eq (string1 string2
268                     &key start1 end1 start2 end2)                     &key start1 end1 start2 end2)
269          int s1, e1, s2, e2;          int s1=0, e1=0, s2=0, e2=0;
270  @  @
271          string1 = coerce_to_string(string1);          string1 = coerce_to_string(string1);
272          string2 = coerce_to_string(string2);          string2 = coerce_to_string(string2);
# Line 282  for the string ~S.", 3, start, end, stri Line 283  for the string ~S.", 3, start, end, stri
283    
284  @(defun string_equal (string1 string2  @(defun string_equal (string1 string2
285                        &key start1 end1 start2 end2)                        &key start1 end1 start2 end2)
286          int s1, e1, s2, e2;          int s1=0, e1=0, s2=0, e2=0;
287          int i1, i2;          int i1, i2;
288  @  @
289          string1 = coerce_to_string(string1);          string1 = coerce_to_string(string1);
# Line 309  int string_sign, string_boundary; Line 310  int string_sign, string_boundary;
310    
311  @(static 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=0, e1=0, s2=0, e2=0;
314          int i1, i2;          int i1, i2;
315          int s;          int s;
316  @  @
# Line 348  LFD(Lstring_neq)() { string_sign = 0;  s Line 349  LFD(Lstring_neq)() { string_sign = 0;  s
349    
350  @(static 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=0, e1=0, s2=0, e2=0;
353          int i1, i2;          int i1, i2;
354          int s;          int s;
355  @  @
# Line 523  int c, *bp; Line 524  int c, *bp;
524  }  }
525    
526  @(static defun string_case (strng &key start end &aux conv)  @(static defun string_case (strng &key start end &aux conv)
527          int s, e, i;          int s=0, e=0, i;
528          bool b;          bool b;
529  @  @
530          strng = coerce_to_string(strng);          strng = coerce_to_string(strng);
# Line 542  LFD(Lstring_capitalize)() { casefun = ch Line 543  LFD(Lstring_capitalize)() { casefun = ch
543    
544    
545  @(static defun nstring_case (strng &key start end)  @(static defun nstring_case (strng &key start end)
546          int s, e, i;          int s=0, e=0, i;
547          bool b;          bool b;
548  @  @
549          check_type_string(&strng);          check_type_string(&strng);

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

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