*/ void Assert_Public_Object(REBVAL *value)
/*
***********************************************************************/
{
REBVAL *word = BLK_HEAD(VAL_OBJ_WORDS(value));
for (; NOT_END(word); word++)
if (VAL_GET_OPT(word, OPTS_HIDE)) Trap0(RE_HIDDEN);
}
*/ REBVAL *Obj_Word(REBVAL *value, REBCNT index)
/*
** Return pointer to the nth WORD of an object.
**
***********************************************************************/
{
REBSER *obj = VAL_OBJ_WORDS(value);
return BLK_SKIP(obj, index);
}
*/ void Assert_Public_Object(const REBVAL *value)
/*
***********************************************************************/
{
REBVAL *word = BLK_HEAD(VAL_OBJ_WORDS(value));
for (; NOT_END(word); word++)
if (VAL_GET_EXT(word, EXT_WORD_HIDE)) raise Error_0(RE_HIDDEN);
}
STOID Mold_Object(REBVAL *value, REB_MOLD *mold)
{
REBSER *wser;
REBVAL *words;
REBVAL *vals; // first value is context
REBCNT n;
REBOOL indented = !GET_MOPT(mold, MOPT_INDENT);
ASSERT(VAL_OBJ_FRAME(value), RP_NO_OBJECT_FRAME);
wser = VAL_OBJ_WORDS(value);
// if (wser < 1000)
// Dump_Block_Raw(VAL_OBJ_FRAME(value), 0, 1);
words = BLK_HEAD(wser);
vals = VAL_OBJ_VALUES(value); // first value is context
Pre_Mold(value, mold);
Append_Byte(mold->series, '[');
// Prevent infinite looping:
if (Find_Same_Block(MOLD_LOOP, value) > 0) {
Append_Bytes(mold->series, "...]");
return;
}
Append_Val(MOLD_LOOP, value);
mold->indent++;
for (n = 1; n < SERIES_TAIL(wser); n++) {
if (
!VAL_GET_OPT(words+n, OPTS_HIDE) &&
((VAL_TYPE(vals+n) > REB_NONE) || !GET_MOPT(mold, MOPT_NO_NONE))
){
if(indented)
New_Indented_Line(mold);
else if (n > 1)
Append_Byte(mold->series, ' ');
Append_UTF8(mold->series, Get_Sym_Name(VAL_WORD_SYM(words+n)), -1);
//Print("Slot: %s", Get_Sym_Name(VAL_WORD_SYM(words+n)));
Append_Bytes(mold->series, ": ");
if (IS_WORD(vals+n) && !GET_MOPT(mold, MOPT_MOLD_ALL)) Append_Byte(mold->series, '\'');
Mold_Value(mold, vals+n, TRUE);
}
}
mold->indent--;
if (indented) New_Indented_Line(mold);
Append_Byte(mold->series, ']');
End_Mold(mold);
Remove_Last(MOLD_LOOP);
}
STOID Form_Object(REBVAL *value, REB_MOLD *mold)
{
REBSER *wser = VAL_OBJ_WORDS(value);
REBVAL *words = BLK_HEAD(wser);
REBVAL *vals = VAL_OBJ_VALUES(value); // first value is context
REBCNT n;
// Prevent endless mold loop:
if (Find_Same_Block(MOLD_LOOP, value) > 0) {
Append_Bytes(mold->series, "...]");
return;
}
Append_Val(MOLD_LOOP, value);
// Mold all words and their values:
for (n = 1; n < SERIES_TAIL(wser); n++) {
if (!VAL_GET_OPT(words+n, OPTS_HIDE))
Emit(mold, "N: V\n", VAL_WORD_SYM(words+n), vals+n);
}
Remove_Last(mold->series);
Remove_Last(MOLD_LOOP);
}
