Subversion Repositories Kolibri OS

Rev

Rev 8687 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8687 Rev 8718
Line 1... Line 1...
1 
#include
1 
#include
- 
 
 2 
#include
- 
 
 3 
#include
- 
 
 4 
 
- 
 
 5 
int virtual_getc_file(void *sp, const void *obj)
- 
 
 6 
// get next chat from file obj, save point is ptr to string char ptr
- 
 
 7 
{
- 
 
 8 
    FILE *f = (FILE *)obj;
- 
 
 9 
    int     ch = fgetc(f);
- 
 
 10 
 
- 
 
 11 
//printf("getc '%c'[%d];", ch, ch);
- 
 
 12 
 
- 
 
 13 
    return ch;
- 
 
 14 
}
- 
 
 15 
 
- 
 
 16 
void virtual_ungetc_file(void *sp, int c, const void *obj)
- 
 
 17 
// if can, one step back savepoint in s
- 
 
 18 
{
- 
 
 19 
    FILE *f = (FILE *)obj;
- 
 
 20 
 
- 
 
 21 
    if (f) ungetc(c, f);
- 
 
 22 
}
- 
 
 23 
 
- 
 
 24 
 
- 
 
 25 
int vfscanf ( FILE * stream, const char * format, va_list arg )
- 
 
 26 
{
- 
 
 27 
    return format_scan(stream, format, arg, &virtual_getc_file, &virtual_ungetc_file);
- 
 
 28 
};
Line 2... Line 29...
2 
 
 29 
 
3 
int fscanf(FILE* stream, const char* format, ...)
 30 
int fscanf ( FILE * stream, const char * format, ...)
4 
{
 31 
{
5 
   va_list arg;
 32 
   va_list      arg;
6 
   int n;
 33 
   int  n;
- 
 
 34 
   va_start(arg, format);
7 
   va_start(arg, format);
 35 
 
- 
 
 36 
   n = vfscanf(stream, format, arg);
8 
   n = vfscanf(stream, format, arg);
 37 
 
9 
   va_end(arg);
 38 
   va_end(arg);
10 
   return n;
 39 
   return n;