Subversion Repositories SvarDOS

Compare Revisions

Ignore whitespace Rev 544 → Rev 545

/svarcom/trunk/toys/makefile
1,7 → 1,10
 
CFLAGS = -0 -mt -wx -lr -we -ox
 
all: erlev.com
all: erlev.com upcase.com
 
erlev.com: erlev.c
*wcl $(CFLAGS) erlev.c
 
upcase.com: upcase.c
*wcl $(CFLAGS) $<
/svarcom/trunk/toys/upcase.c
0,0 → 1,16
/*
* reads stdin and writes to stdout after upcasing
*/
 
#include <stdio.h>
 
int main(void) {
int c;
 
while ((c = getchar()) != EOF) {
if ((c >= 'a') && (c <= 'z')) c -= ('a' - 'A');
putchar(c);
}
 
return(0);
}