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; |
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); |
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 |
/* |
/* |