mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-29 19:30:36 +02:00
93003b16b0
* doc/ref/Makefile.am ($(snarf_doc).am): Untabify. * libguile/eval.c: Remove unnecessary <assert.h> inclusion. * .x-sc_m4_quote_check: Update. * libguile/error.c (scm_error_scm): Use `EXIT_FAILURE' instead of 1. * libguile/init.c (fixconfig, scm_boot_guile): Likewise. * libguile/null-threads.h (scm_i_pthread_exit): Likewise. * libguile/script.c (scm_compile_shell_switches): Likewise. * test-suite/standalone/test-conversion.c: Likewise. * test-suite/standalone/test-list.c: Likewise. * test-suite/standalone/test-unwind.c: Likewise. * libguile/async.c: Remove unnecessary inclusion of <signal.h>. * NEWS: "filesystem" -> "file system". * doc/ref/r6rs.texi: Ditto. * cfg.mk (local-checks-to-skip): New variable. * .x-sc_m4_quote_check, .x-sc_obsolete_symbols, .x-sc_program_name, .x-sc_prohibit_atoi_atof, .x-sc_prohibit_magic_number_exit: New files. * .gitignore: Update.
112 lines
3.8 KiB
C
112 lines
3.8 KiB
C
/* classes: h_files */
|
||
|
||
#ifndef SCM_NULL_THREADS_H
|
||
#define SCM_NULL_THREADS_H
|
||
|
||
/* Copyright (C) 2005, 2006, 2010 Free Software Foundation, Inc.
|
||
*
|
||
* This library is free software; you can redistribute it and/or
|
||
* modify it under the terms of the GNU Lesser General Public License
|
||
* as published by the Free Software Foundation; either version 3 of
|
||
* the License, or (at your option) any later version.
|
||
*
|
||
* This library 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
|
||
* Lesser General Public License for more details.
|
||
*
|
||
* You should have received a copy of the GNU Lesser General Public
|
||
* License along with this library; if not, write to the Free Software
|
||
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
|
||
* 02110-1301 USA
|
||
*/
|
||
|
||
|
||
|
||
/* The null-threads implementation. We provide the subset of the
|
||
standard pthread API that is used by Guile, but no new threads can
|
||
be created.
|
||
|
||
This file merely exits so that Guile can be compiled and run
|
||
without using pthreads. Improving performance via optimizations
|
||
that are possible in a single-threaded program is not a primary
|
||
goal.
|
||
*/
|
||
|
||
#include <stdlib.h>
|
||
#include <errno.h>
|
||
|
||
/* Threads
|
||
*/
|
||
#define scm_i_pthread_t int
|
||
#define scm_i_pthread_self() 0
|
||
#define scm_i_pthread_create(t,a,f,d) (*(t)=0, (void)(f), ENOSYS)
|
||
#define scm_i_pthread_detach(t) do { } while (0)
|
||
#define scm_i_pthread_exit(v) exit (EXIT_SUCCESS)
|
||
#define scm_i_pthread_cancel(t) 0
|
||
#define scm_i_pthread_cleanup_push(t,v) 0
|
||
#define scm_i_pthread_cleanup_pop(e) 0
|
||
#define scm_i_sched_yield() 0
|
||
|
||
/* Signals
|
||
*/
|
||
#define scm_i_pthread_sigmask sigprocmask
|
||
|
||
/* Mutexes
|
||
*/
|
||
#define SCM_I_PTHREAD_MUTEX_INITIALIZER 0
|
||
#define scm_i_pthread_mutex_t int
|
||
#define scm_i_pthread_mutex_init(m,a) (*(m) = 0)
|
||
#define scm_i_pthread_mutex_destroy(m) do { (void)(m); } while(0)
|
||
#define scm_i_pthread_mutex_trylock(m) ((*(m))++)
|
||
#define scm_i_pthread_mutex_lock(m) ((*(m))++)
|
||
#define scm_i_pthread_mutex_unlock(m) ((*(m))--)
|
||
#define scm_i_pthread_mutexattr_recursive 0
|
||
|
||
/* Condition variables
|
||
*/
|
||
#define SCM_I_PTHREAD_COND_INITIALIZER 0
|
||
#define scm_i_pthread_cond_t int
|
||
#define scm_i_pthread_cond_init(c,a) (*(c) = 0)
|
||
#define scm_i_pthread_cond_destroy(c) do { (void)(c); } while(0)
|
||
#define scm_i_pthread_cond_signal(c) (*(c) = 1)
|
||
#define scm_i_pthread_cond_broadcast(c) (*(c) = 1)
|
||
#define scm_i_pthread_cond_wait(c,m) (abort(), 0)
|
||
#define scm_i_pthread_cond_timedwait(c,m,t) (abort(), 0)
|
||
|
||
/* Onces
|
||
*/
|
||
#define scm_i_pthread_once_t int
|
||
#define SCM_I_PTHREAD_ONCE_INIT 0
|
||
#define scm_i_pthread_once(o,f) do { \
|
||
if(!*(o)) { *(o)=1; f (); } \
|
||
} while(0)
|
||
|
||
/* Thread specific storage
|
||
*/
|
||
typedef struct scm_i_pthread_key_t {
|
||
struct scm_i_pthread_key_t *next;
|
||
void *value;
|
||
void (*destr_func) (void *);
|
||
} scm_i_pthread_key_t;
|
||
|
||
SCM_API int scm_i_pthread_key_create (scm_i_pthread_key_t *key,
|
||
void (*destr_func) (void *));
|
||
#define scm_i_pthread_setspecific(k,p) ((k).value = (p))
|
||
#define scm_i_pthread_getspecific(k) ((k).value)
|
||
|
||
/* Convenience functions
|
||
*/
|
||
#define scm_i_scm_pthread_mutex_lock scm_i_pthread_mutex_lock
|
||
#define scm_i_dynwind_pthread_mutex_lock scm_i_pthread_mutex_lock
|
||
#define scm_i_scm_pthread_cond_wait scm_i_pthread_cond_wait
|
||
#define scm_i_scm_pthread_cond_timedwait scm_i_pthread_cond_timedwait
|
||
|
||
|
||
#endif /* SCM_NULL_THREADS_H */
|
||
|
||
/*
|
||
Local Variables:
|
||
c-file-style: "gnu"
|
||
End:
|
||
*/
|