git.gag.com Git - debian/yforth/blob - tools.c

   1 /* yForth? - A Forth interpreter written in ANSI C
   2  * Copyright (C) 2012 Luca Padovani
   3  *
   4  * This program is free software: you can redistribute it and/or modify
   5  * it under the terms of the GNU General Public License as published by
   6  * the Free Software Foundation, either version 3 of the License, or
   7  * (at your option) any later version.
   8  *
   9  * This program is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12  * GNU General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU General Public License
  15  * along with this program.  If not, see <http://www.gnu.org/licenses/>.
  16  * ------------------------------------------------------------------------
  17  * Module name: tools.c
  18  * Abstract:    Programming Tools word set
  19  */
  20
  21 #include <stdio.h>
  22 #include "yforth.h"
  23 #include "tools.h"
  24 #include "core.h"
  25
  26 /**************************************************************************/
  27 /* WORDS ******************************************************************/
  28 /**************************************************************************/
  29
  30 void _dot_s() {
  31         register Cell *p = sp;
  32         while (p < sp_top) {
  33                 *--sp = *p;
  34                 _dot();
  35                 p++;
  36         }
  37 }
  38
  39 void _question() {
  40         _fetch();
  41         _dot();
  42 }
  43
  44 void _dump() {
  45         register UCell u = *sp++;
  46         register Char *addr = (Char *) *sp++;
  47         while (u) {
  48                 register int i;
  49                 printf("%08p: ", addr);
  50                 for (i = 0; i < 16; i++)
  51                         if ((int) (u - i) > 0) printf("%02x ", *(addr + i) & 0xff);
  52                         else printf("   ");
  53                 for (i = 0; i < 16 && (u - i) > 0; i++)
  54                         printf("%c", *(addr + i) < 32 ? '.' : *(addr + i));
  55                 putchar('\n');
  56                 addr += i;
  57                 u -= i;
  58         }
  59 }
  60
  61 void _see() {
  62         _error = E_NOPRIM;
  63 }
  64
  65 void _words() {
  66         register int i = 0;
  67         register struct word_def *p;
  68         register Cell col = 1;
  69         while (i < VOC_HASH) {
  70                 p = voc->voc[i++];
  71                 while (p) {
  72                         *--sp = (Cell) p->name;
  73                         _count();
  74                         if (col + sp[0] > 79) {
  75                                 col = 1;
  76                                 _c_r();
  77                         }
  78                         col += sp[0] + 1;
  79                         _type();
  80                         _b_l();
  81                         _emit();
  82                         p = p->link;
  83                 }
  84         }
  85 }
  86