source: buchla-68k/orig/CLIBRARY/STRRTRM.C@ 7bf3856

/*
   =============================================================================
        strrtrm() -- trim trailing 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 *
strrtrm(s)
char *s;
{
        register char *lp, *rp;

        lp = s;
        rp = s;

        while (*rp)
                ++rp;

        while ((long)(--rp) GE (long)lp) {

                if (*rp EQ ' ')
                        *rp = '\0';
                else
                        break;
        }

        return(lp);
}