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

   1 /* yForth? - Written by Luca Padovani (C) 1996/97
   2  * ------------------------------------------------------------------------
   3  * This software is FreeWare as long as it comes with this header in each
   4  * source file, anyway you can use it or any part of it whatever
   5  * you want. It comes without any warranty, so use it at your own risk.
   6  * ------------------------------------------------------------------------
   7  * Module name:     localse.c
   8  * Abstract:        locals-extension word set
   9  */
  10
  11 #include "yforth.h"
  12 #include "core.h"
  13 #include "locals.h"
  14 #include "localse.h"
  15
  16 /**************************************************************************/
  17 /* WORDS ******************************************************************/
  18 /**************************************************************************/
  19
  20 void _locals_bar() {
  21         while (1) {
  22                 _b_l();
  23                 _word();
  24                 _count();
  25                 if (sp[0] != 1 || *((Char *) sp[1]) != '|') {
  26                         _paren_local_paren();
  27                         compile_cell((Cell) _to_r);
  28                 } else break;
  29         }
  30 }
  31