Start on a bool type for gawk.

1 files changed, 17 insertions, 0 deletions

diff --git a/main.c b/main.c
index 5b153bc3..9833d848 100644
--- a/main.c
+++ b/main.c
@@ -980,7 +980,23 @@ load_procinfo_argv()
 	// hook it into PROCINFO
 	sub = make_string("argv", 4);
 	assoc_set(PROCINFO_node, sub, argv_array);
+}
+
+/* load_procinfo_bools --- populate PROCINFO["true"] and PROCINFO["false"] */
+
+static void
+load_procinfo_bools()
+{
+	NODE *sub;
+	NODE *val;
+
+	val = make_bool_node(false);
+	sub = make_string("false", 5);
+	assoc_set(PROCINFO_node, sub, val);
 
+	val = make_bool_node(true);
+	sub = make_string("true", 4);
+	assoc_set(PROCINFO_node, sub, val);
 }
 
 /* load_procinfo --- populate the PROCINFO array */
@@ -1069,6 +1085,7 @@ load_procinfo()
 	}
 #endif
 	load_procinfo_argv();
+	load_procinfo_bools();
 	return PROCINFO_node;
 }