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");
76 eputs ("freadahead stub\n");
82 index (char const *s, int c)
90 return isdigit (c) || isalpha (c);
96 return islower (c) || isupper (c);
102 return c >= 0 && c < 32;
108 return c >= 32 && c < 127;
114 return isprint (c) && !isspace (c) && !isalnum (c);
118 mktemp (char *template)
120 char *p = strchr (template, '\0');
121 int q = (int)template;
122 *--p = ((unsigned char)(q >> 4)) % 26 + 'a';
123 *--p = ((unsigned char)(q >> 8)) % 26 + 'a';
124 *--p = ((unsigned char)(q >> 12)) % 26 + 'a';
125 *--p = ((unsigned char)(q >> 16)) % 26 + 'a';
126 *--p = ((unsigned char)(q >> 20)) % 26 + 'a';
127 *--p = ((unsigned char)(q >> 24)) % 26 + 'a';
134 eputs ("pclose stub\n");
142 eputs ("popen stub\n");
148 rindex (char const *s, int c)
150 return strrchr (s, c);
156 eputs ("rewind stub\n");
164 eputs ("setbuf stub\n");
172 eputs ("system stub\n");
177 //char const *const sys_errlist[40] = {
178 char *sys_errlist[] = {
224 strerror (int errnum)
226 eputs ("strerror errnum="); eputs (itoa (errnum)); eputs ("\n");
227 if (errnum > 0 && errnum <= sys_nerr)
228 return sys_errlist[errnum];
229 return "sterror: unknown error";