1e13fe8e0918d3f772362016271be8936adfeac5
[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 ()
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 (char const *s)
37 {
38   return atoi (s);
39 }
40
41 int
42 bcmp (void const *s1, void const *s2, size_t size)
43 {
44   return memcmp (s1, s2, size);
45 }
46
47 void
48 bcopy (void const *src, void *dest, size_t n)
49 {
50   return memmove (dest, src, n);
51 }
52
53 int
54 bzero (void *block, size_t size)
55 {
56   return memset (block, 0, size);
57 }
58
59 int
60 fileno (FILE *stream)
61 {
62   return (int)stream;
63 }
64
65 int
66 fpurge (FILE *stream)
67 {
68   eputs ("fpurge stub\n");
69   return 0;
70 }
71
72 size_t
73 freadahead (FILE *fp)
74 {
75   eputs ("freadahead stub\n");
76   return 0;
77 }
78
79 int
80 index (char const *s, int c)
81 {
82   return strchr (s, c);
83 }
84
85 int
86 isalnum (int c)
87 {
88   return isdigit (c) || isalpha (c);
89 }
90
91 int
92 isalpha (int c)
93 {
94   return islower (c) || isupper (c);
95 }
96
97 int
98 iscntrl (int c)
99 {
100   return c >= 0 && c < 32;
101 }
102
103 int
104 isprint (int c)
105 {
106   return c >= 32 && c < 127;
107 }
108
109 int
110 ispunct (int c)
111 {
112   return isprint (c) && !isspace (c) && !isalnum (c);
113 }
114
115 char *
116 mktemp (char *template)
117 {
118   char *p = strchr (template, '\0');
119   int q = (int)template;
120   *--p = ((unsigned char)(q >> 4)) % 26 + 'a';
121   *--p = ((unsigned char)(q >> 8)) % 26 + 'a';
122   *--p = ((unsigned char)(q >> 12)) % 26 + 'a';
123   *--p = ((unsigned char)(q >> 16)) % 26 + 'a';
124   *--p = ((unsigned char)(q >> 20)) % 26 + 'a';
125   *--p = ((unsigned char)(q >> 24)) % 26 + 'a';
126   return template;
127 }
128
129 int
130 pclose (int x)
131 {
132   eputs ("pclose stub\n");
133   return 0;
134 }
135
136 int
137 popen (int x)
138 {
139   eputs ("popen stub\n");
140   return 0;
141 }
142
143 int
144 rindex (char const *s, int c)
145 {
146   return strrchr (s, c);
147 }
148
149 int
150 rewind (int x)
151 {
152   eputs ("rewind stub\n");
153   return 0;
154 }
155
156 int
157 setbuf (int x)
158 {
159   eputs ("setbuf stub\n");
160   return 0;
161 }
162
163 int
164 system (int x)
165 {
166   eputs ("system stub\n");
167   return 0;
168 }
169
170 //char const *const sys_errlist[40] = {
171 char *sys_errlist[] = {
172   "error 00",
173   "error 01",
174   "error 02",
175   "error 03",
176   "error 04",
177   "error 05",
178   "error 06",
179   "error 07",
180   "error 08",
181   "error 09",
182   "error 10",
183   "error 11",
184   "error 12",
185   "error 13",
186   "error 14",
187   "error 15",
188   "error 16",
189   "error 17",
190   "error 18",
191   "error 19",
192   "error 20",
193   "error 21",
194   "error 22",
195   "error 23",
196   "error 24",
197   "error 25",
198   "error 26",
199   "error 27",
200   "error 28",
201   "error 29",
202   "error 30",
203   "error 31",
204   "error 32",
205   "error 33",
206   "error 34",
207   "error 35",
208   "error 36",
209   "error 37",
210   "error 38",
211   "error 39",
212 };
213
214 int sys_nerr = 39;
215
216 char *
217 strerror (int errnum)
218 {
219   eputs ("strerror errnum="); eputs (itoa (errnum)); eputs ("\n");
220   if (errnum > 0 && errnum <= sys_nerr)
221     return sys_errlist[errnum];
222   return "sterror: unknown error";
223 }