/***********************************************************************

  $Id: strips.c 371 2006-07-27 02:27:18Z root $

  String strippers

  Copyright (c) 1993-98 M. Kimes
  Copyright (c) 2004 Steven H.Levine

  01 Aug 04 SHL Rework lstrip/rstrip usage
  26 Jul 06 SHL Add chop_at_crnl

***********************************************************************/

#include <os2.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>

#pragma alloc_text(MISC8,chop_at_crnl,convert_nl_to_nul,strip_trail_char,strip_lead_char)

VOID chop_at_crnl(PSZ pszSrc)
{
  // Chop line at CR or NL
  PSZ psz = strchr(pszSrc, '\r');
  if (psz)
    *psz = 0;
  psz = strchr(pszSrc, '\n');
  if (psz)
    *psz = 0;
}

PSZ convert_nl_to_nul(PSZ pszSrc)
{
  // Convert newline to nul, return pointer to next or NULL
  PSZ psz = strchr(pszSrc, '\n');
  if (psz) {
    *psz = 0;
    psz++;
  }
  return psz;
}

void strip_trail_char (char *pszStripChars,char *pszSrc)
{
  char *psz;

  if(pszSrc && *pszSrc && pszStripChars && *pszStripChars) {
    psz = pszSrc + strlen(pszSrc) - 1;
    // while not empty and tail char in strip list
    while (*pszSrc && strchr(pszStripChars,*psz) != NULL) {
      *psz = 0;
      psz--;
    }
  }
}

void strip_lead_char (char *pszStripChars,char *pszSrc)
{
  char *psz = pszSrc;

  if(pszSrc && *pszSrc && pszStripChars && *pszStripChars) {
    // while lead char in strip list
    while(*psz && strchr(pszStripChars,*psz) != NULL)
      psz++;
    if(psz != pszSrc)
      memmove(pszSrc,psz,strlen(psz) + 1);
  }
}