mescc: m4 support: WIP
[mes.git] / lib / m4.c
1 /* -*-comment-start: "//";comment-end:""-*-
2  * Mes --- Maxwell Equations of Software
3  * Copyright © 2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
4  *
5  * This file is part of Mes.
6  *
7  * Mes is free software; you can redistribute it and/or modify it
8  * under the terms of the GNU General Public License as published by
9  * the Free Software Foundation; either version 3 of the License, or (at
10  * your option) any later version.
11  *
12  * Mes is distributed in the hope that it will be useful, but
13  * WITHOUT ANY WARRANTY; without even the implied warranty of
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15  * GNU General Public License for more details.
16  *
17  * You should have received a copy of the GNU General Public License
18  * along with Mes.  If not, see <http://www.gnu.org/licenses/>.
19  */
20
21 int
22 abort (int x)
23 {
24   eputs ("abort stub\n");
25   return 0;
26 }
27
28 int
29 atof (int x)
30 {
31   eputs ("atof stub\n");
32   return 0;
33 }
34
35 int
36 atol (int x)
37 {
38   eputs ("atol stub\n");
39   return 0;
40 }
41
42 int
43 bcmp (int x)
44 {
45   eputs ("bcmp stub\n");
46   return 0;
47 }
48
49 void
50 bcopy (void const *src, void *dest, size_t n)
51 {
52   return memmove (dest, src, n);
53 }
54
55 int
56 bzero (int x)
57 {
58   eputs ("bzero stub\n");
59   return 0;
60 }
61
62 int
63 fileno (FILE *stream)
64 {
65   return (int)stream;
66 }
67
68 // void
69 // __fpurge (FILE *stream)
70 // {
71 //   eputs ("__fpurge stub\n");
72 //   return 0;
73 // }
74
75 int
76 fpurge (FILE *stream)
77 {
78   eputs ("fpurge stub\n");
79   return 0;
80 }
81
82 // size_t
83 // __freadahead (FILE *fp)
84 // {
85 //   eputs ("__freadahead stub\n");
86 //   return 0;
87 // }
88
89 size_t
90 freadahead (FILE *fp)
91 {
92   eputs ("freadahead stub\n");
93   return 0;
94 }
95
96 int
97 getc (FILE *stream)
98 {
99   return fgetc ((int)stream);
100 }
101
102 int
103 index (char const *s, int c)
104 {
105   return strchr (s, c);
106 }
107
108 int
109 isalnum (int c)
110 {
111   return isdigit (c) || isalpha (c);
112 }
113
114 int
115 isalpha (int c)
116 {
117   return islower (c) || isupper (c);
118 }
119
120 int
121 iscntrl (int c)
122 {
123   return c >= 0 && c < 32;
124 }
125
126 int
127 islower (int c)
128 {
129   return c >= 'a' && c <= 'z';
130 }
131
132 int
133 isprint (int c)
134 {
135   return c >= 32 && c < 127;
136 }
137
138 int
139 ispunct (int c)
140 {
141   return isprint (c) && !isspace (c) && !isalnum (c);
142 }
143
144 int
145 isupper (int c)
146 {
147   return c >= 'A' && c <= 'Z';
148 }
149
150 int
151 mktemp (int x)
152 {
153   eputs ("mktemp stub\n");
154   return 0;
155 }
156
157 int
158 pclose (int x)
159 {
160   eputs ("pclose stub\n");
161   return 0;
162 }
163
164 int
165 popen (int x)
166 {
167   eputs ("popen stub\n");
168   return 0;
169 }
170
171 int
172 rindex (char const *s, int c)
173 {
174   return strrchr (s, c);
175 }
176
177 int
178 rewind (int x)
179 {
180   eputs ("rewind stub\n");
181   return 0;
182 }
183
184 int
185 setbuf (int x)
186 {
187   eputs ("setbuf stub\n");
188   return 0;
189 }
190
191 int
192 signal (int x)
193 {
194   eputs ("signal stub\n");
195   return 0;
196 }
197
198 int
199 sys_errlist (int x)
200 {
201   eputs ("sys_errlist stub\n");
202   return 0;
203 }
204
205 int
206 sys_nerr (int x)
207 {
208   eputs ("sys_nerr stub\n");
209   return 0;
210 }
211
212 int
213 system (int x)
214 {
215   eputs ("system stub\n");
216   return 0;
217 }
218
219 int
220 tolower (int x)
221 {
222   eputs ("tolower stub\n");
223   return 0;
224 }