diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-07-27 19:09:31 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-07-27 19:09:31 +0000 |
commit | 68a08303f1ca029336bdfce03624405ad0fa3f95 (patch) | |
tree | 92f7d0263e27182e25170f905675d77c5a3783f4 /libguile/lang.h | |
parent | 397daa3dfcedf6954019c3dc3d2e3de4af362d29 (diff) | |
download | guile-68a08303f1ca029336bdfce03624405ad0fa3f95.tar.gz |
* Makefile.am (EXTRA_libguile_la_SOURCES): Added lang.c.
* lang.c: New file: Beginning of multi-language support.
Diffstat (limited to 'libguile/lang.h')
-rw-r--r-- | libguile/lang.h | 71 |
1 files changed, 71 insertions, 0 deletions
diff --git a/libguile/lang.h b/libguile/lang.h new file mode 100644 index 000000000..83485c247 --- /dev/null +++ b/libguile/lang.h @@ -0,0 +1,71 @@ +/* classes: h_files */ + +#ifndef LANGH +#define LANGH +/* Copyright (C) 1998 Free Software Foundation, Inc. + * + * This program 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 2, or (at your option) + * any later version. + * + * This program 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 this software; see the file COPYING. If not, write to + * the Free Software Foundation, Inc., 59 Temple Place, Suite 330, + * Boston, MA 02111-1307 USA + * + * As a special exception, the Free Software Foundation gives permission + * for additional uses of the text contained in its release of GUILE. + * + * The exception is that, if you link the GUILE library with other files + * to produce an executable, this does not by itself cause the + * resulting executable to be covered by the GNU General Public License. + * Your use of that executable is in no way restricted on account of + * linking the GUILE library code into it. + * + * This exception does not however invalidate any other reasons why + * the executable file might be covered by the GNU General Public License. + * + * This exception applies only to the code released by the + * Free Software Foundation under the name GUILE. If you copy + * code from other Free Software Foundation releases into a copy of + * GUILE, as the General Public License permits, the exception does + * not apply to the code that you add in this way. To avoid misleading + * anyone as to the status of such modified files, you must delete + * this exception notice from them. + * + * If you write modifications of your own for GUILE, it is your choice + * whether to permit this exception to apply to your modifications. + * If you do not wish that, delete this exception notice. */ + + +#include "libguile/__scm.h" + + + +extern SCM scm_nil; +extern SCM scm_t; + +#define SCM_NILP(x) ((x) == scm_nil) +#define SCM_NILNULLP(x) (SCM_NILP (x) || SCM_NULLP (x)) +#define SCM_NIL2EOL(x, tmp) ((tmp = (x)) == scm_nil ? SCM_EOL : tmp) +#define SCM_EOL2NIL(x, tmp) (SCM_NULLP (tmp = (x)) ? scm_nil : tmp) +#define SCM_EOL_IFY(x, tmp) (tmp = (x), SCM_NILP (tmp) ? SCM_EOL : tmp) +#define SCM_NIL_IFY(x, tmp) (tmp = (x), SCM_NILP (tmp) ? scm_nil : tmp) + + + +extern SCM scm_nil_cons (SCM x, SCM y); +extern SCM scm_nil_car (SCM x); +extern SCM scm_nil_cdr (SCM x); +extern SCM scm_null (SCM x); +extern SCM scm_m_while (SCM exp, SCM env); +extern SCM scm_nil_eq (SCM x, SCM y); +extern void scm_init_lang SCM_P ((void)); + +#endif /* PAIRSH */ |