1 /* -*-comment-start: "//";comment-end:""-*-
2 * Mes --- Maxwell Equations of Software
3 * Copyright © 2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
5 * This file is part of Mes.
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.
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.
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/>.
24 eputs ("abort stub\n");
31 eputs ("atof stub\n");
42 bcmp (void const *s1, void const *s2, size_t size)
44 return memcmp (s1, s2, size);
48 bcopy (void const *src, void *dest, size_t n)
50 return memmove (dest, src, n);
54 bzero (void *block, size_t size)
56 return memset (block, 0, size);
68 eputs ("fpurge stub\n");
75 eputs ("freadahead stub\n");
80 index (char const *s, int c)
88 return isdigit (c) || isalpha (c);
94 return islower (c) || isupper (c);
100 return c >= 0 && c < 32;
106 return c >= 32 && c < 127;
112 return isprint (c) && !isspace (c) && !isalnum (c);
116 mktemp (char *template)
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';
132 eputs ("pclose stub\n");
139 eputs ("popen stub\n");
144 rindex (char const *s, int c)
146 return strrchr (s, c);
152 eputs ("rewind stub\n");
159 eputs ("setbuf stub\n");
166 eputs ("system stub\n");
170 //char const *const sys_errlist[40] = {
171 char *sys_errlist[] = {
217 strerror (int errnum)
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";