2 goredo -- redo implementation on pure Go
3 Copyright (C) 2020 Sergey Matveev <stargrave@stargrave.org>
5 This program is free software: you can redistribute it and/or modify
6 it under the terms of the GNU General Public License as published by
7 the Free Software Foundation, version 3 of the License.
9 This program is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 GNU General Public License for more details.
14 You should have received a copy of the GNU General Public License
15 along with this program. If not, see <http://www.gnu.org/licenses/>.
33 "go.cypherpunks.ru/recfile"
41 func mustSetenv(key, value string) {
42 if err := os.Setenv(key, value); err != nil {
47 func mustParseFd(v, name string) *os.File {
48 ptr, err := strconv.ParseUint(v, 10, 64)
52 fd := os.NewFile(uintptr(ptr), name)
54 panic("can not parse fd: " + name)
60 version := flag.Bool("version", false, "print version")
61 warranty := flag.Bool("warranty", false, "print warranty information")
62 symlinks := flag.Bool("symlinks", false, "create necessary symlinks in current directory")
71 fmt.Println(versionGet())
76 for _, cmdName := range []string{
87 fmt.Println(os.Args[0], "<-", cmdName)
88 if err := os.Symlink(os.Args[0], cmdName); err != nil {
103 NoColor = os.Getenv(EnvNoColor) != ""
104 NoSync = os.Getenv(EnvNoSync) == "1"
106 TopDir = os.Getenv(EnvTopDir)
110 TopDir, err = filepath.Abs(TopDir)
117 mustSetenv(EnvStderrKeep, "1")
119 if *flagStderrSilent {
120 mustSetenv(EnvStderrSilent, "1")
123 mustSetenv(EnvDebug, "1")
126 mustSetenv(EnvLogWait, "1")
129 mustSetenv(EnvLogLock, "1")
132 mustSetenv(EnvLogPid, "1")
135 mustSetenv(EnvLogJS, "1")
137 StderrKeep = os.Getenv(EnvStderrKeep) == "1"
138 StderrSilent = os.Getenv(EnvStderrSilent) == "1"
139 Debug = os.Getenv(EnvDebug) == "1"
140 LogWait = os.Getenv(EnvLogWait) == "1"
141 LogLock = os.Getenv(EnvLogLock) == "1"
142 LogJS = os.Getenv(EnvLogJS) == "1"
143 if Debug || os.Getenv(EnvLogPid) == "1" {
148 mustSetenv(EnvTrace, "1")
153 traced = os.Getenv(EnvTrace) == "1"
156 // Those are internal envs
157 StderrPrefix = os.Getenv(EnvStderrPrefix)
158 if v := os.Getenv(EnvLevel); v != "" {
159 Level, err = strconv.Atoi(v)
164 panic("negative " + EnvLevel)
168 if v := os.Getenv(EnvDepFd); v != "" {
169 fdDep = mustParseFd(v, EnvDepFd)
171 BuildUUID = os.Getenv(EnvBuildUUID)
175 if _, err = io.ReadFull(rand.Reader, raw[:]); err != nil {
178 raw[6] = (raw[6] & 0x0F) | uint8(4<<4) // version 4
179 BuildUUID = fmt.Sprintf(
181 raw[0:4], raw[4:6], raw[6:8], raw[8:10], raw[10:],
184 tgts = []string{"all"}
189 for i, tgt := range tgts {
191 tgts[i] = cwdMustRel(tgt)
197 cmdName := path.Base(os.Args[0])
198 trace(CDebug, "[%s] run: %s %s [%s]", BuildUUID, cmdName, tgts, Cwd)
203 for _, tgt := range tgts {
204 ok, err = ifchange([]string{tgt}, true, traced)
205 if err != nil || !ok {
209 case "redo-ifchange":
210 ok, err = ifchange(tgts, false, traced)
211 writeDeps(fdDep, tgts)
212 case "redo-ifcreate":
214 log.Fatalln("no", EnvDepFd)
216 for _, tgt := range tgts {
217 err = ifcreate(fdDep, tgt)
224 log.Fatalln("no", EnvDepFd)
228 for _, what := range tgts {
229 err = cleanupWalker(Cwd, what)
238 log.Fatalln("no", EnvDepFd)
240 err = stamp(fdDep, os.Stdin)
243 log.Fatalln("single target expected")
245 d, t := cwdAndTgt(tgts[0])
247 fd, err = os.Open(path.Join(d, RedoDir, t+LogSuffix))
251 _, err = io.Copy(os.Stdout, fd)
254 log.Fatalln("single target expected")
257 fdTmp, err = ioutil.TempFile("", "")
261 os.Remove(fdTmp.Name())
262 cwd, tgt := cwdAndTgt(tgts[0])
263 cwdRel := cwdMustRel(cwd)
264 doFile, upLevels, err := findDo(fdTmp, cwd, tgt)
268 _, err = fdTmp.Seek(0, 0)
272 r := recfile.NewReader(fdTmp)
274 m, err := r.NextMap()
281 fmt.Println(cwdMustRel(cwd, m["Target"]))
286 fmt.Println(path.Join(cwdRel, strings.Repeat("..", upLevels), doFile))
289 log.Fatalln("unknown command", cmdName)
295 if !ok || err != nil {
298 trace(CDebug, "[%s] finished: %s %s", BuildUUID, cmdName, tgts)