Merge pull request #112 from TG9541/e4thcom-0.6.3

fixes #111 prepare release 2.2.20

Makefile

@@ -48,7 +48,7 @@ main.ihx: main.c $(MDEPS)
 	mkdir -p out/$(BOARD)/target
 	rm -f out/$(BOARD)/target/*
 	tools/genalias.awk -v target="out/$(BOARD)/target/" out/$(BOARD)/forth.rst
-	tools/genefr.awk out/$(BOARD)/forth.rst > out/$(BOARD)/FORTH.efr
+	tools/genconst.awk -v target="out/$(BOARD)/target/" out/$(BOARD)/forth.rst
 
 forth.rel: forth.asm
 	mkdir -p out/$(BOARD)

tools/genalias.awk

@@ -120,7 +120,9 @@ END {
 }
 
 function makeAlias(word,addr) {
-  print ": " word " [ $CC C, $" ALIASADDR[word] " , OVERT" > target word
+  filename = word
+  gsub("/", "_", filename)    # replace "/" - it's forbidden in Linux filenames
+  print ": " word " [ $CC C, $" ALIASADDR[word] " , OVERT" > target filename
 }
 
 function result (text) {

tools/genconst.awk

@@ -0,0 +1,19 @@
+#!/usr/bin/gawk -f
+BEGIN {
+  if (!target) {
+    target = "target/"
+  }
+}
+
+$3!~/(LINK|RAMPOOL)/ && $4=="=" && $5~/(UPP|RAMPOOL)/ && $1~/^00/ {
+  if (split($0,b,"\"") == 3) {
+    symbol = b[2]
+  }
+  else {
+    symbol = $3
+  }
+  split($0,a,";"); 
+  addr = "$" substr($1,3)
+  comment = " \\ " a[2]
+  print  addr " CONSTANT " symbol comment > target symbol 
+}