github.com/dara-project/godist@v0.0.0-20200823115410-e0c80c8f0c78/src/os/getwd.go

// Copyright 2009 The Go Authors. All rights reserved.
// Use of this source code is governed by a BSD-style
// license that can be found in the LICENSE file.

package os

import (
	"dara"
	"runtime"
	"sync"
	"syscall"
)

var getwdCache struct {
	sync.Mutex
	dir string
}

// useSyscallwd determines whether to use the return value of
// syscall.Getwd based on its error.
var useSyscallwd = func(error) bool { return true }

// Getwd returns a rooted path name corresponding to the
// current directory. If the current directory can be
// reached via multiple paths (due to symbolic links),
// Getwd may return any one of them.
func Getwd() (dir string, err error) {
	if runtime.GOOS == "windows" || runtime.GOOS == "plan9" {
		dir, err = syscall.Getwd()
		// DARA Instrumentation
		if runtime.Is_dara_profiling_on() {
			runtime.Dara_Debug_Print(func() { println("[GETWD]") })
			retInfo1 := dara.GeneralType{Type: dara.STRING}
            copy(retInfo1.String[:], dir)
			retInfo2 := dara.GeneralType{Type: dara.ERROR, Unsupported: dara.UNSUPPORTEDVAL}
			syscallInfo := dara.GeneralSyscall{dara.DSYS_GETWD, 0, 2, [10]dara.GeneralType{}, [10]dara.GeneralType{retInfo1, retInfo2}}
			runtime.Report_Syscall_To_Scheduler(dara.DSYS_GETWD, syscallInfo)
		}
		return dir, err
	}

	// Clumsy but widespread kludge:
	// if $PWD is set and matches ".", use it.
	dot, err := statNolog(".")
	if err != nil {
		// DARA Instrumentation
		if runtime.Is_dara_profiling_on() {
			runtime.Dara_Debug_Print(func() { println("[GETWD]") })
			retInfo1 := dara.GeneralType{Type: dara.STRING}
			retInfo2 := dara.GeneralType{Type: dara.ERROR, Unsupported: dara.UNSUPPORTEDVAL}
			syscallInfo := dara.GeneralSyscall{dara.DSYS_GETWD, 0, 2, [10]dara.GeneralType{}, [10]dara.GeneralType{retInfo1, retInfo2}}
			runtime.Report_Syscall_To_Scheduler(dara.DSYS_GETWD, syscallInfo)
		}
		return "", err
	}
	dir = Getenv("PWD")
	if len(dir) > 0 && dir[0] == '/' {
		d, err := statNolog(dir)
		if err == nil && SameFile(dot, d) {
			// DARA Instrumentation
			if runtime.Is_dara_profiling_on() {
				runtime.Dara_Debug_Print(func() { println("[GETWD]") })
				retInfo1 := dara.GeneralType{Type: dara.STRING}
                copy(retInfo1.String[:], dir)
				retInfo2 := dara.GeneralType{Type: dara.ERROR, Unsupported: dara.UNSUPPORTEDVAL}
				syscallInfo := dara.GeneralSyscall{dara.DSYS_GETWD, 0, 2, [10]dara.GeneralType{}, [10]dara.GeneralType{retInfo1, retInfo2}}
				runtime.Report_Syscall_To_Scheduler(dara.DSYS_GETWD, syscallInfo)
			}
			return dir, nil
		}
	}

	// If the operating system provides a Getwd call, use it.
	// Otherwise, we're trying to find our way back to ".".
	if syscall.ImplementsGetwd {
		s, e := syscall.Getwd()
		if useSyscallwd(e) {
			// DARA Instrumentation
			if runtime.Is_dara_profiling_on() {
				runtime.Dara_Debug_Print(func() { println("[GETWD]") })
				retInfo1 := dara.GeneralType{Type: dara.STRING}
                copy(retInfo1.String[:], s)
				retInfo2 := dara.GeneralType{Type: dara.ERROR, Unsupported: dara.UNSUPPORTEDVAL}
				syscallInfo := dara.GeneralSyscall{dara.DSYS_GETWD, 0, 2, [10]dara.GeneralType{}, [10]dara.GeneralType{retInfo1, retInfo2}}
				runtime.Report_Syscall_To_Scheduler(dara.DSYS_GETWD, syscallInfo)
			}
			return s, NewSyscallError("getwd", e)
		}
	}

	// Apply same kludge but to cached dir instead of $PWD.
	getwdCache.Lock()
	dir = getwdCache.dir
	getwdCache.Unlock()
	if len(dir) > 0 {
		d, err := statNolog(dir)
		if err == nil && SameFile(dot, d) {
			// DARA Instrumentation
			if runtime.Is_dara_profiling_on() {
				runtime.Dara_Debug_Print(func() { println("[GETWD]") })
				retInfo1 := dara.GeneralType{Type: dara.STRING}
                copy(retInfo1.String[:], dir)
				retInfo2 := dara.GeneralType{Type: dara.ERROR, Unsupported: dara.UNSUPPORTEDVAL}
				syscallInfo := dara.GeneralSyscall{dara.DSYS_GETWD, 0, 2, [10]dara.GeneralType{}, [10]dara.GeneralType{retInfo1, retInfo2}}
				runtime.Report_Syscall_To_Scheduler(dara.DSYS_GETWD, syscallInfo)
			}
			return dir, nil
		}
	}

	// Root is a special case because it has no parent
	// and ends in a slash.
	root, err := statNolog("/")
	if err != nil {
		// Can't stat root - no hope.
		// DARA Instrumentation
		if runtime.Is_dara_profiling_on() {
			runtime.Dara_Debug_Print(func() { println("[GETWD]") })
			retInfo1 := dara.GeneralType{Type: dara.STRING}
			retInfo2 := dara.GeneralType{Type: dara.ERROR, Unsupported: dara.UNSUPPORTEDVAL}
			syscallInfo := dara.GeneralSyscall{dara.DSYS_GETWD, 0, 2, [10]dara.GeneralType{}, [10]dara.GeneralType{retInfo1, retInfo2}}
			runtime.Report_Syscall_To_Scheduler(dara.DSYS_GETWD, syscallInfo)
		}
		return "", err
	}
	if SameFile(root, dot) {
		// DARA Instrumentation
		if runtime.Is_dara_profiling_on() {
			runtime.Dara_Debug_Print(func() { println("[GETWD]") })
			retInfo1 := dara.GeneralType{Type: dara.STRING}
            copy(retInfo1.String[:], "/")
			retInfo2 := dara.GeneralType{Type: dara.ERROR, Unsupported: dara.UNSUPPORTEDVAL}
			syscallInfo := dara.GeneralSyscall{dara.DSYS_GETWD, 0, 2, [10]dara.GeneralType{}, [10]dara.GeneralType{retInfo1, retInfo2}}
			runtime.Report_Syscall_To_Scheduler(dara.DSYS_GETWD, syscallInfo)
		}
		return "/", nil
	}

	// General algorithm: find name in parent
	// and then find name of parent. Each iteration
	// adds /name to the beginning of dir.
	dir = ""
	for parent := ".."; ; parent = "../" + parent {
		if len(parent) >= 1024 { // Sanity check
			// DARA Instrumentation
			if runtime.Is_dara_profiling_on() {
				runtime.Dara_Debug_Print(func() { println("[GETWD]") })
				retInfo1 := dara.GeneralType{Type: dara.STRING}
				retInfo2 := dara.GeneralType{Type: dara.ERROR, Unsupported: dara.UNSUPPORTEDVAL}
				syscallInfo := dara.GeneralSyscall{dara.DSYS_GETWD, 0, 2, [10]dara.GeneralType{}, [10]dara.GeneralType{retInfo1, retInfo2}}
				runtime.Report_Syscall_To_Scheduler(dara.DSYS_GETWD, syscallInfo)
			}
			return "", syscall.ENAMETOOLONG
		}
		fd, err := openFileNolog(parent, O_RDONLY, 0)
		if err != nil {
			// DARA Instrumentation
			if runtime.Is_dara_profiling_on() {
				runtime.Dara_Debug_Print(func() { println("[GETWD]") })
				retInfo1 := dara.GeneralType{Type: dara.STRING}
				retInfo2 := dara.GeneralType{Type: dara.ERROR, Unsupported: dara.UNSUPPORTEDVAL}
				syscallInfo := dara.GeneralSyscall{dara.DSYS_GETWD, 0, 2, [10]dara.GeneralType{}, [10]dara.GeneralType{retInfo1, retInfo2}}
				runtime.Report_Syscall_To_Scheduler(dara.DSYS_GETWD, syscallInfo)
			}
			return "", err
		}

		for {
			names, err := fd.Readdirnames(100)
			if err != nil {
				fd.Close()
				// DARA Instrumentation
				if runtime.Is_dara_profiling_on() {
					runtime.Dara_Debug_Print(func() { println("[GETWD]") })
					retInfo1 := dara.GeneralType{Type: dara.STRING}
					retInfo2 := dara.GeneralType{Type: dara.ERROR, Unsupported: dara.UNSUPPORTEDVAL}
					syscallInfo := dara.GeneralSyscall{dara.DSYS_GETWD, 0, 2, [10]dara.GeneralType{}, [10]dara.GeneralType{retInfo1, retInfo2}}
					runtime.Report_Syscall_To_Scheduler(dara.DSYS_GETWD, syscallInfo)
				}
				return "", err
			}
			for _, name := range names {
				d, _ := lstatNolog(parent + "/" + name)
				if SameFile(d, dot) {
					dir = "/" + name + dir
					goto Found
				}
			}
		}

	Found:
		pd, err := fd.Stat()
		if err != nil {
			// DARA Instrumentation
			if runtime.Is_dara_profiling_on() {
				runtime.Dara_Debug_Print(func() { println("[GETWD]") })
				retInfo1 := dara.GeneralType{Type: dara.STRING}
				retInfo2 := dara.GeneralType{Type: dara.ERROR, Unsupported: dara.UNSUPPORTEDVAL}
				syscallInfo := dara.GeneralSyscall{dara.DSYS_GETWD, 0, 2, [10]dara.GeneralType{}, [10]dara.GeneralType{retInfo1, retInfo2}}
				runtime.Report_Syscall_To_Scheduler(dara.DSYS_GETWD, syscallInfo)
			}
			return "", err
		}
		fd.Close()
		if SameFile(pd, root) {
			break
		}
		// Set up for next round.
		dot = pd
	}

	// Save answer as hint to avoid the expensive path next time.
	getwdCache.Lock()
	getwdCache.dir = dir
	getwdCache.Unlock()

	// DARA Instrumentation
	if runtime.Is_dara_profiling_on() {
		runtime.Dara_Debug_Print(func() { println("[GETWD]") })
		retInfo1 := dara.GeneralType{Type: dara.STRING}
        copy(retInfo1.String[:], dir)
		retInfo2 := dara.GeneralType{Type: dara.ERROR, Unsupported: dara.UNSUPPORTEDVAL}
		syscallInfo := dara.GeneralSyscall{dara.DSYS_GETWD, 0, 2, [10]dara.GeneralType{}, [10]dara.GeneralType{retInfo1, retInfo2}}
		runtime.Report_Syscall_To_Scheduler(dara.DSYS_GETWD, syscallInfo)
	}
	return dir, nil
}