2008-02-22 18:25:12 -05:00
|
|
|
|
|
|
|
|
USING: kernel namespaces io.files sequences vars ;
|
|
|
|
|
|
|
|
|
|
IN: builder.common
|
|
|
|
|
|
|
|
|
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
|
|
|
|
|
|
|
|
SYMBOL: builds-dir
|
|
|
|
|
|
|
|
|
|
: builds ( -- path )
|
|
|
|
|
builds-dir get
|
|
|
|
|
home "/builds" append
|
|
|
|
|
or ;
|
|
|
|
|
|
|
|
|
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
|
|
|
|
|
|
|
|
VAR: stamp
|
|
|
|
|
|
2008-04-12 05:12:07 -04:00
|
|
|
SYMBOL: upload-to-factorcode
|
