newer version of tcc almost working
This commit is contained in:
parent
c42c5d94b8
commit
826d1afd58
442 changed files with 90400 additions and 24506 deletions
52
05/tcc-0.9.27/tests/tests2/40_stdio.c
Normal file
52
05/tcc-0.9.27/tests/tests2/40_stdio.c
Normal file
|
@ -0,0 +1,52 @@
|
|||
#include <stdio.h>
|
||||
|
||||
int main()
|
||||
{
|
||||
FILE *f = fopen("fred.txt", "w");
|
||||
fwrite("hello\nhello\n", 1, 12, f);
|
||||
fclose(f);
|
||||
|
||||
char freddy[7];
|
||||
f = fopen("fred.txt", "r");
|
||||
if (fread(freddy, 1, 6, f) != 6)
|
||||
printf("couldn't read fred.txt\n");
|
||||
|
||||
freddy[6] = '\0';
|
||||
fclose(f);
|
||||
|
||||
printf("%s", freddy);
|
||||
|
||||
int InChar;
|
||||
char ShowChar;
|
||||
f = fopen("fred.txt", "r");
|
||||
while ( (InChar = fgetc(f)) != EOF)
|
||||
{
|
||||
ShowChar = InChar;
|
||||
if (ShowChar < ' ')
|
||||
ShowChar = '.';
|
||||
|
||||
printf("ch: %d '%c'\n", InChar, ShowChar);
|
||||
}
|
||||
fclose(f);
|
||||
|
||||
f = fopen("fred.txt", "r");
|
||||
while ( (InChar = getc(f)) != EOF)
|
||||
{
|
||||
ShowChar = InChar;
|
||||
if (ShowChar < ' ')
|
||||
ShowChar = '.';
|
||||
|
||||
printf("ch: %d '%c'\n", InChar, ShowChar);
|
||||
}
|
||||
fclose(f);
|
||||
|
||||
f = fopen("fred.txt", "r");
|
||||
while (fgets(freddy, sizeof(freddy), f) != NULL)
|
||||
printf("x: %s", freddy);
|
||||
|
||||
fclose(f);
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
/* vim: set expandtab ts=4 sw=3 sts=3 tw=80 :*/
|
Loading…
Add table
Add a link
Reference in a new issue