6f4087cb6b/vm/console/files.c

Show revision log
 
43fd6a76ba79839cb7b101945b85dac8dd07f9aa6f4087cb6b11c592278ebb86b5b90cc298e3c857
30
}
30
}
31
31



32
int file_readc(VM *vm) {
32
int file_readc(VM *vm) {



33
  int cell = TOS; DROP;



34
  FILE *handle = (FILE *) TOS; DROP;
33
  FILE *handle = (FILE *) TOS; DROP;



35
  int c = fgetc(handle);
34
  int c = fgetc(handle);



36
  vm->image[cell] = c;



37
  if ( c == EOF ) {
35
  if ( c == EOF ) {



38
    return 0;
36
    return 0;



39
  } else {
37
  } else {



40
    return -1;
38
    return c;



41
  }
39
  }



42
}
40
}



43
41