?? downfort.c
字號:
/* 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;}
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -