X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fcluster%2Fwham%2Fsrc%2Fxdrf%2Fftocstr.c;fp=source%2Fcluster%2Fwham%2Fsrc%2Fxdrf%2Fftocstr.c;h=ed2113f64db93b63b7555577dd3805f60bc76f81;hb=0a11a2c4ccee14ed99ae44f2565b270ba8d4bbb6;hp=0000000000000000000000000000000000000000;hpb=5eb407964903815242c59de10960f42761139e10;p=unres.git

diff --git a/source/cluster/wham/src/xdrf/ftocstr.c b/source/cluster/wham/src/xdrf/ftocstr.c
new file mode 100644
index 0000000..ed2113f
--- /dev/null
+++ b/source/cluster/wham/src/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;
+}