mirror of
https://git.sr.ht/~crc_/retroforth
synced 2024-11-16 19:48:56 +01:00
takawiri: embed stack comments
FossilOrigin-Name: f7312c05cf98692778cbb14bc14e9151393db70f75e7d60ce3c2ffc41b28147c
This commit is contained in:
crc
parent
44b9cd2193
commit
93d6116cda
1 changed files with 28 additions and 32 deletions
|
|
@ -77,8 +77,8 @@ fixed at 80 columns; the height is set based on the terminal
|
|||
height.
|
||||
|
||||
~~~
|
||||
#80 'TOB:W const
|
||||
LT:H #2 - 'TOB:H const
|
||||
#80 'TOB:W const (:-n)
|
||||
LT:H #2 - 'TOB:H const (:-n)
|
||||
~~~
|
||||
|
||||
Load dependencies from the library.
|
||||
|
|
@ -90,10 +90,10 @@ Load dependencies from the library.
|
|||
# Configure UI Colors
|
||||
|
||||
~~~
|
||||
:dss:label (-) fg:red ;
|
||||
:dss:value (-) fg:yellow ;
|
||||
:dss:sep (-) fg:cyan ;
|
||||
:dss:prompt (-) bg:blue fg:white ;
|
||||
:dss:label (:-) fg:red ;
|
||||
:dss:value (:-) fg:yellow ;
|
||||
:dss:sep (:-) fg:cyan ;
|
||||
:dss:prompt (:-) bg:blue fg:white ;
|
||||
~~~
|
||||
|
||||
# Utilities
|
||||
|
|
@ -101,12 +101,8 @@ Load dependencies from the library.
|
|||
I intend for takawiri to provide a variety of useful tools to
|
||||
aid in using RetroForth interactively.
|
||||
|
||||
This word provides access to retro-describe(1).
|
||||
|
||||
~~~
|
||||
:describe (s-)
|
||||
'retro-describe_"%s" s:format file:R unix:popen
|
||||
[ dup file:read dup c:put n:zero? ] until unix:pclose ;
|
||||
:,stack (:s-) d:lookup d:stack fetch s:put nl ;
|
||||
~~~
|
||||
|
||||
# UI
|
||||
|
|
@ -114,17 +110,17 @@ This word provides access to retro-describe(1).
|
|||
First are words to display the text output buffer.
|
||||
|
||||
~~~
|
||||
:bar:right (-) dss:sep TOB:H n:inc [ I n:inc TOB:W #2 n:add vt:row,col $| c:put ] indexed-times vt:reset ;
|
||||
:bar:bottom (-) dss:sep TOB:H n:inc #1 vt:row,col TOB:W n:inc [ $= c:put ] times $+ c:put vt:reset ;
|
||||
:display:tob (-) tob:display bar:right bar:bottom ;
|
||||
:bar:right (:-) dss:sep TOB:H n:inc [ I n:inc TOB:W #2 n:add vt:row,col $| c:put ] indexed-times vt:reset ;
|
||||
:bar:bottom (:-) dss:sep TOB:H n:inc #1 vt:row,col TOB:W n:inc [ $= c:put ] times $+ c:put vt:reset ;
|
||||
:display:tob (:-) tob:display bar:right bar:bottom ;
|
||||
~~~
|
||||
|
||||
Draw the section separators.
|
||||
|
||||
~~~
|
||||
:length (-n) LT:W TOB:W #4 n:add n:sub ;
|
||||
:--- (n-) [ $- c:put ] times sp ;
|
||||
:sections (-)
|
||||
:length (:-n) LT:W TOB:W #4 n:add n:sub ;
|
||||
:--- (:n-) [ $- c:put ] times sp ;
|
||||
:sections (:-)
|
||||
dss:sep
|
||||
#3 [ I n:inc #6 n:mul TOB:W #4 n:add vt:row,col length --- ]
|
||||
indexed-times
|
||||
|
|
@ -134,8 +130,8 @@ Draw the section separators.
|
|||
~~~
|
||||
'Items d:create #0 comma #32 allot
|
||||
|
||||
:tos? over n:zero? ;
|
||||
:dss
|
||||
:tos? (:nm-nmf) over n:zero? ;
|
||||
:dss (:-)
|
||||
[ depth #5 n:min !Items
|
||||
&Items fetch-next &store-next times drop
|
||||
&Items a:reverse [ ] a:for-each
|
||||
|
|
@ -177,17 +173,17 @@ is done.
|
|||
over n:inc #12 n:add #84 vt:row,col
|
||||
fg:blue '_______n/a s:put drop vt:reset ;
|
||||
---reveal---
|
||||
:strings (-)
|
||||
:strings (:-)
|
||||
#0 &Items [ string? &display ¬-string choose n:inc ]
|
||||
a:for-each drop ;
|
||||
}}
|
||||
~~~
|
||||
|
||||
~~~
|
||||
:layout:stat,col (-n) #84 ;
|
||||
:layout:stat (sn-) layout:stat,col vt:row,col dss:label s:put dss:value ;
|
||||
:layout:stat,col (:-n) #84 ;
|
||||
:layout:stat (:sn-) layout:stat,col vt:row,col dss:label s:put dss:value ;
|
||||
|
||||
:stats
|
||||
:stats (:-)
|
||||
'HERE:__ #1 layout:stat here n:put
|
||||
'FREE:__ #2 layout:stat FREE n:put
|
||||
'DEPTH:_ #3 layout:stat depth n:put
|
||||
|
|
@ -196,15 +192,15 @@ is done.
|
|||
vt:reset
|
||||
;
|
||||
|
||||
:prompt (-)
|
||||
:prompt (:-)
|
||||
dss:prompt
|
||||
LT:H #1 vt:row,col LT:W [ sp ] times
|
||||
LT:H #1 vt:row,col '>>_ s:put ;
|
||||
~~~
|
||||
|
||||
~~~
|
||||
:quit ioctl:set-lbreak vt:reset bye ;
|
||||
:bye quit ;
|
||||
:quit (:-) ioctl:set-lbreak vt:reset bye ;
|
||||
:bye (:-) quit ;
|
||||
~~~
|
||||
|
||||
# Watchlist
|
||||
|
|
@ -220,27 +216,27 @@ do something like:
|
|||
'Watchlist d:create #5 , #-1 , #-1 , #-1 , #-1 , #-1 ,
|
||||
'WatchlistLabels d:create #5 , #-1 , #-1 , #-1 , #-1 , #-1 ,
|
||||
|
||||
:watchlist:find (a-n)
|
||||
:watchlist:find (:a-n)
|
||||
dup &Watchlist a:contains? [ drop #-1 ] -if;
|
||||
&Watchlist swap a:index ;
|
||||
|
||||
:watchlist:make-label (s-s)
|
||||
:watchlist:make-label (:s-s)
|
||||
dup s:length #8 gt? [ #8 s:left ] if
|
||||
dup s:length #8 lt?
|
||||
[ dup s:length #8 swap n:sub [ '_ s:append ] times ] if
|
||||
s:keep ;
|
||||
|
||||
:watch (as-)
|
||||
:watch (:as-)
|
||||
watchlist:make-label
|
||||
#-1 watchlist:find &Watchlist &WatchlistLabels
|
||||
'abcde 'adcbec reorder a:store a:store ;
|
||||
|
||||
:unwatch (a-)
|
||||
:unwatch (:a-)
|
||||
watchlist:find dup n:positive? &drop -if
|
||||
[ &Watchlist #-1 'abc 'acab reorder a:store ]
|
||||
[ &WatchlistLabels #-1 'abc 'acab reorder a:store ] bi ;
|
||||
|
||||
:watchlist (-)
|
||||
:watchlist (:-)
|
||||
#19 #5 [ dup #84 vt:row,col
|
||||
dss:label &WatchlistLabels over #19 n:sub a:fetch
|
||||
dup #-1 -eq? [ s:put sp ] [ drop '_________ s:put ] choose
|
||||
|
|
@ -250,7 +246,7 @@ do something like:
|
|||
~~~
|
||||
|
||||
~~~
|
||||
:ui
|
||||
:ui (:-)
|
||||
&err:notfound unhook
|
||||
ioctl:set-cbreak
|
||||
&banner tob:with
|
||||
|
|
|
|||
Loading…
Reference in a new issue