forth/step0_repl.fs

   1 require types.fs
   2
   3 : read ;
   4 : eval ;
   5 : print ;
   6
   7 : rep
   8     read
   9     eval
  10     print ;
  11
  12 create buff 128 allot
  13
  14 : read-lines
  15     begin
  16       ." user> "
  17       buff 128 stdin read-line throw
  18     while ( num-bytes-read )
  19       dup 0 <> if
  20         buff swap
  21         rep type cr
  22       endif
  23     repeat ;
  24
  25 read-lines