8 Dodger: addressing a lack of character🔗

Source code.

There are 11 types of values...

8.1 Characters🔗

In Dupe: a duplicity of types, we saw how to accomodate disjoint datatypes, namely integers and booleans. Let’s add yet another: the character type. Conceptually, there’s not much new here (hence we stay in the "D" family of languages); we’re simply adding a third type, which we distinguish from the other two by using more bits to tag the type.

We’ll call it Dodger.

To the syntax of expressions, we add character literals.

We will also add the following operations:

• char? : Any -> Boolean: predicate for recognizing character values

• integer->char : Integer -> Character: converts from integers to characters

• char->integer : Character -> Integer: converts from integers to characters

Abstract syntax is modelled with the following datatype definition:

dodger/ast.rkt

#lang racket

(provide Lit Prim1 If)

;; type Expr = (Lit Datum)

;;           | (Prim1 Op1 Expr)

;;           | (If Expr Expr Expr)

;; type Datum = Integer

;;            | Boolean

;;            | Character

;; type Op1 = 'add1 | 'sub1

;;          | 'zero?

;;          | 'char? | 'integer->char | 'char->integer

(struct Lit (d) #:prefab)

(struct Prim1 (p e) #:prefab)

(struct If (e1 e2 e3) #:prefab)

The s-expression parser is defined as follows:

dodger/parse.rkt

#lang racket

(provide parse)

(require "ast.rkt")

;; S-Expr -> Expr

(define (parse s)

(match s

[(? datum?) (Lit s)]

[(list-rest (? symbol? k) sr)

(match k

[(? op1? o)

(match sr

[(list s1)

(Prim1 o (parse s1))]

[_ (error "op1: bad syntax" s)])]

['if

(match sr

[(list s1 s2 s3)

(If (parse s1) (parse s2) (parse s3))]

[_ (error "if: bad syntax" s)])]

[_ (error "parse error" s)])]

[_ (error "parse error" s)]))

;; Any -> Boolean

(define (datum? x)

(or (exact-integer? x)

(boolean? x)

(char? x)))

(define (op1? x)

(memq x '(add1 sub1 zero? char? integer->char char->integer)))

8.2 Characters in Racket🔗

Racket has a Character data type for representing single letters. A Racket character can represent any of the 1,114,112 Unicode code points.

The way a character is most often written is an octothorp, followed by a backslash, followed by the character itself. So for example the character a is written #\a. The character λ is written #\λ. The character 文 is written #\文.

A character can be converted to an integer and vice versa:

Examples

> (char->integer #\a)

97

> (char->integer #\λ)

955

> (char->integer #\文)

25991

> (integer->char 97)

#\a

> (integer->char 955)

#\λ

> (integer->char 25991)

#\文

However, integers in the range of valid code points are acceptable to integer->char and using any other integer will produce an error:

Examples

> (integer->char -1)

integer->char: contract violation

expected: valid-unicode-scalar-value?

given: -1

> (integer->char 55296)

integer->char: contract violation

expected: valid-unicode-scalar-value?

given: 55296

There are a few other ways to write characters (see the Racket Reference for the details), but you don’t have to worry much about this since read takes care of reading characters in all their different forms. The run-time system, described below, takes care of printing them.

8.3 Meaning of Dodger programs🔗

The semantics are omitted for now (there’s really nothing new that’s interesting).

The interpeter is much like that of Dupe, except we have a new base case:

dodger/interp.rkt

#lang racket

(provide interp)

(require "ast.rkt")

(require "interp-prim.rkt")

;; type Value =

;; | Integer

;; | Boolean

;; | Character

;; Expr -> Value

(define (interp e)

(match e

[(Lit d) d]

[(Prim1 p e)

(interp-prim1 p (interp e))]

[(If e1 e2 e3)

(if (interp e1)

(interp e2)

(interp e3))]))

And the interpretation of primitives is extended:

dodger/interp-prim.rkt

#lang racket

(provide interp-prim1)

;; Op1 Value -> Value

(define (interp-prim1 op v)

(match op

['add1 (add1 v)]

['sub1 (sub1 v)]

['zero? (zero? v)]

['char? (char? v)]

['integer->char (integer->char v)]

['char->integer (char->integer v)]))

The meaning of characters and their operations are just lifted from Racket.

We can try out some examples:

Examples

> (interp (Lit #\a))

#\a

> (interp (Lit #\b))

#\b

> (interp (Prim1 'char? (Lit #\a)))

#t

> (interp (Prim1 'char? (Lit #t)))

#f

> (interp (Prim1 'char->integer (Lit #\a)))

97

> (interp (Prim1 'integer->char (Prim1 'char->integer (Lit #\a))))

#\a

Just as in Dupe, type errors result in the interpreter crashing:

Examples

> (interp (Prim1 'char->integer (Lit #f)))

char->integer: contract violation

expected: char?

given: #f

Also, not every integer corresponds to a character, so when integer->char is given an invalid input, it crashes (more on this in a minute):

Examples

> (interp (Prim1 'integer->char (Lit -1)))

integer->char: contract violation

expected: valid-unicode-scalar-value?

given: -1

8.4 Ex uno plures iterum: Out of One, Many... Again🔗

We have exactly the same problem as in Dupe: we need to represent different kinds of values within our one primordial datatype: the 64-bit integer.

We can use the following encoding scheme:

• Integers have #b0 as the last bit; the other bits describe the integer.

• Character have #b01 as the last bits; the other bits describe the character.

• True is #b011 and False is #b111.

Notice that each kind of value is disjoint.

We can write an interpreter that operates at the level of bits just as we did for Dupe; notice that it only ever constructs characters at the very end when converting from bits to values. Let’s first define our bit encodings:

dodger/types.rkt

#lang racket

(provide (all-defined-out))

(define int-shift    1)

(define mask-int   #b1)

(define char-shift   2)

(define type-int   #b0)

(define type-char #b01)

(define mask-char #b11)

(define (bits->value b)

(cond [(= b (value->bits #t))  #t]

[(= b (value->bits #f)) #f]

[(int-bits? b)

(arithmetic-shift b (- int-shift))]

[(char-bits? b)

(integer->char (arithmetic-shift b (- char-shift)))]

[else (error "invalid bits")]))

(define (value->bits v)

(cond [(eq? v #t) #b011]

[(eq? v #f) #b111]

[(integer? v) (arithmetic-shift v int-shift)]

[(char? v)

(bitwise-ior type-char

(arithmetic-shift (char->integer v) char-shift))]))

(define (int-bits? v)

(= type-int (bitwise-and v mask-int)))

(define (char-bits? v)

(= type-char (bitwise-and v mask-char)))

And now the interpreter:

dodger/interp-bits.rkt

#lang racket

(provide interp interp-bits)

(require "ast.rkt" "types.rkt")

;; type Value =

;; | Integer

;; | Boolean

;; | Character

;; type Bits = Integer

;; Expr -> Value

(define (interp e)

(bits->value (interp-bits e)))

;; Expr -> Bits

(define (interp-bits e)

(match e

[(Lit d)  (value->bits d)]

[(Prim1 'add1 e0)

(+ (interp-bits e0) (value->bits 1))]

[(Prim1 'sub1 e0)

(- (interp-bits e0) (value->bits 1))]

[(Prim1 'zero? e)

(value->bits (zero? (interp-bits e)))]

[(Prim1 'char? e0)

(value->bits (char-bits? (interp-bits e0)))]

[(Prim1 'char->integer e0)

(arithmetic-shift

(arithmetic-shift (interp-bits e0) (- char-shift))

int-shift)]

[(Prim1 'integer->char e0)

(bitwise-ior

(arithmetic-shift

(arithmetic-shift (interp-bits e0) (- int-shift))

char-shift)

type-char)]

[(If e1 e2 e3)

(if (= (interp-bits e1) (value->bits #f))

(interp-bits e3)

(interp-bits e2))]))

8.5 A Compiler for Dodger🔗

Compilation is pretty easy, particularly since we took the time to develop the bit-level interpreter. The compiler uses the same bit-level representation of values and uses logical operations to implement the same bit manipulating operations. Most of the work happens in the compilation of primitives:

dodger/compile-ops.rkt

#lang racket

(provide compile-op1)

(require "ast.rkt")

(require "types.rkt")

(require a86/ast)

(define rax 'rax)

(define r9  'r9)

;; Op1 -> Asm

(define (compile-op1 p)

(match p

['add1 (Add rax (value->bits 1))]

['sub1 (Sub rax (value->bits 1))]

['zero?

(seq

(Cmp rax 0)

if-equal)]

['char?

(seq (And rax mask-char)

(Cmp rax type-char)

if-equal)]

['char->integer

(seq

(Sar rax char-shift)

(Sal rax int-shift))]

['integer->char

(seq

(Sar rax int-shift)

(Sal rax char-shift)

(Xor rax type-char))]))

;; Asm

;; set rax to #t or #f if comparison flag is equal

(define if-equal

(seq (Mov rax (value->bits #f))

(Mov r9  (value->bits #t))

(Cmove rax r9)))

The top-level compiler for expressions now has a case for character literals, which are compiled like other kinds of values:

dodger/compile.rkt

#lang racket

(provide compile

compile-e)

(require "ast.rkt")

(require "compile-ops.rkt")

(require "types.rkt")

(require a86/ast)

(define rax 'rax)

;; Expr -> Asm

(define (compile e)

(prog (Global 'entry)

(Label 'entry)

(compile-e e)

(Ret)))

;; Expr -> Asm

(define (compile-e e)

(match e

[(Lit d) (compile-value d)]

[(Prim1 p e) (compile-prim1 p e)]

[(If e1 e2 e3)

(compile-if e1 e2 e3)]))

;; Value -> Asm

(define (compile-value v)

(seq (Mov rax (value->bits v))))

;; Op1 Expr -> Asm

(define (compile-prim1 p e)

(seq (compile-e e)

(compile-op1 p)))

;; Expr Expr Expr -> Asm

(define (compile-if e1 e2 e3)

(let ((l1 (gensym 'if))

(l2 (gensym 'if)))

(seq (compile-e e1)

(Cmp rax (value->bits #f))

(Je l1)

(compile-e e2)

(Jmp l2)

(Label l1)

(compile-e e3)

(Label l2))))

We can take a look at a few examples:

Examples

> (define (show e)     (displayln (asm-string (compile-e (parse e)))))

> (show '#\a)

mov rax, 389

> (show '#\λ)

mov rax, 3821

> (show '(char->integer #\λ))

mov rax, 3821         sar rax, 2         sal rax, 1

> (show '(integer->char 97))

mov rax, 194         sar rax, 1         sal rax, 2         xor rax, 1

8.6 A Run-Time for Dodger🔗

The only interesting aspect of Dodger, really, is that we need to add run-time support for printing character literals.

We extend the bit-encoding of values following the pattern we’ve already seen:

types.h

#ifndef TYPES_H
#define TYPES_H

/*
  Bit layout of values

  Values are either:
  - Integers:   end in  #b0
  - Characters: end in #b01
  - True:              #b11
  - False:            #b111
*/
#define int_shift        1
#define int_type_mask    ((1 << int_shift) - 1)
#define int_type_tag     (0 << (int_shift - 1))
#define nonint_type_tag  (1 << (int_shift - 1))
#define char_shift       (int_shift + 1)
#define char_type_mask   ((1 << char_shift) - 1)
#define char_type_tag    ((0 << (char_shift - 1)) | nonint_type_tag)
#define nonchar_type_tag ((1 << (char_shift - 1)) | nonint_type_tag)
#define val_true  ((0 << char_shift) | nonchar_type_tag)
#define val_false ((1 << char_shift) | nonchar_type_tag)

#endif

And update the interface for values in the runtime system:

The only other change is that print_result is updated to handle the case of printing characters:

print.c

#include <stdio.h>
#include <inttypes.h>
#include "values.h"
#include "types.h"

void print_char(val_char_t);
void print_codepoint(val_char_t);
int utf8_encode_char(val_char_t, char *);

void print_result(val_t x)
{
  switch (val_typeof(x)) {
  case T_INT:
    printf("%" PRId64, val_unwrap_int(x));
    break;
  case T_BOOL:    
    printf(val_unwrap_bool(x) ? "#t" : "#f");
    break;
  case T_CHAR:
    print_char(val_unwrap_char(x));    
    break;
  case T_INVALID:
    printf("internal error");
  }
}

void print_char(val_char_t c)
{
  printf("#\\");
  switch (c) {
  case 0:
    printf("nul"); break;
  case 8:
    printf("backspace"); break;
  case 9:
    printf("tab"); break;
  case 10:
    printf("newline"); break;
  case 11:
    printf("vtab"); break;
  case 12:
    printf("page"); break;
  case 13:
    printf("return"); break;
  case 32:
    printf("space"); break;
  case 127:
    printf("rubout"); break;
  default:
    print_codepoint(c);
  }
}

void print_codepoint(val_char_t c)
{
  static char buffer[5] = {0};
  utf8_encode_char(c, buffer);
  printf("%s", buffer);
}

int utf8_encode_char(val_char_t c, char *buffer)
{
  // Output to buffer using UTF-8 encoding of codepoint
  // https://en.wikipedia.org/wiki/UTF-8
  if (c < 128) {
    buffer[0] = (char) c;
    return 1;
  } else if (c < 2048) {
    buffer[0] =  (char)(c >> 6)       | 192;
    buffer[1] = ((char)       c & 63) | 128;
    return 2;
  } else if (c < 65536) {
    buffer[0] =  (char)(c >> 12)      | 224;
    buffer[1] = ((char)(c >> 6) & 63) | 128;
    buffer[2] = ((char)       c & 63) | 128;
    return 3;
  } else {
    buffer[0] =  (char)(c >> 18)       | 240;
    buffer[1] = ((char)(c >> 12) & 63) | 128;
    buffer[2] = ((char)(c >>  6) & 63) | 128;
    buffer[3] = ((char)        c & 63) | 128;
    return 4;
  }
}

Will these pieces in place, we can try out some examples:

Examples

> (define (run e)     (bits->value (asm-interp (compile (parse e)))))

> (run '#\a)

#\a

> (run '(integer->char (add1 (char->integer #\a))))

#\b

> (run '(integer->char 955))

#\λ