Hi Mansur,

> I've cloned tankfeeder's repository at Bitbucket and installed small

Thanks a lot!


> Source code is listed below. Comments are welcome

Looks good :)

♪♫ Alex
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> (setq
>    *Root "pilrepo/"
>    *Repo (pack *Root "picoLisp/")
>    *TgzUrl "http://software-lab.de/picoLisp.tgz";
>    *Tgz (pack *Root "picoLisp.tgz")
>    *Curl (list 'curl '-z *Tgz '-o *Tgz '-w "%{http_code}" '--silent *TgzUrl)
> )
> # TODO: email me
> (de _alert ()
>    NIL )
> (de _download ()
>    (log "Downloading @1..." *TgzUrl)
>    (case (in *Curl (read))
>       (200 (log "200 OK [@2 bytes]" (car (info Tgz))) T)
>       (304 (log "304 Not modified") NIL)
>       (T (logerr "@1 download failed" @) (_alert) NIL) ) )
> (de _extract ()
>    (ifn (call 'tar '-x '-z '-C *Root '-f *Tgz)
>       (nil (logerr "'@1' extraction failed" *Tgz))
>       T ) )
> (de log @
>    (out NIL
>       (prinl (stamp) " PID: " *Pid " [INFO] " (pass text)) ) )
> (de logerr @
>    (out NIL
>       (prinl (stamp) " PID: " *Pid  " [ERROR] " (pass text)) ) )
> (de _commit ()
>    (load (pack *Repo "src64/version.l"))
>    (let Msg (glue "." *Version)
>       (if (call 'hg 'commit '--cwd *Repo '-A '-m Msg)
>          (t (log "hg commit -m '@1'" Msg))
>          (nil (logerr "hg commit -m '@1' failed" Msg)) ) ) )
-- 
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe

Reply via email to