libguile/deprecated.h

   1 /* This file contains definitions for deprecated features.  When you
   2    deprecate something, move it here when that is feasible.
   3 */
   4
   5 #ifndef SCM_DEPRECATED_H
   6 #define SCM_DEPRECATED_H
   7
   8 /* Copyright (C) 2003,2004, 2005, 2006, 2007, 2009, 2010, 2011, 2012 Free Software Foundation, Inc.
   9  *
  10  * This library is free software; you can redistribute it and/or
  11  * modify it under the terms of the GNU Lesser General Public License
  12  * as published by the Free Software Foundation; either version 3 of
  13  * the License, or (at your option) any later version.
  14  *
  15  * This library is distributed in the hope that it will be useful, but
  16  * WITHOUT ANY WARRANTY; without even the implied warranty of
  17  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  18  * Lesser General Public License for more details.
  19  *
  20  * You should have received a copy of the GNU Lesser General Public
  21  * License along with this library; if not, write to the Free Software
  22  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
  23  * 02110-1301 USA
  24  */
  25
  26 #include "libguile/__scm.h"
  27 #include "libguile/strings.h"
  28 #include "libguile/eval.h"
  29 #include "libguile/throw.h"
  30 #include "libguile/iselect.h"
  31
  32 #if (SCM_ENABLE_DEPRECATED == 1)
  33
  34 /* From eval.h: Macros for handling ilocs.  These were deprecated in guile
  35  * 1.7.0 on 2004-04-22.  */
  36 #define SCM_IFRINC             (0x00000100L)
  37 #define SCM_ICDR               (0x00080000L)
  38 #define SCM_IFRAME(n)          ((long)((SCM_ICDR-SCM_IFRINC)>>8) \
  39                                 & (SCM_UNPACK (n) >> 8))
  40 #define SCM_IDIST(n)           (SCM_UNPACK (n) >> 20)
  41 #define SCM_ICDRP(n)           (SCM_ICDR & SCM_UNPACK (n))
  42
  43
  44 /* From tags.h: Macros to access internal symbol names of isyms.  Deprecated
  45  * in guile 1.7.0 on 2004-04-22.  */
  46 SCM_API char *scm_isymnames[];
  47 #define SCM_ISYMNUM(n)         0
  48 #define SCM_ISYMCHARS(n)       "#@<deprecated>"
  49
  50
  51 /* From tags.h: Macro checking for two tc16 types that are allocated to differ
  52  * only in the 's'-bit.  Deprecated in guile 1.7.0 on 2003-09-21.  */
  53 #define SCM_TYP16S(x)           (0xfeff & SCM_CELL_TYPE (x))
  54
  55
  56 /* From numbers.h: Macros checking for types, but avoiding a redundant check
  57  * for !SCM_IMP.  These were deprecated in guile 1.7.0 on 2003-09-06.  */
  58 #define SCM_SLOPPY_INEXACTP(x) (SCM_TYP16S (x) == scm_tc16_real)
  59 #define SCM_SLOPPY_REALP(x) (SCM_TYP16 (x) == scm_tc16_real)
  60 #define SCM_SLOPPY_COMPLEXP(x) (SCM_TYP16 (x) == scm_tc16_complex)
  61
  62
  63 /* From structs.h:
  64    Deprecated in Guile 1.9.5 on 2009-11-03. */
  65 #define scm_vtable_index_vtable scm_vtable_index_self
  66 #define scm_vtable_index_printer scm_vtable_index_instance_printer
  67 #define scm_struct_i_free scm_vtable_index_instance_finalize
  68 #define scm_struct_i_flags scm_vtable_index_flags
  69 #define SCM_STRUCTF_MASK ((scm_t_bits)-1)
  70 #define SCM_SET_VTABLE_DESTRUCTOR(X, D) (SCM_STRUCT_DATA(x)[scm_struct_i_free]=(scm_t_bits)(D))
  71
  72 #define scm_substring_move_left_x scm_substring_move_x
  73 #define scm_substring_move_right_x scm_substring_move_x
  74
  75 #define scm_sizet size_t
  76
  77 SCM_DEPRECATED SCM scm_wta (SCM arg, const char *pos, const char *s_subr);
  78
  79 #define SCM_WNA                 8
  80 #define SCM_OUTOFRANGE         10
  81 #define SCM_NALLOC             11
  82
  83 SCM_DEPRECATED void scm_register_module_xxx (char *module_name, void *init_func);
  84 SCM_DEPRECATED SCM scm_registered_modules (void);
  85 SCM_DEPRECATED SCM scm_clear_registered_modules (void);
  86
  87 SCM_DEPRECATED SCM scm_protect_object (SCM obj);
  88 SCM_DEPRECATED SCM scm_unprotect_object (SCM obj);
  89
  90 #define SCM_SETAND_CAR(x, y) \
  91   (SCM_SETCAR ((x), SCM_PACK (SCM_UNPACK (SCM_CAR (x)) & (y))))
  92 #define SCM_SETOR_CAR(x, y)\
  93   (SCM_SETCAR ((x), SCM_PACK (SCM_UNPACK (SCM_CAR (x)) | (y))))
  94 #define SCM_SETAND_CDR(x, y)\
  95   (SCM_SETCDR ((x), SCM_PACK (SCM_UNPACK (SCM_CDR (x)) & (y))))
  96 #define SCM_SETOR_CDR(x, y)\
  97   (SCM_SETCDR ((x), SCM_PACK (SCM_UNPACK (SCM_CDR (x)) | (y))))
  98 #define SCM_FREEP(x) (0)
  99 #define SCM_NFREEP(x) (1)
 100 #define SCM_GCTYP16(x) SCM_TYP16 (x)
 101 #define SCM_GCCDR(x) SCM_CDR (x)
 102 SCM_DEPRECATED void scm_remember (SCM * ptr);
 103
 104 SCM_DEPRECATED SCM scm_make_module (SCM name);
 105 SCM_DEPRECATED SCM scm_ensure_user_module (SCM name);
 106 SCM_DEPRECATED SCM scm_load_scheme_module (SCM name);
 107
 108 #define scm_port scm_t_port
 109 #define scm_ptob_descriptor scm_t_ptob_descriptor
 110 #define scm_port_rw_active scm_t_port_rw_active
 111
 112 SCM_DEPRECATED SCM scm_close_all_ports_except (SCM ports);
 113
 114 #define scm_rstate scm_t_rstate
 115 #define scm_rng scm_t_rng
 116
 117 #define SCM_SLOPPY_CONSP(x)  ((1 & SCM_CELL_TYPE (x)) == 0)
 118 #define SCM_SLOPPY_NCONSP(x) (!SCM_SLOPPY_CONSP(x))
 119
 120 #define scm_tc7_ssymbol         scm_tc7_symbol
 121 #define scm_tc7_msymbol         scm_tc7_symbol
 122 #define scm_tcs_symbols         scm_tc7_symbol
 123
 124 SCM_DEPRECATED SCM scm_makstr (size_t len, int);
 125 SCM_DEPRECATED SCM scm_makfromstr (const char *src, size_t len, int);
 126
 127 SCM_DEPRECATED SCM scm_variable_set_name_hint (SCM var, SCM hint);
 128 SCM_DEPRECATED SCM scm_builtin_variable (SCM name);
 129
 130 SCM_DEPRECATED SCM scm_internal_with_fluids (SCM fluids, SCM vals,
 131                                              SCM (*cproc)(void *),
 132                                              void *cdata);
 133
 134 SCM_DEPRECATED SCM scm_make_gsubr (const char *name,
 135                                    int req, int opt, int rst,
 136                                    scm_t_subr fcn);
 137 SCM_DEPRECATED SCM scm_make_gsubr_with_generic (const char *name,
 138                                                 int req,
 139                                                 int opt,
 140                                                 int rst,
 141                                                 scm_t_subr fcn,
 142                                                 SCM *gf);
 143
 144 SCM_DEPRECATED SCM scm_create_hook (const char* name, int n_args);
 145
 146
 147 /* Deprecated 13-05-2011 because it's better just to scm_dynwind_begin.
 148    That also avoids the temptation to stuff pointers in an SCM.  */
 149
 150 typedef SCM (*scm_t_inner) (void *);
 151 SCM_DEPRECATED SCM scm_internal_dynamic_wind (scm_t_guard before,
 152                                               scm_t_inner inner,
 153                                               scm_t_guard after,
 154                                               void *inner_data,
 155                                               void *guard_data);
 156
 157 #define SCM_LIST0 SCM_EOL
 158 #define SCM_LIST1(e0) scm_cons ((e0), SCM_EOL)
 159 #define SCM_LIST2(e0, e1) scm_cons2 ((e0), (e1), SCM_EOL)
 160 #define SCM_LIST3(e0, e1, e2) scm_cons ((e0), SCM_LIST2 ((e1), (e2)))
 161 #define SCM_LIST4(e0, e1, e2, e3)\
 162      scm_cons2 ((e0), (e1), SCM_LIST2 ((e2), (e3)))
 163 #define SCM_LIST5(e0, e1, e2, e3, e4)\
 164      scm_cons ((e0), SCM_LIST4 ((e1), (e2), (e3), (e4)))
 165 #define SCM_LIST6(e0, e1, e2, e3, e4, e5)\
 166      scm_cons2 ((e0), (e1), SCM_LIST4 ((e2), (e3), (e4), (e5)))
 167 #define SCM_LIST7(e0, e1, e2, e3, e4, e5, e6)\
 168      scm_cons ((e0), SCM_LIST6 ((e1), (e2), (e3), (e4), (e5), (e6)))
 169 #define SCM_LIST8(e0, e1, e2, e3, e4, e5, e6, e7)\
 170      scm_cons2 ((e0), (e1), SCM_LIST6 ((e2), (e3), (e4), (e5), (e6), (e7)))
 171 #define SCM_LIST9(e0, e1, e2, e3, e4, e5, e6, e7, e8)\
 172      scm_cons ((e0),\
 173                SCM_LIST8 ((e1), (e2), (e3), (e4), (e5), (e6), (e7), (e8)))
 174
 175 #define scm_listify scm_list_n
 176
 177 SCM_DEPRECATED SCM scm_sloppy_memq (SCM x, SCM lst);
 178 SCM_DEPRECATED SCM scm_sloppy_memv (SCM x, SCM lst);
 179 SCM_DEPRECATED SCM scm_sloppy_member (SCM x, SCM lst);
 180
 181 SCM_DEPRECATED SCM scm_read_and_eval_x (SCM port);
 182
 183 #define scm_subr_entry scm_t_subr_entry
 184
 185 #define SCM_SUBR_DOC(x) SCM_BOOL_F
 186
 187 SCM_DEPRECATED SCM scm_call_catching_errors (scm_t_subr thunk,
 188                                              scm_t_subr err_filter,
 189                                              void * closure);
 190
 191 SCM_DEPRECATED long scm_make_smob_type_mfpe (char *name, size_t size,
 192                                              SCM (*mark) (SCM),
 193                                              size_t (*free) (SCM),
 194                                              int (*print) (SCM, SCM,
 195                                                            scm_print_state*),
 196                                              SCM (*equalp) (SCM, SCM));
 197
 198 SCM_DEPRECATED void scm_set_smob_mfpe (long tc,
 199                                        SCM (*mark) (SCM),
 200                                        size_t (*free) (SCM),
 201                                        int (*print) (SCM, SCM, scm_print_state*),
 202                                        SCM (*equalp) (SCM, SCM));
 203
 204 SCM_DEPRECATED size_t scm_smob_free (SCM obj);
 205
 206 SCM_DEPRECATED SCM scm_strprint_obj (SCM obj);
 207 SCM_DEPRECATED SCM scm_read_0str (char *expr);
 208 SCM_DEPRECATED SCM scm_eval_0str (const char *expr);
 209
 210 SCM_DEPRECATED char *scm_i_object_chars (SCM);
 211
 212 #define SCM_CHARS(x)   scm_i_object_chars(x)
 213 #define SCM_UCHARS(x)  ((unsigned char *)SCM_CHARS(x))
 214
 215 SCM_DEPRECATED long scm_i_object_length (SCM);
 216
 217 #define SCM_LENGTH(x) scm_i_object_length(x)
 218
 219 #define scm_strhash(str, len, n) (scm_string_hash ((str), (len)) % (n))
 220
 221 SCM_DEPRECATED SCM scm_sym2ovcell_soft (SCM sym, SCM obarray);
 222 SCM_DEPRECATED SCM scm_sym2ovcell (SCM sym, SCM obarray);
 223 SCM_DEPRECATED SCM scm_intern_obarray_soft (const char *name, size_t len,
 224                                      SCM obarray, unsigned int softness);
 225 SCM_DEPRECATED SCM scm_intern_obarray (const char *name, size_t len, SCM obarray);
 226 SCM_DEPRECATED SCM scm_symbol_value0 (const char *name);
 227
 228 SCM_DEPRECATED SCM scm_string_to_obarray_symbol (SCM o, SCM s, SCM softp);
 229 SCM_DEPRECATED SCM scm_intern_symbol (SCM o, SCM s);
 230 SCM_DEPRECATED SCM scm_unintern_symbol (SCM o, SCM s);
 231 SCM_DEPRECATED SCM scm_symbol_binding (SCM o, SCM s);
 232 #if 0
 233 /* This name has been reused for real uninterned symbols. */
 234 SCM_DEPRECATED SCM scm_symbol_interned_p (SCM o, SCM s);
 235 #endif
 236 SCM_DEPRECATED SCM scm_symbol_bound_p (SCM o, SCM s);
 237 SCM_DEPRECATED SCM scm_symbol_set_x (SCM o, SCM s, SCM v);
 238
 239 SCM_DEPRECATED SCM scm_gentemp (SCM prefix, SCM obarray);
 240
 241 #define SCM_OPDIRP(x) (SCM_DIRP (x) && (SCM_DIR_OPEN_P (x)))
 242 #define scm_fport scm_t_fport
 243 #define scm_option scm_t_option
 244 #define scm_srcprops scm_t_srcprops
 245 #define scm_srcprops_chunk scm_t_srcprops_chunk
 246 #define scm_array scm_t_array
 247 #define scm_array_dim scm_t_array_dim
 248 #define SCM_FUNC_NAME (scm_makfrom0str (FUNC_NAME))
 249
 250 #define SCM_WTA(pos, scm) \
 251   do { scm_wta (scm, (char *) pos, FUNC_NAME); } while (0)
 252
 253 #define RETURN_SCM_WTA(pos, scm) \
 254   do { return scm_wta (scm, (char *) pos, FUNC_NAME); } while (0)
 255
 256 #define SCM_VALIDATE_NUMBER_COPY(pos, z, cvar)  \
 257   do {                                          \
 258     if (SCM_I_INUMP (z))                                \
 259       cvar = (double) SCM_I_INUM (z);           \
 260     else if (SCM_REALP (z))                     \
 261       cvar = SCM_REAL_VALUE (z);                \
 262     else if (SCM_BIGP (z))                      \
 263       cvar = scm_i_big2dbl (z);                 \
 264     else                                        \
 265       {                                         \
 266         cvar = 0.0;                             \
 267         SCM_WRONG_TYPE_ARG (pos, z);            \
 268       }                                         \
 269   } while (0)
 270
 271 #define SCM_VALIDATE_NUMBER_DEF_COPY(pos, number, def, cvar)    \
 272   do {                                                          \
 273     if (SCM_UNBNDP (number))                                    \
 274       cvar = def;                                               \
 275     else                                                        \
 276       SCM_VALIDATE_NUMBER_COPY(pos, number, cvar);              \
 277   } while (0)
 278
 279 #define SCM_VALIDATE_OPDIR(pos, port) SCM_MAKE_VALIDATE (pos, port, OPDIRP)
 280
 281 /* Deprecated because we can not safely cast a SCM* to a scm_t_bits*
 282  */
 283
 284 #define SCM_CELL_WORD_LOC(x, n)   ((scm_t_bits*)SCM_CELL_OBJECT_LOC((x),(n)))
 285
 286 /* Users shouldn't know about INUMs.
 287  */
 288
 289 SCM_DEPRECATED SCM scm_i_makinum (scm_t_signed_bits val);
 290 SCM_DEPRECATED int scm_i_inump (SCM obj);
 291 SCM_DEPRECATED scm_t_signed_bits scm_i_inum (SCM obj);
 292
 293 #define SCM_MAKINUM(x)   scm_i_makinum(x)
 294 #define SCM_INUM(x)      scm_i_inum(x)
 295 #define SCM_INUMP(x)     scm_i_inump(x)
 296 #define SCM_NINUMP(x)    (!SCM_INUMP(x))
 297
 298 #define SCM_VALIDATE_INUM(pos, k) SCM_MAKE_VALIDATE_MSG (pos, k, INUMP, "exact integer")
 299
 300 #define SCM_VALIDATE_INUM_COPY(pos, k, cvar) \
 301   do { \
 302     SCM_ASSERT (SCM_I_INUMP (k), k, pos, FUNC_NAME); \
 303     cvar = SCM_I_INUM (k); \
 304   } while (0)
 305
 306 #define SCM_VALIDATE_BIGINT(pos, k) SCM_MAKE_VALIDATE_MSG (pos, k, BIGP, "bignum")
 307
 308 #define SCM_VALIDATE_INUM_MIN(pos, k, min) \
 309   do { \
 310     SCM_ASSERT (SCM_I_INUMP(k), k, pos, FUNC_NAME); \
 311     SCM_ASSERT_RANGE (pos, k, (SCM_I_INUM (k) >= min)); \
 312   } while (0)
 313
 314 #define SCM_VALIDATE_INUM_MIN_COPY(pos, k, min, cvar) \
 315   do { \
 316     SCM_ASSERT (SCM_I_INUMP (k), k, pos, FUNC_NAME); \
 317     SCM_ASSERT_RANGE (pos, k, (SCM_I_INUM (k) >= min)); \
 318     cvar = SCM_INUM (k); \
 319   } while (0)
 320
 321 #define SCM_VALIDATE_INUM_MIN_DEF_COPY(pos, k, min, default, cvar) \
 322   do { \
 323     if (SCM_UNBNDP (k)) \
 324       k = SCM_I_MAKINUM (default); \
 325     SCM_ASSERT (SCM_I_INUMP (k), k, pos, FUNC_NAME); \
 326     SCM_ASSERT_RANGE (pos, k, (SCM_I_INUM (k) >= min)); \
 327     cvar = SCM_INUM (k); \
 328   } while (0)
 329
 330 #define SCM_VALIDATE_INUM_DEF(pos, k, default) \
 331   do { \
 332     if (SCM_UNBNDP (k)) \
 333       k = SCM_I_MAKINUM (default); \
 334     else SCM_ASSERT (SCM_I_INUMP (k), k, pos, FUNC_NAME); \
 335   } while (0)
 336
 337 #define SCM_VALIDATE_INUM_DEF_COPY(pos, k, default, cvar) \
 338   do { \
 339     if (SCM_UNBNDP (k)) \
 340       { \
 341         k = SCM_I_MAKINUM (default); \
 342         cvar = default; \
 343       } \
 344     else \
 345       { \
 346         SCM_ASSERT (SCM_I_INUMP (k), k, pos, FUNC_NAME); \
 347         cvar = SCM_INUM (k); \
 348       } \
 349   } while (0)
 350
 351 /* [low, high) */
 352 #define SCM_VALIDATE_INUM_RANGE(pos, k, low, high) \
 353   do { SCM_ASSERT(SCM_I_INUMP(k), k, pos, FUNC_NAME); \
 354        SCM_ASSERT_RANGE(pos, k, \
 355                         (SCM_I_INUM (k) >= low && \
 356                          SCM_I_INUM (k) < high)); \
 357      } while (0)
 358
 359 #define SCM_VALIDATE_INUM_RANGE_COPY(pos, k, low, high, cvar) \
 360   do { \
 361     SCM_ASSERT (SCM_INUMP (k), k, pos, FUNC_NAME); \
 362     SCM_ASSERT_RANGE (pos, k, low <= SCM_INUM (k) && SCM_INUM (k) < high); \
 363     cvar = SCM_INUM (k); \
 364   } while (0)
 365
 366 #define SCM_STRING_COERCE_0TERMINATION_X(x) (x)
 367
 368 /* XXX - buggy interface, STR might not be large enough.
 369
 370    Converts the given Scheme string OBJ into a C string, containing a copy
 371    of OBJ's content with a trailing null byte.  If LENP is non-NULL, set
 372    *LENP to the string's length.
 373
 374    When STR is non-NULL it receives the copy and is returned by the function,
 375    otherwise new memory is allocated and the caller is responsible for
 376    freeing it via free().  If out of memory, NULL is returned.
 377
 378    Note that Scheme strings may contain arbitrary data, including null
 379    characters.  This means that null termination is not a reliable way to
 380    determine the length of the returned value.  However, the function always
 381    copies the complete contents of OBJ, and sets *LENP to the length of the
 382    scheme string (if LENP is non-null).
 383 */
 384 SCM_DEPRECATED char *scm_c_string2str (SCM obj, char *str, size_t *lenp);
 385
 386 /* XXX - buggy interface, you don't know how many bytes have been copied.
 387
 388    Copy LEN characters at START from the Scheme string OBJ to memory
 389    at STR.  START is an index into OBJ; zero means the beginning of
 390    the string.  STR has already been allocated by the caller.
 391
 392    If START + LEN is off the end of OBJ, silently truncate the source
 393    region to fit the string.  If truncation occurs, the corresponding
 394    area of STR is left unchanged.
 395 */
 396 SCM_DEPRECATED char *scm_c_substring2str (SCM obj, char *str, size_t start, size_t len);
 397
 398 SCM_DEPRECATED char *scm_c_symbol2str (SCM obj, char *str, size_t *lenp);
 399
 400 /* Deprecated because the names belong to what is now
 401    scm_truncate_number and scm_round_number.
 402 */
 403 SCM_DEPRECATED double scm_truncate (double x);
 404 SCM_DEPRECATED double scm_round (double x);
 405 /* Deprecated, use scm_expt */
 406 SCM_DEPRECATED SCM scm_sys_expt (SCM x, SCM y);
 407
 408 /* if your platform doesn't have asinh et al */
 409 SCM_DEPRECATED double scm_asinh (double x);
 410 SCM_DEPRECATED double scm_acosh (double x);
 411 SCM_DEPRECATED double scm_atanh (double x);
 412 SCM_DEPRECATED SCM scm_sys_atan2 (SCM z1, SCM z2);
 413
 414 /* Deprecated because we don't want people to access the internal
 415    representation of strings directly.
 416 */
 417
 418 #define SCM_VALIDATE_STRING_COPY(pos, str, cvar) \
 419   do { \
 420     SCM_ASSERT (SCM_STRINGP (str), str, pos, FUNC_NAME); \
 421     cvar = SCM_STRING_CHARS(str); \
 422   } while (0)
 423
 424 /* validate a string and optional start/end arguments which default to
 425    0/string-len.  this is unrelated to the old shared substring
 426    support, so please do not deprecate it :) */
 427 #define SCM_VALIDATE_SUBSTRING_SPEC_COPY(pos_str, str, c_str, \
 428                                          pos_start, start, c_start,\
 429                                          pos_end, end, c_end) \
 430   do {\
 431     SCM_VALIDATE_STRING_COPY (pos_str, str, c_str);\
 432     c_start = SCM_UNBNDP(start)? 0 : scm_to_size_t (start);\
 433     c_end = SCM_UNBNDP(end)? SCM_STRING_LENGTH(str) : scm_to_size_t (end);\
 434     SCM_ASSERT_RANGE (pos_start, start,\
 435                       0 <= c_start \
 436                       && (size_t) c_start <= SCM_STRING_LENGTH (str));\
 437     SCM_ASSERT_RANGE (pos_end, end,\
 438                       c_start <= c_end \
 439                       && (size_t) c_end <= SCM_STRING_LENGTH (str));\
 440   } while (0)
 441
 442 /* Deprecated because we don't want people to access the internals of
 443    symbols directly.
 444 */
 445
 446 SCM_DEPRECATED char *scm_i_deprecated_symbol_chars (SCM sym);
 447 SCM_DEPRECATED size_t scm_i_deprecated_symbol_length (SCM sym);
 448
 449 #define SCM_SYMBOL_CHARS(x)  scm_i_deprecated_symbol_chars(x)
 450 #define SCM_SYMBOL_LENGTH(x) scm_i_deprecated_symbol_length(x)
 451
 452 /* Deprecated because the macros used to evaluate the arguments more
 453    than once and because the symbol of a keyword now has no dash.
 454 */
 455
 456 SCM_DEPRECATED int scm_i_keywordp (SCM obj);
 457 SCM_DEPRECATED SCM scm_i_keywordsym (SCM keyword);
 458
 459 #define SCM_KEYWORDP(x)   scm_i_keywordp(x)
 460 #define SCM_KEYWORDSYM(x) scm_i_keywordsym(x)
 461
 462 /* Deprecated because we don't want to hand out unprotected pointers
 463    to arrays, vectors, etc. */
 464
 465 #define SCM_VECTOR_MAX_LENGTH ((1L << 24) - 1)
 466
 467 SCM_DEPRECATED int scm_i_vectorp (SCM x);
 468 SCM_DEPRECATED unsigned long scm_i_vector_length (SCM x);
 469 SCM_DEPRECATED const SCM *scm_i_velts (SCM x);
 470 SCM_DEPRECATED SCM *scm_i_writable_velts (SCM x);
 471 SCM_DEPRECATED SCM scm_i_vector_ref (SCM x, size_t idx);
 472 SCM_DEPRECATED void scm_i_vector_set (SCM x, size_t idx, SCM val);
 473 SCM_DEPRECATED SCM scm_vector_equal_p (SCM x, SCM y);
 474
 475 #define SCM_VECTORP(x)         scm_i_vectorp(x)
 476 #define SCM_VECTOR_LENGTH(x)   scm_i_vector_length(x)
 477 #define SCM_VELTS(x)           scm_i_velts(x)
 478 #define SCM_WRITABLE_VELTS(x)  scm_i_writable_velts(x)
 479 #define SCM_VECTOR_REF(x,y)    scm_i_vector_ref(x,y)
 480 #define SCM_VECTOR_SET(x,y,z)  scm_i_vector_set(x,y,z)
 481
 482 typedef scm_i_t_array scm_t_array;
 483
 484 SCM_DEPRECATED int scm_i_arrayp (SCM a);
 485 SCM_DEPRECATED size_t scm_i_array_ndim (SCM a);
 486 SCM_DEPRECATED int scm_i_array_contp (SCM a);
 487 SCM_DEPRECATED scm_t_array *scm_i_array_mem (SCM a);
 488 SCM_DEPRECATED SCM scm_i_array_v (SCM a);
 489 SCM_DEPRECATED size_t scm_i_array_base (SCM a);
 490 SCM_DEPRECATED scm_t_array_dim *scm_i_array_dims (SCM a);
 491
 492 #define SCM_ARRAYP(a)      scm_i_arrayp(a)
 493 #define SCM_ARRAY_NDIM(a)  scm_i_array_ndim(a)
 494 #define SCM_ARRAY_CONTP(a) scm_i_array_contp(a)
 495 #define SCM_ARRAY_MEM(a)   scm_i_array_mem(a)
 496 #define SCM_ARRAY_V(a)     scm_i_array_v(a)
 497 #define SCM_ARRAY_BASE(a)  scm_i_array_base(a)
 498 #define SCM_ARRAY_DIMS(a)  scm_i_array_dims(a)
 499
 500 SCM_DEPRECATED SCM scm_uniform_vector_read_x (SCM v, SCM port_or_fd,
 501                                               SCM start, SCM end);
 502 SCM_DEPRECATED SCM scm_uniform_vector_write (SCM v, SCM port_or_fd,
 503                                              SCM start, SCM end);
 504 SCM_DEPRECATED SCM scm_uniform_array_read_x (SCM ra, SCM port_or_fd,
 505                                              SCM start, SCM end);
 506 SCM_DEPRECATED SCM scm_uniform_array_write (SCM v, SCM port_or_fd,
 507                                             SCM start, SCM end);
 508
 509 /* Deprecated because they should not be lvalues and we want people to
 510    use the official interfaces.
 511  */
 512
 513 #define scm_cur_inp           scm_i_cur_inp ()
 514 #define scm_cur_outp          scm_i_cur_outp ()
 515 #define scm_cur_errp          scm_i_cur_errp ()
 516 #define scm_cur_loadp         scm_i_cur_loadp ()
 517 #define scm_progargs          scm_i_progargs ()
 518 #define scm_dynwinds          scm_i_deprecated_dynwinds ()
 519 #define scm_stack_base        scm_i_stack_base ()
 520
 521 SCM_DEPRECATED SCM scm_i_cur_inp (void);
 522 SCM_DEPRECATED SCM scm_i_cur_outp (void);
 523 SCM_DEPRECATED SCM scm_i_cur_errp (void);
 524 SCM_DEPRECATED SCM scm_i_cur_loadp (void);
 525 SCM_DEPRECATED SCM scm_i_progargs (void);
 526 SCM_DEPRECATED SCM scm_i_deprecated_dynwinds (void);
 527 SCM_DEPRECATED SCM_STACKITEM *scm_i_stack_base (void);
 528
 529 /* Deprecated because it evaluates its argument twice.
 530  */
 531 #define SCM_FLUIDP(x) scm_i_fluidp (x)
 532 SCM_DEPRECATED int scm_i_fluidp (SCM x);
 533
 534 /* Deprecated in Guile 1.9.5 on 2009-11-15 because these are IPv4-only
 535    functions which are deprecated upstream.  */
 536
 537 SCM_DEPRECATED SCM scm_inet_aton (SCM address);
 538 SCM_DEPRECATED SCM scm_inet_ntoa (SCM inetid);
 539
 540 /* In the old days, SCM_CRITICAL_SECTION_START stopped signal handlers
 541    from running, since in those days the handler directly ran scheme
 542    code, and that had to be avoided when the heap was not in a
 543    consistent state etc.  And since the scheme code could do a stack
 544    swapping new continuation etc, signals had to be deferred around
 545    various C library functions which were not safe or not known to be
 546    safe to swap away, which was a lot of stuff.
 547
 548    These days signals are implemented with asyncs and don't directly
 549    run scheme code in the handler, but hold it until an SCM_TICK etc
 550    where it will be safe.  This means interrupt protection is not
 551    needed and SCM_CRITICAL_SECTION_START / SCM_CRITICAL_SECTION_END is
 552    something of an anachronism.
 553
 554    What past SCM_CRITICAL_SECTION_START usage also did though was
 555    indicate code that was not reentrant, ie. could not be reentered by
 556    signal handler code.  The present definitions are a mutex lock,
 557    affording that reentrancy protection against the new guile 1.8
 558    free-running posix threads.
 559
 560    One big problem with the present defintions though is that code which
 561    throws an error from within a DEFER/ALLOW region will leave the
 562    defer_mutex locked and hence hang other threads that attempt to enter a
 563    similar DEFER/ALLOW region.
 564 */
 565
 566 SCM_DEPRECATED void scm_i_defer_ints_etc (void);
 567 #define SCM_DEFER_INTS scm_i_defer_ints_etc ()
 568 #define SCM_ALLOW_INTS scm_i_defer_ints_etc ()
 569 #define SCM_REDEFER_INTS scm_i_defer_ints_etc ()
 570 #define SCM_REALLOW_INTS scm_i_defer_ints_etc ()
 571
 572 /* In the old days (pre-1.8), this macro was sometimes used as an lvalue as
 573    in "scm_mask_ints = 1" to block async execution.  It no longer works.  */
 574 #define scm_mask_ints (scm_i_mask_ints ())
 575
 576 SCM_DEPRECATED int scm_i_mask_ints (void);
 577
 578 /* Deprecated since they are unnecessary and had not been documented.
 579  */
 580 SCM_DEPRECATED SCM scm_guard (SCM guardian, SCM obj, int throw_p);
 581 SCM_DEPRECATED SCM scm_get_one_zombie (SCM guardian);
 582
 583 /* Deprecated since guardians no longer have these special features.
 584  */
 585 SCM_DEPRECATED SCM scm_destroy_guardian_x (SCM guardian);
 586 SCM_DEPRECATED SCM scm_guardian_greedy_p (SCM guardian);
 587 SCM_DEPRECATED SCM scm_guardian_destroyed_p (SCM guardian);
 588
 589 \f
 590 /* GC-related things deprecated with the move to BDW-GC starting from 1.9.3
 591    (2009-09-15).  */
 592
 593 SCM_DEPRECATED unsigned long scm_mallocated;
 594 SCM_DEPRECATED unsigned long scm_mtrigger;
 595
 596 SCM_DEPRECATED size_t scm_max_segment_size;
 597
 598 #if defined (GUILE_DEBUG) || defined (GUILE_DEBUG_FREELIST)
 599 SCM_DEPRECATED SCM scm_map_free_list (void);
 600 #endif
 601
 602 #if defined (GUILE_DEBUG_FREELIST)
 603 SCM_DEPRECATED SCM scm_gc_set_debug_check_freelist_x (SCM flag);
 604 #endif
 605
 606 \f
 607
 608 /* Deprecated 2009-11-27, scm_call_N is sufficient */
 609 SCM_DEPRECATED scm_t_trampoline_0 scm_trampoline_0 (SCM proc);
 610 SCM_DEPRECATED scm_t_trampoline_1 scm_trampoline_1 (SCM proc);
 611 SCM_DEPRECATED scm_t_trampoline_2 scm_trampoline_2 (SCM proc);
 612
 613 \f
 614
 615 /* Deprecated 2009-12-06, use the procedures instead */
 616 #define SCM_PROCEDURE_WITH_SETTER_P(obj) (scm_is_true (scm_procedure_with_setter_p (obj)))
 617 #define SCM_PROCEDURE(obj) SCM_STRUCT_PROCEDURE (obj, 0)
 618 #define SCM_SETTER(obj) SCM_STRUCT_SETTER (obj, 1)
 619
 620 \f
 621
 622 /* Deprecated 2010-01-05, use SCM_PRIMITIVE_P instead */
 623 SCM_DEPRECATED int scm_i_subr_p (SCM x);
 624 #define scm_subr_p(x) (scm_i_subr_p (x))
 625
 626 \f
 627
 628 /* Deprecated 2010-01-31, use with-throw-handler instead */
 629 SCM_DEPRECATED SCM scm_lazy_catch (SCM tag, SCM thunk, SCM handler);
 630 SCM_DEPRECATED SCM scm_internal_lazy_catch (SCM tag,
 631                                             scm_t_catch_body body,
 632                                             void *body_data,
 633                                             scm_t_catch_handler handler,
 634                                             void *handler_data);
 635
 636 \f
 637
 638 /* Deprecated 2010-03-31, use array-equal? instead */
 639 SCM_DEPRECATED SCM scm_raequal (SCM ra0, SCM ra1);
 640
 641 /* Deprecated 2010-04-01, use the dynamic FFI instead */
 642 SCM_DEPRECATED SCM scm_dynamic_args_call (SCM symb, SCM dobj, SCM args);
 643
 644 /* Deprecated 2010-05-12, no replacement */
 645 SCM_DEPRECATED int scm_badargsp (SCM formals, SCM args);
 646
 647 /* Deprecated 2010-06-19, use call-with-error-handling instead */
 648 SCM_DEPRECATED SCM scm_internal_stack_catch (SCM tag,
 649                                              scm_t_catch_body body,
 650                                              void *body_data,
 651                                              scm_t_catch_handler handler,
 652                                              void *handler_data);
 653
 654 \f
 655
 656 /* These functions were "discouraged" in 1.8, and now are deprecated. */
 657
 658 /* scm_to_int, scm_from_int are the official functions to do the job,
 659    but there is nothing wrong with using scm_num2int, etc.
 660
 661    These could be trivially defined via macros, but we leave them as
 662    functions since existing code may take their addresses.
 663 */
 664
 665 SCM_DEPRECATED SCM scm_short2num (short n);
 666 SCM_DEPRECATED SCM scm_ushort2num (unsigned short n);
 667 SCM_DEPRECATED SCM scm_int2num (int n);
 668 SCM_DEPRECATED SCM scm_uint2num (unsigned int n);
 669 SCM_DEPRECATED SCM scm_long2num (long n);
 670 SCM_DEPRECATED SCM scm_ulong2num (unsigned long n);
 671 SCM_DEPRECATED SCM scm_size2num (size_t n);
 672 SCM_DEPRECATED SCM scm_ptrdiff2num (scm_t_ptrdiff n);
 673 SCM_DEPRECATED short scm_num2short (SCM num, unsigned long int pos,
 674                              const char *s_caller);
 675 SCM_DEPRECATED unsigned short scm_num2ushort (SCM num, unsigned long int pos,
 676                                        const char *s_caller);
 677 SCM_DEPRECATED int scm_num2int (SCM num, unsigned long int pos,
 678                          const char *s_caller);
 679 SCM_DEPRECATED unsigned int scm_num2uint (SCM num, unsigned long int pos,
 680                                    const char *s_caller);
 681 SCM_DEPRECATED long scm_num2long (SCM num, unsigned long int pos,
 682                            const char *s_caller);
 683 SCM_DEPRECATED unsigned long scm_num2ulong (SCM num, unsigned long int pos,
 684                                      const char *s_caller);
 685 SCM_DEPRECATED scm_t_ptrdiff scm_num2ptrdiff (SCM num, unsigned long int pos,
 686                                        const char *s_caller);
 687 SCM_DEPRECATED size_t scm_num2size (SCM num, unsigned long int pos,
 688                              const char *s_caller);
 689 #if SCM_SIZEOF_LONG_LONG != 0
 690 SCM_DEPRECATED SCM scm_long_long2num (long long sl);
 691 SCM_DEPRECATED SCM scm_ulong_long2num (unsigned long long sl);
 692 SCM_DEPRECATED long long scm_num2long_long (SCM num, unsigned long int pos,
 693                                      const char *s_caller);
 694 SCM_DEPRECATED unsigned long long scm_num2ulong_long (SCM num, unsigned long int pos,
 695                                                const char *s_caller);
 696 #endif
 697
 698 SCM_DEPRECATED SCM scm_make_real (double x);
 699 SCM_DEPRECATED double scm_num2dbl (SCM a, const char * why);
 700 SCM_DEPRECATED SCM scm_float2num (float n);
 701 SCM_DEPRECATED SCM scm_double2num (double n);
 702
 703 /* The next two are implemented in numbers.c since they use features
 704    only available there.
 705 */
 706 SCM_DEPRECATED float scm_num2float (SCM num, unsigned long int pos,
 707                              const char *s_caller);
 708 SCM_DEPRECATED double scm_num2double (SCM num, unsigned long int pos,
 709                                const char *s_caller);
 710
 711 SCM_DEPRECATED SCM scm_make_complex (double x, double y);
 712
 713 /* Discouraged because they don't make the encoding explicit.
 714  */
 715
 716 SCM_DEPRECATED SCM scm_mem2symbol (const char *mem, size_t len);
 717 SCM_DEPRECATED SCM scm_mem2uninterned_symbol (const char *mem, size_t len);
 718 SCM_DEPRECATED SCM scm_str2symbol (const char *str);
 719
 720 SCM_DEPRECATED SCM scm_take_str (char *s, size_t len);
 721 SCM_DEPRECATED SCM scm_take0str (char *s);
 722 SCM_DEPRECATED SCM scm_mem2string (const char *src, size_t len);
 723 SCM_DEPRECATED SCM scm_str2string (const char *src);
 724 SCM_DEPRECATED SCM scm_makfrom0str (const char *src);
 725 SCM_DEPRECATED SCM scm_makfrom0str_opt (const char *src);
 726
 727 /* Discouraged because scm_c_make_string has a better name and is more
 728    consistent with make-string.
 729  */
 730 SCM_DEPRECATED SCM scm_allocate_string (size_t len);
 731
 732 /* Discouraged because they are just strange.
 733  */
 734
 735 SCM_DEPRECATED SCM scm_make_keyword_from_dash_symbol (SCM symbol);
 736 SCM_DEPRECATED SCM scm_keyword_dash_symbol (SCM keyword);
 737
 738 /* Discouraged because it does not state what encoding S is in.
 739  */
 740
 741 SCM_DEPRECATED SCM scm_c_make_keyword (const char *s);
 742
 743 SCM_DEPRECATED unsigned int scm_thread_sleep (unsigned int);
 744 SCM_DEPRECATED unsigned long scm_thread_usleep (unsigned long);
 745 SCM_DEPRECATED int scm_internal_select (int fds,
 746                                         SELECT_TYPE *rfds,
 747                                         SELECT_TYPE *wfds,
 748                                         SELECT_TYPE *efds,
 749                                         struct timeval *timeout);
 750 \f
 751 /* Deprecated because the cuserid call is deprecated.
 752  */
 753 SCM_DEPRECATED SCM scm_cuserid (void);
 754
 755 \f
 756
 757 /* Deprecated because it's yet another property interface.
 758  */
 759 SCM_DEPRECATED SCM scm_primitive_make_property (SCM not_found_proc);
 760 SCM_DEPRECATED SCM scm_primitive_property_ref (SCM prop, SCM obj);
 761 SCM_DEPRECATED SCM scm_primitive_property_set_x (SCM prop, SCM obj, SCM val);
 762 SCM_DEPRECATED SCM scm_primitive_property_del_x (SCM prop, SCM obj);
 763
 764 \f
 765
 766 /* {The old whash table interface}
 767  * Deprecated, as the hash table interface is sufficient, and accessing
 768  * handles of weak hash tables is no longer supported.
 769  */
 770
 771 #define scm_whash_handle SCM
 772
 773 SCM_DEPRECATED SCM scm_whash_get_handle (SCM whash, SCM key);
 774 SCM_DEPRECATED int SCM_WHASHFOUNDP (SCM h);
 775 SCM_DEPRECATED SCM SCM_WHASHREF (SCM whash, SCM handle);
 776 SCM_DEPRECATED void SCM_WHASHSET (SCM whash, SCM handle, SCM obj);
 777 SCM_DEPRECATED SCM scm_whash_create_handle (SCM whash, SCM key);
 778 SCM_DEPRECATED SCM scm_whash_lookup (SCM whash, SCM obj);
 779 SCM_DEPRECATED void scm_whash_insert (SCM whash, SCM key, SCM obj);
 780
 781
 782 \f
 783
 784 /* No need for a table for names, and the struct->class mapping is
 785    maintained by GOOPS now.  */
 786 #define SCM_STRUCT_TABLE_NAME(X) SCM_CAR (X)
 787 #define SCM_SET_STRUCT_TABLE_NAME(X, NAME) SCM_SETCAR (X, NAME)
 788 #define SCM_STRUCT_TABLE_CLASS(X) SCM_CDR (X)
 789 #define SCM_SET_STRUCT_TABLE_CLASS(X, CLASS) SCM_SETCDR (X, CLASS)
 790
 791 SCM_DEPRECATED SCM scm_struct_table;
 792 SCM_DEPRECATED SCM scm_struct_create_handle (SCM obj);
 793
 794
 795 \f
 796
 797 /* Deprecated 26-05-2011, as the GC_STUBBORN API doesn't do anything any
 798    more.  */
 799 SCM_DEPRECATED SCM scm_immutable_cell (scm_t_bits car, scm_t_bits cdr);
 800 SCM_DEPRECATED SCM scm_immutable_double_cell (scm_t_bits car, scm_t_bits cbr,
 801                                        scm_t_bits ccr, scm_t_bits cdr);
 802
 803 \f
 804
 805 SCM_DEPRECATED scm_t_bits scm_i_deprecated_asrtgo (scm_t_bits condition);
 806
 807 /* Deprecated 08-01-2012, as it's undocumented and unused.  */
 808 #define SCM_ASRTGO(_cond, _label)               \
 809   do { if (!scm_i_deprecated_asrtgo(_cond)) goto _label; } while (0)
 810
 811 \f
 812
 813 void scm_i_init_deprecated (void);
 814
 815 #endif
 816
 817 #endif /* SCM_DEPRECATED_H */