Commit yaboot 1.3.0
[yaboot.git] / lib / strstr.c
1 /* Return the offset of one string within another.
2    Copyright (C) 1994, 1996, 1997 Free Software Foundation, Inc.
3    This file is part of the GNU C Library.
4
5    The GNU C Library is free software; you can redistribute it and/or
6    modify it under the terms of the GNU Library General Public License as
7    published by the Free Software Foundation; either version 2 of the
8    License, or (at your option) any later version.
9
10    The GNU C Library is distributed in the hope that it will be useful,
11    but WITHOUT ANY WARRANTY; without even the implied warranty of
12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
13    Library General Public License for more details.
14
15    You should have received a copy of the GNU Library General Public
16    License along with the GNU C Library; see the file COPYING.LIB.  If not,
17    write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
18    Boston, MA 02111-1307, USA.  */
19
20 /*
21  * My personal strstr() implementation that beats most other algorithms.
22  * Until someone tells me otherwise, I assume that this is the
23  * fastest implementation of strstr() in C.
24  * I deliberately chose not to comment it.  You should have at least
25  * as much fun trying to understand it, as I had to write it :-).
26  *
27  * Stephen R. van den Berg, berg@pool.informatik.rwth-aachen.de */
28
29 #include <string.h>
30
31 typedef unsigned chartype;
32
33 #undef strstr
34
35 char *
36 strstr (phaystack, pneedle)
37      const char *phaystack;
38      const char *pneedle;
39 {
40   register const unsigned char *haystack, *needle;
41   register chartype b, c;
42
43   haystack = (const unsigned char *) phaystack;
44   needle = (const unsigned char *) pneedle;
45
46   b = *needle;
47   if (b != '\0')
48     {
49       haystack--;                               /* possible ANSI violation */
50       do
51         {
52           c = *++haystack;
53           if (c == '\0')
54             goto ret0;
55         }
56       while (c != b);
57
58       c = *++needle;
59       if (c == '\0')
60         goto foundneedle;
61       ++needle;
62       goto jin;
63
64       for (;;)
65         {
66           register chartype a;
67           register const unsigned char *rhaystack, *rneedle;
68
69           do
70             {
71               a = *++haystack;
72               if (a == '\0')
73                 goto ret0;
74               if (a == b)
75                 break;
76               a = *++haystack;
77               if (a == '\0')
78                 goto ret0;
79 shloop:     }
80           while (a != b);
81
82 jin:      a = *++haystack;
83           if (a == '\0')
84             goto ret0;
85
86           if (a != c)
87             goto shloop;
88
89           rhaystack = haystack-- + 1;
90           rneedle = needle;
91           a = *rneedle;
92
93           if (*rhaystack == a)
94             do
95               {
96                 if (a == '\0')
97                   goto foundneedle;
98                 ++rhaystack;
99                 a = *++needle;
100                 if (*rhaystack != a)
101                   break;
102                 if (a == '\0')
103                   goto foundneedle;
104                 ++rhaystack;
105                 a = *++needle;
106               }
107             while (*rhaystack == a);
108
109           needle = rneedle;             /* took the register-poor approach */
110
111           if (a == '\0')
112             break;
113         }
114     }
115 foundneedle:
116   return (char*) haystack;
117 ret0:
118   return 0;
119 }