Lines Matching refs:history
31 : debug-get-history-enabled ( -- n ) s" history-enabled?" debug-get-env IF $number IF 0 THEN ELSE 0…
32 : debug-set-history-enabled ( n -- ) (.) s" history-enabled?" 2swap debug-set-env ;
35 debug-get-history-enabled constant nvram-history?
37 nvram-history? [IF]
39 : history-init-nvram ( -- )
40 nvram-partition-type-history get-nvram-partition IF
41 cr ." Could not find history partition in NVRAM - "
42 nvram-partition-type-history s" history" d# 2048 new-nvram-partition
47 s" history-nvram-partition" $2constant
50 history-init-nvram
52 0 value (history-len)
53 0 value (history-adr)
55 : (history-load-one) ( str len -- len )
57 to (history-len) to (history-adr)
58 /his (history-len) + alloc-mem ( his )
62 (history-len) his-head his>len !
63 (history-adr) his-head his>buf (history-len) move
64 (history-len) 1+
67 : history-load ( -- )
68 history-nvram-partition drop BEGIN dup WHILE
71 (history-load-one) +
79 : (history-store-one) ( pos len saddr slen -- FALSE | npos nlen TRUE )
91 : history-store ( -- )
92 history-nvram-partition erase-nvram-partition drop
93 history-nvram-partition his-tail BEGIN dup WHILE
96 rot >r (history-store-one) r>
102 \ redefine "end of SLOF" words to safe history
103 : reset-all history-store reset-all ;
104 : reboot history-store reboot ;
105 : boot history-store boot ;