add BUILD constant

FossilOrigin-Name: d4a363376876638463493d08c77eb2bb4441f48996721b5fc8aca73022eabd5a

Makefile

@@ -165,9 +165,9 @@ bin/retro-unu: tools/retro-unu.c
 
 # basic image target
 
-ngaImage: image/retro.muri image/retro.forth bin/retro-muri bin/retro-extend
+ngaImage: image/retro.muri image/retro.forth image/build.retro bin/retro-muri bin/retro-extend
 	./bin/retro-muri image/retro.muri
-	./bin/retro-extend ngaImage image/retro.forth
+	./bin/retro-extend ngaImage image/retro.forth image/build.retro
 
 
 
@@ -250,3 +250,5 @@ release: clean build glossary
 test: bin/retro
 	./bin/retro tests/test-core.forth
 
+update: bin/retro image/retro.forth image/retro.muri
+	./bin/retro tools/update-build.retro > image/build.retro

doc/Glossary-Concise.txt

@@ -157,6 +157,9 @@ Constant. Refers to specific ASCII code.
 ASCII:VT                 D: -n  A: -  F: -
 Constant. Refers to specific ASCII code.
 
+BUILD                    D: -n  A: -  F: -
+Constant. Return a build identifier. Use along with version to identify an image.
+
 Base                     D: -a  A: -  F: -
 Variable. Holds the current numeric base.
 

doc/Glossary-Names-and-Stack.txt

@@ -51,6 +51,7 @@ ASCII:SUB                D: -n  A: -  F: -
 ASCII:SYN                D: -n  A: -  F: -
 ASCII:US                 D: -n  A: -  F: -
 ASCII:VT                 D: -n  A: -  F: -
+BUILD                    D: -n  A: -  F: -
 Base                     D: -a  A: -  F: -
 Compiler                 D: -a  A: -  F: -
 Dictionary               D: -a  A: -  F: -

doc/Glossary.html

@@ -396,6 +396,13 @@
 </div>
 <p>Constant. Refers to specific ASCII code.</p>
 <table><tr><td><b>Class:</b> </td><td>class:data</td></tr><tr><td><b>Namespace:</b> </td><td>ASCII</td></tr><tr><td><b>Interface Layer:</b> </td><td>all</td></tr></table><hr/>
+<h2>BUILD</h2>
+<div style='margin-left: 1em;'><p><b>Data:</b> -n<br>
+<b>Addr:</b> -<br>
+<b>Float:</b> -</p>
+</div>
+<p>Constant. Return a build identifier. Use along with version to identify an image.</p>
+<table><tr><td><b>Class:</b> </td><td>class:data</td></tr><tr><td><b>Namespace:</b> </td><td>global</td></tr><tr><td><b>Interface Layer:</b> </td><td>all</td></tr></table><hr/>
 <h2>Base</h2>
 <div style='margin-left: 1em;'><p><b>Data:</b> -a<br>
 <b>Addr:</b> -<br>

doc/Glossary.txt

@@ -614,6 +614,17 @@ Constant. Refers to specific ASCII code.
 Class: class:data | Namespace: ASCII | Interface Layer: all
 ------------------------------------------------------------------------
 
+BUILD
+
+  Data:  -n
+  Addr:  -
+  Float: -
+
+Constant. Return a build identifier. Use along with version to identify an image.
+
+Class: class:data | Namespace: global | Interface Layer: all
+------------------------------------------------------------------------
+
 Base
 
   Data:  -a

doc/words.tsv

@@ -51,6 +51,7 @@ ASCII:SUB	-n	-	-	Constant. Refers to specific ASCII code.			class:data	{n/a}	{n/
 ASCII:SYN	-n	-	-	Constant. Refers to specific ASCII code.			class:data	{n/a}	{n/a}	ASCII	all	
 ASCII:US	-n	-	-	Constant. Refers to specific ASCII code.			class:data	{n/a}	{n/a}	ASCII	all	
 ASCII:VT	-n	-	-	Constant. Refers to specific ASCII code.			class:data	{n/a}	{n/a}	ASCII	all	
+BUILD	-n	-	-	Constant. Return a build identifier. Use along with version to identify an image.			class:data	{n/a}	{n/a}	global	all	
 Base	-a	-	-	Variable. Holds the current numeric base.			class:data	{n/a}	{n/a}	global	all	
 Compiler	-a	-	-	Variable. Holds the compiler state. If TRUE, the compiler is active. If FALSE, it is not.			class:data	{n/a}	{n/a}	global	all	
 Dictionary	-a	-	-	Variable. Holds a pointer to the most recent dictionary header.			class:data	{n/a}	{n/a}	global	all	

image/build.retro

@@ -0,0 +1,3 @@
+~~~
+#5 'BUILD const
+~~~

tools/update-build.retro

@@ -0,0 +1,3 @@
+~~~
+BUILD n:inc '~~~\n#%n_'BUILD_const\n~~~\n s:format s:put bye
+~~~