[apple/xnu.git] / SETUP / decomment / decomment.c

/*
 * Copyright (c) 1999 Apple Computer, Inc. All rights reserved.
 *
 * @APPLE_LICENSE_HEADER_START@
 * 
 * "Portions Copyright (c) 1999 Apple Computer, Inc.  All Rights
 * Reserved.  This file contains Original Code and/or Modifications of
 * Original Code as defined in and that are subject to the Apple Public
 * Source License Version 1.0 (the 'License').  You may not use this file
 * except in compliance with the License.  Please obtain a copy of the
 * License at http://www.apple.com/publicsource and read it before using
 * this file.
 * 
 * The Original Code and all software distributed under the License are
 * distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
 * EXPRESS OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES,
 * INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF MERCHANTABILITY,
 * FITNESS FOR A PARTICULAR PURPOSE OR NON-INFRINGEMENT.  Please see the
 * License for the specific language governing rights and limitations
 * under the License."
 * 
 * @APPLE_LICENSE_HEADER_END@
 */
/*
 * decomment.c
 *
 * Removes all comments and (optionally) whitespace from an input file. 
 * Writes result on stdout.
 */
 
#include <stdio.h>
#include <ctype.h>	/* for isspace */
#include <libc.h>

/*
 * State of input scanner.
 */
typedef enum {
	IS_NORMAL,
	IS_SLASH,		// encountered opening '/'
	IS_IN_COMMENT,		// within / * * / comment
	IS_STAR,		// encountered closing '*'
	IS_IN_END_COMMENT	// within / / comment
} input_state_t;

static void usage(char **argv);

int main(int argc, char **argv)
{
	FILE *fp;
	char bufchar;
	input_state_t input_state = IS_NORMAL;
	int exit_code = 0;
	int remove_whitespace = 0;
	int arg;
	
	if(argc < 2)
		usage(argv);
	for(arg=2; arg<argc; arg++) {
		switch(argv[arg][0]) {
		    case 'r':
		    	remove_whitespace++;
			break;
		    default:
		    	usage(argv);
		}
	}	
	
	fp = fopen(argv[1], "r");
	if(!fp) {
		fprintf(stderr, "Error opening %s\n", argv[1]);
		perror("fopen");
		exit(1);
	}
	for(;;) {
		bufchar = getc_unlocked(fp);
		if (bufchar == EOF)
			break;

		switch(input_state) {
		
		    case IS_NORMAL:
		    	if(bufchar == '/') {
			   	/*
				 * Might be start of a comment.
				 */
				input_state = IS_SLASH;
			}
			else {
				if(!(remove_whitespace && isspace(bufchar))) {
					putchar_unlocked(bufchar);
				}
			}
			break;
			
		    case IS_SLASH:
		    	switch(bufchar) {
			    case '*':
			    	/*
				 * Start of normal comment.
				 */
				input_state = IS_IN_COMMENT;
				break;
				
			    case '/':
			    	/*
				 * Start of 'to-end-of-line' comment.
				 */
				input_state = IS_IN_END_COMMENT;
				break;
				
			    default:
			    	/*
				 * Not the start of comment. Emit the '/'
				 * we skipped last char in case we were
				 * entering a comment this time, then the
				 * current char.
				 */
				putchar_unlocked('/');
				if(!(remove_whitespace && isspace(bufchar))) {
					putchar_unlocked(bufchar);
				}
				input_state = IS_NORMAL;
				break;
			}
			break;
			
		    case IS_IN_COMMENT:
		    	if(bufchar == '*') {
			    	/*
				 * Maybe ending comment...
				 */
			    	input_state = IS_STAR;
			}
		    	break;
	
	
		    case IS_STAR:
		    	switch(bufchar) {
			    case '/':
				/*
				 * End of normal comment.
				 */
				input_state = IS_NORMAL;
				break;
				
			    case '*':
			    	/*
				 * Still could be one char away from end
				 * of comment.
				 */
				break;
				
			    default:
			    	/*
				 * Still inside comment, no end in sight.
				 */
				input_state = IS_IN_COMMENT;
				break;
			}
			break;
			
		    case IS_IN_END_COMMENT:
		    	if(bufchar == '\n') {
				/*
				 * End of comment. Emit the newline if 
				 * appropriate.
				 */
				if(!remove_whitespace) {
					putchar_unlocked(bufchar);
				}
				input_state = IS_NORMAL;
			}
			break;
		
		} /* switch input_state */
	} 	  /* main read loop */
	
	/*
	 * Done.
	 */
	return(exit_code);
}

static void usage(char **argv)
{
	printf("usage: %s infile [r(emove whitespace)]\n", argv[0]);
	exit(1);
}
Commit	Line	Data
316670eb A	1	/*
	2	* Copyright (c) 1999 Apple Computer, Inc. All rights reserved.
	3	*
	4	* @APPLE_LICENSE_HEADER_START@
	5	*
	6	* "Portions Copyright (c) 1999 Apple Computer, Inc. All Rights
	7	* Reserved. This file contains Original Code and/or Modifications of
	8	* Original Code as defined in and that are subject to the Apple Public
	9	* Source License Version 1.0 (the 'License'). You may not use this file
	10	* except in compliance with the License. Please obtain a copy of the
	11	* License at http://www.apple.com/publicsource and read it before using
	12	* this file.
	13	*
	14	* The Original Code and all software distributed under the License are
	15	* distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
	16	* EXPRESS OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES,
	17	* INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF MERCHANTABILITY,
	18	* FITNESS FOR A PARTICULAR PURPOSE OR NON-INFRINGEMENT. Please see the
	19	* License for the specific language governing rights and limitations
	20	* under the License."
	21	*
	22	* @APPLE_LICENSE_HEADER_END@
	23	*/
	24	/*
	25	* decomment.c
	26	*
	27	* Removes all comments and (optionally) whitespace from an input file.
	28	* Writes result on stdout.
	29	*/
	30
	31	#include <stdio.h>
	32	#include <ctype.h> /* for isspace */
	33	#include <libc.h>
	34
	35	/*
	36	* State of input scanner.
	37	*/
	38	typedef enum {
	39	IS_NORMAL,
	40	IS_SLASH, // encountered opening '/'
	41	IS_IN_COMMENT, // within / * * / comment
	42	IS_STAR, // encountered closing '*'
	43	IS_IN_END_COMMENT // within / / comment
	44	} input_state_t;
	45
	46	static void usage(char **argv);
	47
	48	int main(int argc, char **argv)
	49	{
	50	FILE *fp;
	51	char bufchar;
	52	input_state_t input_state = IS_NORMAL;
	53	int exit_code = 0;
	54	int remove_whitespace = 0;
	55	int arg;
	56
	57	if(argc < 2)
	58	usage(argv);
	59	for(arg=2; arg<argc; arg++) {
	60	switch(argv[arg][0]) {
	61	case 'r':
	62	remove_whitespace++;
	63	break;
	64	default:
65	usage(argv);
66	}
67	}
68
69	fp = fopen(argv[1], "r");
70	if(!fp) {
71	fprintf(stderr, "Error opening %s\n", argv[1]);
72	perror("fopen");
73	exit(1);
74	}
75	for(;;) {
76	bufchar = getc_unlocked(fp);
77	if (bufchar == EOF)
78	break;
79
80	switch(input_state) {
81
82	case IS_NORMAL:
83	if(bufchar == '/') {
84	/*
85	* Might be start of a comment.
86	*/
87	input_state = IS_SLASH;
88	}
89	else {
90	if(!(remove_whitespace && isspace(bufchar))) {
91	putchar_unlocked(bufchar);
92	}
93	}
94	break;
95
96	case IS_SLASH:
97	switch(bufchar) {
98	case '*':
99	/*
100	* Start of normal comment.
101	*/
102	input_state = IS_IN_COMMENT;
103	break;
104
105	case '/':
106	/*
107	* Start of 'to-end-of-line' comment.
108	*/
109	input_state = IS_IN_END_COMMENT;
110	break;
111
112	default:
113	/*
114	* Not the start of comment. Emit the '/'
115	* we skipped last char in case we were
116	* entering a comment this time, then the
117	* current char.
118	*/
119	putchar_unlocked('/');
120	if(!(remove_whitespace && isspace(bufchar))) {
121	putchar_unlocked(bufchar);
122	}
123	input_state = IS_NORMAL;
124	break;
125	}
126	break;
127
128	case IS_IN_COMMENT:
129	if(bufchar == '*') {
130	/*
131	* Maybe ending comment...
132	*/
133	input_state = IS_STAR;
134	}
135	break;
136
137
138	case IS_STAR:
139	switch(bufchar) {
140	case '/':
141	/*
142	* End of normal comment.
143	*/
144	input_state = IS_NORMAL;
145	break;
146
147	case '*':
148	/*
149	* Still could be one char away from end
150	* of comment.
151	*/
152	break;
153
154	default:
155	/*
156	* Still inside comment, no end in sight.
157	*/
158	input_state = IS_IN_COMMENT;
159	break;
160	}
161	break;
162
163	case IS_IN_END_COMMENT:
164	if(bufchar == '\n') {
165	/*
166	* End of comment. Emit the newline if
167	* appropriate.
168	*/
169	if(!remove_whitespace) {
170	putchar_unlocked(bufchar);
171	}
172	input_state = IS_NORMAL;
173	}
174	break;
175
176	} /* switch input_state */
177	} /* main read loop */
178
179	/*
180	* Done.
181	*/
182	return(exit_code);
183	}
184
185	static void usage(char **argv)
186	{
187	printf("usage: %s infile [r(emove whitespace)]\n", argv[0]);
188	exit(1);
189	}