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"
34 "golang.org/x/sys/unix"
42 func mustSetenv(key, value string) {
43 if err := os.Setenv(key, value); err != nil {
48 func mustParseFd(v, name string) *os.File {
49 ptr, err := strconv.ParseUint(v, 10, 64)
53 fd := os.NewFile(uintptr(ptr), name)
55 panic("can not parse fd: " + name)
61 version := flag.Bool("version", false, "print version")
62 warranty := flag.Bool("warranty", false, "print warranty information")
63 symlinks := flag.Bool("symlinks", false, "create necessary symlinks in current direcotyr")
72 fmt.Println(versionGet())
77 for _, cmdName := range []string{
88 fmt.Println(os.Args[0], "<-", cmdName)
89 if err := os.Symlink(os.Args[0], cmdName); err != nil {
94 fmt.Println("no creating optional:", os.Args[0], "<- tai64nlocal")
100 Cwd, err = unix.Getwd()
105 NoColor = os.Getenv(EnvNoColor) != ""
106 NoSync = os.Getenv(EnvNoSync) == "1"
108 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" {
150 traced = os.Getenv(EnvTrace) == "1"
153 // Those are internal envs
154 StderrPrefix = os.Getenv(EnvStderrPrefix)
155 if v := os.Getenv(EnvLevel); v != "" {
156 Level, err = strconv.Atoi(v)
161 panic("negative " + EnvLevel)
165 if v := os.Getenv(EnvDepFd); v != "" {
166 fdDep = mustParseFd(v, EnvDepFd)
168 BuildUUID = os.Getenv(EnvBuildUUID)
171 if _, err = io.ReadFull(rand.Reader, raw[:]); err != nil {
174 raw[6] = (raw[6] & 0x0F) | uint8(4<<4) // version 4
175 BuildUUID = fmt.Sprintf(
177 raw[0:4], raw[4:6], raw[6:8], raw[8:10], raw[10:],
184 tgts = []string{"all"}
188 cmdName := path.Base(os.Args[0])
189 trace(CDebug, "[%s] run: %s %s [%s]", BuildUUID, cmdName, tgts, Cwd)
194 for _, tgt := range tgts {
195 ok, err = ifchange([]string{tgt}, true, traced)
196 if err != nil || !ok {
200 case "redo-ifchange":
201 ok, err = ifchange(tgts, false, traced)
202 writeDeps(fdDep, tgts)
203 case "redo-ifcreate":
205 log.Fatalln("no", EnvDepFd)
207 for _, tgt := range tgts {
208 err = ifcreate(fdDep, tgt)
215 log.Fatalln("no", EnvDepFd)
219 for _, what := range tgts {
220 err = cleanupWalker(Cwd, what)
229 log.Fatalln("no", EnvDepFd)
231 err = stamp(fdDep, os.Stdin)
234 log.Fatalln("single target expected")
236 d, t := cwdAndTgt(tgts[0])
238 fd, err = os.Open(path.Join(d, RedoDir, t+LogSuffix))
242 _, err = io.Copy(os.Stdout, fd)
245 log.Fatalln("single target expected")
248 fdTmp, err = ioutil.TempFile("", "")
252 os.Remove(fdTmp.Name())
254 cwd, tgt := cwdAndTgt(tgts[0])
255 doFile, _, err = findDo(fdTmp, cwd, tgt)
259 _, err = fdTmp.Seek(0, 0)
263 r := recfile.NewReader(fdTmp)
265 m, err := r.NextMap()
272 fmt.Println(cwdMustRel(cwd, m["Target"]))
276 bw := bufio.NewWriter(os.Stdout)
277 err = tai64nLocal(bw, os.Stdin)
280 log.Fatalln("unknown command", cmdName)
286 if !ok || err != nil {
289 trace(CDebug, "[%s] finished: %s %s", BuildUUID, cmdName, tgts)