Merge branch 'devel' into AFM

[unres.git] / source / wham / src-NEWSC-NEWCORR / xdrf / ftocstr.c

diff --git a/source/wham/src-NEWSC-NEWCORR/xdrf/ftocstr.c b/source/wham/src-NEWSC-NEWCORR/xdrf/ftocstr.c
new file mode 100644 (file)
index 0000000..ed2113f
--- /dev/null
+++ b/source/wham/src-NEWSC-NEWCORR/xdrf/ftocstr.c
@@ -0,0 +1,35 @@
+
+
+int ftocstr(ds, dl, ss, sl)
+    char *ds, *ss;      /* dst, src ptrs */
+    int dl;             /* dst max len */
+    int sl;             /* src len */
+{
+    char *p;
+
+    for (p = ss + sl; --p >= ss && *p == ' '; ) ;
+    sl = p - ss + 1;
+    dl--;
+    ds[0] = 0;
+    if (sl > dl)
+        return 1;
+    while (sl--)
+       (*ds++ = *ss++);
+    *ds = '\0';
+    return 0;
+}
+
+
+int ctofstr(ds, dl, ss)
+       char *ds;               /* dest space */
+       int dl;                 /* max dest length */
+       char *ss;               /* src string (0-term) */
+{
+    while (dl && *ss) {
+       *ds++ = *ss++;
+       dl--;
+    }
+    while (dl--)
+       *ds++ = ' ';
+    return 0;
+}