conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

added a script to extract latest development snapshot from bzr

This commit is contained in:
Abdulaziz Ghuloum 2009-06-27 10:22:04 +03:00
parent f766b91fe8
commit 5e26cf5313
7 changed files with 48 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
benchmarks/Makefile.in
View File

@ -224,9 +224,9 @@ $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps)
exit 1;; \
esac; \
done; \
echo ' cd $(top_srcdir) && $(AUTOMAKE) --foreign benchmarks/Makefile'; \
echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu benchmarks/Makefile'; \
cd $(top_srcdir) && \
$(AUTOMAKE) --foreign benchmarks/Makefile
$(AUTOMAKE) --gnu benchmarks/Makefile
.PRECIOUS: Makefile
Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
@case '$?' in \

4
doc/Makefile.in
View File

@ -171,9 +171,9 @@ $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps)
exit 1;; \
esac; \
done; \
echo ' cd $(top_srcdir) && $(AUTOMAKE) --foreign doc/Makefile'; \
echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu doc/Makefile'; \
cd $(top_srcdir) && \
$(AUTOMAKE) --foreign doc/Makefile
$(AUTOMAKE) --gnu doc/Makefile
.PRECIOUS: Makefile
Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
@case '$?' in \

37
lab/bzr-snapshot.ss Normal file
View File

@ -0,0 +1,37 @@
(import (ikarus))
(define (shell cmd . args)
(let-values ([(pid op ip ep) (apply process cmd args)])
(let ([ip (transcoded-port ip (native-transcoder))])
(let ([str (get-string-all ip)])
(close-input-port ip)
(close-output-port op)
(close-input-port ep)
(let ([w (waitpid pid)])
(unless (zero? (wstatus-exit-status w))
(apply error 'shell "failed" w cmd args)))
str))))
(define (make-snapshot repo dest-dir file-template)
(let ([revno
(read (open-string-input-port (shell "bzr" "revno" repo)))])
(let ([file (string-append dest-dir "/" (format file-template revno))])
(unless (file-exists? file)
(shell "bzr" "export"
"-r" (number->string revno)
file repo)))))
;(let ()
; (define home (getenv "HOME"))
; (define repo (string-append home "/Work/" "ikarus.dev"))
; (define dest-dir (string-append repo "/snapshots"))
; (define file-template "ikarus-scheme-r~a.tgz")
; (make-snapshot repo dest-dir file-template))
(apply
(case-lambda
[(script repo dest-dir file-template)
(make-snapshot repo dest-dir file-template)]
[(script . args)
(error script (format "Usage: ~a <repo-dir> <dest-dir> <file-template>" script))])
(command-line))

4
lib/Makefile.in
View File

@ -181,9 +181,9 @@ $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps)
exit 1;; \
esac; \
done; \
echo ' cd $(top_srcdir) && $(AUTOMAKE) --foreign lib/Makefile'; \
echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu lib/Makefile'; \
cd $(top_srcdir) && \
$(AUTOMAKE) --foreign lib/Makefile
$(AUTOMAKE) --gnu lib/Makefile
.PRECIOUS: Makefile
Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
@case '$?' in \

4
scheme/Makefile.in
View File

@ -268,9 +268,9 @@ $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps)
exit 1;; \
esac; \
done; \
echo ' cd $(top_srcdir) && $(AUTOMAKE) --foreign scheme/Makefile'; \
echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu scheme/Makefile'; \
cd $(top_srcdir) && \
$(AUTOMAKE) --foreign scheme/Makefile
$(AUTOMAKE) --gnu scheme/Makefile
.PRECIOUS: Makefile
Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
@case '$?' in \

2
scheme/last-revision
View File

@ -1 +1 @@
1814
1815

4
src/Makefile.in
View File

@ -207,9 +207,9 @@ $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps)
exit 1;; \
esac; \
done; \
echo ' cd $(top_srcdir) && $(AUTOMAKE) --foreign src/Makefile'; \
echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu src/Makefile'; \
cd $(top_srcdir) && \
$(AUTOMAKE) --foreign src/Makefile
$(AUTOMAKE) --gnu src/Makefile
.PRECIOUS: Makefile
Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
@case '$?' in \