diplodocus.org Git - nmh/blob - docs/historical/mh-jun-1982/subs/copyip.c

   1 #ifdef COMMENT
   2         Proprietary Rand Corporation, 1981.
   3         Further distribution of this software
   4         subject to the terms of the Rand
   5         license agreement.
   6 #endif
   7
   8 char **
   9 copyip(cpf, cpt)
  10 char **cpf, **cpt;
  11 {
  12         register int *ipf, *ipt;
  13
  14         ipf = (int *) cpf;
  15         ipt = (int *) cpt;
  16
  17         while((*ipt = *ipf) && *ipf++ != -1)
  18                 ipt++;
  19         *ipt = 0;
  20         return (char **) ipt;
  21 }
  22