all repos — min @ 5df355178418e67da56d7645306d5604b1fe0eaa

A small but practical concatenative programming language.

mintool.min

 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
#!/usr/bin/env min

;Capture a reference of default symbols before more are added
symbols :min-symbols
2 :n-args
1 :taskspec-arg

(compiled?)
(
    1 @n-args
    0 @taskspec-arg
)
when

; Validation
(args size n-args <) ("No task specified" error 1 exit) when

args taskspec-arg get ":" split :taskspec
taskspec 0 get :task
"default" :subtask
(taskspec size 1 >) (taskspec 1 get @subtask) when

"tasks/$#.min" (task) =% :task-file

task-file require :tasklist

"tasklist/$#" (subtask) =% invoke

; Load task module
;task-file load

; Execute task
;"$#-tasks" (task) =% eval subtask ^