pike.git/ src/ builtin.cmod

2001-04-16

2001-04-16 01:52:19 by Martin Stjernholm <mast@lysator.liu.se>

• 5117f16f8fbd43ec27d557a02b72789abb789650 (64 lines) (+64/-0) ^{[ Show | Annotate ]}
  Branch: 7.9

Implemented String.trim_whites and String.trim_all_whites in C.

Rev: lib/modules/String.pmod:1.17
Rev: src/builtin.cmod:1.28
Rev: src/testsuite.in:1.403

197:    RETURN DO_NOT_WARN((INT_TYPE)c);   }    + /*! @decl string string_trim_whites (string s) +  *! +  *! Trim leading and trailing spaces and tabs from the string @[s]. +  */ + PIKEFUN string string_trim_whites (string s) +  errname String.trim_whites; +  optflags OPT_TRY_OPTIMIZE; + { +  ptrdiff_t start = 0, end = s->len; +  int chr; +  switch (s->size_shift) { + #define DO_IT(TYPE) \ +  { \ +  for (; start < s->len; start++) { \ +  chr = ((TYPE *) s->str)[start]; \ +  if (chr != ' ' && chr != '\t') break; \ +  } \ +  while (--end > start) { \ +  chr = ((TYPE *) s->str)[end]; \ +  if (chr != ' ' && chr != '\t') break; \ +  } \ +  } +  case 0: DO_IT (p_wchar0); break; +  case 1: DO_IT (p_wchar1); break; +  case 2: DO_IT (p_wchar2); break; + #undef DO_IT +  } +  RETURN string_slice (s, start, end + 1 - start); + } +  + /*! @decl string string_trim_all_whites (string s) +  *! +  *! Trim leading and trailing white spaces characters (space, tab, +  *! newline and carriage return) from the string @[s]. +  */ + PIKEFUN string string_trim_all_whites (string s) +  errname String.trim_all_whites; +  optflags OPT_TRY_OPTIMIZE; + { +  ptrdiff_t start = 0, end = s->len; +  int chr; +  switch (s->size_shift) { + #define DO_IT(TYPE) \ +  { \ +  for (; start < s->len; start++) { \ +  chr = ((TYPE *) s->str)[start]; \ +  if (chr != ' ' && chr != '\t' && chr != '\n' && chr != '\r') \ +  break; \ +  } \ +  while (--end > start) { \ +  chr = ((TYPE *) s->str)[end]; \ +  if (chr != ' ' && chr != '\t' && chr != '\n' && chr != '\r') \ +  break; \ +  } \ +  } +  case 0: DO_IT (p_wchar0); break; +  case 1: DO_IT (p_wchar1); break; +  case 2: DO_IT (p_wchar2); break; + #undef DO_IT +  } +  RETURN string_slice (s, start, end + 1 - start); + } +    /*! @decl int program_implements(program prog, program api)    *!    *! Returns 1 if @[prog] implements @[api].