Commit 6e5a2bc9 authored by pazsan's avatar pazsan

Added the terminal

parent 706d0203
......@@ -694,6 +694,10 @@ Build: T 0 , H ;
by Constant
Builder Value
Build: T 0 A, H ;
by Constant
Builder AValue
Build: ( -- ) compile noop ;
DO: ( ghost -- ) ABORT" CROSS: Don't execute" ;DO
Builder Defer
......
......@@ -1455,7 +1455,8 @@ create pathfilenamebuf 256 chars allot \ !! make this grow on demand
pathfilenamebuf swap ;
create included-files 0 , 0 , ( pointer to and count of included files )
create image-included-files 0 , 0 , ( pointer to and count of included files )
here ," the terminal" dup c@ swap 1 + swap , A, here 2 cells -
create image-included-files 1 , A, ( pointer to and count of included files )
\ included-files points to ALLOCATEd space, while image-included-files
\ points to ALLOTed objects, so it survives a save-system
......@@ -1784,7 +1785,7 @@ Defer 'cold ' noop IS 'cold
: boot ( path **argv argc -- )
argc ! argv ! cstring>sstring pathstring 2! main-task up!
sp@ dup s0 ! $10 + dup >tib ! tibstack ! #tib off >in off
rp@ r0 ! fp@ f0 ! cold ;
rp@ r0 ! fp@ f0 ! ['] cold catch DoError bye ;
: bye ( -- ) \ tools-ext
script? 0= IF cr THEN 0 (bye) ;
......
......@@ -71,9 +71,7 @@ AUser "error 0 "error !
User >in 0 >in !
User blk 0 blk !
User loadfile 0 loadfile !
\ 2User loadfilename 0 0 loadfilename 2!
\ here ," the terminal" align here swap count 2, Value loadfilename
\ align here 0 , 0 , Value loadfilename \ !! should be a `user-value'
User loadfilename# 0 loadfilename# !
User loadline \ number of the currently interpreted
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment