Mercurial > hg > index.cgi

comparison lwbasic/attic/input.c @ 185:cca933d32298

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Clean up some mess in lwbasic directory
author lost@l-w.ca
date Thu, 22 Dec 2011 18:03:38 -0700
parents lwbasic/input.c@87590f43e76d
children
comparison
equal deleted inserted replaced
184:6433cb024174 185:cca933d32298
1 /*
2 input.c
3
4 Copyright © 2011 William Astle
5
6 This file is part of LWTOOLS.
7
8 LWTOOLS is free software: you can redistribute it and/or modify it under the
9 terms of the GNU General Public License as published by the Free Software
10 Foundation, either version 3 of the License, or (at your option) any later
11 version.
12
13 This program is distributed in the hope that it will be useful, but WITHOUT
14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
16 more details.
17
18 You should have received a copy of the GNU General Public License along with
19 this program. If not, see <http://www.gnu.org/licenses/>.
20 */
21
22 /*
23 handle reading input for the rest of the system
24 */
25
26 #include <stdlib.h>
27 #include <stdio.h>
28 #include <string.h>
29
30 #include <lw_alloc.h>
31 #include <lw_error.h>
32
33 #define __input_c_seen__
34 #include "lwbasic.h"
35
36 struct input_state
37 {
38 FILE *fp;
39 int error;
40 };
41
42 static void input_init(cstate *state)
43 {
44 struct input_state *sp;
45
46 sp = lw_alloc(sizeof(struct input_state));
47 sp -> error = 0;
48
49 if (!(state -> input_file) || strcmp(state -> input_file, "-"))
50 {
51 sp -> fp = stdin;
52 }
53 else
54 {
55 sp -> fp = fopen(state -> input_file, "rb");
56 if (!(sp -> fp))
57 {
58 lwb_error("Cannot open input file\n");
59 }
60 }
61
62 state -> input_state = sp;
63 }
64
65 int input_getchar(cstate *state)
66 {
67 int r;
68 struct input_state *sp;
69
70 if (!(state -> input_state))
71 input_init(state);
72 sp = state -> input_state;
73
74
75 if (sp -> error)
76 return -2;
77
78 if (feof(sp -> fp))
79 return -1;
80
81 r = fgetc(sp -> fp);
82 if (r == EOF)
83 return -1;
84 return r;
85 }