1 files changed, 92 insertions, 0 deletions
diff --git a/imap/src/osdep/vms/nl_vms.c b/imap/src/osdep/vms/nl_vms.c
new file mode 100644
index 00000000..b2d5616a
--- /dev/null
+++ b/imap/src/osdep/vms/nl_vms.c
@@ -0,0 +1,92 @@
+/* ========================================================================
+ * 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;
+}