===================================================================
RCS file: /cvsrepo/anoncvs/cvs/src/usr.bin/fsplit/Attic/fsplit.c,v
retrieving revision 1.13
retrieving revision 1.14
diff -c -r1.13 -r1.14
*** src/usr.bin/fsplit/Attic/fsplit.c	2003/06/10 22:20:46	1.13
--- src/usr.bin/fsplit/Attic/fsplit.c	2003/06/25 21:19:19	1.14
***************
*** 1,4 ****
! /*	$OpenBSD: fsplit.c,v 1.13 2003/06/10 22:20:46 deraadt Exp $	*/
  
  /*
   * Copyright (c) 1983, 1993
--- 1,4 ----
! /*	$OpenBSD: fsplit.c,v 1.14 2003/06/25 21:19:19 deraadt Exp $	*/
  
  /*
   * Copyright (c) 1983, 1993
***************
*** 40,46 ****
  
  #ifndef lint
  /*static char sccsid[] = "from: @(#)fsplit.c	8.1 (Berkeley) 6/6/93";*/
! static char rcsid[] = "$OpenBSD: fsplit.c,v 1.13 2003/06/10 22:20:46 deraadt Exp $";
  #endif				/* not lint */
  
  #include <ctype.h>
--- 40,46 ----
  
  #ifndef lint
  /*static char sccsid[] = "from: @(#)fsplit.c	8.1 (Berkeley) 6/6/93";*/
! static char rcsid[] = "$OpenBSD: fsplit.c,v 1.14 2003/06/25 21:19:19 deraadt Exp $";
  #endif				/* not lint */
  
  #include <ctype.h>
***************
*** 90,96 ****
  char    buf[BSZ];
  FILE   *ifp;
  char    x[] = "zzz000.f", mainp[] = "main000.f", blkp[] = "blkdta000.f";
! char   *look(), *skiplab(), *functs();
  
  #define TRUE 1
  #define FALSE 0
--- 90,96 ----
  char    buf[BSZ];
  FILE   *ifp;
  char    x[] = "zzz000.f", mainp[] = "main000.f", blkp[] = "blkdta000.f";
! char   *look(char *, char *), *skiplab(char *), *functs(char *);
  
  #define TRUE 1
  #define FALSE 0
***************
*** 282,287 ****
--- 282,288 ----
  	warnx("line truncated to %d characters", BSZ);
  	return (1);
  }
+ 
  /* return 1 for 'end' alone on card (up to col. 72),  0 otherwise */
  int
  lend(void)
***************
*** 307,316 ****
  		return (1);
  	return (0);
  }
! /*		check for keywords for subprograms
! 		return 0 if comment card, 1 if found
! 		name and put in arg string. invent name for unnamed
! 		block datas and main programs.		*/
  int
  lname(char *s, size_t len)
  {
--- 308,319 ----
  		return (1);
  	return (0);
  }
! 
! /* check for keywords for subprograms
!  * return 0 if comment card, 1 if found
!  * name and put in arg string. invent name for unnamed
!  * block datas and main programs.
!  */
  int
  lname(char *s, size_t len)
  {
***************
*** 416,424 ****
  	} else
  		return (0);
  }
! /* 	if first 6 col. blank, return ptr to col. 7,
! 	if blanks and then tab, return ptr after tab,
! 	else return 0 (labelled statement, comment or continuation */
  char   *
  skiplab(char *p)
  {
--- 419,430 ----
  	} else
  		return (0);
  }
! 
! /*
!  * if first 6 col. blank, return ptr to col. 7,
!  * if blanks and then tab, return ptr after tab,
!  * else return 0 (labelled statement, comment or continuation
!  */
  char   *
  skiplab(char *p)
  {
***************
*** 435,442 ****
  	}
  	return (ptr);
  }
! /* 	return 0 if m doesn't match initial part of s;
! 	otherwise return ptr to next char after m in s */
  char   *
  look(char *s, char *m)
  {
--- 441,451 ----
  	}
  	return (ptr);
  }
! 
! /*
!  * return 0 if m doesn't match initial part of s;
!  * otherwise return ptr to next char after m in s
!  */
  char   *
  look(char *s, char *m)
  {