cctools-845/as/app.c

116 int ch)
118 	*--scrub_string = ch;
156 	int ch;
159 		ch= *out_string++;
164 		return ch;
168 			do ch=getc_unlocked(fp);
169 			while(ch!=EOF && ch!='\n' && ch!='*');
170 			if(ch=='\n' || ch==EOF)
171 				return ch;
172 			 ch=getc_unlocked(fp);
173 			 if(ch==EOF || ch=='/')
175 			ungetc(ch, fp);
181 		ch=getc_unlocked(fp);
182 		if(ch==EOF || (ch>='0' && ch<='9'))
183 			return ch;
185 			while(ch!=EOF && IS_WHITESPACE(ch))
186 				ch=getc_unlocked(fp);
187 			if(ch=='"') {
188 				ungetc(ch, fp);
198 				while(ch!=EOF && ch!='\n')
199 					ch=getc_unlocked(fp);
209 				return ch;
214 		ch=getc_unlocked(fp);
216 		if(flagseen[(int)'p'] == TRUE && ch=='\'') {
221 		if(ch=='"') {
224 		} else if(ch=='\\') {
226 			return ch;
227 		} else if(ch==EOF) {
239 			return ch;
244 		ch=getc_unlocked(fp);
245 		switch(ch) {
272 			as_warn("Unknown escape '\\%c' in string: Ignored",ch);
279 		return ch;
283 		ch=getc_unlocked(fp);
286 		return ch;
290 		do ch= getc_unlocked(fp);
291 		while(ch!='\n');
296 		return ch;
300 	ch=getc_unlocked(fp);
301 	switch(ch) {
304 		do ch=getc_unlocked(fp);
305 		while(ch!=EOF && IS_WHITESPACE(ch));
306 		if(ch==EOF)
307 			return ch;
308 		if(IS_COMMENT(ch) || (state==0 && IS_LINE_COMMENT(ch)) || ch=='/' || IS_LINE_SEPERATOR(ch)) {
309 			ungetc(ch, fp);
312 		ungetc(ch, fp);
340 		ch=getc_unlocked(fp);
341 		if(ch=='*') {
344 					ch=getc_unlocked(fp);
345 					if(ch=='\n')
347 				} while(ch!=EOF && ch!='*');
348 				ch=getc_unlocked(fp);
349 				if(ch==EOF || ch=='/')
351 				ungetc(ch, fp);
353 			if(ch==EOF)
361 		  if (ch == '/') {
363 		      ch=getc_unlocked(fp);
364 		    } while (ch != EOF && (ch != '\n'));
365 		    if (ch == EOF)
367 		    if ( ch == '\n' )	/* Push NL back so we can complete state */
368 		    	ungetc(ch, fp);
373 				ungetc(ch, fp);
374 				ch='/';
377 			if(ch!=EOF)
378 				ungetc(ch, fp);
398 		ch=getc_unlocked(fp);
399 		if(ch==EOF) {
401 			ch=0;
403 		sprintf(out_buf,"(%d)",ch&0xff);
416 		return ch;
421 			ungetc(ch, fp);
433 		return ch;
438 		if (IS_SYMBOL_COMPONENT (ch))
445 			ungetc(ch, fp);
447 			ch = ' ';
448 			return ch;
464 		if(state==0 && IS_LINE_COMMENT(ch)) {
465 			do ch=getc_unlocked(fp);
466 			while(ch!=EOF && IS_WHITESPACE(ch));
467 			if(ch==EOF) {
471 			if(ch<'0' || ch>'9') {
472 				if(ch!='\n'){
473 					do ch=getc_unlocked(fp);
474 					while(ch!=EOF && ch!='\n');
476 				if(ch==EOF)
484 			ungetc(ch, fp);
490 		} else if(IS_COMMENT(ch)) {
491 			do ch=getc_unlocked(fp);
492 			while(ch!=EOF && ch!='\n');
493 			if(ch==EOF)
503 			return ch;
506 			return ch;
508 			return ch;
513 			return ch;
542 	int ch;
545 		ch= *out_string++;
550 		return ch;
554 			do ch=scrub_from_string();
555 			while(ch!=EOF && ch!='\n' && ch!='*');
556 			if(ch=='\n' || ch==EOF)
557 				return ch;
558 			 ch=scrub_from_string();
559 			 if(ch==EOF || ch=='/')
561 			scrub_to_string(ch);
567 		ch=scrub_from_string();
568 		if(ch==EOF || (ch>='0' && ch<='9'))
569 			return ch;
571 			while(ch!=EOF && IS_WHITESPACE(ch))
572 				ch=scrub_from_string();
573 			if(ch=='"') {
574 				scrub_to_string(ch);
584 				while(ch!=EOF && ch!='\n')
585 					ch=scrub_from_string();
595 				return ch;
600 		ch=scrub_from_string();
602 		if(flagseen[(int)'p'] == TRUE && ch=='\'') {
607 		if(ch=='"') {
610 		} else if(ch=='\\') {
612 			return ch;
613 		} else if(ch==EOF) {
625 			return ch;
630 		ch=scrub_from_string();
631 		switch(ch) {
657 			as_warn("Unknown escape '\\%c' in string: Ignored",ch);
664 		return ch;
668 		ch=scrub_from_string();
671 		return ch;
675 		do ch= scrub_from_string();
676 		while(ch!='\n');
681 		return ch;
685 	ch=scrub_from_string();
686 	switch(ch) {
689 		do ch=scrub_from_string();
690 		while(ch!=EOF && IS_WHITESPACE(ch));
691 		if(ch==EOF)
692 			return ch;
693 		if(IS_COMMENT(ch) || (state==0 && IS_LINE_COMMENT(ch)) || ch=='/' || IS_LINE_SEPERATOR(ch)) {
694 			scrub_to_string(ch);
697 		scrub_to_string(ch);
710 		ch=scrub_from_string();
711 		if(ch=='*') {
714 					ch=scrub_from_string();
715 					if(ch=='\n')
717 				} while(ch!=EOF && ch!='*');
718 				ch=scrub_from_string();
719 				if(ch==EOF || ch=='/')
721 				scrub_to_string(ch);
723 			if(ch==EOF)
731 		  if (ch == '/') {
733 		      ch=scrub_from_string();
734 		    } while (ch != EOF && (ch != '\n'));
735 		    if (ch == EOF)
737 		    if ( ch == '\n' )	/* Push NL back so we can complete state */
738 		    	scrub_to_string(ch);
743 				scrub_to_string(ch);
744 				ch='/';
747 			if(ch!=EOF)
748 				scrub_to_string(ch);
768 		ch=scrub_from_string();
769 		if(ch==EOF) {
771 			ch=0;
773 		sprintf(out_buf,"(%d)",ch&0xff);
786 		return ch;
791 			scrub_to_string(ch);
803 		return ch;
807 		if(state==0 && IS_LINE_COMMENT(ch)) {
808 			do ch=scrub_from_string();
809 			while(ch!=EOF && IS_WHITESPACE(ch));
810 			if(ch==EOF) {
814 			if(ch<'0' || ch>'9') {
815 				if(ch!='\n'){
816 					do ch=scrub_from_string();
817 					while(ch!=EOF && ch!='\n');
819 				if(ch==EOF)
827 			scrub_to_string(ch);
833 		} else if(IS_COMMENT(ch)) {
834 			do ch=scrub_from_string();
835 			while(ch!=EOF && ch!='\n');
836 			if(ch==EOF)
846 			return ch;
849 			return ch;
851 			return ch;
856 			return ch;
912     int ch;
918 	while((ch = do_scrub_next_char(stdin)) != EOF)
919 	    putc(ch, stdout);