strchr.c
上传用户:romrleung
上传日期:2022-05-23
资源大小:18897k
文件大小:2k
源码类别:

MySQL数据库

开发平台:

Visual C++

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