void setup(Branch* kernel)
{
Term* func = import_function(kernel, create_func, "create(Type) -> any");
as_function(func)->specializeType = specializeType;
}
void setup(Branch* kernel)
{
FUNCS.unrecognized_expression = import_function(kernel, NULL, "unrecognized_expr(any :multiple)");
as_function(FUNCS.unrecognized_expression)->formatSource = formatSource;
}
void setup(Branch* kernel)
{
FUNCS.set_index = import_function(kernel, evaluate,
"set_index(any, int, any) -> List");
function_set_specialize_type_func(FUNCS.set_index, specializeType);
}
void setup(Block* kernel)
{
import_function(kernel, max_f, "max_f(number a,number b) -> number; 'Maximum of two numbers'");
import_function(kernel, max_i, "max_i(int a,int b) -> int; 'Maximum of two integers'");
import_function(kernel, min_f, "min_f(number a,number b) -> number; 'Minimum of two numbers'");
import_function(kernel, min_i, "min_i(int a,int b) -> int; 'Minimum of two integers'");
import_function(kernel, remainder_i, "remainder_i(int a,int b) -> int");
import_function(kernel, remainder_f, "remainder_f(number a,number b) -> number");
import_function(kernel, mod_i, "mod_i(int a,int b) -> int");
import_function(kernel, mod_f, "mod_f(number a,number b) -> number");
import_function(kernel, round, "round(number n) -> int;"
"'Return the integer that is closest to n'");
import_function(kernel, floor, "floor(number n) -> int;"
"'Return the closest integer that is less than n'");
import_function(kernel, ceil, "ceil(number n) -> int;"
"'Return the closest integer that is greater than n'");
import_function(kernel, average, "average(number vals :multiple) -> number;"
"'Returns the average of all inputs.'");
import_function(kernel, pow, "pow(int i, int x) -> int; 'Returns i to the power of x'");
import_function(kernel, sqr, "sqr(number n) -> number; 'Square function'");
import_function(kernel, cube, "cube(number n) -> number; 'Cube function'");
import_function(kernel, sqrt, "sqrt(number n) -> number; 'Square root'");
import_function(kernel, log, "log(number n) -> number; 'Natural log function'");
}
