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

« back to all changes in this revision

Viewing changes to libc/pmstring/strcspn_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: strcspn_P.S,v 1.1.2.1 2007/03/31 23:14:26 dmix Exp $ */
 
30
 
 
31
/** \file */
 
32
/** \ingroup avr_pgmspace
 
33
    \fn size_t strcspn_P(const char *s, PGM_P reject)
 
34
    
 
35
    The strcspn_P() function calculates the length of the initial segment
 
36
    of \p s which consists entirely of characters not in \p reject. This
 
37
    function is similar to strcspn() except that \p reject is a pointer
 
38
    to a string in program space.
 
39
 
 
40
    \return The strcspn_P() function returns the number of characters in
 
41
    the initial segment of \p s which are not in the string \p reject.
 
42
    The terminating zero is not considered as a part of string. */
 
43
 
 
44
#ifndef __DOXYGEN__
 
45
 
 
46
#include "macros.inc"
 
47
 
 
48
#define str_lo  r24
 
49
#define str_hi  r25
 
50
#define acc_lo  r22
 
51
#define acc_hi  r23
 
52
 
 
53
#define chs     r21     /* char from s[]        */
 
54
 
 
55
        .text
 
56
        .global _U(strcspn_P)
 
57
        .type   _U(strcspn_P), @function
 
58
 
 
59
_U(strcspn_P):
 
60
        X_movw  XL, str_lo
 
61
  ; get next symbol from s[]
 
62
1:      ld      chs, X+         ; *s++
 
63
        tst     chs
 
64
        breq    3f
 
65
  ; check an occurance
 
66
        X_movw  ZL, acc_lo
 
67
2:      X_lpm   r0, Z+
 
68
        cp      r0, chs
 
69
        cpse    r0, __zero_reg__
 
70
        brne    2b
 
71
        brne    1b              ; branch if chs is't present in reject[]
 
72
  ; end of scanning: chs is found or end of s[] is reached
 
73
  ; Return: X - 1 - str == X + ~str
 
74
3:      com     str_lo
 
75
        com     str_hi
 
76
        add     str_lo, XL
 
77
        adc     str_hi, XH
 
78
        ret
 
79
 
 
80
        .size _U(strcspn_P), . - _U(strcspn_P)
 
81
#endif  /* !__DOXYGEN__ */