2018-05-30 19:55:39 +00:00
|
|
|
/* -*-comment-start: "//";comment-end:""-*-
|
|
|
|
* Mes --- Maxwell Equations of Software
|
|
|
|
* Copyright © 2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
|
|
|
|
*
|
|
|
|
* This file is part of Mes.
|
|
|
|
*
|
|
|
|
* Mes is free software; you can redistribute it and/or modify it
|
|
|
|
* under the terms of the GNU General Public License as published by
|
|
|
|
* the Free Software Foundation; either version 3 of the License, or (at
|
|
|
|
* your option) any later version.
|
|
|
|
*
|
|
|
|
* Mes is distributed in the hope that it will be useful, but
|
|
|
|
* WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
* GNU General Public License for more details.
|
|
|
|
*
|
|
|
|
* You should have received a copy of the GNU General Public License
|
|
|
|
* along with Mes. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
*/
|
|
|
|
|
|
|
|
#include <libmes.h>
|
|
|
|
#include <stdint.h>
|
2018-06-06 11:16:25 +00:00
|
|
|
#include <stdlib.h>
|
2018-05-30 19:55:39 +00:00
|
|
|
|
|
|
|
int
|
|
|
|
abs (int x)
|
|
|
|
{
|
|
|
|
if (x < 0)
|
|
|
|
return -x;
|
|
|
|
return x;
|
|
|
|
}
|
|
|
|
|
|
|
|
int
|
|
|
|
chown (char const *file_name, uid_t owner, gid_t group)
|
|
|
|
{
|
|
|
|
eputs ("chown stub\n");
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
int
|
|
|
|
ctime (int x)
|
|
|
|
{
|
2018-06-09 05:40:07 +00:00
|
|
|
#if NOISY_TIMES
|
2018-05-30 19:55:39 +00:00
|
|
|
eputs ("ctime stub\n");
|
2018-06-09 05:40:07 +00:00
|
|
|
#endif
|
2018-05-30 19:55:39 +00:00
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
char *
|
|
|
|
fdgets (char *s, int count, int fd)
|
|
|
|
{
|
|
|
|
int c = 0;
|
|
|
|
char *p = s;
|
|
|
|
while (--count > 0 && c != '\n')
|
|
|
|
{
|
|
|
|
c = fdgetc (fd);
|
|
|
|
if (c == EOF)
|
|
|
|
break;
|
|
|
|
*p++ = c;
|
|
|
|
}
|
|
|
|
if (p == s && (c == EOF || count == -1))
|
|
|
|
return 0;
|
|
|
|
*p = 0;
|
|
|
|
return s;
|
|
|
|
}
|
|
|
|
|
|
|
|
int
|
|
|
|
feof (FILE *stream)
|
|
|
|
{
|
|
|
|
char c = fgetc (stream);
|
|
|
|
if (c != EOF)
|
|
|
|
ungetc (c, stream);
|
|
|
|
return c == EOF;
|
|
|
|
}
|
|
|
|
|
|
|
|
char *
|
|
|
|
fgets (char *s, int count, FILE *stream)
|
|
|
|
{
|
|
|
|
return fdgets (s, count, (int)stream);
|
|
|
|
}
|
|
|
|
|
|
|
|
int
|
|
|
|
frexp (int x)
|
|
|
|
{
|
|
|
|
eputs ("frexp stub\n");
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
2018-06-03 16:54:26 +00:00
|
|
|
void
|
|
|
|
perror (char const *message)
|
2018-05-30 19:55:39 +00:00
|
|
|
{
|
2018-06-03 16:54:26 +00:00
|
|
|
fprintf (stderr, "%s: %s\n", strerror (errno), message);
|
2018-05-30 19:55:39 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
int
|
|
|
|
sigsetmask (int x)
|
|
|
|
{
|
|
|
|
eputs ("sigsetmask stub\n");
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
size_t
|
|
|
|
strcspn (char const *string, char const *stopset)
|
|
|
|
{
|
|
|
|
char *p = string;
|
|
|
|
while (*p)
|
|
|
|
if (strchr (stopset, *p))
|
|
|
|
break;
|
|
|
|
else
|
|
|
|
p++;
|
|
|
|
return p - string;
|
|
|
|
}
|
|
|
|
|
|
|
|
char *
|
|
|
|
strncat (char *to, char const *from, size_t size)
|
|
|
|
{
|
2018-06-02 09:41:06 +00:00
|
|
|
if (size == 0)
|
|
|
|
return to;
|
2018-05-30 19:55:39 +00:00
|
|
|
char *p = strchr (to , '\0');
|
2018-06-03 16:54:26 +00:00
|
|
|
while (*from && size-- > 0)
|
2018-05-30 19:55:39 +00:00
|
|
|
*p++ = *from++;
|
|
|
|
*p = 0;
|
|
|
|
return to;
|
|
|
|
}
|
|
|
|
|
|
|
|
char *
|
|
|
|
strpbrk (char const *string, char const* stopset)
|
|
|
|
{
|
|
|
|
char *p = string;
|
|
|
|
while (*p)
|
|
|
|
if (strchr (stopset, *p))
|
|
|
|
break;
|
|
|
|
else
|
|
|
|
p++;
|
|
|
|
return p;
|
|
|
|
}
|
|
|
|
|
|
|
|
size_t
|
|
|
|
strspn (char const *string, char const *skipset)
|
|
|
|
{
|
|
|
|
char *p = string;
|
|
|
|
while (*p)
|
|
|
|
if (!strchr (skipset, *p))
|
|
|
|
break;
|
|
|
|
else
|
|
|
|
p++;
|
|
|
|
return p - string;
|
|
|
|
}
|
|
|
|
|
|
|
|
int
|
|
|
|
sys_siglist (int x)
|
|
|
|
{
|
|
|
|
eputs ("sys_siglist stub\n");
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
int
|
|
|
|
umask (int x)
|
|
|
|
{
|
|
|
|
eputs ("umask stub\n");
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
int
|
|
|
|
utime (int x)
|
|
|
|
{
|
2018-06-09 05:40:07 +00:00
|
|
|
#if NOISY_TIMES
|
2018-05-30 19:55:39 +00:00
|
|
|
eputs ("utime stub\n");
|
2018-06-09 05:40:07 +00:00
|
|
|
#endif
|
2018-05-30 19:55:39 +00:00
|
|
|
return 0;
|
|
|
|
}
|
2018-06-06 11:16:25 +00:00
|
|
|
|
|
|
|
// binutils-2.10.1
|
|
|
|
int
|
|
|
|
fscanf (FILE *stream, char const *template, ...)
|
|
|
|
{
|
|
|
|
eputs ("fscan stub\n");
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
int
|
|
|
|
isascii (int c)
|
|
|
|
{
|
|
|
|
return c >= 0 && c <= 127;
|
|
|
|
}
|
|
|
|
|
|
|
|
void *
|
|
|
|
#if __MESC__
|
|
|
|
bsearch (void const *key, void const *array, size_t count, size_t size, void (*compare) ())
|
|
|
|
#else
|
|
|
|
bsearch (void const *key, void const *array, size_t count, size_t size, comparison_fn_t compare)
|
|
|
|
#endif
|
|
|
|
{
|
|
|
|
eputs ("bsearch stub\n");
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
struct tm *
|
|
|
|
gmtime (time_t const *time)
|
|
|
|
{
|
2018-06-09 05:40:07 +00:00
|
|
|
#if NOISY_TIMES
|
2018-06-06 11:16:25 +00:00
|
|
|
eputs ("gmtime stub\n");
|
2018-06-09 05:40:07 +00:00
|
|
|
#endif
|
2018-06-06 11:16:25 +00:00
|
|
|
return localtime (time);
|
|
|
|
}
|
|
|
|
|
|
|
|
#if __SBRK_CHAR_PTRDIFF
|
|
|
|
char *
|
|
|
|
sbrk (ptrdiff_t)
|
|
|
|
#else
|
|
|
|
void *
|
|
|
|
sbrk (intptr_t delta)
|
|
|
|
#endif
|
|
|
|
{
|
|
|
|
if (delta >= 0)
|
|
|
|
return malloc (delta);
|
|
|
|
return g_brk;
|
|
|
|
}
|