tasks/info.mn
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
null "cfg_author" let null "cfg_version" let null "cfg_name" let null "cfg_description" let "mn.yml" read "\n" split ( ; Process each line ":" split (parts) let (parts size 1 >) ( parts 0 get strip (name) let parts 1 get strip (value) let value "cfg_$#" (name) interpolate bind ) when ) foreach ( "$# v$# - $#" (cfg_name cfg_version cfg_description) interpolate puts pop ) (info__default) lambda ( cfg_version puts pop ) (info__version) lambda |