diplodocus.org Git - nmh/blob - docs/historical/mh-nov-1983/subs/concat.c

   1 #include "mh.h"
   2
   3 char *concat(args)
   4 char *args;
   5 {
   6         register char **a;
   7         register char *cp;
   8         register int  len;
   9         register char *ret;
  10
  11         len = 1;
  12         for(a = &args; *a; )
  13                 len += strlen(*a++);
  14         ret = cp = (char *) malloc(len);
  15         for(a = &args; *a; )
  16                 cp = copy(*a++, cp);
  17         return(ret);
  18 }