usr/src/local/sccscmds/sccscmds.ok/util/substr.c

static char Sccsid[] "@(#)substr        2.2";
/*
        Place the `len' length substring of `as' starting at `as[origin]'
        in `aresult'.
        Return `aresult'.

  Note: The copying of as to aresult stops if either the
        specified number (len) characters have been copied,
        or if the end of as is found.
        A negative len generally guarantees that everything gets copied.
*/

char *substr(as, aresult, origin, len)
char *as, *aresult;
int origin;
register unsigned len;
{
        register char *s, *result;

        s = as + origin;
        result = aresult;
        ++len;
        while (--len && (*result++ = *s++)) ;
        if (len == 0)
                *result = 0;
        return(aresult);
}