home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.uv.es
/
2014.11.ftp.uv.es.tar
/
ftp.uv.es
/
pub
/
unix
/
elm-2.4-pl20.tar.Z
/
elm-2.4-pl20.tar
/
lib
/
chloc.c
< prev
next >
Wrap
C/C++ Source or Header
|
1992-10-03
|
1KB
|
68 lines
static char rcsid[] = "@(#)$Id: chloc.c,v 5.1 1992/10/03 22:41:36 syd Exp $";
/*******************************************************************************
* The Elm Mail System - $Revision: 5.1 $ $State: Exp $
*
* Copyright (c) 1988-1992 USENET Community Trust
* Copyright (c) 1986,1987 Dave Taylor
*******************************************************************************
* Bug reports, patches, comments, suggestions should be sent to:
*
* Syd Weinstein, Elm Coordinator
* elm@DSI.COM dsinc!elm
*
*******************************************************************************
* $Log: chloc.c,v $
* Revision 5.1 1992/10/03 22:41:36 syd
* Initial checkin as of 2.4 Release at PL0
*
*
******************************************************************************/
/**
**/
#include "headers.h"
int
chloc(string, ch)
char *string;
register char ch;
{
/** returns the index of ch in string, or -1 if not in string **/
register char *s;
for (s = string; *s; s++)
if (*s == ch)
return(s - string);
return(-1);
}
int
qchloc(string, ch)
char *string;
register char ch;
{
/* returns the index of ch in string, or -1 if not in string
* skips over quoted portions of the string
*/
register char *s;
register int l;
for (s = string; *s; s++) {
l = len_next_part(s);
if (l > 1) { /* a quoted char/string can not be a match */
s += l - 1;
continue;
}
if (*s == ch)
return(s - string);
}
return(-1);
}