status-string ( builder -- string )


Vocabulary
webapps.mason.package

Inputs
builderan object


Outputs
stringan object


Definition


: status-string ( builder -- string )
dup status>> {
{ +idle+ [ drop "Idle" ] }
{ +starting+ [ "Starting build" building ] }
{ +make-vm+ [ "Compiling VM" building ] }
{ +boot+ [ "Bootstrapping" building ] }
{ +test+ [ "Testing" building ] }
{ +upload+ [ "Uploading package" building ] }
{ +finish+ [ "Finishing build" building ] }
{ +dirty+ [ drop "Dirty" ] }
{ +clean+ [ drop "Clean" ] }
{ +error+ [ drop "Error" ] }
[ 2drop "Unknown" ]
} case ;