379 ppdirforward(p)  in ppdirforward()  argument
380     char *p;  in ppdirforward()
382     for (; *p == '#'; ++p) {
383 	for (; *p != '\r' && *p != '\n'; ++p)
384 	    if (*p == 0)
385 		return p;
386 	if (*p == '\r' && p[1] == '\n')
387 	    ++p;
389     return p;
392 ppdirbackward(p, limit)  in ppdirbackward()  argument
393     char *p;  in ppdirbackward()
396     char *np = p;
398     for (;; p = --np) {
405 	    return p;
414 skipspace(p, dir)  in skipspace()  argument
415     char *p;  in skipspace()
419 	while ( is_space(*p) )
420 	    p += dir;
421 	if ( !(*p == '/' && p[dir] == '*') )
423 	p += dir;  p += dir;
424 	while ( !(*p == '*' && p[dir] == '/') ) {
425 	    if ( *p == 0 )
426 		return p;	/* multi-line comment?? */
427 	    p += dir;
429 	p += dir;  p += dir;
431     return p;
436 scanstring(p, dir)  in scanstring()  argument
437     char *p;  in scanstring()
440     for (p += dir; ; p += dir)
441 	if (*p == '"' && p[-dir] != '\\')
442 	    return p + dir;
453 {	char *p;  local
454 	for ( p = start; p < end; p++ )
455 	  if ( *p != '\r' && *p != '\n' )
456 	    *p = ' ';
476 {	char *p = buf;  local
481 	if ( !isidfirstchar(*p) )
492 	while ( isidchar(*p) )
493 	  p++;
494 	endfn = p;
495 	p = skipspace(p, 1);
496 	if ( *p++ != '(' )
498 	p = skipspace(p, 1);
499 	if ( *p == ')' )
522 	       char *id = p;
529 	       while ( isidchar(*p) )
530 		   p++;
531 	       len = p - id;
532 	       p = skipspace(p, 1);
533 	       if (*p == ',' ||
534 		   (*p == ')' && (len != 4 || strncmp(id, "void", 4)))
546 	    for (p = skipspace(buf, 1); *p; p = skipspace(p + 1, 1))
547 		level += (*p == '(' ? 1 : *p == ')' ? -1 : 0);
562 	char *p;  local
578 top:	p = endfn;
602 		*bp++ = p;
604 		for ( ; end == NULL; p++ )
605 		   {	switch(*p)
608 				if ( !level ) end = p;
611 				if ( !level ) lp = p;
615 				if ( --level < 0 ) end = p;
616 				else rp = p;
619 				if (p[1] == '*')
620 				    p = skipspace(p, 1) - 1;
623 			       p = scanstring(p, 1) - 1;
632 		p--;			/* back up over terminator */
637 		   {	p = skipspace(p - 1, -1);
638 			switch ( *p )
644 				 switch ( *--p )
653 				       if (p > buf && p[-1] == '*')
654 					   p = skipspace(p, -1) + 1;
657 				       p = scanstring(p, -1) + 1;
662 				if ( *p == '(' && *skipspace(p + 1, 1) == '*' )
664 					while ( !isidfirstchar(*p) )
665 					  p = skipspace(p, 1) + 1;
673 found:		if ( *p == '.' && p[-1] == '.' && p[-2] == '.' )
676 				vararg = p-2;
679 			  {	p++;
681 				  writeblanks(breaks[0], p);
683 				  writeblanks(bp[-1] - 1, p);
688 		   {	while ( isidchar(*p) ) p--;
689 			*bp++ = p+1;
691 		p = end;
693 	while ( *p++ == ',' );
694 	*bp = p;
697 	   {	p = skipspace(breaks[0], 1);
698 		if ( !strncmp(p, "void", 4) )
699 		   {	p = skipspace(p+4, 1);
700 			if ( p == breaks[2] - 1 )
702 				writeblanks(breaks[0], p + 1);
707 	p = buf;
708 	while ( p != endfn ) putc(*p, out), p++;
712 		for ( p = breaks[0]; *p; p++ )
713 		  if ( *p == '\r' || *p == '\n' )
714 		    putc(*p, out);
718 		  {	p = *ap;
719 			while ( isidchar(*p) )
720 			  putc(*p, out), p++;