andrius
/
mes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

core: Support switching of input stream. 

* mes.c (g_stdin): New global.
  (getchar): New function, use g_stdin.
  (ungetchar): Use g_stdin.
  (main): Initialize g_stdin to stdin.
This commit is contained in:
Jan Nieuwenhuizen 2016-11-02 18:25:18 +01:00
parent 0e13b7e8dd
commit 1e2e2f2a4a
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
mes.c
View File

@ -893,10 +893,17 @@ display_helper (FILE* f, scm *x, bool cont, char const *sep, bool quote)
// READ
FILE *g_stdin;
int
getchar ()
{
return getc (g_stdin);
}
int
ungetchar (int c)
{
return ungetc (c, stdin);
return ungetc (c, g_stdin);
}
int
@ -1179,6 +1186,7 @@ main (int argc, char *argv[])
{
if (argc > 1 && !strcmp (argv[1], "--help")) return puts ("Usage: mes < FILE\n");
if (argc > 1 && !strcmp (argv[1], "--version")) return puts ("Mes 0.1\n");
g_stdin = stdin;
scm *a = mes_environment ();
display_ (stderr, load_file_env (a));
fputs ("", stderr);