~drizzle-trunk/drizzle/development

« back to all changes in this revision

Viewing changes to strings/strchr.c

  • Committer: brian
  • Date: 2008-06-25 05:29:13 UTC
  • Revision ID: brian@localhost.localdomain-20080625052913-6upwo0jsrl4lnapl
clean slate

Show diffs side-by-side

added added

removed removed

Lines of Context:
 
1
/* Copyright (C) 2000 MySQL AB
 
2
 
 
3
   This program is free software; you can redistribute it and/or modify
 
4
   it under the terms of the GNU General Public License as published by
 
5
   the Free Software Foundation; version 2 of the License.
 
6
 
 
7
   This program is distributed in the hope that it will be useful,
 
8
   but WITHOUT ANY WARRANTY; without even the implied warranty of
 
9
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 
10
   GNU General Public License for more details.
 
11
 
 
12
   You should have received a copy of the GNU General Public License
 
13
   along with this program; if not, write to the Free Software
 
14
   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA */
 
15
 
 
16
/*  File   : strchr.c
 
17
    Author : Richard A. O'Keefe.
 
18
             Michael Widenius:  ifdef MC68000
 
19
    Updated: 20 April 1984
 
20
    Defines: strchr(), index()
 
21
 
 
22
    strchr(s, c) returns a pointer to the  first  place  in  s  where  c
 
23
    occurs,  or  NullS if c does not occur in s. This function is called
 
24
    index in V7 and 4.?bsd systems; while not ideal the name is  clearer
 
25
    than  strchr,  so index remains in strings.h as a macro.  NB: strchr
 
26
    looks for single characters,  not for sets or strings.   To find the
 
27
    NUL character which closes s, use strchr(s, '\0') or strend(s).  The
 
28
    parameter 'c' is declared 'int' so it will go in a register; if your
 
29
    C compiler is happy with register _char_ change it to that.
 
30
*/
 
31
 
 
32
#include "strings.h"
 
33
 
 
34
#if defined(MC68000) && defined(DS90)
 
35
 
 
36
char*   strchr(char *s, pchar c)
 
37
{
 
38
asm("           movl    4(a7),a0        ");
 
39
asm("           movl    8(a7),d1        ");
 
40
asm(".L2:       movb    (a0)+,d0        ");
 
41
asm("           cmpb    d0,d1           ");
 
42
asm("           beq     .L1             ");
 
43
asm("           tstb    d0              ");
 
44
asm("           bne     .L2             ");
 
45
asm("           moveq   #0,d0           ");
 
46
asm("           rts                     ");
 
47
asm(".L1:       movl    a0,d0           ");
 
48
asm("           subql   #1,d0           ");
 
49
}
 
50
#else
 
51
 
 
52
char *strchr(register const char *s, register pchar c)
 
53
{
 
54
  for (;;)
 
55
  {
 
56
     if (*s == (char) c) return (char*) s;
 
57
     if (!*s++) return NullS;
 
58
  }
 
59
}
 
60
 
 
61
#endif