9ef1ea9f90
Drop startup timeout to 100ms. Clean up exceptions in include. Cleanup stack in autoboot. Split out windows into a second string, to work around overflow issue.
736 lines
10 KiB
Forth
736 lines
10 KiB
Forth
\ Copyright 2022 Bradley D. Nelson
|
|
\
|
|
\ Licensed under the Apache License, Version 2.0 (the "License");
|
|
\ you may not use this file except in compliance with the License.
|
|
\ You may obtain a copy of the License at
|
|
\
|
|
\ http://www.apache.org/licenses/LICENSE-2.0
|
|
\
|
|
\ Unless required by applicable law or agreed to in writing, software
|
|
\ distributed under the License is distributed on an "AS IS" BASIS,
|
|
\ WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
|
\ See the License for the specific language governing permissions and
|
|
\ limitations under the License.
|
|
|
|
also internals
|
|
: list-builtins ( voc )
|
|
>r 'builtins begin dup >link while
|
|
dup >params r@ = if dup see. cr then
|
|
3 cells +
|
|
repeat drop rdrop ;
|
|
: list-from ( xt ) begin dup nonvoc? while
|
|
dup >flags BUILTIN_FORK and if
|
|
dup cell+ @ list-builtins
|
|
then
|
|
dup see. cr
|
|
>link
|
|
repeat drop ;
|
|
|
|
e: check-case
|
|
out: ENDOF
|
|
out: OF
|
|
out: ENDCASE
|
|
out: CASE
|
|
;e
|
|
|
|
e: check-locals
|
|
out: +to
|
|
out: to
|
|
out: exit
|
|
out: ;
|
|
out: {
|
|
out: (local)
|
|
;e
|
|
|
|
e: check-highlevel-floats
|
|
out: f.s
|
|
out: f.
|
|
out: #fs
|
|
out: set-precision
|
|
out: precision
|
|
out: fvariable
|
|
out: fconstant
|
|
out: fliteral
|
|
out: afliteral
|
|
out: sf,
|
|
;e
|
|
|
|
e: check-boot
|
|
out: quit
|
|
out: evaluate
|
|
out: prompt
|
|
out: refill
|
|
out: tib
|
|
out: accept
|
|
out: echo
|
|
out: abort"
|
|
out: abort
|
|
out: z>s
|
|
out: s>z
|
|
out: r~
|
|
out: r|
|
|
out: r"
|
|
out: z"
|
|
out: ."
|
|
out: s"
|
|
out: n.
|
|
out: ?
|
|
out: .
|
|
out: u.
|
|
out: binary
|
|
out: decimal
|
|
out: octal
|
|
out: hex
|
|
out: str
|
|
out: #>
|
|
out: sign
|
|
out: #s
|
|
out: #
|
|
out: hold
|
|
out: <#
|
|
out: extract
|
|
out: pad
|
|
out: hld
|
|
out: cr
|
|
out: space
|
|
out: emit
|
|
out: bye
|
|
out: terminate
|
|
out: key?
|
|
out: key
|
|
out: type
|
|
out: is
|
|
out: defer
|
|
out: +to
|
|
out: to
|
|
out: value
|
|
out: throw
|
|
out: catch
|
|
out: handler
|
|
out: K
|
|
out: J
|
|
out: I
|
|
out: loop
|
|
out: +loop
|
|
out: leave
|
|
out: UNLOOP
|
|
out: ?do
|
|
out: do
|
|
out: next
|
|
out: for
|
|
out: nest-depth
|
|
out: postpone
|
|
out: recurse
|
|
out: aft
|
|
out: repeat
|
|
out: while
|
|
out: else
|
|
out: if
|
|
out: then
|
|
out: ahead
|
|
out: until
|
|
out: again
|
|
out: begin
|
|
out: [char]
|
|
out: char
|
|
out: [']
|
|
out: '
|
|
out: used
|
|
out: remaining
|
|
out: fdepth
|
|
out: depth
|
|
out: fp0
|
|
out: rp0
|
|
out: sp0
|
|
out: #!
|
|
out: \
|
|
out: (
|
|
;e
|
|
|
|
e: check-tier2-opcodes
|
|
out: >flags
|
|
out: >flags&
|
|
out: >params
|
|
out: >size
|
|
out: >link&
|
|
out: >link
|
|
out: >name
|
|
out: aligned
|
|
out: align
|
|
;e
|
|
|
|
e: check-tier1-opcodes
|
|
out: nip
|
|
out: rdrop
|
|
out: */
|
|
out: *
|
|
out: /mod
|
|
out: /
|
|
out: mod
|
|
out: invert
|
|
out: negate
|
|
out: -
|
|
out: rot
|
|
out: -rot
|
|
out: ?dup
|
|
out: <
|
|
out: >
|
|
out: <=
|
|
out: >=
|
|
out: =
|
|
out: <>
|
|
out: 0<>
|
|
out: bl
|
|
out: nl
|
|
out: 1+
|
|
out: 1-
|
|
out: 2*
|
|
out: 2/
|
|
out: 4*
|
|
out: 4/
|
|
out: +!
|
|
out: cell+
|
|
out: cells
|
|
out: cell/
|
|
out: 2drop
|
|
out: 2dup
|
|
out: 2@
|
|
out: 2!
|
|
|
|
out: cmove
|
|
out: cmove>
|
|
out: fill
|
|
out: erase
|
|
out: blank
|
|
|
|
out: min
|
|
out: max
|
|
out: abs
|
|
|
|
out: here
|
|
out: allot
|
|
out: ,
|
|
out: c,
|
|
|
|
out: current
|
|
out: #tib
|
|
out: >in
|
|
out: state
|
|
out: base
|
|
out: context
|
|
out: latestxt
|
|
;e
|
|
|
|
e: check-tier0-opcodes
|
|
out: [
|
|
out: ]
|
|
out: literal
|
|
out: 0=
|
|
out: 0<
|
|
out: +
|
|
out: U/MOD
|
|
out: */MOD
|
|
out: LSHIFT
|
|
out: RSHIFT
|
|
out: ARSHIFT
|
|
out: AND
|
|
out: OR
|
|
out: XOR
|
|
out: DUP
|
|
out: SWAP
|
|
out: OVER
|
|
out: DROP
|
|
out: @
|
|
out: SL@
|
|
out: UL@
|
|
out: SW@
|
|
out: UW@
|
|
out: C@
|
|
out: !
|
|
out: L!
|
|
out: W!
|
|
out: C!
|
|
out: SP@
|
|
out: SP!
|
|
out: RP@
|
|
out: RP!
|
|
out: >R
|
|
out: R>
|
|
out: R@
|
|
out: EXECUTE
|
|
out: CELL
|
|
out: FIND
|
|
out: PARSE
|
|
out: CREATE
|
|
out: VARIABLE
|
|
out: CONSTANT
|
|
out: DOES>
|
|
out: IMMEDIATE
|
|
out: >BODY
|
|
out: :
|
|
out: EXIT
|
|
out: ;
|
|
;e
|
|
|
|
e: check-float-opcodes
|
|
out: FP@
|
|
out: FP!
|
|
out: SF@
|
|
out: SF!
|
|
out: FDUP
|
|
out: FNIP
|
|
out: FDROP
|
|
out: FOVER
|
|
out: FSWAP
|
|
out: FROT
|
|
out: FNEGATE
|
|
out: F0<
|
|
out: F0=
|
|
out: F=
|
|
out: F<
|
|
out: F>
|
|
out: F<>
|
|
out: F<=
|
|
out: F>=
|
|
out: F+
|
|
out: F-
|
|
out: F*
|
|
out: F/
|
|
out: 1/F
|
|
out: S>F
|
|
out: F>S
|
|
out: SFLOAT
|
|
out: SFLOATS
|
|
out: SFLOAT+
|
|
out: PI
|
|
out: FSIN
|
|
out: FCOS
|
|
out: FSINCOS
|
|
out: FATAN2
|
|
out: F**
|
|
out: FLOOR
|
|
out: FEXP
|
|
out: FLN
|
|
out: FABS
|
|
out: FMIN
|
|
out: FMAX
|
|
out: FSQRT
|
|
;e
|
|
|
|
e: check-files-dir
|
|
out: READ-DIR
|
|
out: CLOSE-DIR
|
|
out: OPEN-DIR
|
|
;e
|
|
|
|
e: check-files-dir-reverse
|
|
out: OPEN-DIR
|
|
out: CLOSE-DIR
|
|
;e
|
|
|
|
e: check-files
|
|
out: NON-BLOCK
|
|
out: FILE-SIZE
|
|
out: RESIZE-FILE
|
|
out: REPOSITION-FILE
|
|
out: FILE-POSITION
|
|
out: READ-FILE
|
|
out: WRITE-FILE
|
|
out: RENAME-FILE
|
|
out: DELETE-FILE
|
|
out: CREATE-FILE
|
|
out: OPEN-FILE
|
|
out: FLUSH-FILE
|
|
out: CLOSE-FILE
|
|
out: BIN
|
|
out: R/W
|
|
out: W/O
|
|
out: R/O
|
|
;e
|
|
|
|
e: check-files-reverse
|
|
out: R/O
|
|
out: W/O
|
|
out: R/W
|
|
out: BIN
|
|
out: CLOSE-FILE
|
|
out: FLUSH-FILE
|
|
out: OPEN-FILE
|
|
out: CREATE-FILE
|
|
out: DELETE-FILE
|
|
out: RENAME-FILE
|
|
out: WRITE-FILE
|
|
out: READ-FILE
|
|
out: FILE-POSITION
|
|
out: REPOSITION-FILE
|
|
out: RESIZE-FILE
|
|
out: FILE-SIZE
|
|
out: NON-BLOCK
|
|
;e
|
|
|
|
e: check-blocks
|
|
out: editor
|
|
out: list
|
|
out: copy
|
|
out: thru
|
|
out: load
|
|
out: flush
|
|
out: update
|
|
out: empty-buffers
|
|
out: buffer
|
|
out: block
|
|
out: save-buffers
|
|
out: default-use
|
|
out: use
|
|
out: open-blocks
|
|
out: block-id
|
|
out: scr
|
|
out: block-fid
|
|
;e
|
|
|
|
e: check-vocabulary
|
|
out: internals
|
|
out: sealed
|
|
out: previous
|
|
out: also
|
|
out: only
|
|
out: transfer{
|
|
out: }transfer
|
|
out: transfer
|
|
out: definitions
|
|
out: vocabulary
|
|
;e
|
|
|
|
e: check-[]conds
|
|
out: [IF]
|
|
out: [ELSE]
|
|
out: [THEN]
|
|
out: DEFINED?
|
|
;e
|
|
|
|
e: check-utils
|
|
out: words
|
|
out: vlist
|
|
out: order
|
|
out: see
|
|
out: .s
|
|
out: startswith?
|
|
out: str=
|
|
out: :noname
|
|
out: forget
|
|
out: dump
|
|
out: spaces
|
|
out: assert
|
|
;e
|
|
|
|
e: check-snapshots
|
|
out: reset
|
|
out: revive
|
|
out: startup:
|
|
out: remember
|
|
out: restore
|
|
out: save
|
|
;e
|
|
|
|
e: check-fileops
|
|
DEFINED? open-dir [IF]
|
|
out: ls
|
|
[THEN]
|
|
out: cat
|
|
out: touch
|
|
out: rm
|
|
out: mv
|
|
out: cp
|
|
out: dump-file
|
|
;e
|
|
|
|
e: check-ansi
|
|
out: set-title
|
|
out: page
|
|
out: at-xy
|
|
out: normal
|
|
out: bg
|
|
out: fg
|
|
out: ansi
|
|
;e
|
|
|
|
e: check-tasks
|
|
out: start-task
|
|
out: task
|
|
out: pause
|
|
out: tasks
|
|
;e
|
|
|
|
e: check-args
|
|
out: argv
|
|
out: argc
|
|
;e
|
|
|
|
e: check-imports
|
|
out: file-exists?
|
|
out: needs
|
|
out: required
|
|
out: included?
|
|
out: include
|
|
out: included
|
|
;e
|
|
|
|
e: check-allocation
|
|
out: resize
|
|
out: free
|
|
out: allocate
|
|
;e
|
|
|
|
e: check-phase1
|
|
out: structures
|
|
check-highlevel-floats
|
|
check-vocabulary
|
|
check-[]conds
|
|
check-boot
|
|
;e
|
|
|
|
e: check-opcodes
|
|
check-float-opcodes
|
|
check-tier2-opcodes
|
|
check-tier1-opcodes
|
|
check-tier0-opcodes
|
|
;e
|
|
|
|
e: check-desktop
|
|
out: graphics
|
|
check-args
|
|
;e
|
|
|
|
e: check-filetools
|
|
out: visual
|
|
check-ansi
|
|
check-blocks
|
|
check-imports
|
|
check-snapshots
|
|
check-fileops
|
|
out: streams
|
|
out: ms
|
|
check-tasks
|
|
;e
|
|
|
|
e: check-asm
|
|
out: asm
|
|
;e
|
|
|
|
e: check-phase2
|
|
check-case
|
|
check-locals
|
|
check-asm
|
|
check-utils
|
|
;e
|
|
|
|
DEFINED? windows [IF]
|
|
|
|
e: test-windows-forth-voclist
|
|
internals ' graphics voclist-from
|
|
out: graphics
|
|
out: ansi
|
|
out: editor
|
|
out: streams
|
|
out: tasks
|
|
out: windows
|
|
out: structures
|
|
out: internalized
|
|
out: internals
|
|
out: FORTH
|
|
;e
|
|
|
|
e: test-windows-forth-namespace
|
|
' forth list-from
|
|
out: FORTH
|
|
check-desktop
|
|
check-filetools
|
|
check-phase2
|
|
check-allocation
|
|
out: default-key?
|
|
out: default-key
|
|
out: default-type
|
|
check-files
|
|
out: ok
|
|
out: ms-ticks
|
|
out: ms
|
|
out: windows
|
|
check-phase1
|
|
check-opcodes
|
|
out: forth-builtins
|
|
;e
|
|
|
|
[ELSE] DEFINED? posix [IF]
|
|
|
|
e: test-posix-forth-voclist
|
|
internals ' sockets voclist-from
|
|
out: sockets
|
|
out: internals
|
|
out: graphics
|
|
out: ansi
|
|
out: editor
|
|
out: streams
|
|
out: tasks
|
|
out: termios
|
|
out: posix
|
|
out: structures
|
|
out: internalized
|
|
out: internals
|
|
out: FORTH
|
|
;e
|
|
|
|
e: test-posix-forth-namespace
|
|
' forth list-from
|
|
out: FORTH
|
|
out:
|
|
out: web-interface
|
|
out: httpd
|
|
out: telnetd
|
|
out: sockets
|
|
out: x11
|
|
check-desktop
|
|
check-filetools
|
|
check-phase2
|
|
out: form
|
|
out: termios
|
|
check-allocation
|
|
out: ok
|
|
out: pwd
|
|
out: rmdir
|
|
out: mkdir
|
|
out: cd
|
|
out: ms-ticks
|
|
out: ms
|
|
check-files-dir
|
|
check-files
|
|
out: default-key
|
|
out: default-type
|
|
out: posix
|
|
check-phase1
|
|
out: DLSYM
|
|
check-opcodes
|
|
out: forth-builtins
|
|
;e
|
|
|
|
[ELSE]
|
|
|
|
e: test-esp32-forth-voclist
|
|
internals ' ansi voclist-from
|
|
out: ansi
|
|
out: registers
|
|
out: ansi
|
|
out: editor
|
|
out: streams
|
|
out: tasks
|
|
out: oled
|
|
out: bluetooth
|
|
out: rtos
|
|
out: rmt
|
|
out: interrupts
|
|
out: sockets
|
|
out: Serial
|
|
out: ledc
|
|
out: SPIFFS
|
|
out: spi_flash
|
|
out: SD_MMC
|
|
out: SD
|
|
out: WiFi
|
|
out: Wire
|
|
out: ESP
|
|
out: structures
|
|
out: internalized
|
|
out: internals
|
|
out: FORTH
|
|
;e
|
|
|
|
e: check-esp32-platform
|
|
out: riscv-assembler
|
|
out: xtensa-assembler
|
|
out: assembler
|
|
out: ok
|
|
out: LED
|
|
out: OUTPUT
|
|
out: INPUT
|
|
out: HIGH
|
|
out: LOW
|
|
out: tone
|
|
out: freq
|
|
out: duty
|
|
out: adc
|
|
out: pin
|
|
out: default-key?
|
|
out: default-key
|
|
out: default-type
|
|
;e
|
|
|
|
e: check-esp32-platform-flags
|
|
out: ESP32?
|
|
out: ESP32-S2?
|
|
out: ESP32-S3?
|
|
out: ESP32-C3?
|
|
out: PSRAM?
|
|
out: Xtensa?
|
|
out: RISC-V?
|
|
;e
|
|
|
|
e: check-esp32-builtins
|
|
check-esp32-platform-flags
|
|
out: pinMode
|
|
out: digitalWrite
|
|
out: digitalRead
|
|
out: analogRead
|
|
out: pulseIn
|
|
out: MS-TICKS
|
|
check-files-reverse
|
|
check-files-dir-reverse
|
|
out: dacWrite
|
|
out: MDNS.begin
|
|
;e
|
|
|
|
e: check-esp32-bindings
|
|
out: oled
|
|
out: bluetooth
|
|
out: rtos
|
|
out: rmt
|
|
out: interrupts
|
|
out: sockets
|
|
out: Serial
|
|
out: ledc
|
|
out: SPIFFS
|
|
out: spi_flash
|
|
out: SD_MMC
|
|
out: SD
|
|
out: WiFi
|
|
out: Wire
|
|
out: ESP
|
|
out: read-dir
|
|
;e
|
|
|
|
e: test-esp32-forth-namespace
|
|
' forth list-from
|
|
out: FORTH
|
|
out: camera-server
|
|
out: camera
|
|
out: telnetd
|
|
out: bterm
|
|
out: timers
|
|
out: registers
|
|
out: webui
|
|
out: login
|
|
out:
|
|
out:
|
|
out: web-interface
|
|
out: httpd
|
|
check-esp32-platform
|
|
check-filetools
|
|
check-phase2
|
|
check-esp32-bindings
|
|
check-allocation
|
|
check-phase1
|
|
check-esp32-builtins
|
|
check-opcodes
|
|
out: forth-builtins
|
|
;e
|
|
|
|
[THEN] [THEN]
|