home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD2.mdf / c / compiler / small_c / cb / sources / maksub.c < prev    next >
Encoding:
Text File  |  1985-07-22  |  512 b   |  19 lines
  1.  
  2. /*
  3. ** maksub.c -- make substitution string in sub
  4. */
  5. maksub(arg, from, delim, sub) char arg[], sub[], delim; int from; {
  6.   int i, j;
  7.   j=0;
  8.   i=from;
  9.   while((arg[i]!=delim)&(arg[i]!=NULL)) {
  10.     if(arg[i]==DITTO) addset(DITCODE, sub, &j, MAXPAT);
  11.     else addset(esc(arg, &i), sub, &j, MAXPAT);
  12.     ++i;
  13.     }
  14.   if(arg[i]!=delim) return ERR; /**** missing delimiter ****/
  15.   if(addset(NULL, sub, &j, MAXPAT)==NO) return ERR; /** no room **/
  16.   return i;
  17.   }
  18. T], sub[MAXPAT];
  19. char arg[MAXARG];