--- /dev/null
+// Copyright 2013 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 interp
+
+// Emulated functions that we cannot interpret because they are
+// external or because they use "unsafe" or "reflect" operations.
+
+import (
+ "bytes"
+ "math"
+ "os"
+ "runtime"
+ "strings"
+ "time"
+ "unicode/utf8"
+)
+
+type externalFn func(fr *frame, args []value) value
+
+// TODO(adonovan): fix: reflect.Value abstracts an lvalue or an
+// rvalue; Set() causes mutations that can be observed via aliases.
+// We have not captured that correctly here.
+
+// Key strings are from Function.String().
+var externals = make(map[string]externalFn)
+
+func init() {
+ // That little dot ۰ is an Arabic zero numeral (U+06F0), categories [Nd].
+ for k, v := range map[string]externalFn{
+ "(reflect.Value).Bool": ext۰reflect۰Value۰Bool,
+ "(reflect.Value).CanAddr": ext۰reflect۰Value۰CanAddr,
+ "(reflect.Value).CanInterface": ext۰reflect۰Value۰CanInterface,
+ "(reflect.Value).Elem": ext۰reflect۰Value۰Elem,
+ "(reflect.Value).Field": ext۰reflect۰Value۰Field,
+ "(reflect.Value).Float": ext۰reflect۰Value۰Float,
+ "(reflect.Value).Index": ext۰reflect۰Value۰Index,
+ "(reflect.Value).Int": ext۰reflect۰Value۰Int,
+ "(reflect.Value).Interface": ext۰reflect۰Value۰Interface,
+ "(reflect.Value).IsNil": ext۰reflect۰Value۰IsNil,
+ "(reflect.Value).IsValid": ext۰reflect۰Value۰IsValid,
+ "(reflect.Value).Kind": ext۰reflect۰Value۰Kind,
+ "(reflect.Value).Len": ext۰reflect۰Value۰Len,
+ "(reflect.Value).MapIndex": ext۰reflect۰Value۰MapIndex,
+ "(reflect.Value).MapKeys": ext۰reflect۰Value۰MapKeys,
+ "(reflect.Value).NumField": ext۰reflect۰Value۰NumField,
+ "(reflect.Value).NumMethod": ext۰reflect۰Value۰NumMethod,
+ "(reflect.Value).Pointer": ext۰reflect۰Value۰Pointer,
+ "(reflect.Value).Set": ext۰reflect۰Value۰Set,
+ "(reflect.Value).String": ext۰reflect۰Value۰String,
+ "(reflect.Value).Type": ext۰reflect۰Value۰Type,
+ "(reflect.Value).Uint": ext۰reflect۰Value۰Uint,
+ "(reflect.error).Error": ext۰reflect۰error۰Error,
+ "(reflect.rtype).Bits": ext۰reflect۰rtype۰Bits,
+ "(reflect.rtype).Elem": ext۰reflect۰rtype۰Elem,
+ "(reflect.rtype).Field": ext۰reflect۰rtype۰Field,
+ "(reflect.rtype).In": ext۰reflect۰rtype۰In,
+ "(reflect.rtype).Kind": ext۰reflect۰rtype۰Kind,
+ "(reflect.rtype).NumField": ext۰reflect۰rtype۰NumField,
+ "(reflect.rtype).NumIn": ext۰reflect۰rtype۰NumIn,
+ "(reflect.rtype).NumMethod": ext۰reflect۰rtype۰NumMethod,
+ "(reflect.rtype).NumOut": ext۰reflect۰rtype۰NumOut,
+ "(reflect.rtype).Out": ext۰reflect۰rtype۰Out,
+ "(reflect.rtype).Size": ext۰reflect۰rtype۰Size,
+ "(reflect.rtype).String": ext۰reflect۰rtype۰String,
+ "bytes.Equal": ext۰bytes۰Equal,
+ "bytes.IndexByte": ext۰bytes۰IndexByte,
+ "fmt.Sprint": ext۰fmt۰Sprint,
+ "math.Abs": ext۰math۰Abs,
+ "math.Exp": ext۰math۰Exp,
+ "math.Float32bits": ext۰math۰Float32bits,
+ "math.Float32frombits": ext۰math۰Float32frombits,
+ "math.Float64bits": ext۰math۰Float64bits,
+ "math.Float64frombits": ext۰math۰Float64frombits,
+ "math.Inf": ext۰math۰Inf,
+ "math.IsNaN": ext۰math۰IsNaN,
+ "math.Ldexp": ext۰math۰Ldexp,
+ "math.Log": ext۰math۰Log,
+ "math.Min": ext۰math۰Min,
+ "math.NaN": ext۰math۰NaN,
+ "os.Exit": ext۰os۰Exit,
+ "os.Getenv": ext۰os۰Getenv,
+ "reflect.New": ext۰reflect۰New,
+ "reflect.SliceOf": ext۰reflect۰SliceOf,
+ "reflect.TypeOf": ext۰reflect۰TypeOf,
+ "reflect.ValueOf": ext۰reflect۰ValueOf,
+ "reflect.Zero": ext۰reflect۰Zero,
+ "runtime.Breakpoint": ext۰runtime۰Breakpoint,
+ "runtime.GC": ext۰runtime۰GC,
+ "runtime.GOMAXPROCS": ext۰runtime۰GOMAXPROCS,
+ "runtime.GOROOT": ext۰runtime۰GOROOT,
+ "runtime.Goexit": ext۰runtime۰Goexit,
+ "runtime.Gosched": ext۰runtime۰Gosched,
+ "runtime.NumCPU": ext۰runtime۰NumCPU,
+ "strings.Count": ext۰strings۰Count,
+ "strings.Index": ext۰strings۰Index,
+ "strings.IndexByte": ext۰strings۰IndexByte,
+ "strings.Replace": ext۰strings۰Replace,
+ "time.Sleep": ext۰time۰Sleep,
+ "unicode/utf8.DecodeRuneInString": ext۰unicode۰utf8۰DecodeRuneInString,
+ } {
+ externals[k] = v
+ }
+}
+
+func ext۰bytes۰Equal(fr *frame, args []value) value {
+ // func Equal(a, b []byte) bool
+ a := args[0].([]value)
+ b := args[1].([]value)
+ if len(a) != len(b) {
+ return false
+ }
+ for i := range a {
+ if a[i] != b[i] {
+ return false
+ }
+ }
+ return true
+}
+
+func ext۰bytes۰IndexByte(fr *frame, args []value) value {
+ // func IndexByte(s []byte, c byte) int
+ s := args[0].([]value)
+ c := args[1].(byte)
+ for i, b := range s {
+ if b.(byte) == c {
+ return i
+ }
+ }
+ return -1
+}
+
+func ext۰math۰Float64frombits(fr *frame, args []value) value {
+ return math.Float64frombits(args[0].(uint64))
+}
+
+func ext۰math۰Float64bits(fr *frame, args []value) value {
+ return math.Float64bits(args[0].(float64))
+}
+
+func ext۰math۰Float32frombits(fr *frame, args []value) value {
+ return math.Float32frombits(args[0].(uint32))
+}
+
+func ext۰math۰Abs(fr *frame, args []value) value {
+ return math.Abs(args[0].(float64))
+}
+
+func ext۰math۰Exp(fr *frame, args []value) value {
+ return math.Exp(args[0].(float64))
+}
+
+func ext۰math۰Float32bits(fr *frame, args []value) value {
+ return math.Float32bits(args[0].(float32))
+}
+
+func ext۰math۰Min(fr *frame, args []value) value {
+ return math.Min(args[0].(float64), args[1].(float64))
+}
+
+func ext۰math۰NaN(fr *frame, args []value) value {
+ return math.NaN()
+}
+
+func ext۰math۰IsNaN(fr *frame, args []value) value {
+ return math.IsNaN(args[0].(float64))
+}
+
+func ext۰math۰Inf(fr *frame, args []value) value {
+ return math.Inf(args[0].(int))
+}
+
+func ext۰math۰Ldexp(fr *frame, args []value) value {
+ return math.Ldexp(args[0].(float64), args[1].(int))
+}
+
+func ext۰math۰Log(fr *frame, args []value) value {
+ return math.Log(args[0].(float64))
+}
+
+func ext۰runtime۰Breakpoint(fr *frame, args []value) value {
+ runtime.Breakpoint()
+ return nil
+}
+
+func ext۰strings۰Count(fr *frame, args []value) value {
+ return strings.Count(args[0].(string), args[1].(string))
+}
+
+func ext۰strings۰IndexByte(fr *frame, args []value) value {
+ return strings.IndexByte(args[0].(string), args[1].(byte))
+}
+
+func ext۰strings۰Index(fr *frame, args []value) value {
+ return strings.Index(args[0].(string), args[1].(string))
+}
+
+func ext۰strings۰Replace(fr *frame, args []value) value {
+ // func Replace(s, old, new string, n int) string
+ s := args[0].(string)
+ new := args[1].(string)
+ old := args[2].(string)
+ n := args[3].(int)
+ return strings.Replace(s, old, new, n)
+}
+
+func ext۰runtime۰GOMAXPROCS(fr *frame, args []value) value {
+ // Ignore args[0]; don't let the interpreted program
+ // set the interpreter's GOMAXPROCS!
+ return runtime.GOMAXPROCS(0)
+}
+
+func ext۰runtime۰Goexit(fr *frame, args []value) value {
+ // TODO(adonovan): don't kill the interpreter's main goroutine.
+ runtime.Goexit()
+ return nil
+}
+
+func ext۰runtime۰GOROOT(fr *frame, args []value) value {
+ return runtime.GOROOT()
+}
+
+func ext۰runtime۰GC(fr *frame, args []value) value {
+ runtime.GC()
+ return nil
+}
+
+func ext۰runtime۰Gosched(fr *frame, args []value) value {
+ runtime.Gosched()
+ return nil
+}
+
+func ext۰runtime۰NumCPU(fr *frame, args []value) value {
+ return runtime.NumCPU()
+}
+
+func ext۰time۰Sleep(fr *frame, args []value) value {
+ time.Sleep(time.Duration(args[0].(int64)))
+ return nil
+}
+
+func valueToBytes(v value) []byte {
+ in := v.([]value)
+ b := make([]byte, len(in))
+ for i := range in {
+ b[i] = in[i].(byte)
+ }
+ return b
+}
+
+func ext۰os۰Getenv(fr *frame, args []value) value {
+ name := args[0].(string)
+ switch name {
+ case "GOSSAINTERP":
+ return "1"
+ case "GOARCH":
+ return "amd64"
+ case "GOOS":
+ return "linux"
+ }
+ return os.Getenv(name)
+}
+
+func ext۰os۰Exit(fr *frame, args []value) value {
+ panic(exitPanic(args[0].(int)))
+}
+
+func ext۰unicode۰utf8۰DecodeRuneInString(fr *frame, args []value) value {
+ r, n := utf8.DecodeRuneInString(args[0].(string))
+ return tuple{r, n}
+}
+
+// A fake function for turning an arbitrary value into a string.
+// Handles only the cases needed by the tests.
+// Uses same logic as 'print' built-in.
+func ext۰fmt۰Sprint(fr *frame, args []value) value {
+ buf := new(bytes.Buffer)
+ wasStr := false
+ for i, arg := range args[0].([]value) {
+ x := arg.(iface).v
+ _, isStr := x.(string)
+ if i > 0 && !wasStr && !isStr {
+ buf.WriteByte(' ')
+ }
+ wasStr = isStr
+ buf.WriteString(toString(x))
+ }
+ return buf.String()
+}