downfort.c

su 的源代码库

/* Copyright (c) Colorado School of Mines, 2006.*/
/* All rights reserved.                       */


/*********************** self documentation **********************/
/*
 * DOWNFORT - change Fortran programs to lower case, preserving strings
 *
 * Usage:   downfort < infile.f > outfile.f
 *
 */

/*
 * Credits:
 * 	 Brian Sumner  c. 1984
 */
/**************** end self doc ********************************/

#include <stdio.h>
#include <ctype.h>
#include "cwp.h"

int main()
{

	register int c;
	while ((c = getchar()) != EOF) {
		if (c=='\n') putchar(c);
		else if (c=='*' || c=='C') {
			putchar(c);
			while((c = getchar()) != '\n') putchar(c);
			putchar(c);
		} else {
			putchar(c);
			while ((c = getchar()) != '\n') {
				if (c != '\'') putchar(isupper(c) ? tolower(c)
								  : c);
				else {
					putchar(c);
					if ((c = getchar()) != '(') {
						putchar(c);
						while((c = getchar()) != '\'')
							putchar(c);
						putchar(c);
					} else {
						putchar(c);
						while((c = getchar()) != '\'')
				 			putchar(isupper(c)
								   ? tolower(c)
								   : c);
						putchar(c);
					}
				}
			}
			putchar(c);
		}
	}
	fclose(stdout);
	return EXIT_SUCCESS;
}