Personal tools
You are here: Home Projects C++ Cfront releases Release 3.0.3 source tools ncsl ncsl.c
Document Actions

ncsl.c

by Michael L Powell last modified 2007-01-26 03:24

Click here to get the file

Size 43.3 kB - File type text/plain

File contents

/*

 *      Copyright (c) 1984 AT&T
 *      All Rights Reserved

 *      THIS IS UNPUBLISHED PROPRIETARY SOURCE 
 *      CODE OF AT&T.
 *      The copyright notice above does not 
 *      evidence any actual or intended
 *      publication of such source code.

 */
/********************************************************************/
/*
LEVEL 1.20 OF ncsl.c
LAST CHANGED: 83/12/17 16:55:11
modified by G. Patton 7/4/83 fixed ~ and ~~ for PL1 and C
modified by G. Patton 7/18/83 droped 1st char for pl1 except for ~ and tab.
	Fixed loop in pl1 for ~.
modified by G. Patton 7/27/83 fixed count of blank line after a comment in pl1
	and c. still error if blanks on the blnk line.
modified by G. Patton 12/15/83 to not take $# as cmnt in shell.
modified by G. Patton 12/16/83 to add psb and dbd as langs  
modified by R. Murray 1/14/88 to add C++ comments
modified by M. Shannon 3/18/88 to not eat newline at end of C++ `//' comments.
modified by D. Mancl 12/9/88 to fix the two previous fixes
modified by M. Shannon 2/28/89 to fix the single-quote, double-quote and
	backslash state machine for C/C++.
COMPILE COMMAND: cc -o ncsl  ncsl.c
*/
/* modifications by G. Patton included merging the main and subs in
*  one file and adding the surce for three subs for string manipulation
*  stncmp, strtok, and strpbrk (used by strpbrk). The string 
*  manipulation routines need only be added for IBM. 
*  STRSPN is already in the IBM C library.    */
/********************************************************************/
static char	*sccs = "@(#)ncsl.c	1.20";
#include	<stdio.h>
#define	SETUPFILE(mes,rw) if((fp = fopen("file",rw)) == NULL) \
		{ dum = fprintf(stderr,mes);\
		  exit(-1); }


/* This program accepts from the standard input source code in 
   one of the specified languages, deletes comments and blank 
   lines and prints it to standard output. Most of the time, the
   the program acts as a filter for other programs.
   The program must be given an argument of 
   the language that the input file is coded in so that the
   proper commenting procedure will be invoked.

	ex.  ncsl -lpli

   Legal parameters are:	pli or pl1
				c
				c++
				cobol
				fortran
				leap
				shell
				dtp
				comp
				bal
                                dbd
                                psb
				sal
				snoflake
				spitbol
				jcl
				mark4
				m11
				srt
				lke
				lr
				parms
				errupdt
				makefile
				lex
				yacc
				as
				pdpas

upper case versions of these parameters are accepted.

Several key letters can be used in the calling argument.  They are;
     -l = the language (required)
     -i = the input file name (optinal, if not specified stdin)
     -o = the output for filtered source (optional) default stdout
     -s = the stat file (optional) default stderr
     -c = if set no headings appear over statistics
     -g = if set invalid lang names will process as parms
     -f = filename of input (optional) when get file on pipe set name
*/
int quote;
int squote;
int dollar; /* a flag set if char is a dollar in shell */
int dum; /* a dummy var assigned to values returned from functions */
int duml; /* a dummyn var assigned to long values returned from time */
char *dumc; /* a dummy var to assign returns from strcpy */
int salf = 0; /* this flag set for lang  = sal is checked in getch so
		leading blanks arent pulled from pl1 type code when 
		checking pl1 part of sal and thus operators can be
		distinguished from labels */
int pl1f = 0; /* this flag set for lang pl1 is checked in getcr */
int cplusf = 0; /* This flag set for C++ // comments.*/
int fstf = 0; /* this flag is set to 1 if 1st col of pl1 used in
	cmtchk so dont count blank line if only col 1 */
	/* set in getcr */
char *optarg; /* needed for getopt (3c) added for portability to end */
	/* start of vars for comment counting */
	int cmntf = 0; /* comment flag >0 means comment in line */
	int commentc = 0; /* count of comment lines */
	int codef = 0; /* code flag >0 = prog. statement */
	int codec = 0; /* count of non-comment lines */
	int blankf = 0; /* blank line flag */
	int blankc = 0; /* count of blank lines */
	int bothc = 0; /* count of lines both comm and non-comment */
	int linecnt = 0; /* count of total lines input */
	int linesav = 0; /* save line count for 2 pass files */
	int blanksav = 0; /* save blank count for 2 pass files */
	int comsav = 0; /* save comment count from first pass */
	/* end of vars used for comment counting */

	/* vars used for input parsing */
	int lflag = 0; /* flag to show if language was specififed */
	int iflag = 0; /* flag to show if input file specified */
	int fflag = 0; /* flag to show name of input given as arg */
			/* this is used when input down pipe */
	int oflag = 0; /* flag to show output file specified */
	int sflag = 0; /* flag to so stat file specified */
	int cflag = 1; /* flag on if want headings */
	int eflag = 0; /* flag set if error in args */
	int gflag = 0; /* flag to go ahead and process unknown lang */
	/* end of vars used for input parsing */
/* stuff needed for time and ctime */
struct	tm {	/* see ctime(3) */
	int	tm_sec;
	int	tm_min;
	int	tm_hour;
	int	tm_mday;
	int	tm_mon;
	int	tm_year;
	int	tm_wday;
	int	tm_yday;
	int	tm_isdst;
};
	long tbuf, time();
	struct tm *tim, *gmtime(), *localtime();
/* end of stuff needed for time */
main(argc,argv)
int argc;
char **argv;
{
	char *filein;
	int i,j; /* used to get right bytes of filename */
	char *filen; /* holds name of file when it comes donw pipe */
	char *fileout;
	char *filest;  /* name of file stats to go out to */
	int d;
	char *lang;
	register int c, backslash;
	char QUOTE;

	FILE *fp, *fopen(), *freopen();


	while ((d = getopt (argc,argv,"l:o:s:i:f:cg")) != EOF)
	{
		switch (d)
		{
		case 'l': /* specify langauge name */
			lflag = 1;
			lang = optarg;
			break;
		case 'o':  /* specify output file name */
			oflag = 1;
			fileout = optarg;
			break;
		case 's':  /* specify statistics file */
			sflag = 1;
			filest = optarg;
			break;
		case 'c':       /* heading flag, if 1 get headings */
			cflag = 0;
			break;
		case 'i':    /* get name of input file if specified */
			iflag = 1;
			filein = optarg;
			break;
		case 'f': /* get the name of in file as arg 
			when it comes down pipe */
			fflag = 1;
			filen = optarg;
			break;
		case 'g':
			gflag = 1;
			break;
		case '?':
			eflag = 1;
		}
		if (eflag)
		{
		dum = fprintf (stderr,
   "usage: -llang \[-iinfile -ooutfile -sstatfile -c -g -ffile\]\n");
		exit (-1);
		}
	}
	if (! lflag)
	{
		dum =  fprintf (stderr,
		"language not specified use -l option\n");
		if (gflag == 0) exit(-1); /* if no gflag abort */
		lang = "unk"; /* if no lang spec say unk dos as parms */
	}

	/* set up files */
	if (iflag)
	{
		if (freopen (filein,"r",stdin) == NULL)
		{
			dum =  fprintf(stderr,
			"cannot open file %s for input \n",filein);
			exit(-1);
		}
	}
	else
	{
		if (fflag) filein = filen; /* get file name from arg */
		else filein = "unknown"; 
	}
	if (oflag)
	{
		if (freopen(fileout,"w",stdout) == NULL)
		{
			dum =  fprintf(stderr,
			"cannot open file %s for output \n",fileout);
			exit (-1);
		}
	}
	backslash = 0;
	quote = 0;
	squote = 0;
	dollar = 0; /* set flag to 0 to indicate no dollar char found. */
	QUOTE = '\'';

	if ( (strcmp(lang,"pli") == 0) || (strcmp(lang,"pl1") == 0) 
		|| (strcmp(lang,"PLI") == 0) 
		|| (strcmp(lang,"PL1") == 0) )
	{
		pl1f = 1;  /* set flag checked in getcr to skip first col */
		previnit();
		while ((c= getcr(stdin)) != EOF)
		{
			/* A quote mechanism is turned on and off for
			   quoted strings.  This is to avoid parsing
			   comments imbedded within quotes.
			*/

			if(c == QUOTE) quote = ++quote % 2;
			if ( !fstf || c == '~' )
				{
				dum = putc(c,stdout);
				}
		}
	}

	else if ((strcmp(lang,"c") == 0) ||
		(strcmp(lang,"C") == 0) ||
		(strcmp(lang,"c++") == 0) ||
		(strcmp(lang,"C++") == 0) ||
		(strcmp(lang,"LEAP") == 0) ||
		 (strcmp(lang,"leap") == 0))
	{
		int instring = 0;
		int incharconst = 0;

		if (strcmp(lang,"c++")==0 || strcmp(lang,"C++")==0)
			cplusf=1;
		QUOTE = '\"';
		previnit();
		while ((c= getcr(stdin)) != EOF)
		{
#if 1
			if (instring) {
				if (c == '\\')
					backslash = ++backslash & 1;
				else
				if (c == QUOTE && !backslash)
					instring = 0;
			} else {
				if (incharconst) {
					if (c == '\\')
						backslash = ++backslash & 1;
					else
					if (c == '\'' && !backslash)
						incharconst = 0;
				} else {
					if (c == '\\')
						backslash = ++backslash & 1;
					else
					if (c == '\'' && !backslash)
						incharconst = 1;
					else
					if (c == QUOTE && !backslash)
						instring = 1;
				}
			}
#else
			if ( ((c == '\'') && (!quote)) || (c == '\\' ) )
				backslash = ++backslash%2;
			else 
			{

			/* A quote mechanism is turned on and off here
			   also in conjunction with a backslash 
			   mechanism to avoid parsing special 
			   characters and comments imbedded 
			   within quotes.
			*/
				if(c == QUOTE)
				{
					if(backslash) backslash = 0;
					else quote = ++quote%2;
				}
				else backslash = 0;
			}
#endif
			dum = putc(c,stdout);
		}
	}

	else if ((strcmp(lang,"snoflake") == 0) || 
		(strcmp(lang,"SNOFLAKE") == 0) ||
		(strcmp(lang,"SPITBOL") == 0) ||
		(strcmp(lang,"spitbol") == 0))
	{
		snobolcomment(stdin,stdout);
	}

	else if ((strcmp(lang,"fortran") == 0) ||
		(strcmp (lang,"FORTRAN") == 0) )
	{
		fortrancomment(stdin,stdout);
	}
	else if ((strcmp(lang,"cobol") == 0) ||
		(strcmp(lang,"COBOL") == 0) )
	{
		cobolcomment(stdin,stdout);
	}

	else if ((strcmp(lang,"dtp") == 0)  ||
		(strcmp(lang,"DTP") == 0) )
	{
		/* first remove dtp type comments, then process
		   like cobol
		*/

		SETUPFILE("CANNOT OPEN FILE FOR WRITING","w");
		dtpcomment(stdin,fp);
		dum = fclose(fp);
		linesav = linecnt; /* save orig linecount */
		blanksav = blankc; /* save count of blanks pulled */
		comsav = commentc; /* save number of dtp comments */
		commentc = 0; /* reset comment counter */
		codec = 0; /* reset code counter */
		SETUPFILE("CANNOT OPEN FILE FOR READING","r");
		cobolcomment(fp,stdout);
		dum = fclose(fp);
		linecnt = linesav; /* restore orig linecount */
		blankc = blanksav; /* restore count of blanks */
		commentc = commentc + comsav; /* add comment counts */
	}

	else if ((strcmp(lang,"sal") == 0)  ||
		(strcmp(lang,"SAL") == 0) )
	{
		salf = 1; /* set salflag so getch will not pull lead
			blanks and bal can distinguish labels /*
		/* first remove pl1 type comments,
		then process like bal.
		*/

		SETUPFILE("CANNOT OPEN FILE FOR WRITING","w");
		while ((c=getcr(stdin)) != EOF)
		{
			/* took this out because BAL can have open
			ended quotes which eats up the comments.
			if (c == QUOTE) quote = ++quote%2; */
			dum = putc(c,fp);
		}
		dum = fclose(fp);
		linesav = linecnt; /* save orig linecount */
		blanksav = blankc; /* save count of blanks pulled */
		codec=0; /* reset code counter */
		blankc=0; /* reset blank counter */

		previnit();
		SETUPFILE("CANNOT OPEN FILE FOR READING","r");
		balcomment(fp,stdout);
		linecnt = linesav; /* restore orig linecount */
		blankc = blanksav; /* restore count of blanks */
	}

	else if ((strcmp(lang,"shell") == 0) ||
		(strcmp(lang,"SHELL") == 0 ) )
	{
		while ((c= getc(stdin)) != EOF )
		{
			if ((c == '~') && (codef == 0) &&
			    (cmntf == 0))
			{
				if((c=getc(stdin)) == '~')
				{
				    while (((c=getc(stdin)) != '\n')
					&& (c != EOF));
				    ++cmntf;
				    cmtchk();
				}
				else
				{
					++codef;
					dum = putc ('~',stdout); 
					/* write orig char */
					dum = putc (c,stdout); 
					/* write next char */
				}
			}
			else if ((c == ' ') && (codef == 0) &&
				(cmntf == 0)); /* pull lead blanks */
			else if ((c == '\t') && (codef == 0) &&
			        (cmntf == 0)); /* pull lead tabs */
			else if (c == '\'') /* handle single quote */
			{
				if (backslash || quote) backslash = 0;
				else squote = ++squote%2;
				dum = putc (c,stdout);
			}
			else if (c == '\\')
			{
				dum = putc (c,stdout);
				backslash = ++backslash%2;
			}
			else if (c == '"') 
			{
				if (backslash || squote) backslash = 0;
				else quote = ++quote%2;
				dum = putc (c,stdout);
			}
			else if (c == '\n')
			{
				if (codef > 0) dum = putc (c,stdout);
				cmtchk();
			}
			else if ((c == '#') && (!quote) && 
				(!backslash) && (!squote) && (!dollar)) 
				/* strip line */
			{
				while (((c= getc(stdin)) != EOF) &&
					(c != '\n') );
				++cmntf;
				/* write end of line if not blank */
				if (codef > 0) dum = putc (c,stdout);
				cmtchk();
			}
			else
			{
				dollar = 0; /* reset dollar flag to 0 */
				if ( c == '$') dollar = 1; /* set dollar flag */
				/* dollar flag set so  not a comment */
				backslash=0;
				 ++codef;
				dum = putc (c,stdout);
			}
		}
	}
	else if ((strcmp (lang,"m11") == 0) ||
		(strcmp(lang,"M11") == 0 ) )
	{
		while ((c = getc(stdin)) != EOF)
		{
			if ((c == '~') && (codef == 0) &&
			    (cmntf == 0))
			{
				if((c=getc(stdin)) == '~')
				{
				   while (((c=getc(stdin)) != '\n')
				   && (c != EOF));
				   ++cmntf;
				   cmtchk();
				}
				else
				{
					++codef;
					dum = putc ('~',stdout); 
					/* write orig char */
					dum = putc (c,stdout); 
					/* write next char */
				}
			}
			else if ((c == ' ') && (codef == 0) && 
				(cmntf == 0)); /* pull lead blanks */
			else if ((c == '\t') && (codef == 0) &&
				(cmntf == 0)); /* pull lead tdabs */
			else if (c == '\n') /* check end of line */
			{                /* must do before check ; */
				if (codef > 0) dum = putc(c,stdout); 
				/* non blank */
				cmtchk();
			}
			else if (c == '\;') /* a comment to EOL */
			{
				++cmntf;
				while (((c=getc(stdin)) != EOF) &&
				        (c != '\n') ); /* strip cmt */
				if (codef > 0) dum = putc (c,stdout);
				cmtchk();
			}
			else   /* it must be non comment */
			{
				++codef;
				dum= putc (c,stdout);
			}
		}
	}
	else if ((strcmp(lang,"bal") == 0) ||
		(strcmp(lang,"BAL") == 0) ||
                (strcmp(lang,"psb") == 0) ||
                (strcmp(lang,"PSB") == 0) ||
                (strcmp(lang,"dbd") == 0) ||
                (strcmp(lang,"DBD") == 0) )
	{
		balcomment(stdin,stdout);
	}

	else if ((strcmp(lang,"jcl") == 0)  ||
		(strcmp(lang,"JCL") == 0) )
	{
		jclcomment(stdin,stdout);
	}

	else if ((strcmp(lang,"dirjcl") == 0)  ||
		(strcmp(lang,"DIRJCL") == 0 ) )
	{
		dirjclcomment(stdin,stdout);
	}

	else if ((strcmp(lang,"comp") == 0)  ||
		(strcmp(lang,"COMP") == 0) )
	{
		snobolcomment(stdin,stdout);
	}

	else if ((strcmp(lang,"mark4") == 0) ||
		(strcmp(lang,"MARK4") == 0) )
	{
		mark4comment(stdin,stdout);
	}

	else if ((strcmp(lang,"srt") == 0) ||
		(strcmp(lang,"SRT") == 0 ) )
	{
		snobolcomment(stdin,stdout);
	}

	else if ((strcmp(lang,"lke") == 0) ||
		(strcmp(lang,"LKE") == 0) )
	{
		lkecomment(stdin,stdout);
	}

	else if ((strcmp(lang,"lr") == 0) ||
		(strcmp(lang,"LR") == 0) )
	{
		lrcomment(stdin,stdout);
	}
	else if ((strcmp(lang,"parms") == 0)  ||
		(strcmp(lang,"PARMS") == 0) ||
		(strcmp(lang,"ERRUPDT") == 0) ||
		 (strcmp(lang,"errupdt") == 0))
	{
		nocomment(stdin,stdout);
	}

 	else if ((strcmp (lang,"makefile") == 0) ||
 		(strcmp(lang, "MAKEFILE") == 0))
 	{
 		while((c = getc(stdin)) != EOF)
 		{
 			if( c == '#')
 			/* Strip line -- this is a comment */
 			{
 				while(((c = getc(stdin)) != EOF) &&
 					(c != '\n'));
 				++cmntf;
 				/* Write End-of-line if not blank */
 				if(codef > 0) dum = putc(c, stdout);
 				cmtchk();
 			}
 			else if (c == '\n')
 			{
 				if(codef > 0) dum = putc(c, stdout);
 				cmtchk();
 			}
 			else if ((c == ' ') && (codef == 0) &&
 				(cmntf == 0));	/* Pull lead blanks */
 			else if ((c == '\t') && (codef == 0) &&
 				(cmntf == 0));	/* Pull lead tabs */
 			else
 			{
 				++codef;
 				dum = putc(c ,stdout);
 			}
 		}
 	}

	else if ((strcmp(lang,"lex") == 0) ||
		 (strcmp(lang,"LEX") == 0))
	{
		QUOTE = '\"';
		salf = 1; /* don't strip leading blanks and tabs */
		previnit();
		while ((c= getcr(stdin)) != EOF)
		{
			/* the next line takes care of a double
			quote inside single quotes */
			if (c == '\'' || c == '\\' )
				backslash = ++backslash%2;
			else 
			{

			/* A quote mechanism is turned on and off here
			   also in conjunction with a backslash 
			   mechanism to avoid parsing special 
			   characters and comments imbedded 
			   within quotes.
			*/
				if(c == QUOTE)
				{
					if(backslash) backslash = 0;
					else quote = ++quote%2;
				}
				else backslash = 0;
			}
			dum = putc(c,stdout);
		}
	}

	else if ((strcmp(lang,"yacc") == 0) ||
		 (strcmp(lang,"YACC") == 0))
	{
		QUOTE = '\"';
		previnit();
		while ((c= getcr(stdin)) != EOF)
		{
			/* the next line takes care of a double
			quote inside single quotes */
			if (c == '\'' || c == '\\' )
				backslash = ++backslash%2;
			else 
			{

			/* A quote mechanism is turned on and off here
			   also in conjunction with a backslash 
			   mechanism to avoid parsing special 
			   characters and comments imbedded 
			   within quotes.
			*/
				if(c == QUOTE)
				{
					if(backslash) backslash = 0;
					else quote = ++quote%2;
				}
				else backslash = 0;
			}
			dum = putc(c,stdout);
		}
	}

	else if ((strcmp(lang,"as") == 0) ||
		(strcmp(lang,"AS") == 0 ) )
	{
		while ((c= getc(stdin)) != EOF )
		{
			if ((c == '~') && (codef == 0) &&
			    (cmntf == 0))
			{
				if((c=getc(stdin)) == '~')
				{
				    while (((c=getc(stdin)) != '\n')
					&& (c != EOF));
				    ++cmntf;
				    cmtchk();
				}
				else
				{
					++codef;
					dum = putc ('~',stdout); 
					/* write orig char */
					dum = putc (c,stdout); 
					/* write next char */
				}
			}
			else if (c == '\'') /* handle single quote */
			{
				if (backslash || quote) backslash = 0;
				else squote = ++squote%2;
				dum = putc (c,stdout);
			}
			else if (c == '\\')
			{
				dum = putc (c,stdout);
				backslash = ++backslash%2;
			}
			else if (c == '"') 
			{
				if (backslash || squote) backslash = 0;
				else quote = ++quote%2;
				dum = putc (c,stdout);
			}
			else if (c == '\n')
			{
				if (codef > 0) dum = putc (c,stdout);
				cmtchk();
			}
			else if ((c == '#') && (!quote) && 
				(!backslash) && (!squote) && (!dollar)) 
				/* strip line */
			{
				while (((c= getc(stdin)) != EOF) &&
					(c != '\n') );
				++cmntf;
				/* write end of line if not blank */
				if (codef > 0) dum = putc (c,stdout);
				cmtchk();
			}
			else
			{
				dollar = 0; /* reset dollar flag to 0 */
				if ( c == '$') dollar = 1; /* set dollar flag */
				/* dollar flag set so  not a comment */
				backslash=0;
				 ++codef;
				dum = putc (c,stdout);
			}
		}
	}
 		
	else if ((strcmp(lang,"pdpas") == 0) ||
		(strcmp(lang,"PDPAS") == 0 ) )
	{
		while ((c= getc(stdin)) != EOF )
		{
			if ((c == '~') && (codef == 0) &&
			    (cmntf == 0))
			{
				if((c=getc(stdin)) == '~')
				{
				    while (((c=getc(stdin)) != '\n')
					&& (c != EOF));
				    ++cmntf;
				    cmtchk();
				}
				else
				{
					++codef;
					dum = putc ('~',stdout); 
					/* write orig char */
					dum = putc (c,stdout); 
					/* write next char */
				}
			}
			else if (c == '\'') /* handle single quote */
			{
				if (backslash || quote) backslash = 0;
				else squote = ++squote%2;
				dum = putc (c,stdout);
			}
			else if (c == '\\')
			{
				dum = putc (c,stdout);
				backslash = ++backslash%2;
			}
			else if (c == '"') 
			{
				if (backslash || squote) backslash = 0;
				else quote = ++quote%2;
				dum = putc (c,stdout);
			}
			else if (c == '\n')
			{
				if (codef > 0) dum = putc (c,stdout);
				cmtchk();
			}
			else if ((c == '/') && (!quote) && 
				(!backslash) && (!squote) && (!dollar)) 
				/* strip line */
			{
				while (((c= getc(stdin)) != EOF) &&
					(c != '\n') );
				++cmntf;
				/* write end of line if not blank */
				if (codef > 0) dum = putc (c,stdout);
				cmtchk();
			}
			else
			{
				dollar = 0; /* reset dollar flag to 0 */
				if ( c == '$') dollar = 1; /* set dollar flag */
				/* dollar flag set so  not a comment */
				backslash=0;
				 ++codef;
				dum = putc (c,stdout);
			}
		}
	}

	else 
	{
	   dum = fprintf(stderr,
	   "LANGUAGE PARAMETER NOT A DEFINED LANGUAGE - %s\n", lang);
	   if (gflag == 0) exit(-1); /* abort if unknown lang */
	   nocomment(stdin,stdout); /* otherwise copy */
	}
	if (sflag)
	{
		if(freopen(filest,"a",stderr) == NULL)
		{
			dum = fprintf(stderr,
			"cannot open file %s for statistics\n",filest);
		}
	}
	if (cflag)
	{
		dum =  fprintf (stderr,
 "input file     lang     date        lines   cmnt  non-cmnt  both  blanks\n");
	}
	duml =  time(&tbuf);
	tim = localtime(&tbuf);
	++tim->tm_mon; /* increase month by since starts at 0 */
	/* the next lines pick up rightmost 14 bytes of filename
	for filenames over 14 characters */
	if(strlen(filein) > 14)
		for (i=0,j=(strlen(filein)-14); i<14; i++,j++)
			filein[i] = filein[j];
	dum =  fprintf (stderr,
"%-14.14s %-9s%02.2d%02.2d%02.2d-%02.2d%02.2d  %-8d%-6d%-10d%-6d%-8d\n",
filein,lang,tim->tm_year,tim->tm_mon,tim->tm_mday,tim->tm_hour,
tim->tm_min,linecnt, commentc,codec,bothc,blankc);
/* note 02.2 in obove pads left with zeros */
	return(0);
}
/***************************************************************
                LEVEL 1.6 OF ncslsub.c
 		merged by g. patton 10/22/82
**********************************************************************/

/* for 80 column input + 1 for newline character */
#define MAXLINE 256
#define BLANKOUT "                                                 \
                                "
#define BUFSIZE 512  /*physical blksize of many peripherial devices */

#define GETALINE	(dum = getaline(fp1))

#define PUTALINE(ptr)   dum = fprintf(fp2,"%s",ptr)

#define WHITESPACE(which)  ((which == ' ') || (which == '\t') || \
		(which == '\n') || (which == '\0'))

#define TERMTOK(term)  instrflg = (*(tok + strlen(tok) - 1) == term) ? 1 : 0

/*  The C and PL1 routines read a character at a time.
    The rest of the language routines read a line of code 
    (up to and including the newline character).
    Blank lines and comments are ignored and lines of 
    instructions are printed.

    _________________________________________________________________________
    |Language			Commenting Convention			     |
    |________________________	_____________________________________________|
    |									     |
    |PL1 & c & LEAP		anything within slash star, star slash       |
    |									     |
    | SHELL                     anything from a # character to end of line   |
    |                           if # is escaped or quoted its not comment    |
    |                                                                        |
    |SNOFLAKE, SPITBOL & COMP	an * in column 1.			     |
    |									     |
    |FORTRAN			a C in column 1				     |
    |									     |
    |COBOL                      an * or / in column 7 and anything between   |
    |				the program-id and environment section is    |
    |				considered a comment.			     |
    |				Note sentences and note paragraphs are also  |
    |				removed as comments.			     |
    |									     |
    |DTP			a # followed by a blank in columns 7         |
    |				and 8 and any cobol like comments.	     |
    |									     |
    |BAL			an * in column 1 or a .* in columns 1 and 2. |
    |				any text after operand to end of line.       |
    |									     |
    |SAL			any BAL or PL1 type comment.		     |
    |									     |
    |JCL                        a //* in colums 1-3. Blank lines are valid.  |
    |									     |
    |MARK4			an  aa in columns 9 and 10.		     |
    |									     |
    |M11		        any chars after a ; to end of line           |
    |									     |
    |SRT (SYNCSORT)		an  * in column 1. 	      		     |
    |									     |
    |LKE (linkage editor)	comments are anything that follows an 	     |
    |				operator and operand field.  A comment is    |
    |				continued, if there is a non-blank in col 72 |
    |			        and the last character of the operand is NOT |
    |				a comma.				     |
    |									     |
    |LR (parser generator)      comments may start in any column and must    |
    |                           be preceded by &C                            |
    |                                                                        |
    |DIRJCL (DIR/ECT JCL-	comments are an * in column 1 or the 	     |
    |kept under SCCS before	macros .LS and .BR which expand into         |
    |being expanded by		commentary lines.  .LS is the last line      |
    |preprocessors)		comment and .BR expands to a bar line of     |
    |				comprised of *s.			     |
    |									     |
    |PARMS & ERRUPDT		no comments but must process anyway.	     |
    |________________________________________________________________________|

*/

static int Prev; /* place to hold previous character */
int instrflg;
char line[MAXLINE];
char *strcpy();
char *strtok();
char *strchr();
char *fgets();

/* routine gets the next line of input up to and including the newline
that does not start with a ~~ (gath comment) or a newline(saves time here).
    Since fgets does not clear the buffer, it is cleared before an input
    operation.
*/
getaline(fp1)
register FILE *fp1;
{
	char *ret;
	dumc = 	strcpy(line,BLANKOUT);
	while( ((ret=fgets(line,MAXLINE,fp1)) != NULL) &&
	((stncmp(line,"~~",2) == 0) ||
	(line[strspn(line," \t")] == '\n')) )
		/* the last compare handles lines with only blanks */
		{
		/* check if line has only spaces or tabs */
		if (line[strspn(line," \t")] == '\n') {
			if (!salf)  /* skip count comment for blk line */
			{
				if (blankf > 0) ++blankc;
				else {
					blankf = 1;
					++blankc;
					++commentc;
				}
			}
		}
		else if (line[0] == '~') {
			++commentc;
		}
		++linecnt; /* count the line */
		dumc = 	strcpy(line,BLANKOUT);
		}
	blankf = 0;
	if (ret != NULL) ++linecnt; /* count the non blank lines */
	else line[0] = '\0'; /* null out line as flag */
	return(ret != NULL);
}


/** routine to get a line but leave blank lines
    used for JCL
*/
getbline(fp1)
register FILE *fp1;
{
	char *ret;
	dumc =  strcpy(line,BLANKOUT);
	while ( ((ret=fgets(line,MAXLINE,fp1)) != NULL) &&
		(stncmp (line,"~~",2) == 0) ) {
			++commentc;
			++linecnt;
	}
	if (line[strspn(line," \t")] == '\n') ++ blankc;
	/* above counts blank lines or car. ret, spaces, tabs */
	if (ret != NULL) ++linecnt;
	else line[0] = '\0'; /* null out line as flag */
	return(ret != NULL);
}
previnit()
{
	Prev = '\n';
}


getcr(f)
register FILE *f;
{
	extern int quote;
	register int c, prev;

	prev = Prev;
	while ((c = getch(f)) == '/')
	{
		/* make sure the comment is not imbedded in quotes */

		if ((c = getc(f)) == '*' && !quote){
			cmntf = 1; /* set comment flag */
			getcmt(f);
			Prev = prev;
		} else if (c == '/' && cplusf && !quote) {
			cmntf = 1;
			getcmt_cplus(f);
			Prev = prev;
		}
		else {
			dum = ungetc(c, f);
			c = '/';
			break;
		}
	}
	if (c != '\n' && c != EOF && c != ' ' && c != '\t') 
		{
		if ( !( (Prev == '\n') && (pl1f) ) )
			{
			codef = 1; /* set code flag if chars after comment */
			fstf = 0; /* set flag so cmtchk counts */
			}
		else
			fstf = 1; /* set flag so if next char eol no blank
				count in cmtchk */
		}
	Prev = c; /* needed so can recognize ~~ after comments */
	return(c);
}


/**
getcmt() - returns after seeing the end of comment string
(a * followed by a /) in the input.
It discards comments that its caller has detected.
*/

getcmt(f)
register FILE *f;
{
	register int c;
	/* comment flag set in caller routine */

	c = ' ';
	do {
		while (c != '*' && c != EOF) {
			if (c == '\n' )  {
				cmtchk();
				c = getc(f); /* handles blanks 
						in comment */
			}
			else {
				c = getc(f);
				cmntf = 1; /* reset comment flag */
			}
		}
		cmntf = 1; /* reset comment flag if * in first col */
	} while ((c = getc(f)) != '/' && c != EOF);
}

/**
getcmt_cplus() - similar to getcmt(), except it is for C++ style
comments that begin with //
*/

getcmt_cplus(f)
register FILE *f;
{
	register int c;
	
	while ( (c = getc(f)) != '\n' && c != EOF)
	{
		/* do nothing */
	}
	(void) ungetc(c, f);
}

/**
getch(f) - gets a character
discards blank lines
*/

getch(f)
register FILE *f;
{
	register int c;

	if (Prev != '\n') {
		c = getc(f);
		if (c == '\n' )  cmtchk();
		Prev = c;
	}

	else
		/* code to handle first characters */
	{
		c = getc (f);
		while (( c == '~' || c == '\n' ||
			( ( (c == ' ' ) || ( c == '\t') ) && ( ! salf)) ) &&
			Prev == '\n')
		{
			if (c == '~')
			{
				if((c = getc(f)) == '~')
					{
					c = chkgath(f);
					}
				else
					{
					dum = ungetc(c,f);
					c = '~';
					Prev = c;
					break;
					}
			}
			while (((c == ' ' || c == '\t') && ( ! salf )) ||
				(c == '\n')) 
				{
				if (c == '\n' ) cmtchk();
				Prev = c;
				c = getc(f);
				}
		}
	}
	return(c);
}

chkgath(f)
register FILE *f;
{
	register int c;
	while (( c = getc(f) ) != '\n');
	Prev = c; /* set Prev to eol when appropriate */
	c = getc(f);
	++commentc; /* cnt gath comm as a line of comm */
	++linecnt;
	return(c);
}
snobolcomment(fp1,fp2)
register FILE *fp1, *fp2;
{
	int whitecnt;

	/* reads a line of code (up to and including the newline) */
	while GETALINE
	{
		if (line[0] != '*')
		{
			++codec;
			whitecnt = strspn(line," \t\n");
			PUTALINE(line+whitecnt);
		}
		else
			++commentc; /* line is a comment */
	}
}

fortrancomment(fp1,fp2)
register FILE *fp1, *fp2;
{
	int whitecnt;

	/* reads a line of code (up to and including the newline) */
	while GETALINE
	{
		if ((line[0] != 'c') && (line[0] != 'C'))
		{
			++codec; /* line is code */
			whitecnt = strspn(line," \t\n");
			PUTALINE(line+whitecnt);
		}
		else
			++commentc; /* line is a comment */
	}
}
cobolcomment(fp1,fp2)
register FILE *fp1, *fp2;
{
    int n;
    line[0] = ' '; /* put in initial blank since prev could be blank */
    while (line[0] != '\0')
    {

	while ( GETALINE  && (stncmp(&line[7],"program-id",10) != 0))
	{
		/* get rid of beginning comments */
		if((line[6] != '*') && (line[6] != '/')) {
			++codec;
			PUTALINE(line + (strspn(line," \t\n")));
		}
		else
			++commentc; /* line is a comment */
	}

	/* print program id line */
	if (line[0] == '\0') break; /* we have come to end of file */
	++codec;
	PUTALINE(line + (strspn(line," \t\n")));

	/* ignore commentary in identification divison */
	while ( GETALINE  && 
      ( (stncmp(line+7,"environment ",12) != 0)  &&
      (stncmp(line+19 + (strspn(line+19," \t")),"division",8) != 0) ) )
		++commentc;

	/* print environment division line */
	if (line[0] == '\0') break; /* we have come to end of file */
	++codec;
	PUTALINE(line + (strspn(line," \t\n")));

	while ( GETALINE  && 
      ( (stncmp(&line[7],"procedure ",10) != 0) &&
      (stncmp(line+17 + (strspn(line+17," \t")),"division",8) != 0) ) )
	{
		/* get rid of environment division comments */
		if((line[6] != '*') && (line[6] != '/')) {
			++codec;
			PUTALINE(line + (strspn(line," \t\n")));
		}
		else
			++commentc;
	}

	/* print procedure division line */
	if (line[0] == '\0') break; /* we have come to end of file */
	++codec;
	PUTALINE(line + (strspn(line," \t\n")));

	/* now I must look for regular type comments and procedural
	   note comments.
	*/
	while GETALINE
	{
		if ((line[6] == '*') || (line[6] == '/'))  {
			++commentc;
			continue;
		}

		/* check if label line and if there is a label
		   check if note is on same line.
		   */
		if ( ! WHITESPACE(line[7]) )
			labntck(fp1,fp2);
		else 
		{
			n = strspn(line," \t\n");
			if ((stncmp(line+n,"note",4) != 0) &&
			   (stncmp(line+n,"NOTE",4) != 0))
			{	
				/* not a note , turn label off */
				instrflg = 0;
				++codec;
				PUTALINE(line + n);
			}
			else
			{
				/* is a note, check if paragraph note
				   or line note */
				if(instrflg)
				{
					instrflg = 0;
					++commentc;
					parnote(fp1,fp2);
				}
				/* removes the line note.
				   returns to get the next
				   line after the note.
				   */
				else linenote(fp1);
			}
		}
	}

    }
}

/** subroutine to ignore commentary lines in a cobol note paragraph. 
	this is any lines that exist before the next label.
	*/
parnote(fp1,fp2)
register FILE *fp1, *fp2;
{
	while ( GETALINE  && ( WHITESPACE(line[7]) ) )
		++commentc; /* get rid of comments in while loop */
		/* check if notes are recursively defined one
		after the other
		*/

	/* if end of file don't go on and skip labntck */
	if (line[0] != '\0') labntck(fp1,fp2);
}

/* subroutine to check if line is a label and check if the note
	is in the labeled paragraph.
	*/
labntck(fp1,fp2)
register FILE *fp1,*fp2;
{
	char *tok;
	char holdline[MAXLINE];
	dumc =  strcpy(holdline,line);
	tok = strtok(&holdline[7]," \t\n");
	TERMTOK('.');
	tok = strtok((char *)0," \t\n");
	if (tok != NULL)
	{
		if ((stncmp(tok,"note",4) == 0) ||
		   (stncmp(tok,"NOTE",4) == 0))
		{
			instrflg = 0;
			++commentc; /* cnt note before get next line */
			parnote(fp1,fp2);
		}
		else

		/* label is not for note ; turn label off */
		{
			instrflg = 0;
			++codec;
			PUTALINE(line + (strspn(line," \t\n")));
		}
	}
	else
		/* print label , label might still be for 
		   a note , so it stays set
		   */
	{
		++codec;
		PUTALINE(line + (strspn(line," \t\n")));
	}

}

/** subroutine for ignoring note lines from cobol programs */
linenote(fp1)
register FILE *fp1;
{
	/* delete everything up to and including the note
	   terminator ( a period ). 
	   possibly scanning across several input lines */

	while ((strchr(line,'.') == NULL)  &&
		(line[0] != '\0') ){
		++commentc; /* count note lines as comments */
		GETALINE;
	}
	/* get out if eof or count line with period */
	if (line[0] != '\0') ++commentc;

}

dtpcomment(fp1,fp2)
register FILE *fp1, *fp2;
{

	while GETALINE
	{
		if((stncmp(&line[6],"# ",2)  != 0)  && 
		   (stncmp(&line[6],"#\t",2) != 0)  && 
		   (stncmp(&line[6],"#\n",2) != 0))
		{
			PUTALINE(line);
			++codec;
		}
		else
			++commentc;
	dumc = 	strcpy(line,BLANKOUT);
	}
}

jclcomment(fp1,fp2)
register FILE *fp1, *fp2;
{

	while  (getbline(fp1))
	{

		/*
		use getbline since jcl data may have valid leading
		whitespace or blank lines in input data
		*/

		if (stncmp(line,"//*",3) != 0)
		{
			++codec;
			PUTALINE(line);
		}
		else
			++commentc; /* line is a comment */
	}
}

dirjclcomment(fp1,fp2)
register FILE *fp1, *fp2;
{

	while  GETALINE
	{

		/*
		    jcl will not have leading whitespace nor
		    blank lines, so no checking is done.
		*/

		if ((stncmp(line,".BR",3) != 0)  &&
		    (stncmp(line,".LS",3) != 0)  &&
		    (stncmp(line,"*",1) != 0))
		{
			++codec; /* line is not comment */
			PUTALINE(line + (strspn(line," \t\n")));
		}
		else
			++commentc;
	}
}

mark4comment(fp1,fp2)
register FILE *fp1, *fp2;
{

	while GETALINE
	{
		if((stncmp(&line[8],"aa",2) != 0) &&
		   (stncmp(&line[8],"AA",2) != 0))
		{
			++codec; /* line is a comment */
			PUTALINE(line + (strspn(line," \t\n")));
		}
		else
			++commentc;
	}
}

balcomment(fp1,fp2)
register FILE *fp1, *fp2;
{
	char *p; /* pointer used for parsing string */
	char *strpbrk();
	int strspn();

	while GETALINE
	{
		p = line;
		if ((line[0] == '*') || (stncmp(line,".*",2) == 0))
			++commentc; /* line is a comment */
		else if ( ! (WHITESPACE(line[0]))) {
			++codec;
			while (1)
			{
			p = strpbrk(p," \t\n"); /* skip lable */
			if (*p == '\n') break; /* only a lable */
			p = p + strspn(p," \t"); /* skip blanks */
			p = strpbrk(p," \t\n"); /* strip operator */
			p = p + strspn(p," \t"); /* strip blanks */
			p = strpbrk(p," \t\n"); /* strip operand */
			if (*p == '\n') break; /* no comments */
			p = p + strspn(p," \t"); /* skip blanks */
			if (*p == '\n') break;
			++commentc;
			++bothc;
			dumc =  strcpy(p,"\n"); /* force end of 
						line here */
			break;
			}
			PUTALINE(line + (strspn(line," \t\n")));
		}
		else {
			while (1)
			{
			p = p + strspn(p," \t"); /* strip blanks */
			if(*p == '\n')
			{
				++commentc;
				++blankc;
				break;
			}
			p = strpbrk(p," \t\n"); /* skip operator */
			++codec;
			if(*p == '\n') break; /* only operator */
			p = p + strspn(p," \t"); /* skip blanks */
			p = strpbrk(p," \t\n"); /* skip operand */
			if (*p == '\n') break; /* no comments */
			p = p + strspn(p," \t"); /* skip blanks */
			if (*p == '\n') break;
			++commentc;
			++bothc;
			dumc =  strcpy(p,"\n"); /* force end of 
						line here */
			break;
			}
			PUTALINE(line + (strspn(line," \t\n")));
		}
	}
}

lkecomment(fp1,fp2)
register FILE *fp1, *fp2;
{
	char *tok;

	/* format of an instruction is:
		operator - col 2
		operand  - preceded by one or more blanks
		remarks  - optional, preceded by one or more blanks.

	   to continue an instruction, a non blank must be coded in 
	   col. 72 AND a comma must be the last character in the operand.
	   to continue a comment, a non blank must be coded in col. 72.
	   All continued statements or comments start in column 16.
	   There is no limit on continuation cards.

	   So a comment will be deleted, if column 72 is non-blank and
	   the last character of the operand is NOT a comma.
	*/


	while GETALINE
	{
		++codec; /* count a non comment */
		PUTALINE(line + (strspn(line," \t\n")));

		/* determine if instr or comment continue
		retrieve the operand token and check out
		the last character
		*/
		tok = strtok(&line[1]," \t\n");
		tok = strtok((char *)0," \t\n");
		if (strlen (tok) > 0 ) TERMTOK(',');
		/* does the line also have a continuation */
		if ( ! WHITESPACE(line[71]) )
		{
			line[71] = '\n'; /* reset eol */
			tok = strtok ((char *) 0, " \t\n");
			if (tok != NULL) {
				++commentc; /* comment on line too */
				++bothc; /* therefore both on line */
			}
			getcontin(fp1,fp2);
		}
		else {
			tok = strtok ((char *)0," \t\n");
			if (tok != NULL){
				++commentc; /* comment on line too */
				++bothc; /* therefore a both line */
			}
		}
	}
}

/** this routine retrieves the continuation lines of an instruction
   or comment.  Instructions are printed and comments thrown out
*/
getcontin(fp1,fp2)
register FILE *fp1, *fp2;
{
	char *tok;

	while ( GETALINE  && !(WHITESPACE(line[71])))
	{
		if (instrflg)
		{
			++codec; /* it was code that was continued */
			PUTALINE(line + (strspn(line," \t\n")));
			tok = strtok(&line[15]," \t\n");
			TERMTOK(',');
			line[71] = '\n'; /* reset end of line */
			tok = strtok ((char *) 0," \t\n");
			if (tok != NULL) {
				++commentc; /* comment on end */
				++bothc; /* code and comment on line */
			}
		}
		else
			++commentc; 
	}
	if  ( instrflg )
	{
		++codec; /* this is a line of code at least */
		PUTALINE(line + (strspn(line," \t\n")));
		tok = strtok(&line[15]," \t\n");
		TERMTOK(',');
		tok = strtok ((char*) 0," \t\n"); /* see what else 
						  on line */
		if (tok != NULL) {
			++commentc; /* comment on last card */
			++bothc; /* also code on last card */
		}
	}
	else
		++commentc; /* only comment on last card */
}

lrcomment (fp1,fp2)
register FILE *fp1, *fp2;
{
	while GETALINE
	{
		if(stncmp(line + strspn(line," \t\n"),"&C",2) != 0)
		{
			++codec;
			PUTALINE(line + (strspn(line," \t\n")));
		}
		else ++commentc;
	}
}
nocomment(fp1,fp2)
register FILE *fp1, *fp2;
{

	/* copy input to output removing leading whitespace*/
	while (getbline(fp1))
	{
		++codec; /* count code lines */
		PUTALINE(line + (strspn(line," \t")));
	}
}
cmtchk()
{
	/*
	this routine is used to count comments and language statements
	lines with comments and non comments are counted as bothc.
	The variables used here cmntf, commentc, codef, fstf, codec
	blankf, blankc and linecnt are defined globally in the main
	routine.  fstf is set in getcr.
	This routine is entered on end of line or EOF
	*/

	if (cmntf > 0 || (fstf && !(Prev == '\n') ) ) {
		++commentc;
		blankf = 0;
	}
	if (codef > 0) {
		++codec;
		blankf = 0;
	}
	if (cmntf == 0 && codef == 0 &&
	   ( !fstf || (fstf && Prev == '\n') ) ) {
		if (blankf > 0) ++blankc;
		else {
			blankf = 1;
			++blankc;
			++commentc; /* one blank counted as comment */
		}
	}
	if (cmntf > 0 && codef > 0) ++bothc;
	cmntf = 0;
	codef = 0;
	++linecnt;
}
/*	@(#)getopt.c	1.2	*/

#define ERR(s, c)	if(opterr){\
	dum = fputs(argv[0], stderr);\
	dum = fputs(s, stderr);\
	dum = putc(c, stderr);\
	dum = putc('\n', stderr);}

extern int strcmp();
extern char *strchr();

int	opterr = 1;
int	optind = 1;
int	optopt;

#ifndef __alpha
int
getopt(argc, argv, opts)
int	argc;
char	**argv, *opts;
{
	static int sp = 1;
	register int c;
	register char *cp;

	if(sp == 1)
		if(optind >= argc ||
		   argv[optind][0] != '-' || argv[optind][1] == '\0')
			return(EOF);
		else if(strcmp(argv[optind], "--") == NULL) {
			optind++;
			return(EOF);
		}
	optopt = c = argv[optind][sp];
	if(c == ':' || (cp=strchr(opts, c)) == NULL) {
		ERR(": illegal option -- ", c);
		if(argv[optind][++sp] == '\0') {
			optind++;
			sp = 1;
		}
		return('?');
	}
	if(*++cp == ':') {
		if(argv[optind][sp+1] != '\0')
			optarg = &argv[optind++][sp+1];
		else if(++optind >= argc) {
			ERR(": option requires an argument -- ", c);
			sp = 1;
			return('?');
		} else
			optarg = argv[optind++];
		sp = 1;
	} else {
		if(argv[optind][++sp] == '\0') {
			sp = 1;
			optind++;
		}
		optarg = NULL;
	}
	return(c);
}
#endif

/*
 * strncmp 
 * redefined as stncmp because hp can have only 5 char unique names
 * and strnc would be a dupelicate with other string functions.
 * Compare strings (at most n bytes)
 *	returns: s1>s2; >0  s1==s2; 0  s1<s2; <0
 */

int
stncmp(s1, s2, n)
register char *s1, *s2;
register n;
{
	if(s1 == s2)
		return(0);
	while(--n >= 0 && *s1 == *s2++)
		if(*s1++ == '\0')
			return(0);
	return((n < 0)? 0: (*s1 - *--s2));
}
#if IBM370
/*	@(#)strtok.c	1.2	*/

/*
 * strtok 
 * uses strpbrk and strspn to break string into tokens on
 * sequentially subsequent calls.  returns NULL when no
 * non-separator characters remain.
 * `subsequent' calls are calls with first argument NULL.
 */

#define	GNULL	(char*)0


int strspn();
char *strpbrk();
char *
strtok(string, sepset)
char	*string, *sepset;
{
	register char	*p, *q, *r;
	static char	*savept;

	/*first or subsequent call*/
	p = (string == GNULL)? savept: string;

	if(p == 0)		/* return if no tokens remaining */
		return(GNULL);

	q = p + strspn(p, sepset);	/* skip leading separators */

	if(*q == '\0')		/* return if no tokens remaining */
		return(GNULL);

	if((r = strpbrk(q, sepset)) == GNULL)	/* move past token */
		savept = 0;	/* indicate this is last token */
	else {
		*r = '\0';
		savept = ++r;
	}
	return(q);
}
/*
 * strpbrk 
 *  Return ptr to first occurance of any character from `brkset'
 *  in the character string `string'; NULL if none exists. 
 */
char *
strpbrk(string, brkset)
register char *string, *brkset;
{
		register char *p;
	
		if(!string || !brkset)
			return(0);
		do {
		    for(p=brkset; *p != '\0' && *p != *string; ++p) ;
		    if(*p != '\0')
			return(string);
		}
		while(*string++);
		return(0);
}
#else
/* for non IBM the string routines should not be needed */
#endif

/*  Routine to give the time needed by ncsl and
    ncsldiff.     Execution of localtime(t) will 
    populate the tm structure.  
*/
#define	dysize(A) (((A)%4)? 365: 366)
/*	@(#)time.h	1.2	*/

long	timezone = 5*60*60; /* set for eastern standard time */



static int dmsize[12]={31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31};


/*
struct tm *
localtime(timl)
long	*timl;
{
	long copyt;
	copyt = *timl - timezone;
	tim = gmtime(&copyt);
}
*/
struct tm *
gmtime(timl)
long	*timl;
{
	register int d0, d1;
	long hms, day;
	static struct tm xtime;

	/*
	 * break initial number into days
	 */
	hms = *timl % 86400L;
	day = *timl / 86400L;
	if(hms < 0) {
		hms += 86400L;
		day -= 1;
	}
	/*
	 * generate hours:minutes:seconds
	 */
	xtime.tm_sec = hms % 60;
	d1 = hms / 60;
	xtime.tm_min = d1 % 60;
	d1 /= 60;
	xtime.tm_hour = d1;

	/*
	 * day is the day number.
	 * generate day of the week.
	 * The addend is 4 mod 7 (1/1/1970 was Thursday)
	 */

	xtime.tm_wday = (day + 7340036L) % 7;

	/*
	 * year number
	 */
	if(day >= 0)
		for(d1=70; day >= dysize(d1); d1++)
			day -= dysize(d1);
	else
		for(d1=70; day < 0; d1--)
			day += dysize(d1-1);
	xtime.tm_year = d1;
	xtime.tm_yday = d0 = day;

	/*
	 * generate month
	 */

	if(dysize(d1) == 366)
		dmsize[1] = 29;
	for(d1=0; d0 >= dmsize[d1]; d1++)
		d0 -= dmsize[d1];
	dmsize[1] = 28;
	xtime.tm_mday = d0+1;
	xtime.tm_mon = d1;
	xtime.tm_isdst = 0;
	return(&xtime);
}

« November 2024 »
Su Mo Tu We Th Fr Sa
1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
 

Powered by Plone CMS, the Open Source Content Management System

This site conforms to the following standards: