diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1996-08-20 17:12:05 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1996-08-20 17:12:05 +0000 |
commit | 8a5ae618b6ba0cf3ab07ed6786c9c380ae4467e4 (patch) | |
tree | 8d34c5d2bc70dd4caa9fe1212d6eb6c27da6e7a3 /libguile/srcprop.h | |
parent | 575888bda839f212ce1133f953e610e9acb0e90e (diff) | |
download | guile-8a5ae618b6ba0cf3ab07ed6786c9c380ae4467e4.tar.gz |
* srcprop.h: New file: source properties.
Diffstat (limited to 'libguile/srcprop.h')
-rw-r--r-- | libguile/srcprop.h | 131 |
1 files changed, 131 insertions, 0 deletions
diff --git a/libguile/srcprop.h b/libguile/srcprop.h new file mode 100644 index 000000000..d9658d8b7 --- /dev/null +++ b/libguile/srcprop.h @@ -0,0 +1,131 @@ +/* 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 "__scm.h" + + + +SCM scm_i_copy; + +/* {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_hashq_get_handle (whash, key) +#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_hashq_create_handle_x (whash, key, SCM_UNSPECIFIED) +#define scm_whash_insert(whash, key, obj) scm_hashq_set_x (whash, key, obj) +#define scm_whash_lookup(whash, obj) scm_hashq_ref (whash, obj, SCM_BOOL_F) + +/* {Source properties} + */ + +extern long 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) == 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_CAR (p) = SCM_CAR (p) | (1L << 16)) +#define CLEARSRCPROPBRK(p) (SCM_CAR (p) = SCM_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)) + + + +#ifdef __STDC__ +extern SCM scm_srcprops_to_plist (SCM obj); +extern SCM _scm_make_srcprops (int line, int col, SCM fname, SCM copy, SCM plist); +extern SCM scm_source_property (SCM obj, SCM key); +extern SCM scm_source_properties (SCM obj); +extern SCM scm_set_source_properties_x (SCM obj, SCM props); +extern void scm_init_srcprop (void); +#else +extern SCM scm_srcprops_to_plist (); +extern SCM _scm_make_srcprops (); +extern SCM scm_source_property (); +extern SCM scm_source_properties (); +extern SCM scm_set_source_properties_x (); +extern void scm_init_srcprop (); +#endif + +#endif /* SRCPROPH */ |