From b9931e852ba21180c380639135f96cdcd0a3015f Mon Sep 17 00:00:00 2001
From: "Arnold D. Robbins" <arnold@skeeve.com>
Date: Fri, 5 Mar 2021 14:26:15 +0200
Subject: Start on a bool type for gawk.

---
 node.c | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

(limited to 'node.c')

diff --git a/node.c b/node.c
index c22c06ab..dda90f0f 100644
--- a/node.c
+++ b/node.c
@@ -1082,3 +1082,25 @@ more_blocks(int id)
 }
 
 #endif
+
+/* make_bool_node --- make a boolean-valued node */
+
+extern NODE *
+make_bool_node(bool value)
+{
+	NODE *val;
+	const char *sval;
+	AWKNUM nval;
+
+	sval = (value ? "TRUE" : "FALSE");
+	nval = (value ? 1.0 : 0.0);
+
+	val = make_number(nval);
+	val->stptr = estrdup(sval, strlen(sval));
+	val->stlen = strlen(sval);
+	val->flags &= ~NUMBER;
+	val->flags |= NUMCUR|STRCUR|BOOL;
+	val->stfmt = STFMT_UNUSED;
+
+	return val;
+}
-- 
cgit v1.2.3