Viewing file:  nl_unix.c (2.56 KB) -rw-r--r--
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
/* ========================================================================
* Copyright 1988-2006 University of Washington
*
* Licensed under the Apache License, Version 2.0 (the "License");
* you may not use this file except in compliance with the License.
* You may obtain a copy of the License at
*
* http://www.apache.org/licenses/LICENSE-2.0
*
*
* ========================================================================
*/
/*
* Program: UNIX/VMS newline routines
*
* Author: Mark Crispin
* Networks and Distributed Computing
* Computing & Communications
* University of Washington
* Administration Building, AG-44
* Seattle, WA 98195
* Internet: MRC@CAC.Washington.EDU
*
* Date: 1 August 1988
* Last Edited: 30 August 2006
*/
/* Copy string with CRLF newlines
* Accepts: destination string
* pointer to size of destination string buffer
* source string
* length of source string
* Returns: length of copied string
*/
unsigned long strcrlfcpy (unsigned char **dst,unsigned long *dstl,
unsigned char *src,unsigned long srcl)
{
long i = srcl * 2,j;
unsigned char c,*d = src;
if (*dst) { /* candidate destination provided? */
/* count NLs if doesn't fit worst-case */
if (i > *dstl) for (i = j = srcl; j; --j) if (*d++ == '\012') i++;
/* still too small, must reset destination */
if (i > *dstl) fs_give ((void **) dst);
}
/* make a new buffer if needed */
if (!*dst) *dst = (char *) fs_get ((*dstl = i) + 1);
d = *dst; /* destination string */
if (srcl) do { /* main copy loop */
if ((c = *src++) < '\016') {
/* prepend CR to LF */
if (c == '\012') *d++ = '\015';
/* unlikely CR */
else if ((c == '\015') && (srcl > 1) && (*src == '\012')) {
*d++ = c; /* copy the CR */
c = *src++; /* grab the LF */
--srcl; /* adjust the count */
}
}
*d++ = c; /* copy character */
} while (--srcl);
*d = '\0'; /* tie off destination */
return d - *dst; /* return length */
}
/* Length of string after strcrlfcpy applied
* Accepts: source string
* Returns: length of string
*/
unsigned long strcrlflen (STRING *s)
{
unsigned long pos = GETPOS (s);
unsigned long i = SIZE (s);
unsigned long j = i;
while (j--) switch (SNX (s)) {/* search for newlines */
case '\015': /* unlikely carriage return */
if (j && (CHR (s) == '\012')) {
SNX (s); /* eat the line feed */
j--;
}
break;
case '\012': /* line feed? */
i++;
default: /* ordinary chararacter */
break;
}
SETPOS (s,pos); /* restore old position */
return i;
}
|