rust/src/lib/option.rs
Tim Chevalier 2e90bd94de Continued sketching out code for checking states against preconditions.
It's still sketchy. I added a typestate annotation field to statements
tagged stmt_decl or stmt_expr, because a stmt_decl statement has a typestate
that's different from that of its child node. This necessitated trivial
changes to a bunch of other files all over to the compiler. I also added a
few small standard library functions, some of which I didn't actually end
up using but which I thought might be useful anyway.
2011-04-06 17:58:18 -07:00

57 lines
1.1 KiB
Rust

// lib/option.rs
tag t[T] {
none;
some(T);
}
type operator[T, U] = fn(&T) -> U;
fn get[T](&t[T] opt) -> T {
alt (opt) {
case (some[T](?x)) {
ret x;
}
case (none[T]) {
fail;
}
}
fail; // FIXME: remove me when exhaustiveness checking works
}
fn map[T, U](&operator[T, U] f, &t[T] opt) -> t[U] {
alt (opt) {
case (some[T](?x)) {
ret some[U](f(x));
}
case (none[T]) {
ret none[U];
}
}
fail; // FIXME: remove me when exhaustiveness checking works
}
fn is_none[T](&t[T] opt) -> bool {
alt (opt) {
case (none[T]) { ret true; }
case (some[T](_)) { ret false; }
}
}
fn from_maybe[T](&T def, &t[T] opt) -> T {
alt(opt) {
case (none[T]) { ret def; }
case (some[T](?t)) { ret t; }
}
}
// Local Variables:
// mode: rust;
// fill-column: 78;
// indent-tabs-mode: nil
// c-basic-offset: 4
// buffer-file-coding-system: utf-8-unix
// compile-command: "make -k -C .. 2>&1 | sed -e 's/\\/x\\//x:\\//g'";
// End: