/[guile]/guile/guile-core/libguile/srcprop.h
ViewVC logotype

Diff of /guile/guile-core/libguile/srcprop.h

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.30 by dirk, Thu Mar 14 06:45:56 2002 UTC revision 1.31 by dirk, Tue Mar 26 00:19:04 2002 UTC
# Line 115  typedef struct scm_t_srcprops_chunk Line 115  typedef struct scm_t_srcprops_chunk
115  #define SETSRCPROPLINE(p,l) SETSRCPROPPOS (p, l, SRCPROPCOL (p))  #define SETSRCPROPLINE(p,l) SETSRCPROPPOS (p, l, SRCPROPCOL (p))
116  #define SETSRCPROPCOL(p,c) SETSRCPROPPOS (p, SRCPROPLINE (p), c)  #define SETSRCPROPCOL(p,c) SETSRCPROPPOS (p, SRCPROPLINE (p), c)
117    
 #define SRCBRKP(x) (!SCM_IMP (arg1 = scm_whash_lookup (scm_source_whash, (x)))\  
                     && SRCPROPSP (arg1)\  
                     && SRCPROPBRK (arg1))  
   
118  #define PROCTRACEP(x) (!SCM_FALSEP (scm_procedure_property (x, scm_sym_trace)))  #define PROCTRACEP(x) (!SCM_FALSEP (scm_procedure_property (x, scm_sym_trace)))
119    
120  SCM_API SCM scm_sym_filename;  SCM_API SCM scm_sym_filename;
# Line 129  SCM_API SCM scm_sym_breakpoint; Line 125  SCM_API SCM scm_sym_breakpoint;
125    
126    
127    
128    SCM_API int scm_c_source_property_breakpoint_p (SCM form);
129  SCM_API SCM scm_srcprops_to_plist (SCM obj);  SCM_API SCM scm_srcprops_to_plist (SCM obj);
130  SCM_API SCM scm_make_srcprops (long line, int col, SCM fname, SCM copy, SCM plist);  SCM_API SCM scm_make_srcprops (long line, int col, SCM fname, SCM copy, SCM plist);
131  SCM_API SCM scm_source_property (SCM obj, SCM key);  SCM_API SCM scm_source_property (SCM obj, SCM key);
# Line 139  SCM_API SCM scm_set_source_properties_x Line 135  SCM_API SCM scm_set_source_properties_x
135  SCM_API void scm_finish_srcprop (void);  SCM_API void scm_finish_srcprop (void);
136  SCM_API void scm_init_srcprop (void);  SCM_API void scm_init_srcprop (void);
137    
138    #if SCM_ENABLE_DEPRECATED == 1
139    #define SRCBRKP(x) (scm_source_property_breakpoint_p (x))
140    #endif
141    
142  #endif  /* SCM_SRCPROP_H */  #endif  /* SCM_SRCPROP_H */
143    
144  /*  /*

Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26