[uim-commit] r3016 - branches/r5rs/sigscheme/src
yamaken at freedesktop.org
yamaken at freedesktop.org
Sun Jan 29 10:56:11 PST 2006
Author: yamaken
Date: 2006-01-29 10:56:05 -0800 (Sun, 29 Jan 2006)
New Revision: 3016
Modified:
branches/r5rs/sigscheme/src/operations-srfi1.c
branches/r5rs/sigscheme/src/operations-srfi2.c
branches/r5rs/sigscheme/src/operations-srfi23.c
branches/r5rs/sigscheme/src/operations-srfi38.c
branches/r5rs/sigscheme/src/operations-srfi60.c
branches/r5rs/sigscheme/src/operations-srfi8.c
branches/r5rs/sigscheme/src/operations.c
branches/r5rs/sigscheme/src/sigscheme.h
branches/r5rs/sigscheme/src/storage-compact.h
branches/r5rs/sigscheme/src/storage-continuation.c
branches/r5rs/sigscheme/src/storage-fatty.h
branches/r5rs/sigscheme/src/storage-gc.c
branches/r5rs/sigscheme/src/storage-protection.c
branches/r5rs/sigscheme/src/storage-symbol.c
branches/r5rs/sigscheme/src/syntax.c
Log:
* sigscheme/src/storage-fatty.h
* sigscheme/src/storage-continuation.c
* sigscheme/src/operations.c
* sigscheme/src/storage-protection.c
* sigscheme/src/storage-gc.c
* sigscheme/src/storage-compact.h
* sigscheme/src/operations-srfi38.c
* sigscheme/src/operations-srfi1.c
* sigscheme/src/operations-srfi2.c
* sigscheme/src/storage-symbol.c
* sigscheme/src/sigscheme.h
* sigscheme/src/operations-srfi8.c
* sigscheme/src/syntax.c
* sigscheme/src/operations-srfi23.c
* sigscheme/src/operations-srfi60.c
- Trim comment decorations at column 77 by following scripts
perl -i -pe 's/^(.{70})=+\s*$/\1=======\n/' *.[ch]
perl -i -pe 's/^(.{70})=+\*\/\s*$/\1=====*\/\n/' *.[ch]
Modified: branches/r5rs/sigscheme/src/operations-srfi1.c
===================================================================
--- branches/r5rs/sigscheme/src/operations-srfi1.c 2006-01-29 18:40:05 UTC (rev 3015)
+++ branches/r5rs/sigscheme/src/operations-srfi1.c 2006-01-29 18:56:05 UTC (rev 3016)
@@ -73,9 +73,9 @@
SCM_REGISTER_FUNC_TABLE(scm_srfi1_func_info_table);
}
-/*==============================================================================
+/*===========================================================================
SRFI1 : The procedures : Constructors
-==============================================================================*/
+===========================================================================*/
ScmObj
scm_p_srfi1_xcons(ScmObj a, ScmObj b)
{
@@ -248,9 +248,9 @@
return head;
}
-/*==============================================================================
+/*===========================================================================
SRFI1 : The procedures : Predicates
-==============================================================================*/
+===========================================================================*/
ScmObj
scm_p_srfi1_proper_listp(ScmObj obj)
{
@@ -603,9 +603,9 @@
return lst;
}
-/*==============================================================================
+/*===========================================================================
SRFI1 : The procedures : Miscellaneous
-==============================================================================*/
+===========================================================================*/
ScmObj
scm_p_srfi1_lengthplus(ScmObj lst)
{
Modified: branches/r5rs/sigscheme/src/operations-srfi2.c
===================================================================
--- branches/r5rs/sigscheme/src/operations-srfi2.c 2006-01-29 18:40:05 UTC (rev 3015)
+++ branches/r5rs/sigscheme/src/operations-srfi2.c 2006-01-29 18:56:05 UTC (rev 3016)
@@ -76,13 +76,13 @@
env = eval_state->env;
- /*========================================================================
+ /*=======================================================================
(and-let* <claws> <body>)
<claws> ::= '() | (cons <claw> <claws>)
<claw> ::= (<variable> <expression>) | (<expression>)
| <bound-variable>
- ========================================================================*/
+ =======================================================================*/
if (CONSP(claws)) {
FOR_EACH (claw, claws) {
if (CONSP(claw)) {
Modified: branches/r5rs/sigscheme/src/operations-srfi23.c
===================================================================
--- branches/r5rs/sigscheme/src/operations-srfi23.c 2006-01-29 18:40:05 UTC (rev 3015)
+++ branches/r5rs/sigscheme/src/operations-srfi23.c 2006-01-29 18:56:05 UTC (rev 3016)
@@ -30,7 +30,7 @@
* WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
* OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
* ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
- * =========================================================================*/
+===========================================================================*/
/*=======================================
System Include
=======================================*/
@@ -66,9 +66,9 @@
SCM_REGISTER_FUNC_TABLE(scm_srfi23_func_info_table);
}
-/*=============================================================================
+/*===========================================================================
SRFI23 : Error reporting mechanism
-=============================================================================*/
+===========================================================================*/
/*
* This code implements the '4.' of following Specification defined in SRFI-34.
*
Modified: branches/r5rs/sigscheme/src/operations-srfi38.c
===================================================================
--- branches/r5rs/sigscheme/src/operations-srfi38.c 2006-01-29 18:40:05 UTC (rev 3015)
+++ branches/r5rs/sigscheme/src/operations-srfi38.c 2006-01-29 18:56:05 UTC (rev 3016)
@@ -30,7 +30,7 @@
* WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
* OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
* ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
- * =========================================================================*/
+===========================================================================*/
/*=======================================
System Include
=======================================*/
@@ -70,9 +70,9 @@
scm_writess_func = scm_write_to_port_with_shared_structure;
}
-/*=============================================================================
+/*===========================================================================
SRFI38 : External Representation for Data With Shared Structure
-=============================================================================*/
+===========================================================================*/
ScmObj
scm_p_srfi38_write_with_shared_structure(ScmObj obj, ScmObj args)
{
Modified: branches/r5rs/sigscheme/src/operations-srfi60.c
===================================================================
--- branches/r5rs/sigscheme/src/operations-srfi60.c 2006-01-29 18:40:05 UTC (rev 3015)
+++ branches/r5rs/sigscheme/src/operations-srfi60.c 2006-01-29 18:56:05 UTC (rev 3016)
@@ -30,7 +30,7 @@
* WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
* OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
* ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
- * =========================================================================*/
+===========================================================================*/
/*=======================================
System Include
=======================================*/
Modified: branches/r5rs/sigscheme/src/operations-srfi8.c
===================================================================
--- branches/r5rs/sigscheme/src/operations-srfi8.c 2006-01-29 18:40:05 UTC (rev 3015)
+++ branches/r5rs/sigscheme/src/operations-srfi8.c 2006-01-29 18:56:05 UTC (rev 3016)
@@ -30,7 +30,7 @@
* WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
* OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
* ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
- * =========================================================================*/
+===========================================================================*/
/*=======================================
System Include
=======================================*/
Modified: branches/r5rs/sigscheme/src/operations.c
===================================================================
--- branches/r5rs/sigscheme/src/operations.c 2006-01-29 18:40:05 UTC (rev 3015)
+++ branches/r5rs/sigscheme/src/operations.c 2006-01-29 18:56:05 UTC (rev 3016)
@@ -116,9 +116,9 @@
/*=======================================
Function Implementations
=======================================*/
-/*==============================================================================
+/*===========================================================================
R5RS : 6.1 Equivalence predicates
-==============================================================================*/
+===========================================================================*/
ScmObj
scm_p_eqp(ScmObj obj1, ScmObj obj2)
{
@@ -247,9 +247,9 @@
/*=======================================
R5RS : 6.2 Numbers
=======================================*/
-/*==============================================================================
+/*===========================================================================
R5RS : 6.2 Numbers : 6.2.5 Numerical Operations
-==============================================================================*/
+===========================================================================*/
/* Note: SigScheme supports only the integer part of the numerical tower. */
ScmObj
@@ -584,9 +584,9 @@
return MAKE_INT(n1 % n2);
}
-/*==============================================================================
+/*===========================================================================
R5RS : 6.2 Numbers : 6.2.6 Numerical input and output
-==============================================================================*/
+===========================================================================*/
static int
prepare_radix(const char *funcname, ScmObj args)
@@ -691,9 +691,9 @@
/*===================================
R5RS : 6.3 Other data types
===================================*/
-/*==============================================================================
+/*===========================================================================
R5RS : 6.3 Other data types : 6.3.1 Booleans
-==============================================================================*/
+===========================================================================*/
ScmObj
scm_p_not(ScmObj obj)
{
@@ -710,9 +710,9 @@
return MAKE_BOOL(EQ(obj, SCM_FALSE) || EQ(obj, SCM_TRUE));
}
-/*==============================================================================
+/*===========================================================================
R5RS : 6.3 Other data types : 6.3.2 Pairs and lists
-==============================================================================*/
+===========================================================================*/
ScmObj
scm_p_car(ScmObj obj)
{
@@ -1105,9 +1105,9 @@
#undef ASSOC_BODY
-/*==============================================================================
+/*===========================================================================
R5RS : 6.3 Other data types : 6.3.3 Symbols
-==============================================================================*/
+===========================================================================*/
ScmObj
scm_p_symbolp(ScmObj obj)
{
@@ -1136,9 +1136,9 @@
return scm_intern(SCM_STRING_STR(str));
}
-/*==============================================================================
+/*===========================================================================
R5RS : 6.3 Other data types : 6.3.4 Characters
-==============================================================================*/
+===========================================================================*/
ScmObj
scm_p_charp(ScmObj obj)
{
@@ -1380,9 +1380,9 @@
return ch;
}
-/*==============================================================================
+/*===========================================================================
R5RS : 6.3 Other data types : 6.3.5 Strings
-==============================================================================*/
+===========================================================================*/
ScmObj
scm_p_stringp(ScmObj obj)
{
@@ -2016,9 +2016,9 @@
return str;
}
-/*==============================================================================
+/*===========================================================================
R5RS : 6.3 Other data types : 6.3.6 Vectors
-==============================================================================*/
+===========================================================================*/
ScmObj
scm_p_vectorp(ScmObj obj)
{
Modified: branches/r5rs/sigscheme/src/sigscheme.h
===================================================================
--- branches/r5rs/sigscheme/src/sigscheme.h 2006-01-29 18:40:05 UTC (rev 3015)
+++ branches/r5rs/sigscheme/src/sigscheme.h 2006-01-29 18:56:05 UTC (rev 3016)
@@ -226,9 +226,9 @@
#define SCM_WRITESS_TO_PORT(port, obj) ((*scm_writess_func)(port, obj))
-/*============================================================================
+/*===========================================================================
Type Definitions
-============================================================================*/
+===========================================================================*/
/*=======================================
Primitive Types
=======================================*/
@@ -846,9 +846,9 @@
#define SCM_C_FUNCPOINTER_SET_VALUE(o, funcptr) \
SCM_SAL_C_FUNCPOINTER_SET_VALUE((o), (funcptr))
-/*============================================================================
+/*===========================================================================
Environment Specifiers
-============================================================================*/
+===========================================================================*/
#define SCM_INTERACTION_ENV SCM_SAL_INTERACTION_ENV
/*
* Current implementation cannot handle scheme-report-environment and
@@ -859,10 +859,10 @@
#define SCM_ENVP(env) SCM_SAL_ENVP(env)
-/*============================================================================
+/*===========================================================================
Abstract ScmObj Reference For Storage-Representation Independent Efficient
List Operations
-============================================================================*/
+===========================================================================*/
#define SCM_INVALID_REF SCM_SAL_INVALID_REF
#define SCM_REF_CAR(kons) SCM_SAL_REF_CAR(kons)
@@ -875,9 +875,9 @@
/* RFC: Is there a better name? */
#define SCM_SET(ref, obj) SCM_SAL_SET((ref), (obj))
-/*============================================================================
+/*===========================================================================
Special Constants and Predicates
-============================================================================*/
+===========================================================================*/
#define SCM_INVALID SCM_SAL_INVALID
#define SCM_NULL SCM_SAL_NULL
#define SCM_TRUE SCM_SAL_TRUE
@@ -892,9 +892,9 @@
#define SCM_NFALSEP(o) (!SCM_EQ((o), SCM_FALSE))
#define SCM_EOFP(o) (SCM_EQ((o), SCM_EOF))
-/*============================================================================
+/*===========================================================================
Predefined Symbols
-============================================================================*/
+===========================================================================*/
/* for list construction */
#define SCM_SYM_QUOTE SCM_SAL_SYM_QUOTE
#define SCM_SYM_QUASIQUOTE SCM_SAL_SYM_QUASIQUOTE
Modified: branches/r5rs/sigscheme/src/storage-compact.h
===================================================================
--- branches/r5rs/sigscheme/src/storage-compact.h 2006-01-29 18:40:05 UTC (rev 3015)
+++ branches/r5rs/sigscheme/src/storage-compact.h 2006-01-29 18:56:05 UTC (rev 3016)
@@ -186,9 +186,9 @@
ScmObj cdr;
};
-/*==============================================================================
+/*===========================================================================
Internal Macros
-==============================================================================*/
+===========================================================================*/
/*=======================================
Masks Offsets, and Tags
=======================================*/
@@ -207,9 +207,9 @@
#define SCM_TAG_OTHERS (0x2 << SCM_TAG_OFFSET)
#define SCM_TAG_IMM (0x3 << SCM_TAG_OFFSET)
-/*==============================================================================
+/*===========================================================================
Masks Offsets, and Tags : Others' CAR
-==============================================================================*/
+===========================================================================*/
#define SCM_OTHERS_CAR_VAL_OFFSET_SYMBOL \
(SCM_GCBIT_OFFSET + SCM_GCBIT_WIDTH)
#define SCM_OTHERS_CAR_VAL_OFFSET_STRING \
@@ -257,9 +257,9 @@
#define SCM_OTHERS_CAR_VAL_ALIGNMENT_FREECELL \
SCM_ALIGN_SCMCELL
-/*==============================================================================
+/*===========================================================================
Masks Offsets, and Tags : Others' CDR
-==============================================================================*/
+===========================================================================*/
/* primary tag */
#define SCM_OTHERS_CDR_PRIMARY_TAG_WIDTH 3
#define SCM_OTHERS_CDR_PRIMARY_TAG_OFFSET 0
@@ -471,9 +471,9 @@
#define SCM_OTHERS_CDR_VAL_MASK_FREECELL \
(~0U << SCM_OTHERS_CDR_EXT_VAL_OFFSET)
-/*==============================================================================
+/*===========================================================================
Masks Offsets, and Tags : Immediates
-==============================================================================*/
+===========================================================================*/
/* mask */
#define SCM_IMM_TAG_MASK_INT (SCM_TAG_MASK | (0x1 << 3))
#define SCM_IMM_TAG_MASK_CHAR (SCM_TAG_MASK | (0x3 << 3))
@@ -652,9 +652,9 @@
(((int)(val)) \
<< SCM_IMM_VAL_OFFSET_##type))))
-/*==============================================================================
+/*===========================================================================
SAL Macros
-==============================================================================*/
+===========================================================================*/
/*=======================================
Object Representation Information
@@ -824,9 +824,9 @@
#define SCM_SAL_TYPE(a) scm_type(a)
extern enum ScmObjType scm_type(ScmObj obj);
-/*==============================================================================
+/*===========================================================================
Accessors For Scheme Objects : Cons
-==============================================================================*/
+===========================================================================*/
#define SCM_SAL_CONS_CAR(a) ((ScmObj)(SCM_CONS_CAR_VAL(a)))
#define SCM_SAL_CONS_CDR(a) ((ScmObj)(SCM_CONS_CDR_VAL(a)))
#define SCM_SAL_CONS_SET_CAR(a, val) SCM_CONS_SET_CAR_VAL((a), (val))
@@ -835,17 +835,17 @@
#define SCM_SAL_CONS_SET_MUTABLE(o)
#define SCM_SAL_CONS_SET_IMMUTABLE(o)
-/*==============================================================================
+/*===========================================================================
Accessors For Scheme Objects : Closure
-==============================================================================*/
+===========================================================================*/
#define SCM_SAL_CLOSURE_EXP(a) ((ScmObj)(SCM_CLOSURE_CAR_VAL(a)))
#define SCM_SAL_CLOSURE_ENV(a) ((ScmObj)(SCM_CLOSURE_CDR_VAL(a)))
#define SCM_SAL_CLOSURE_SET_EXP(a, val) SCM_CLOSURE_SET_CAR_VAL((a), (val))
#define SCM_SAL_CLOSURE_SET_ENV(a, val) SCM_CLOSURE_SET_CDR_VAL((a), (val))
-/*==============================================================================
+/*===========================================================================
Accessors For Scheme Objects : Others
-==============================================================================*/
+===========================================================================*/
/*
* Symbol
*/
@@ -1021,9 +1021,9 @@
#define SCM_SAL_FREECELL_SET_NEXT(a, val) \
SCM_OTHERS_SET_CAR_VAL((a), FREECELL, (val))
-/*==============================================================================
+/*===========================================================================
Accessors For Scheme Objects : Immediates
-==============================================================================*/
+===========================================================================*/
/* Int */
#define SCM_SAL_INT_VALUE(a) ((int)(SCM_IMM_VAL((a), INT)))
#define SCM_SAL_INT_SET_VALUE(a, val) SCM_IMM_SET_VAL((a), INT, (val))
@@ -1032,9 +1032,9 @@
#define SCM_SAL_CHAR_VALUE(a) ((int)(SCM_IMM_VAL((a), CHAR)))
#define SCM_SAL_CHAR_SET_VALUE(a, ch) SCM_IMM_SET_VAL((a), CHAR, (ch))
-/*============================================================================
+/*===========================================================================
GC Related Operations
-============================================================================*/
+===========================================================================*/
#define SCM_SAL_RECLAIM_CELL(cell, next) \
do { \
SCM_ENTYPE_FREECELL(cell); \
@@ -1079,9 +1079,9 @@
(SCM_CELL_SET_CAR((a), \
SCM_STRIP_GCBIT(SCM_CELL_CAR(a)) | SCM_GCBIT_UNMARKED))
-/*============================================================================
+/*===========================================================================
Environment Specifiers
-============================================================================*/
+===========================================================================*/
#define SCM_SAL_INTERACTION_ENV SCM_NULL
/*
* Current implementation cannot handle scheme-report-environment and
@@ -1092,10 +1092,10 @@
#define SCM_SAL_ENVP(env) (NULLP(env) || CONSP(env))
-/*============================================================================
+/*===========================================================================
Abstract ScmObj Reference For Storage-Representation Independent Efficient
List Operations
-============================================================================*/
+===========================================================================*/
#define SCM_SAL_INVALID_REF NULL
#define SCM_SAL_REF_CAR(cons) (&SCM_CELL_CAR(cons))
@@ -1109,9 +1109,9 @@
#define SCM_SAL_SET(ref, obj) \
(*(ref) = (ScmObj)(SCM_GCBIT(*(ref)) | SCM_STRIP_GCBIT(obj)))
-/*============================================================================
+/*===========================================================================
Special Constants and Predicates
-============================================================================*/
+===========================================================================*/
#define SCM_SAL_NULL ((ScmObj)(SCM_IMM_TAG_NULL))
#define SCM_SAL_EOF ((ScmObj)(SCM_IMM_TAG_EOF))
#define SCM_SAL_UNDEF ((ScmObj)(SCM_IMM_TAG_UNDEF))
@@ -1127,9 +1127,9 @@
#define SCM_SAL_EQ(a, b) (SCM_STRIP_GCBIT(a) == SCM_STRIP_GCBIT(b))
-/*============================================================================
+/*===========================================================================
Predefined Symbols
-============================================================================*/
+===========================================================================*/
/* for list construction */
#define SCM_SAL_SYM_QUOTE scm_sym_quote
#define SCM_SAL_SYM_QUASIQUOTE scm_sym_quasiquote
Modified: branches/r5rs/sigscheme/src/storage-continuation.c
===================================================================
--- branches/r5rs/sigscheme/src/storage-continuation.c 2006-01-29 18:40:05 UTC (rev 3015)
+++ branches/r5rs/sigscheme/src/storage-continuation.c 2006-01-29 18:56:05 UTC (rev 3016)
@@ -118,9 +118,9 @@
finalize_dynamic_extent();
}
-/*============================================================================
+/*===========================================================================
Dynamic Extent
-============================================================================*/
+===========================================================================*/
#define MAKE_DYNEXT_FRAME(before, after) CONS((before), (after))
#define DYNEXT_FRAME_BEFORE CAR
#define DYNEXT_FRAME_AFTER CDR
@@ -205,9 +205,9 @@
return ret;
}
-/*============================================================================
+/*===========================================================================
Continuation
-============================================================================*/
+===========================================================================*/
static void
initialize_continuation_env(void)
{
@@ -352,9 +352,9 @@
}
}
-/*============================================================================
+/*===========================================================================
Trace Stack
-============================================================================*/
+===========================================================================*/
void
scm_push_trace_frame(ScmObj obj, ScmObj env)
{
Modified: branches/r5rs/sigscheme/src/storage-fatty.h
===================================================================
--- branches/r5rs/sigscheme/src/storage-fatty.h 2006-01-29 18:40:05 UTC (rev 3015)
+++ branches/r5rs/sigscheme/src/storage-fatty.h 2006-01-29 18:56:05 UTC (rev 3016)
@@ -378,14 +378,14 @@
#define SCM_SAL_VALUEPACKET_SET_VALUES(o, v) (SCM_VALUEPACKET_VALUES(o) = (v))
#endif /* SCM_USE_VALUECONS */
-/*============================================================================
+/*===========================================================================
Special Constants (such as SCM_NULL)
-============================================================================*/
+===========================================================================*/
#define SCM_SAL_CONSTANTP(o) (SCM_TYPE(o) == ScmConstant)
-/*============================================================================
+/*===========================================================================
C Pointer Object
-============================================================================*/
+===========================================================================*/
#define SCM_SAL_C_POINTERP(o) (SCM_TYPE(o) == ScmCPointer)
#define SCM_SAL_ENTYPE_C_POINTER(o) (SCM_ENTYPE((o), ScmCPointer))
#define SCM_SAL_C_POINTER_VALUE(o) \
@@ -399,9 +399,9 @@
#define SCM_SAL_C_FUNCPOINTER_SET_VALUE(o, ptr) \
(SCM_C_FUNCPOINTER_VALUE(o) = (ptr))
-/*============================================================================
+/*===========================================================================
GC Related Operations
-============================================================================*/
+===========================================================================*/
#define SCM_SAL_FREECELLP(o) (SCM_TYPE(o) == ScmFreeCell)
#define SCM_SAL_AS_FREECELL(o) (SCM_ASSERT_TYPE(SCM_FREECELLP(o), (o)))
#define SCM_SAL_FREECELL_NEXT(o) (SCM_AS_FREECELL(o)->obj.cons.car)
@@ -425,9 +425,9 @@
#define SCM_SAL_DO_MARK(o) ((o)->attr.v.gcmark = scm_true)
#define SCM_SAL_DO_UNMARK(o) ((o)->attr.v.gcmark = scm_false)
-/*============================================================================
+/*===========================================================================
Environment Specifiers
-============================================================================*/
+===========================================================================*/
#define SCM_SAL_INTERACTION_ENV SCM_NULL
/*
* Current implementation cannot handle scheme-report-environment and
@@ -438,10 +438,10 @@
#define SCM_SAL_ENVP(env) (NULLP(env) || CONSP(env))
-/*============================================================================
+/*===========================================================================
Abstract ScmObj Reference For Storage-Representation Independent Efficient
List Operations
-============================================================================*/
+===========================================================================*/
#define SCM_SAL_INVALID_REF NULL
#define SCM_SAL_REF_CAR(kons) (&SCM_AS_CONS(kons)->obj.cons.car)
@@ -458,9 +458,9 @@
/* RFC: Is there a better name? */
#define SCM_SAL_SET(ref, obj) (*(ref) = (obj))
-/*============================================================================
+/*===========================================================================
Special Constants and Predicates
-============================================================================*/
+===========================================================================*/
#define SCM_SAL_INVALID NULL
#define SCM_SAL_NULL scm_const_null
#define SCM_SAL_TRUE scm_const_true
@@ -479,9 +479,9 @@
extern ScmObj scm_const_null, scm_const_true, scm_const_false, scm_const_eof;
extern ScmObj scm_const_unbound, scm_const_undef;
-/*============================================================================
+/*===========================================================================
Predefined Symbols
-============================================================================*/
+===========================================================================*/
/* for list construction */
#define SCM_SAL_SYM_QUOTE scm_sym_quote
#define SCM_SAL_SYM_QUASIQUOTE scm_sym_quasiquote
Modified: branches/r5rs/sigscheme/src/storage-gc.c
===================================================================
--- branches/r5rs/sigscheme/src/storage-gc.c 2006-01-29 18:40:05 UTC (rev 3015)
+++ branches/r5rs/sigscheme/src/storage-gc.c 2006-01-29 18:56:05 UTC (rev 3016)
@@ -164,9 +164,9 @@
return ret;
}
-/*============================================================================
+/*===========================================================================
ScmObj Protection
-============================================================================*/
+===========================================================================*/
/*
* Registered veriable locations are held in vector instead of linked list to
* maximize space and performance efficiency.
@@ -226,9 +226,9 @@
}
}
-/*============================================================================
+/*===========================================================================
C Stack Protection
-============================================================================*/
+===========================================================================*/
#if SCM_GCC4_READY_GC
ScmObj *
scm_gc_protect_stack_internal(ScmObj *designated_stack_start)
@@ -268,9 +268,9 @@
stack_start_pointer = NULL;
}
-/*============================================================================
+/*===========================================================================
Heap Allocator & Garbage Collector
-============================================================================*/
+===========================================================================*/
static void
initialize_heap(const ScmStorageConf *conf)
{
Modified: branches/r5rs/sigscheme/src/storage-protection.c
===================================================================
--- branches/r5rs/sigscheme/src/storage-protection.c 2006-01-29 18:40:05 UTC (rev 3015)
+++ branches/r5rs/sigscheme/src/storage-protection.c 2006-01-29 18:56:05 UTC (rev 3016)
@@ -30,7 +30,8 @@
* WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
* OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
* ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
- * =========================================================================*/
+ *
+===========================================================================*/
/* This file will be removed soon */
Modified: branches/r5rs/sigscheme/src/storage-symbol.c
===================================================================
--- branches/r5rs/sigscheme/src/storage-symbol.c 2006-01-29 18:40:05 UTC (rev 3015)
+++ branches/r5rs/sigscheme/src/storage-symbol.c 2006-01-29 18:56:05 UTC (rev 3016)
@@ -131,9 +131,9 @@
finalize_symbol_hash();
}
-/*============================================================================
+/*===========================================================================
Symbol table
-============================================================================*/
+===========================================================================*/
static void
initialize_symbol_hash(const ScmStorageConf *conf)
{
Modified: branches/r5rs/sigscheme/src/syntax.c
===================================================================
--- branches/r5rs/sigscheme/src/syntax.c 2006-01-29 18:40:05 UTC (rev 3015)
+++ branches/r5rs/sigscheme/src/syntax.c 2006-01-29 18:56:05 UTC (rev 3016)
@@ -426,10 +426,10 @@
env = eval_state->env;
- /*========================================================================
+ /*=======================================================================
(if <test> <consequent>)
(if <test> <consequent> <alternate>)
- ========================================================================*/
+ =======================================================================*/
if (test = EVAL(test, env), NFALSEP(test)) {
#if SCM_STRICT_ARGCHECK
@@ -800,22 +800,22 @@
formals = SCM_NULL;
actuals = SCM_NULL;
- /*========================================================================
+ /*=======================================================================
normal let:
(let <bindings> <body>)
<bindings> == ((<variable1> <init1>)
(<variable2> <init2>)
...)
- ========================================================================*/
- /*========================================================================
+ =======================================================================*/
+ /*=======================================================================
named let:
(let <procname> <bindings> <body>)
<bindings> == ((<variable1> <init1>)
(<variable2> <init2>)
...)
- ========================================================================*/
+ =======================================================================*/
if (!CONSP(args))
ERR("let: invalid form");
@@ -871,12 +871,12 @@
env = eval_state->env;
- /*========================================================================
+ /*=======================================================================
(let* <bindings> <body>)
<bindings> == ((<variable1> <init1>)
(<variable2> <init2>)
...)
- ========================================================================*/
+ =======================================================================*/
if (CONSP(bindings)) {
FOR_EACH (binding, bindings) {
@@ -917,12 +917,12 @@
ScmObj binding, formals, actuals, var, val;
DECLARE_FUNCTION("letrec", syntax_variadic_tailrec_1);
- /*========================================================================
+ /*=======================================================================
(letrec <bindings> <body>)
<bindings> == ((<variable1> <init1>)
(<variable2> <init2>)
...)
- ========================================================================*/
+ =======================================================================*/
if (!LISTP(bindings))
goto err;
@@ -1273,9 +1273,9 @@
ScmObj procname, body, formals, proc;
DECLARE_FUNCTION("define", syntax_variadic_1);
- /*========================================================================
+ /*=======================================================================
(define <variable> <expression>)
- ========================================================================*/
+ =======================================================================*/
if (SYMBOLP(var)) {
if (!LIST_1_P(rest))
ERR_OBJ("exactly 1 arg required but got", rest);
@@ -1283,12 +1283,12 @@
define_internal(var, CAR(rest), env);
}
- /*========================================================================
+ /*=======================================================================
(define (<variable> . <formals>) <body>)
=> (define <variable>
(lambda (<formals>) <body>))
- ========================================================================*/
+ =======================================================================*/
else if (CONSP(var)) {
procname = CAR(var);
formals = CDR(var);
More information about the uim-commit
mailing list