Splut bulb code into another module

cmd/bulb/main.ha

@@ -1,3 +1,4 @@
+use bulb;
 use errors;
 use fmt;
 use fs;
@@ -14,10 +15,6 @@ const default_board = "general";
 let name = "";
 @init fn name() void = name = os::args[0];
 
-let bulb_path: []str = [];
-@init fn bulb_path() void = bulb_path = strings::split(os::tryenv("BULBPATH", "/var/bulb"), ":");
-@fini fn bulb_path() void = free(bulb_path);
-
 export fn main() void = {
 	const cmd = getopt::parse(
 		os::args,
@@ -65,9 +62,9 @@ fn subcmd_post(cmd: *getopt::command) void = {
 	let message   = strings::join(" ", cmd.args...);
 	defer free(message);
 	
-	match (post(board, user_name, message)) {
-	case let err: error =>
-		fmt::errorf("{}: Could not read {}: {}\n", name, board, strerror(err))!;
+	match (bulb::post(board, user_name, message)) {
+	case let err: bulb::error =>
+		fmt::errorf("{}: Could not read {}: {}\n", name, board, bulb::strerror(err))!;
 	case void => void;
 	};
 };
@@ -88,47 +85,21 @@ fn subcmd_read(cmd: *getopt::command) (void | errors::invalid) = {
 		};
 	};
 
-	match (read(board, number)) {
-	case let err: error =>
-		fmt::errorf("{}: Could not read {}: {}\n", name, board, strerror(err))!;
+	match (bulb::read(board, number)) {
+	case let err: bulb::error =>
+		fmt::errorf("{}: Could not read {}: {}\n", name, board, bulb::strerror(err))!;
 	case void => void;
 	};
 };
 
 fn subcmd_ls(cmd: *getopt::command) void = {
-	for (let directory .. bulb_path) {
-		match (list_boards_in(directory)) {
-		case let err: fs::error =>
-			fmt::errorf(
-				"{}: Can't list boards in {}: {}\n",
-				name,
-				directory,
-				fs::strerror(err))!;
-		case void => void;
-		};
+	match (bulb::list()) {
+	case let err: bulb::error =>
+		fmt::errorf("{}: Could not list boards: {}\n", name, bulb::strerror(err))!;
+	case void => void;
 	};
 };
 
-fn list_boards_in(directory: str) (void | fs::error) = {
-	let entries = os::readdir(directory)?;
-	defer fs::dirents_free(entries);
-	for (let entry .. entries) {
-		fmt::println(entry.name)!;
-	};
-};
-
-fn look_up_board(board: str) (str | no_such_board) = {
-	static let buf = path::buffer { ... };
-	for (let directory .. bulb_path) {
-		let location = path::set(&buf, directory, board)!;
-		match (os::stat(location)) {
-		case fs::filestat => return location;
-		case              => void;
-		};
-	};
-	return no_such_board;
-};
-
 fn get_user_name() str = {
 	// FIXME: could not find support for getting a username from a uid in
 	// hare. when it is added, use that here.

cmd/bulb/operation.ha

@@ -1,69 +0,0 @@
-use fs;
-use fmt;
-use io;
-use os;
-
-type no_such_board = !void;
-type error = (io::error | fs::error | no_such_board);
-
-fn strerror(err: error) str = match(err) {
-case no_such_board => return "No such board";
-case let err: fs::error => return fs::strerror(err);
-case let err: io::error => return io::strerror(err);
-};
-
-fn read(board: str, number: int) (void | error) = {
-	let location = look_up_board(board)?;
-	let file = os::open(location)?;
-	defer io::close(file)!;
-	seek_to_nth_last_line(file, number)?;
-	io::copy(os::stdout, file)?;
-};
-
-fn post(board: str, user_name: (str | void), message: str) (void | error) = {
-	let location = look_up_board(board)?;
-	let file = os::open(location, fs::flag::APPEND | fs::flag::WRONLY)?;
-	defer io::close(file)!;
-	
-	let user = match(user_name) {
-	case let user: str => yield(user);
-	case void => yield "anonymous";
-	};
-	fmt::fprintf(file, "{}: {}\n", user, message)?;
-};
-
-fn seek_to_nth_last_line(file: io::handle, number: int) (void | io::error) = {
-	let buffer: [256]u8 = [0...];
-	let end     = io::seek(file, 0, io::whence::END)?;
-	let step    = len(buffer): io::off;
-	let current = end;
-
-	for (true) {
-		// read a chunk in reverse, or stop if there is nothing left
-		let buffer = buffer[..];
-		if (current - step > 0) {
-			current -= step;
-		} else {
-			buffer = buffer[..current];
-			current = 0;
-		};
-		io::seek(file, current, io::whence::SET)?;
-		let length = match (io::read(file, buffer)?) {
-		case let length: size => yield length;
-		case io::EOF          => break;
-		};
-		io::seek(file, current, io::whence::SET)?;
-
-		// look for line breaks in that chunk
-		let buffer = buffer[..length];
-		for (let index = len(buffer): int - 1; index >= 0; index -= 1) {
-			if (buffer[index: size] == '\n') number -= 1;
-			if (number <= 0) {
-				io::seek(file, current + index: io::off, io::whence::SET)?;
-				return void;
-			};
-		};
-	};
-	
-	return void;
-};