Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2024-12-26 21:58:42 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add typen

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-12 11:37:03 +09:00
parent 32027f66f3
commit 5241c8e2d8
1 changed files with 12 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
bootstrap.fs
View file

@ -1253,6 +1253,17 @@ decimal \ set default to decimal
2drop
;
\ Print string up to u characters
: typen ( c-addr u -- )
begin dup 0> while
1- swap dup c@ dup unless
2drop exit
then
emit 1+ swap
repeat
;
\ Allocate a buffer for string literal
bl bl * constant s-buffer-size \ 1024
create s-buffer s-buffer-size allot
@ -2521,7 +2532,7 @@ need-defined (read)
do loop +loop unloop leave i j k
char [char] key emit spaces
.s . .r u. u.r dec. hex. type
.s . .r u. u.r dec. hex. type typen
." s" bl '\n' cr space base decimal hex
catch throw success
: ; [ ] immediate create >body :noname does> variable constant