FEAT: added /fmt refinement to DUMP function for displaying only inte…

…rnal information about series value without displaying its data
Oldes · Jul 6, 2019 · 6df2ece · 6df2ece
1 parent 362fe7e
commit 6df2ece
Show file tree

Hide file tree

Showing 3 changed files with 19 additions and 4 deletions.
diff --git a/src/boot/natives.r b/src/boot/natives.r
@@ -966,7 +966,7 @@ do-commands: native [
 ]
 
 ds: native ["Temporary stack debug"]
-dump: native ["Temporary debug dump" v]
+dump: native ["Temporary debug dump" v /fmt "only series format"]
 check: native ["Temporary series debug check" val [series!]]
 
 do-callback: native [

diff --git a/src/core/d-dump.c b/src/core/d-dump.c
@@ -33,7 +33,7 @@
 
 /***********************************************************************
 **
-*/	void Dump_Series(REBSER *series, const char *memo)
+*/	void Dump_Series_Fmt(REBSER *series, const char *memo)
 /*
 ***********************************************************************/
 {
@@ -50,6 +50,16 @@
 		SERIES_REST(series),
 		SERIES_FLAGS(series)
 	);
+}
+
+/***********************************************************************
+**
+*/	void Dump_Series(REBSER *series, const char *memo)
+/*
+***********************************************************************/
+{
+	if (!series) return;
+	Dump_Series_Fmt(series, memo);
 	if (SERIES_WIDE(series) == sizeof(REBVAL)) {
 		Dump_Values(BLK_HEAD(series), SERIES_TAIL(series));
 	} else

diff --git a/src/core/n-data.c b/src/core/n-data.c
@@ -938,8 +938,13 @@ static int Do_Ordinal(REBVAL *ds, REBINT n)
 #ifdef _DEBUG
 	REBVAL *arg = D_ARG(1);
 
-	if (ANY_SERIES(arg)) 
-		Dump_Series(VAL_SERIES(arg), "=>");
+	if (ANY_SERIES(arg)) {
+		if (D_REF(2)) {
+			Dump_Series_Fmt(VAL_SERIES(arg), "=>");
+		} else {
+			Dump_Series(VAL_SERIES(arg), "=>");
+		}
+	}
 	else
 		Dump_Values(arg, 1);
 #endif