#265 dictionary test

TG9541 · Aug 16, 2019 · 8e6c531 · 8e6c531
1 parent 089b94b
commit 8e6c531
Show file tree

Hide file tree

Showing 3 changed files with 19 additions and 6 deletions.
diff --git a/docs/words.md b/docs/words.md
@@ -852,7 +852,7 @@
 ```
 ;       COMPILE?   ( -- n )
 ;       0 if 'EVAL points to $INTERPRETER
-;       HEADER  COMPIQ "COMPILE?"
+;       GENALIAS  COMPIQ "COMPILE?"
 ```
 
 ```
@@ -902,7 +902,6 @@
 ```
 ;       C,      ( c -- )
 ;       Compile a byte into code dictionary.
-;       HEADER  CCOMMA "C,"
 ```
 
 ```
@@ -1076,13 +1075,13 @@
 ```
 ;       A@   ( A:shortAddr -- n )
 ;       push contents of A:shortAddr on stack
-;       HEADER  AAT "A@"
+;       GENALIAS  AAT "A@"
 ```
 
 ```
 ;       Y@   ( Y:Addr -- n )
 ;       push contents of Y:Addr on stack
-;       HEADER  YAT "Y@"
+;       GENALIAS  YAT "Y@"
 ```
 
 ```

diff --git a/test/board.fs b/test/board.fs
@@ -1,7 +1,7 @@
 #include utils/tester.fs
 
 \ expected vocabulary (including tester.fs)
-T{e WORDS e-> 923 -5331 }T
+T{e WORDS e-> 930 -5044 }T
 
 \ core: string with capured EMIT
 : test-."" ." abc123" ;
@@ -177,7 +177,7 @@ RAM
 T{ 400 CD>TEST cdram -> }T
 T{ cdram -> 800 }T
 
-T{e WORDS e-> 959 -2230 }T
+T{e WORDS e-> 966 -1943 }T
 
 
 \ compile CURRENT and VOC as a test

diff --git a/tools/genalias.awk b/tools/genalias.awk
@@ -125,6 +125,20 @@ END {
     makeAlias("\\")
   }
 
+#   nwords = asorti(ALIASADDR, SORTEDWORDS)
+#   print nwords
+#   for (i = 1; i <= nwords; i++) {
+#     word = ALIASADDR[SORTEDWORDS[i]]
+#     print i, word
+#   # for (word in ALIASADDR) {
+#     if (word !~/(OVERT|\\)/) {
+#       makeAlias(word)
+#       if (LSTAT[word] == 2) {
+#         print "#require " word
+#       }
+#     }
+#   }
+
   for (word in ALIASADDR) {
     if (word !~/(OVERT|\\)/) {
       makeAlias(word)