Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 9867 → Rev 9868

/programs/develop/ktcc/trunk/libc.obj/source/stdio/fscanf.c
1,32 → 1,15
#include <limits.h>
#include <stdio.h>
#include <stdarg.h>
#include <stdlib.h>
 
int virtual_getc_file(void *sp, const void *obj)
// get next chat from file obj, save point is ptr to string char ptr
int vfscanf(FILE* stream, const char* format, va_list arg)
{
FILE *f = (FILE *)obj;
int ch = fgetc(f);
 
//printf("getc '%c'[%d];", ch, ch);
 
return ch;
static char scanf_buffer[STDIO_MAX_MEM];
fgets(scanf_buffer, STDIO_MAX_MEM-1, stream);
return vsscanf(scanf_buffer, format, arg);
}
 
void virtual_ungetc_file(void *sp, int c, const void *obj)
// if can, one step back savepoint in s
{
FILE *f = (FILE *)obj;
 
if (f) ungetc(c, f);
}
 
 
int vfscanf ( FILE * stream, const char * format, va_list arg )
{
return format_scan(stream, format, arg, &virtual_getc_file, &virtual_ungetc_file);
};
 
int fscanf ( FILE * stream, const char * format, ...)
{
va_list arg;
38,5 → 21,3
va_end(arg);
return n;
}