Overview
| Comment: | Added rebase script |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | rebase-envprocessing |
| Files: | files | file ages | folders |
| SHA1: |
5ffeb83ec4befc14ea1608e0ae74e076 |
| User & Date: | mrwellan on 2016-04-27 17:12:09 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-04-28
| ||
| 08:35 | Cherry pick from 93b72f20b1: Check if process still ACTUALLY running and if not go ahead and start the test check-in: 7624379dd7 user: mrwellan tags: rebase-envprocessing | |
|
2016-04-27
| ||
| 17:12 | Added rebase script check-in: 5ffeb83ec4 user: mrwellan tags: rebase-envprocessing | |
| 10:54 | Cherrypick 0bfc8 check-in: 226e4232a1 user: mrwellan tags: rebase-envprocessing | |
Changes
Added fsl-rebase.scm version [d386c1a856].
> > > > > > > > > > > > > > > > > > > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 |
;; given branch and baseline commit generate list of commands to cherry pick commits
;;
;;
;; Usage: fsl-rebase basecommit branch
;;
(use regex posix)
(let* ((basecommit (cadr (argv)))
(branch (caddr (argv)))
(cmd (conc "fossil timeline after " basecommit " -n 1000000 -W 0"))
(theregex (conc ;; "^[^\\]]+"
;; "\\[([\\]]+)\\]\\s+"
;; "(.*)"
"\\s+\\(.*tags:\\s+" branch
;; ".*\\)"
)))
(print "basecommit: " basecommit ", branch: " branch ", theregex: " theregex ", cmd: \"" cmd "\"")
(with-input-from-pipe
cmd
(lambda ()
(let loop ((inl (read-line)))
(if (not (eof-object? inl))
(let ((have-match (string-search theregex inl)))
(if have-match
(print "match: " inl)
(print "no match: " theregex " " inl))
(loop (read-line))))))))
|