add files for 2006-08-31T01:26:44Z

diff --git a/src/osdep/amiga/nl_ami.c b/src/osdep/amiga/nl_ami.c
new file mode 100644 (file)
index 0000000..b2d5616
--- /dev/null
+++ b/src/osdep/amiga/nl_ami.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
+ */
+\f
+/* 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 */
+}
+\f
+/* 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;
+}

diff --git a/src/osdep/unix/nl_unix.c b/src/osdep/unix/nl_unix.c
new file mode 100644 (file)
index 0000000..b2d5616
--- /dev/null
+++ b/src/osdep/unix/nl_unix.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
+ */
+\f
+/* 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 */
+}
+\f
+/* 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;
+}

diff --git a/src/osdep/vms/nl_vms.c b/src/osdep/vms/nl_vms.c
new file mode 100644 (file)
index 0000000..b2d5616
--- /dev/null
+++ b/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
+ */
+\f
+/* 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 */
+}
+\f
+/* 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;
+}