/***************************************************************************
 *                                                                         *
 *   UNPAD.C                                                               *
 *                                                                         *
 *   Copyright (c) 1987-1997 Galacticomm, Inc.    All Rights Reserved.     *
 *                                                                         *
 *   This is the GCOMM.LIB routine for stripping white space off the       *
 *   end of a string.                                                      *
 *                                                                         *
 *                                            - R. Stein   2/7/92          *
 *                                                                         *
 ***************************************************************************/

#include "gcomm.h"

#define FILREV "$Revision: 4 $"

CHAR *                             /*   returns pointer to original string */
unpad(                             /* strip trailing white space           */
CHAR *cp)                          /*   string to unpad                    */
{
     cp[strpln(cp)]='\0';
     return(cp);
}
