diff options
Diffstat (limited to 'libguile/srcprop.h')
-rw-r--r-- | libguile/srcprop.h | 134 |
1 files changed, 134 insertions, 0 deletions
diff --git a/libguile/srcprop.h b/libguile/srcprop.h new file mode 100644 index 000000000..ae9358b0c --- /dev/null +++ b/libguile/srcprop.h @@ -0,0 +1,134 @@ +/* classes: h_files */ + +#ifndef SRCPROPH +#define SRCPROPH +/* Copyright (C) 1995,1996 Mikael Djurfeldt + * + * 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, 675 Mass Ave, Cambridge, MA 02139, 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. + * + * The author can be reached at djurfeldt@nada.kth.se + * Mikael Djurfeldt, SANS/NADA KTH, 10044 STOCKHOLM, SWEDEN + */ + + +#include "libguile/__scm.h" + + + +/* {The old whash table interface} + * *fixme* This is a temporary solution until weak hash table access + * has been optimized for speed (which is quite necessary, if they are + * used for recording of source code positions...) + */ + +#define scm_whash_handle SCM + +#define scm_whash_get_handle(whash, key) scm_hash_fn_get_handle (whash, key, scm_ihashq, scm_sloppy_assq, 0) +#define SCM_WHASHFOUNDP(h) ((h) != SCM_BOOL_F) +#define SCM_WHASHREF(whash, handle) SCM_CDR (handle) +#define SCM_WHASHSET(whash, handle, obj) SCM_SETCDR (handle, obj) +#define scm_whash_create_handle(whash, key) scm_hash_fn_create_handle_x (whash, key, SCM_UNSPECIFIED, scm_ihashq, scm_sloppy_assq, 0) +#define scm_whash_lookup(whash, obj) scm_hash_fn_ref (whash, obj, SCM_BOOL_F, scm_ihashq, scm_sloppy_assq, 0) +#define scm_whash_insert(whash, key, obj) \ +{ \ + register SCM w = (whash); \ + SCM_WHASHSET (w, scm_whash_create_handle (w, key), obj); \ +} \ + + +/* {Source properties} + */ + +extern long scm_tc16_srcprops; + +typedef struct scm_srcprops +{ + unsigned long pos; + SCM fname; + SCM copy; + SCM plist; +} scm_srcprops; + +#define SRCPROPS_CHUNKSIZE 2047 /* Number of srcprops per chunk */ +typedef struct scm_srcprops_chunk +{ + struct scm_srcprops_chunk *next; + scm_srcprops srcprops[1]; +} scm_srcprops_chunk; + +#define SRCPROPSP(p) (SCM_TYP16 (p) == scm_tc16_srcprops) +#define SRCPROPBRK(p) ((1L << 16) & SCM_CAR (p) ? SCM_BOOL_T : SCM_BOOL_F) +#define SRCPROPPOS(p) ((scm_srcprops *) SCM_CDR (p))->pos +#define SRCPROPLINE(p) (SRCPROPPOS(p) >> 12) +#define SRCPROPCOL(p) (SRCPROPPOS(p) & 0x0fffL) +#define SRCPROPFNAME(p) ((scm_srcprops *) SCM_CDR (p))->fname +#define SRCPROPCOPY(p) ((scm_srcprops *) SCM_CDR (p))->copy +#define SRCPROPPLIST(p) ((scm_srcprops *) SCM_CDR (p))->plist +#define SETSRCPROPBRK(p) (SCM_SETOR_CAR (p, (1L << 16))) +#define CLEARSRCPROPBRK(p) SCM_SETAND_CAR (p, ~(1L << 16)) +#define SRCPROPMAKPOS(l,c) (((l) << 12) + (c)) +#define SETSRCPROPPOS(p,l,c) (SRCPROPPOS (p) = SRCPROPMAKPOS (l, c)) +#define SETSRCPROPLINE(p,l) SETSRCPROPPOS (p, l, SRCPROPCOL (p)) +#define SETSRCPROPCOL(p,c) SETSRCPROPPOS (p, SRCPROPLINE (p), c) + +#define SRCBRKP(x) (SCM_NIMP (t.arg1 = scm_whash_lookup (scm_source_whash, (x)))\ + && SRCPROPSP (t.arg1)\ + && (1L << 16) & SCM_CAR (t.arg1)) + +#define PROCTRACEP(x) SCM_NFALSEP (scm_procedure_property (x, scm_i_trace)) + +extern SCM scm_i_filename; +extern SCM scm_i_copy; +extern SCM scm_i_line; +extern SCM scm_i_column; +extern SCM scm_i_breakpoint; + + + + +extern SCM scm_srcprops_to_plist SCM_P ((SCM obj)); +extern SCM scm_make_srcprops SCM_P ((int line, int col, SCM fname, SCM copy, SCM plist)); +extern SCM scm_source_property SCM_P ((SCM obj, SCM key)); +extern SCM scm_set_source_property_x SCM_P ((SCM obj, SCM key, SCM datum)); +extern SCM scm_source_properties SCM_P ((SCM obj)); +extern SCM scm_set_source_properties_x SCM_P ((SCM obj, SCM props)); +extern void scm_finish_srcprop SCM_P ((void)); +extern void scm_init_srcprop SCM_P ((void)); + +#endif /* SRCPROPH */ |