Orchid/orchid
1
0
Fork 1
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Improved timer example

Browse Source 
Also pushed other half of system::fs rename
This commit is contained in:
Lawrence Bethlenfalvy
2023-10-12 17:41:27 +01:00
parent ff486a5f74
commit ce34777555
3 changed files with 15 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
examples/file-browser/main.orc
View File

@@ -1,18 +1,18 @@
import system::(io, directfs, async)
import system::(io, fs, async)
import std::(to_string, to_uint, inspect)
const folder_view := \path. \next. do{
cps println $ "Contents of " ++ directfs::os_print path;
cps entries = async::block_on $ directfs::read_dir path;
cps println $ "Contents of " ++ fs::os_print path;
cps entries = async::block_on $ fs::read_dir path;
cps list::enumerate entries
|> list::map (pass \id. pass \name. \is_dir.
println $ to_string id ++ ": " ++ directfs::os_print name ++ if is_dir then "/" else ""
println $ to_string id ++ ": " ++ fs::os_print name ++ if is_dir then "/" else ""
)
|> list::chain;
cps print "select an entry, or .. to move up: ";
cps choice = readln;
if (choice == "..") then do {
let parent_path = directfs::pop_path path
let parent_path = fs::pop_path path
|> option::unwrap
|> tuple::pick 0 2;
next parent_path
@@ -20,10 +20,10 @@ const folder_view := \path. \next. do{
cps subname, is_dir = to_uint choice
|> (list::get entries)
|> option::unwrap;
let subpath = directfs::join_paths path subname;
let subpath = fs::join_paths path subname;
if is_dir then next subpath
else do {
cps file = async::block_on $ directfs::read_file subpath;
cps file = async::block_on $ fs::read_file subpath;
cps contents = async::block_on $ io::read_string file;
cps println contents;
next path
@@ -31,7 +31,7 @@ const folder_view := \path. \next. do{
}
}
const main := loop_over (path = directfs::cwd) {
const main := loop_over (path = fs::cwd) {
cps path = folder_view path;
}