all repos — min @ e329114b2f2752c6f366f64eeb2f4908b3ae2b23

A small but practical concatenative programming language.

.minimrc

 1
 2
 3
 4
 5
 6
 7
 8
 9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
; Imports
'str       import
'io        import
'logic     import
'num       import
'stack     import
'sys       import
'time      import
'fs        import
'crypto    import


; Aliases
'define       ::
'bind         :@
'exit         :quit
'==           :eq
'!=           :noteq
'>            :gt
'<            :lt
'>=           :gte
'<=           :lte
'put          :echo
'system       :!
'run          :&
'getenv       :$
'pop          :zap
'quote        :unit
'quote        :'
'unquote      :i
'unquote      :apply
'unquote      :->
'scope        :=>
'filter       :select
'cons         :prepend
'size         :length

; Mathematical Operators
(1 +)           :succ
(1 -)           :pred
(2 mod 0 ==)    :even?
(even? not)     :odd?


; Stack Operators
(swap cons)                       :swons
((pop) dip)                       :popd
((dup) dip)                       :dupd
((swap) dip)                      :swapd
((dup) dip i)                     :q
((zap) dip i)                     :k
((cons) dip i)                    :b
((swap) dip i)                    :c
((dip) cons cons)                 :take
(() cons dip)                     :dig1
(() cons cons dip)                :dig2
(() cons cons cons dip)           :dig3
((() cons) dip swap i)            :bury1
((() cons cons) dip swap i)       :bury2
((() cons cons cons) dip swap i)  :bury3

; Other
(print pop)                                                   :print!
(dprint pop)                                                  :dprint!
(put pop)                                                     :put!
(:ms :q :check (check) (ms sleep q) while)                    :interval
(call pop)                                                    :call!

"MiNiM Shell v$1" (version) interpolate put!
"-> Type 'exit' or 'quit' to exit."     put!