Update file_stat to match the existing documentation.

Previously, writing to the stat port would produce a line of text
similar to the listing used when reading a directory. This did not
match the documentation around the stat port.

After the change, writing an address to the stat port will fill that
address with bytes equal to the length parameter. These will either be
a hexadecimal file size, or else the same character repeated N times
according to the following logic:

 - path is a directory
 ? file size of path does not fit in N hexadecimal characters
 ! path is not readable

Note that unlike when reading a directory, the string will not include
the requested path, a newline, or a null terminator.

src/devices/file.c

@@ -267,16 +267,39 @@ file_write(UxnFile *c, void *src, Uint16 len, Uint8 flags)
 	return ret;
 }
 
+static Uint16
+stat_fill(Uint8 *dest, Uint16 len, char c)
+{
+	Uint16 i;
+	for (i = 0; i < len; i++)
+		*(dest++) = c;
+	return len;
+}
+
+static Uint16
+stat_size(Uint8 *dest, Uint16 len, off_t size)
+{
+	Uint16 i;
+	dest += len - 1;
+	for (i = 0; i < len; i++) {
+		*(dest--) = '0' + (Uint8)(size & 0xf);
+		size = size >> 4;
+	}
+	return size == 0 ? len : stat_fill(dest, len, '?');
+}
+
 static Uint16
 file_stat(UxnFile *c, void *dest, Uint16 len)
 {
-	char *basename = strrchr(c->current_filename, DIR_SEP_CHAR);
+	struct stat st;
-	if(c->outside_sandbox) return 0;
+	if(c->outside_sandbox)
-	if(basename != NULL)
+		return 0;
-		basename++;
+	else if(stat(c->current_filename, &st))
+		return stat_fill(dest, len, '!');
+	else if(S_ISDIR(st.st_mode))
+		return stat_fill(dest, len, '-');
 	else
-		basename = c->current_filename;
+		return stat_size(dest, len, st.st_size);
-	return get_entry(dest, len, c->current_filename, basename, 0);
 }
 
 static Uint16