New console engine
The old console code we were using so far for the Red REPL was never meant to last that long, but as usual in software development, temporary solutions tend to become more permanent than planned. Though, the old console code really needed a replacement, mainly for:
- removing the dependency to libreadline and libhistory, they were creating too many issues on the different Unix platforms, so became troublesome for many newcomers.
- having a finer-grained control over keystrokes on text input, in order to implement convenient features like word completion.
- having a bigger platform-independent part, so that we can add any kind of backends, like GUI ones, without duplicating too much code.
- built-in history, accessible from system/console/history
- customizable prompt from system/console/prompt
- word and object path completion using TAB key
- ESC key support for interrupting a multi-line input
- about function now returns also the build timestamp.
- what function has now a more readable output.
- Console output speed on Windows is now very fast, thanks to the patch provided by Oldes for buffered output.
Red now supports first class errors as the error! datatype. They can be user-created or produced by the system. The error definitions are stored in the system/catalog/errors object.
red>> help system/catalog/errors `system/catalog/errors` is an object! of value: throw object! [code type break return throw continue] note object! [code type no-load] syntax object! [code type invalid missing no-header no-rs-h... script object! [code type no-value need-value not-defined n... math object! [code type zero-divide overflow positive] access object! [code type] user object! [code type message] internal object! [code type bad-path not-here no-memory stack...
User errors can be created using make action followed by an error integer code or a block containing the category and error name:
red>> make error! 402 *** Math error: attempt to divide by zero *** Where: ??? red>> make error! [math zero-divide] *** Math error: attempt to divide by zero *** Where: ???
These examples are displaying an error message because the error value is the returned value, we still need to implement a full exception handling mechanism using throw/catch natives in order to enable raising user errors that can interrupt the code flow. The error throwing sub-system is implemented and used by the Red runtime and interpreter, just not exposed to the user yet.
Errors can be trapped using the try native. An error! value will be returned if an error was generated and can be tested using the error? function.
red>> a: 0 if error? err: try [1 / a][print "divide by zero"] divide by zero red>> probe err make error! [ code: none type: 'math id: 'zero-divide arg1: none arg2: none arg3: none near: none where: '/ stack: 3121680 ] *** Math error: attempt to divide by zero *** Where: /Currently the console will display errors if they are the last value. That behavior will be improved once the exception system for Red will be in place.
Errors when displayed from compiled programs, provide calling stack information to make it easier to locate the source code where the error originated from. For example:
Red  print mold 3 / 0will produce the following error once compiled and run:
*** Math error: attempt to divide by zero *** Where: / *** Stack: print mold /
Sorting data is now supported in Red, in a polymorphic way as in Rebol. The sort action is very versatile and useful. Let's start from a basic example:
scores: [2 3 1 9 4 8] sort scores == [1 2 3 4 8 9]As you can see, sort modifies the argument series, you can keep the series unchanged by using copy when passing it as argument:
str: "CgBbefacdA" sort copy str == "aABbCcdefg" sort/case copy str == "ABCabcdefg" str == "CgBbefacdA"By default, sorting is not sensitive to character cases, but you can make it sensitive with the /case refinement.
You can use /skip refinement to specify how many elements to ignore, it's handy when you need to sort records of a fixed size.
name-ages: [ "Larry" 45 "Curly" 50 "Mo" 42 ] sort/skip name-ages 2 == ["Curly" 50 "Larry" 45 "Mo" 42]The /compare refinement can be used to specify how to perform the comparison. (It does not yet support block! as argument)
names: [ "Larry" "Curly" "Mo" ] sort/compare names func [a b] [a > b] == ["Mo" "Larry" "Curly"]Combining it with /skip refinement, you can do some complex sorting task.
name-ages: [ "Larry" 45 "Curly" 50 "Mo" 42 ] sort/skip/compare copy name-ages 2 2 ;-- sort by 2nd column == ["Mo" 42 "Larry" 45 "Curly" 50]The /all refinement will force the entire record to be passed to the compare function. This is useful if you need to compare one or more fields of a record while also doing a skip operation. In the following example, sorting is done by the second column, in descending order:
sort/skip/compare/all name-ages 2 func [a b][a/2 > b/2] == ["Curly" 50 "Larry" 45 "Mo" 42]Sort uses Quicksort as its default sorting algorithm. Quicksort is very fast, but it is an unstable sorting algorithm. If you need stable sorting, just add /stable refinement, it will then use Merge algorithm instead to perform the sort.
A couple of new datatypes were added in this release, mostly because of internal needs in Red runtime to support the new features.
The typeset! datatype has been fully implemented, and is on par with the Rebol3 version. A typeset! value is a set of datatypes stored in a compact array of bits (up to 96 bits). Datatype lookups are very fast in typesets and they are mostly used internally for runtime type-checking support. The following actions are supported on typeset! values: make, form, mold, and, or, xor, complement, clear, find, insert, append, length?. Comparison operators are also supported.
A preliminary implementation of the vector! datatype is also part of this release. A vector! value is a series of number values of same datatype. The internal implementation uses a more compact memory storage format than a block! would do, while, on the surface, behaving the same way as other series. Only 32-bit integer values can be stored for now in vectors. The following actions are supported by vector! values: make, form, mold, at, back, head, head?, index?, insert, append, length?, next, pick, skip, tail, tail?. The implementation will be completed in future releases.
Runtime type checking support
It has finally being implemented, as proper error handling support is now available. So from this release on, function arguments types will be check against the function specification and non-conforming cases will result in an error. Return value type-checking will be added later.
The type-checking might break some existing Red code around that was letting silently pass invalid arguments, so check your code with this new release before upgrading.
The compiler does not do any type checking yet, that will be added at a later stage (though, don't expect too much from it, unless you annotate with types every function exhaustively).
Also notice that the runtime type-checking implementation is making the Red interpreter a little bit faster, thanks to a new optimized way to handle function specification blocks (an optimized spec block is cached after first call, resulting in much faster processing time afterwards).
Exceptions handling has been improved, introducing the catch statement allowing to catch exceptions using an integer filtering value. Here is a simple example in the global context:
Red/System  catch 100 [ print "hello" throw 10 print "<hidden>" ] print " world"will output
The integer argument for catch intercepts only exceptions with a lower value, providing a simple, but efficient filtering system.
In addition to that, uncaught exceptions are now properly reporting a runtime error instead of passing silently. This new enhanced low-level exception system is supporting the new higher-level Red error handling system.
A couple of new compiler directives have been also added in order to strengthen the interfacing with Red layer:
#get <path>The #get directive returns a red-value! pointer on a value referred by a Red object path. This is used internally in the runtime to conveniently access the Red system object content from Red/System code. This directive will be extended in the future to access also words from Red global context.
#in <path> <word>The #in directive returns a red-word! pointer to a Red word bound to the object context referred by path.
In addition to many minor pending improvements, we will be working on a minor release that will introduce the Redbin format for accurately serialize Red values in binary form. Redbin format will be used to make the compilation process much faster, as it currently slows down pretty quickly as the Red-level environment code size grows up.
Enjoy this new release! :-)