merge

_sandbox/reading_material.md

@@ -0,0 +1,16 @@
+# Reading material
+
+## Rebol
+
+## Error / failire handling
+
+https://middlemost.com/failure-is-your-domain/
+
+https://joeduffyblog.com/2016/02/07/the-error-model/
+https://www.tritondatacenter.com/node-js/production/design/errors
+https://youtu.be/Xhx970_JKX4
+https://ericlippert.com/2008/09/10/vexing-exceptions/
+
+## Concurrency
+
+https://medium.com/techhappily/go-concurrency-2-2-patterns-and-idioms-error-handling-c18e4e083a74

evaldo/builtins.go

@@ -56,6 +56,12 @@ func MakeArgError(env1 *env.ProgramState, N int, typ []env.Type, fn string) *env
 	return env.NewError("Function " + fn + " requires argument " + strconv.Itoa(N) + " to be of	: " + types + ".")
 }
 
+func MakeNativeArgError(env1 *env.ProgramState, N int, knd []string, fn string) *env.Error {
+	env1.FailureFlag = true
+	kinds := strings.Join(knd, ", ")
+	return env.NewError("Function " + fn + " requires native argument " + strconv.Itoa(N) + " to be of kind	: " + kinds + ".")
+}
+
 func MakeRyeError(env1 *env.ProgramState, val env.Object, er *env.Error) *env.Error {
 	switch val := val.(type) {
 	case env.String: // todo .. make Error type .. make error construction micro dialect, return the error wrapping error that caused it

evaldo/builtins_math.go

@@ -313,6 +313,34 @@ var Builtins_math = map[string]*env.Builtin{
 			}
 		},
 	},
+	"ceil": {
+		Argsn: 1,
+		Doc:   "Returns the least integer value greater than or equal to x.",
+		Fn: func(ps *env.ProgramState, arg0 env.Object, arg1 env.Object, arg2 env.Object, arg3 env.Object, arg4 env.Object) env.Object {
+			switch val := arg0.(type) {
+			case env.Integer:
+				return *env.NewDecimal(float64(val.Value))
+			case env.Decimal:
+				return *env.NewDecimal(math.Ceil(val.Value))
+			default:
+				return MakeArgError(ps, 1, []env.Type{env.IntegerType, env.DecimalType}, "ceil")
+			}
+		},
+	},
+	"cbrt": {
+		Argsn: 1,
+		Doc:   "Returns returns the cube root of x.",
+		Fn: func(ps *env.ProgramState, arg0 env.Object, arg1 env.Object, arg2 env.Object, arg3 env.Object, arg4 env.Object) env.Object {
+			switch val := arg0.(type) {
+			case env.Integer:
+				return *env.NewDecimal(math.Cbrt(float64(val.Value)))
+			case env.Decimal:
+				return *env.NewDecimal(math.Cbrt(val.Value))
+			default:
+				return MakeArgError(ps, 1, []env.Type{env.IntegerType, env.DecimalType}, "cbrt")
+			}
+		},
+	},
 	"pi": {
 		Argsn: 0,
 		Doc:   "Return Pi constant.",