Adam's changes to wham and cluster following previous commit
[unres.git] / source / lib / xdrf / ftocstr.c
1
2
3 int ftocstr(ds, dl, ss, sl)
4     char *ds, *ss;      /* dst, src ptrs */
5     int dl;             /* dst max len */
6     int sl;             /* src len */
7 {
8     char *p;
9
10     for (p = ss + sl; --p >= ss && *p == ' '; ) ;
11     sl = p - ss + 1;
12     dl--;
13     ds[0] = 0;
14     if (sl > dl)
15         return 1;
16     while (sl--)
17         (*ds++ = *ss++);
18     *ds = '\0';
19     return 0;
20 }
21
22
23 int ctofstr(ds, dl, ss)
24         char *ds;               /* dest space */
25         int dl;                 /* max dest length */
26         char *ss;               /* src string (0-term) */
27 {
28     while (dl && *ss) {
29         *ds++ = *ss++;
30         dl--;
31     }
32     while (dl--)
33         *ds++ = ' ';
34     return 0;
35 }