wamma lamma ding dong

README.md

@@ -1,2 +1,21 @@
 # quickforth
 
+proof of concept running arbitrary forth in a cgi-bin like env
+
+## Requirements
+
+- retro forth
+
+- quickserv
+
+## Getting Started
+
+1. run `quickserv_macos_x64` in a terminal (or download/install/build/etc an apropriate binary for your computer)
+
+2. Open http://localhost:42069
+
+## Resources
+
+- retro - http://forth.works/book.html
+
+- quickserv - https://github.com/jstrieb/quickserv

calculate/index.retro

@@ -0,0 +1,10 @@
+#!retro
+
+arguments are passed like "--first x --second y" etc
+
+~~~
+#1 script:get-argument s:to-number
+#3 script:get-argument s:to-number
++
+'The_answer_is_%n s:format s:put
+~~~

index.html

@@ -0,0 +1,6 @@
+<h1>wanna add some stuff?</h1>
+<form action="/calculate">
+<input name="first" type="number"> + <input name="second" type="number"> = ???
+<br>
+<button>Calculate</button>
+</form>

justfile

@@ -0,0 +1,7 @@
+# show all commands
+default:
+  @just --list
+
+# look up a word and describe it
+describe:
+  @cat words.txt | fzf | xargs retro-describe

words.txt

@@ -0,0 +1,517 @@
+s:index-of
+s:index-of
+a:index-of-string
+a:index-of
+a:contains-string?
+s:contains-string?
+s:contains-char?
+s:split-on-string
+s:split
+d:words-beginning-with
+d:words-with
+d:words
+listen
+banner
+//
+bye
+NoEcho
+clear
+s:get-word
+s:get
+parse-until
+image:save
+TIB
+clock:utc:second
+clock:utc:minute
+clock:utc:hour
+clock:utc:year
+clock:utc:month
+clock:utc:day
+clock:second
+clock:minute
+clock:hour
+clock:year
+clock:month
+clock:day
+clock:timestamp
+clock:operation
+abort
+script:abort-include
+script:ignore-to-eol
+script:current-line
+script:current-file
+script:name
+include
+script:get-argument
+script:arguments
+socket:configure
+socket:close
+socket:recv
+socket:send
+socket:connect
+socket:accept
+socket:listen
+socket:bind
+socket:create
+socket:gethostbyname
+socket:operation
+n:random
+unix:slurp-pipe
+unix:for-each-file
+unix:count-files-in-cwd
+unix:get-cwd
+unix:pipe
+unix:sleep
+unix:putenv
+unix:getenv
+unix:chdir
+unix:pclose
+unix:popen
+unix:kill
+unix:wait
+unix:getpid
+unix:exit
+unix:exec3
+unix:exec2
+unix:exec1
+unix:exec0
+unix:fork
+unix:system
+io:unix-syscall
+e:put
+f:dump-astack
+f:dump-stack
+f:fetch
+f:store
+e:to-f
+f:to-e
+f:signed-square
+f:signed-sqrt
+f:E1
+e:clip
+e:-inf?
+e:inf?
+e:nan?
+e:zero?
+e:min?
+e:max?
+e:n?
+e:-INF
+e:INF
+e:NAN
+e:MIN
+e:MAX
+f:sign
+f:case
+f:dec
+f:inc
+f:between?
+f:limit
+f:max
+f:min
+f:round
+f:-inf?
+f:inf?
+f:nan?
+f:-INF
+f:INF
+f:NAN
+f:E
+f:PI
+f:put
+f:abs
+f:negate
+f:negative?
+f:positive?
+f:square
+sigil:.
+f:rot
+f:dup-pair
+f:drop-pair
+f:nip
+f:tuck
+f:over
+f:adepth
+f:pop
+f:push
+f:atan
+f:acos
+f:asin
+f:tan
+f:cos
+f:sin
+f:power
+f:log
+f:swap
+f:drop
+f:dup
+f:depth
+f:gt?
+f:lt?
+f:-eq?
+f:eq?
+f:sqrt
+f:ceiling
+f:floor
+f:/
+f:*
+f:-
+f:+
+f:to-string
+f:to-number
+s:to-float
+n:to-float
+float:operation
+file:spew
+file:slurp
+file:for-each-line
+file:read-line
+file:open-for-writing
+file:open-for-append
+file:open-for-reading
+file:exists?
+file:flush
+file:delete
+file:size
+file:seek
+file:tell
+file:write
+file:read
+file:close
+file:open
+file:R+
+file:A
+file:W
+file:R
+file:operation
+listen
+s:get
+c:get
+FREE
+dump-stack
+reset
+n:put
+s:put
+tab
+sp
+nl
+c:put
+io:scan-for
+io:invoke
+io:query
+io:enumerate
+hex
+octal
+binary
+decimal
+indexed-times
+K
+J
+I
+s:evaluate
+a:ends-with?
+a:begins-with?
+a:-eq?
+a:eq?
+a:middle
+a:right
+a:left
+}
+{
+a:make
+a:index/string
+a:index
+a:reduce
+a:store
+a:fetch
+a:th
+a:reverse
+a:map
+a:contains/string?
+a:contains?
+a:filter
+a:chop
+a:prepend
+a:append
+a:to-string
+a:copy
+a:dup
+a:for-each
+a:from-string
+a:counted-results
+a:length
+d:lookup-xt
+d:for-each
+does
+curry
+reorder
+s:const
+s:format
+n:to-string
+s:replace-all
+s:tokenize-on-string
+s:tokenize
+s:replace
+s:split/string
+s:split/char
+sigil:'
+RewriteUnderscores
+s:trim
+s:trim-right
+s:trim-left
+s:to-lower
+s:to-upper
+c:to-number
+c:toggle-case
+c:to-string
+c:to-lower
+c:to-upper
+c:-consonant?
+c:-vowel?
+c:-visible?
+c:-whitespace?
+c:-digit?
+c:-uppercase?
+c:-lowercase?
+c:whitespace?
+c:consonant?
+c:vowel?
+c:visible?
+c:digit?
+c:letter?
+c:uppercase?
+c:lowercase?
+ASCII:US
+ASCII:RS
+ASCII:GS
+ASCII:FS
+ASCII:SUB
+ASCII:EM
+ASCII:CAN
+ASCII:ETB
+ASCII:SYN
+ASCII:NAK
+ASCII:DC4
+ASCII:DC3
+ASCII:DC2
+ASCII:DC1
+ASCII:DLE
+ASCII:SI
+ASCII:SO
+ASCII:BEL
+ASCII:ACK
+ASCII:ENQ
+ASCII:EOT
+ASCII:ETX
+ASCII:STX
+ASCII:SOH
+ASCII:DEL
+ASCII:SPACE
+ASCII:CR
+ASCII:FF
+ASCII:VT
+ASCII:LF
+ASCII:HT
+ASCII:BS
+ASCII:ESC
+ASCII:NUL
+$
+'
+s:WHITESPACE
+s:PUNCTUATION
+s:ASCII-LETTERS
+s:ASCII-UPPERCASE
+s:ASCII-LOWERCASE
+s:DIGITS
+s:copy
+s:ends-with?
+s:begins-with?
+s:left
+s:right
+s:substr
+s:map
+s:filter
+s:index/string
+s:contains/string?
+s:hash
+s:contains/char?
+s:index/char
+s:for-each
+s:append
+s:prepend
+s:reverse
+s:chop
+sigil:'
+s:keep
+s:skip
+s:empty
+s:temp
+STRINGS
+TempStringMax
+TempStrings
+buffer:preserve
+buffer:set
+buffer:size
+buffer:empty
+buffer:get
+buffer:add
+buffer:end
+buffer:start
+}}
+---reveal---
+{{
+ScopeList
+copy
+v:update
+v:preserve
+allot
+v:off
+v:on
+v:limit
+v:dec
+v:inc
+v:dec-by
+v:inc-by
+n:between?
+n:dec
+n:inc
+n:limit
+n:abs
+n:max
+n:min
+n:sqrt
+n:square
+n:negate
+n:pow
+mod
+/
+rot
+-if:
+if:
+-if;
+if;
+n:odd?
+n:even?
+n:strictly-positive?
+n:positive?
+n:negative?
+n:-zero?
+n:zero?
+n:MIN
+n:MAX
+gteq?
+lteq?
+not
+s:case
+case
+FALSE
+TRUE
+sigil:|
+times
+until
+while
+tri@
+tri*
+tri
+bi@
+bi*
+bi
+sip
+dip
+dup-pair
+?dup
+drop-pair
+nip
+over
+tuck
+const
+var
+var-n
+d:create
+sigil:!
+sigil:@
+here
+sigil:^
+sigil:\
+sigil:`
+compiling?
+compile:ret
+compile:call
+compile:jump
+compile:lit
+)
+(
+unhook
+set-hook
+hook
+primitive
+data
+immediate
+reclass
+d:last.name
+d:last.class
+d:last.xt
+d:last
+depth
+EOM
+err:notfound
+Base
+r
+d
+i
+Version
+class:primitive
+d:lookup
+interpret
+again
+repeat
+sigil:$
+sigil:&
+sigil::
+sigil:#
+d:add-header
+class:data
+class:macro
+class:word
+d:name
+d:class
+d:xt
+d:link
+Dictionary
+]
+[
+;
+s,
+,
+Heap
+Compiler
+sigil:(
+-if
+if
+choose
+s:length
+s:eq?
+s:to-number
+store-next
+fetch-next
+0;
+pop
+push
+shift
+xor
+or
+and
+/mod
+*
+-
++
+store
+fetch
+gt?
+lt?
+-eq?
+eq?
+call
+swap
+drop
+dup