~ubuntu-branches/ubuntu/maverick/avr-libc/maverick

« back to all changes in this revision

Viewing changes to libc/pmstring/strpbrk_P.S

  • Committer: Bazaar Package Importer
  • Author(s): Hakan Ardo
  • Date: 2007-08-09 11:28:01 UTC
  • mfrom: (1.1.4 upstream)
  • Revision ID: james.westby@ubuntu.com-20070809112801-ps7wognnynio9kz7
Tags: 1:1.4.6-1
New upstream release

Show diffs side-by-side

added added

removed removed

Lines of Context:
 
1
/* Copyright (c) 2007  Dmitry Xmelkov
 
2
   All rights reserved.
 
3
 
 
4
   Redistribution and use in source and binary forms, with or without
 
5
   modification, are permitted provided that the following conditions are met:
 
6
 
 
7
   * Redistributions of source code must retain the above copyright
 
8
     notice, this list of conditions and the following disclaimer.
 
9
   * Redistributions in binary form must reproduce the above copyright
 
10
     notice, this list of conditions and the following disclaimer in
 
11
     the documentation and/or other materials provided with the
 
12
     distribution.
 
13
   * Neither the name of the copyright holders nor the names of
 
14
     contributors may be used to endorse or promote products derived
 
15
     from this software without specific prior written permission.
 
16
 
 
17
  THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
 
18
  AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 
19
  IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 
20
  ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
 
21
  LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
 
22
  CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
 
23
  SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
 
24
  INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
 
25
  CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 
26
  ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 
27
  POSSIBILITY OF SUCH DAMAGE. */
 
28
 
 
29
/* $Id: strpbrk_P.S,v 1.1.2.1 2007/03/31 23:14:26 dmix Exp $ */
 
30
 
 
31
/** \file */
 
32
/** \ingroup avr_pgmspace
 
33
    \fn char *strpbrk_P(const char *s, PGM_P accept)
 
34
    
 
35
    The strpbrk_P() function locates the first occurrence in the string
 
36
    \p s of any of the characters in the flash string \p accept. This
 
37
    function is similar to strpbrk() except that \p accept is a pointer
 
38
    to a string in program space.
 
39
 
 
40
    \return  The strpbrk_P() function returns a pointer to the character
 
41
    in \p s that matches one of the characters in \p accept, or \c NULL
 
42
    if no such character is found. The terminating zero is not considered
 
43
    as a part of string: if one or both args are empty, the result will
 
44
    \c NULL.    */
 
45
 
 
46
#ifndef __DOXYGEN__
 
47
 
 
48
#include "macros.inc"
 
49
 
 
50
#define str_lo  r24
 
51
#define acc_lo  r22
 
52
 
 
53
#define ret_lo  r24
 
54
#define ret_hi  r25
 
55
 
 
56
/* This realization is compact, but is not very fast: an accept string
 
57
   is not cashed.       */
 
58
 
 
59
        .text
 
60
        .global _U(strpbrk_P)
 
61
        .type   _U(strpbrk_P), @function
 
62
 
 
63
_U(strpbrk_P):
 
64
        X_movw  XL, str_lo
 
65
        clr     ret_hi          ; a trick to save 1 word
 
66
  ; get next symbol from s[]
 
67
1:      ld      ret_lo, X+      ; *s++
 
68
        tst     ret_lo
 
69
        breq    3f
 
70
  ; check an occurance
 
71
        X_movw  ZL, acc_lo
 
72
2:      X_lpm   r0, Z+
 
73
        cp      r0, ret_lo
 
74
        cpse    r0, __zero_reg__
 
75
        brne    2b
 
76
        brne    1b              ; branch if end of accept[] is reached
 
77
  ; OK, is found
 
78
        sbiw    XL, 1
 
79
        X_movw  ret_lo, XL
 
80
3:      ret
 
81
 
 
82
        .size _U(strpbrk_P), . - _U(strpbrk_P)
 
83
#endif  /* !__DOXYGEN__ */