added

vendor/github.com/glycerine/zygomys/zygo/rawutils.go

@@ -0,0 +1,33 @@
+package zygo
+
+import (
+	"errors"
+	"fmt"
+)
+
+func MakeRaw(args []Sexp) (*SexpRaw, error) {
+	raw := make([]byte, 0)
+	for i := 0; i < len(args); i++ {
+		switch e := args[i].(type) {
+		case *SexpStr:
+			a := []byte(e.S)
+			raw = append(raw, a...)
+		default:
+			return &SexpRaw{},
+				fmt.Errorf("raw takes only string arguments. We see %T: '%v'", e, e)
+		}
+	}
+	return &SexpRaw{Val: raw}, nil
+}
+
+func RawToStringFunction(env *Zlisp, name string, args []Sexp) (Sexp, error) {
+	if len(args) != 1 {
+		return SexpNull, WrongNargs
+	}
+
+	switch t := args[0].(type) {
+	case *SexpRaw:
+		return &SexpStr{S: string(t.Val)}, nil
+	}
+	return SexpNull, errors.New("argument must be raw")
+}