source: buchla-68k/orig/CLIBRARY/STRLTRM.C@ a838f5b

/*
   =============================================================================
        strltrm() -- trim leading blanks from a string, in-place
        Version 1 -- 1988-08-19 -- D.N. Lynx Crowe

        Returns a pointer to the string.
   =============================================================================
*/

#include "stddefs.h"

char *
strltrm(s)
register char *s;
{
        register char c;
        register char *lp, *rp;

        if (*s NE ' ')
                return(s);

        lp = s;
        rp = s;

        while (*rp EQ ' ')
                ++rp;

        while (c = *rp++)
                *lp++ = c;

        *lp = '\0';

        return(s);
}