guile/libguile/init.h

/* classes: h_files */

#ifndef SCM_INIT_H
#define SCM_INIT_H

/* Copyright (C) 1995,1996,1997,2000, 2006, 2008, 2011 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
 */


#include "libguile/__scm.h"
#include "libguile/threads.h"


SCM_INTERNAL scm_i_pthread_mutex_t scm_i_init_mutex;
SCM_API int scm_initialized_p;

SCM_API void scm_init_guile (void);

SCM_API void scm_boot_guile (int argc, char **argv,
			     void (*main_func) (void *closure,
						int argc,
						char **argv),
			     void *closure);

SCM_INTERNAL void scm_i_init_guile (void *base);

SCM_API void scm_load_startup_files (void);

#endif  /* SCM_INIT_H */

/*
  Local Variables:
  c-file-style: "gnu"
  End:
*/
-												maintainer changed: was lord, now jimb; first import

											
										
										
											1996-07-25 22:56:11 +00:00
+								/* classes: h_files */
-												* Renamed header macros to the SCM_<filename>_H format.

											
										
										
											2001-08-31 10:42:19 +00:00
+								#ifndef SCM_INIT_H
 								#define SCM_INIT_H
-												threading / with_guile refactor to use more GC_stack_base

* libguile/init.h:
* libguile/init.c (scm_i_init_guile): Change arg to this internal
  function from SCM_STACKITEM* to void*.  Actually it's a
  struct GC_stack_base*.

* libguile/bdw-gc.h: Don't do pthread redirects, because we don't want
  to affect applications' pthread_* bindings.

* libguile/pthread-threads.h (scm_i_pthread_create)
  (scm_i_pthread_detach, scm_i_pthread_exit, scm_i_pthread_cancel)
  (scm_i_pthread_sigmask): Do pthread redirects here, in this internal
  header.

* libguile/threads.h: Remove declaration of internal
  scm_i_with_guile_and_parent.  Remove declaration of undefined
  scm_threads_init_first_thread.  Make declaration of internal
  scm_threads_prehistory actually internal, and take a void* (actually a
  struct GC_stack_base*).

* libguile/threads.c (GC_get_stack_base): Implement a shim if this
  function is unavailable, and fold in the implementations of
  get_thread_stack_base.
  (GC_call_with_stack_base): Actually implement.
  (guilify_self_1): Take a GC_stack_base* as an arg.
  (scm_i_init_thread_for_guile): Likewise, and set up libgc for
  registration of other threads.
  (scm_init_guile): Use GC_get_stack_base instead of our own guesswork.
  (with_guile_and_parent, scm_i_with_guile_and_parent): Rework to
  trampoline through a GC_call_with_stack_base.
  (scm_threads_prehistory): Pass the "base" arg on to guilify_self_1.

											
										
										
											2011-03-25 13:01:51 +01:00
+								/* Copyright (C) 1995,1996,1997,2000, 2006, 2008, 2011 Free Software Foundation, Inc.
-												* Renamed header macros to the SCM_<filename>_H format.

											
										
										
											2001-08-31 10:42:19 +00:00
+								 *
-												Changed license terms to the plain LGPL thru-out.

											
										
										
											2003-04-05 19:15:35 +00:00
+								 * This library is free software; you can redistribute it and/or
-												Change Guile license to LGPLv3+

(Not quite finished, the following will be done tomorrow.
   module/srfi/*.scm
   module/rnrs/*.scm
   module/scripts/*.scm
   testsuite/*.scm
   guile-readline/*
)

											
										
										
											2009-06-17 00:22:09 +01:00
+								 * 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.
-												* Renamed header macros to the SCM_<filename>_H format.

											
										
										
											2001-08-31 10:42:19 +00:00
+								 *
-												Change Guile license to LGPLv3+

(Not quite finished, the following will be done tomorrow.
   module/srfi/*.scm
   module/rnrs/*.scm
   module/scripts/*.scm
   testsuite/*.scm
   guile-readline/*
)

											
										
										
											2009-06-17 00:22:09 +01:00
+								 * This library is distributed in the hope that it will be useful, but
 								 * WITHOUT ANY WARRANTY; without even the implied warranty of
-												Changed license terms to the plain LGPL thru-out.

											
										
										
											2003-04-05 19:15:35 +00:00
+								 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 								 * Lesser General Public License for more details.
-												* Renamed header macros to the SCM_<filename>_H format.

											
										
										
											2001-08-31 10:42:19 +00:00
+								 *
-												Changed license terms to the plain LGPL thru-out.

											
										
										
											2003-04-05 19:15:35 +00:00
+								 * You should have received a copy of the GNU Lesser General Public
 								 * License along with this library; if not, write to the Free Software
-												Change Guile license to LGPLv3+

(Not quite finished, the following will be done tomorrow.
   module/srfi/*.scm
   module/rnrs/*.scm
   module/scripts/*.scm
   testsuite/*.scm
   guile-readline/*
)

											
										
										
											2009-06-17 00:22:09 +01:00
+								 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
 								 * 02110-1301 USA
-												Changed license terms to the plain LGPL thru-out.

											
										
										
											2003-04-05 19:15:35 +00:00
+								 */
-												* Renamed header macros to the SCM_<filename>_H format.

											
										
										
											2001-08-31 10:42:19 +00:00
-												maintainer changed: was lord, now jimb; first import

											
										
										
											1996-07-25 22:56:11 +00:00
-												* alist.h, append.h, arbiters.h, async.h, boolean.h, chars.h,
continuations.h, debug.h, dynwind.h, error.h, eval.h, fdsocket.h,
feature.h, filesys.h, fports.h, gc.h, gdbint.h, genio.h, gsubr.h,
hash.h, init.h, ioext.h, kw.h, list.h, markers.h, marksweep.h,
mbstrings.h, numbers.h, objprop.h, options.h, pairs.h, ports.h,
posix.h, print.h, procprop.h, procs.h, ramap.h, read.h, root.h,
sequences.h, smob.h, socket.h, srcprop.h, stackchk.h, stime.h,
strings.h, strop.h, strorder.h, strports.h, struct.h, symbols.h,
tag.h, throw.h, unif.h, variable.h, vectors.h, version.h,
vports.h, weaks.h: #include "libguile/__scm.h", not
<libguile/__scm.h>.  This allows 'gcc -MM' to determine which
dependencies are within libguile properly.

											
										
										
											1996-09-05 21:19:08 +00:00
+								#include "libguile/__scm.h"
-												See ChangeLog from 2005-03-02.

											
										
										
											2005-03-02 20:42:01 +00:00
+								#include "libguile/threads.h"
-												maintainer changed: was lord, now jimb; first import

											
										
										
											1996-07-25 22:56:11 +00:00
-												Add `SCM_INTERNAL' macro, use it.

											
										
										
											2008-05-14 05:20:47 +02:00
+								SCM_INTERNAL scm_i_pthread_mutex_t scm_i_init_mutex;
-												Prefixed each each exported symbol with SCM_API.

											
										
										
											2001-11-02 00:19:12 +00:00
+								SCM_API int scm_initialized_p;
-												* init.c, init.h (scm_initialized_p): Renamed from `initialized'
and made global.

											
										
										
											2000-06-19 00:41:33 +00:00
-												Prefixed each each exported symbol with SCM_API.

											
										
										
											2001-11-02 00:19:12 +00:00
+								SCM_API void scm_init_guile (void);
-												* init.h (scm_init_guile): New prototype.

											
										
										
											2000-09-03 20:24:18 +00:00
-												Prefixed each each exported symbol with SCM_API.

											
										
										
											2001-11-02 00:19:12 +00:00
+								SCM_API void scm_boot_guile (int argc, char **argv,
 											     void (*main_func) (void *closure,
 														int argc,
 														char **argv),
 											     void *closure);
-												* init.c (invoke_main_func): Load the startup files (boot-9.scm)
from here, not from scm_compile_shell_switches (which is a pretty
dumb place to do it).
(scm_load_startup_files): New function.
(scm_ice_9_already_loaded): Variable moved to here from script.c.
* script.c (scm_compile_shell_switches): Don't load the startup
files here.
(scm_ice_9_already_loaded): Variable moved.
* init.c (scm_load_startup_files): Prototype for new function.
* gh_init.c (gh_enter): Doc fix.

											
										
										
											1998-10-03 17:40:08 +00:00
-												threading / with_guile refactor to use more GC_stack_base

* libguile/init.h:
* libguile/init.c (scm_i_init_guile): Change arg to this internal
  function from SCM_STACKITEM* to void*.  Actually it's a
  struct GC_stack_base*.

* libguile/bdw-gc.h: Don't do pthread redirects, because we don't want
  to affect applications' pthread_* bindings.

* libguile/pthread-threads.h (scm_i_pthread_create)
  (scm_i_pthread_detach, scm_i_pthread_exit, scm_i_pthread_cancel)
  (scm_i_pthread_sigmask): Do pthread redirects here, in this internal
  header.

* libguile/threads.h: Remove declaration of internal
  scm_i_with_guile_and_parent.  Remove declaration of undefined
  scm_threads_init_first_thread.  Make declaration of internal
  scm_threads_prehistory actually internal, and take a void* (actually a
  struct GC_stack_base*).

* libguile/threads.c (GC_get_stack_base): Implement a shim if this
  function is unavailable, and fold in the implementations of
  get_thread_stack_base.
  (GC_call_with_stack_base): Actually implement.
  (guilify_self_1): Take a GC_stack_base* as an arg.
  (scm_i_init_thread_for_guile): Likewise, and set up libgc for
  registration of other threads.
  (scm_init_guile): Use GC_get_stack_base instead of our own guesswork.
  (with_guile_and_parent, scm_i_with_guile_and_parent): Rework to
  trampoline through a GC_call_with_stack_base.
  (scm_threads_prehistory): Pass the "base" arg on to guilify_self_1.

											
										
										
											2011-03-25 13:01:51 +01:00
+								SCM_INTERNAL void scm_i_init_guile (void *base);
-												See ChangeLog from 2005-03-02.

											
										
										
											2005-03-02 20:42:01 +00:00
-												Prefixed each each exported symbol with SCM_API.

											
										
										
											2001-11-02 00:19:12 +00:00
+								SCM_API void scm_load_startup_files (void);
-												maintainer changed: was lord, now jimb; first import

											
										
										
											1996-07-25 22:56:11 +00:00
-												* Renamed header macros to the SCM_<filename>_H format.

											
										
										
											2001-08-31 10:42:19 +00:00
+								#endif  /* SCM_INIT_H */
-													* *.[hc]: add Emacs magic at the end of file, to ensure GNU
 	indentation style.

											
										
										
											2000-03-19 19:01:16 +00:00
 								/*
 								  Local Variables:
 								  c-file-style: "gnu"
 								  End:
 								*/