/*
goredo -- redo implementation on pure Go
Copyright (C) 2020 Sergey Matveev <stargrave@stargrave.org>

This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, version 3 of the License.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program.  If not, see <http://www.gnu.org/licenses/>.
*/

// Dependencies saver

package main

import (
	"bufio"
	"encoding/hex"
	"fmt"
	"io"
	"os"
	"path"
	"strings"
	"syscall"

	"go.cypherpunks.ru/recfile"
	"golang.org/x/crypto/blake2b"
)

const EnvNoHash = "REDO_NO_HASH"

var NoHash bool

func recfileWrite(fdDep *os.File, fields ...recfile.Field) error {
	w := recfile.NewWriter(fdDep)
	if _, err := w.RecordStart(); err != nil {
		return err
	}
	if _, err := w.WriteFields(fields...); err != nil {
		return err
	}
	return nil
}

func ifcreate(fdDep *os.File, tgt string) error {
	trace(CDebug, "ifcreate: %s <- %s", fdDep.Name(), tgt)
	return recfileWrite(
		fdDep,
		recfile.Field{Name: "Type", Value: "ifcreate"},
		recfile.Field{Name: "Target", Value: tgt},
	)
}

func always(fdDep *os.File) error {
	trace(CDebug, "always: %s", fdDep.Name())
	return recfileWrite(fdDep, recfile.Field{Name: "Type", Value: "always"})
}

func stamp(fdDep, src *os.File) error {
	var hsh string
	hsh, err := fileHash(os.Stdin)
	if err != nil {
		return err
	}
	trace(CDebug, "stamp: %s <- %s", fdDep.Name(), hsh)
	return recfileWrite(
		fdDep,
		recfile.Field{Name: "Type", Value: "stamp"},
		recfile.Field{Name: "Hash", Value: hsh},
	)
}

func fileCtime(fd *os.File) (string, error) {
	fi, err := fd.Stat()
	if err != nil {
		return "", err
	}
	stat := fi.Sys().(*syscall.Stat_t)
	sec, nsec := stat.Ctimespec.Unix()
	return fmt.Sprintf("%d.%d", sec, nsec), nil
}

func fileHash(fd *os.File) (string, error) {
	h, err := blake2b.New256(nil)
	if err != nil {
		panic(err)
	}
	if _, err = io.Copy(h, bufio.NewReader(fd)); err != nil {
		return "", err
	}
	return hex.EncodeToString(h.Sum(nil)), nil
}

func writeDep(fdDep *os.File, cwd, tgt string) error {
	trace(CDebug, "ifchange: %s <- %s", fdDep.Name(), tgt)
	fd, err := os.Open(path.Join(cwd, tgt))
	if err != nil {
		return err
	}
	defer fd.Close()
	ts, err := fileCtime(fd)
	if err != nil {
		return err
	}
	fields := []recfile.Field{
		recfile.Field{Name: "Type", Value: "ifchange"},
		recfile.Field{Name: "Target", Value: tgt},
		recfile.Field{Name: "Ctime", Value: ts},
	}
	var hsh string
	if !NoHash {
		hsh, err = fileHash(fd)
		if err != nil {
			return err
		}
		fields = append(fields, recfile.Field{Name: "Hash", Value: hsh})
	}
	err = recfileWrite(fdDep, fields...)
	return err
}

func writeDeps(fdDep *os.File, tgts []string) error {
	if fdDep == nil {
		trace(CDebug, "no opened fdDep: %s", tgts)
		return nil
	}
	ups := []string{}
	upLevels := strings.Count(os.Getenv(EnvDirPrefix), "/")
	for i := 0; i < upLevels; i++ {
		ups = append(ups, "..")
	}
	up := path.Join(ups...)
	for _, tgt := range tgts {
		if _, err := os.Stat(tgt); err == nil {
			if err = writeDep(fdDep, Cwd, path.Join(up, tgt)); err != nil {
				return err
			}
		}
	}
	return nil
}