retoor/orchid
1
0
Fork 0
forked from Orchid/orchid
Code Pull Requests 1 Activity

September-october commit

Browse Source 
- manual parser
- stl refinements
- all language constructs are now Send
This commit is contained in:
Lawrence Bethlenfalvy
2023-10-11 18:27:50 +01:00
parent 56679dcc01
commit 86e520e8b8
127 changed files with 1666 additions and 1872 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1,18 +1,17 @@
import system::(io, directfs, async)
import std::proc::*
import std::(to_string, to_uint, inspect)
const folder_view := \path.\next. do{
const folder_view := \path. \next. do{
cps println $ "Contents of " ++ directfs::os_print path;
cps entries = async::block_on $ directfs::read_dir path;
cps list::enumerate entries
|> list::map (pass \id. pass \name.\is_dir.
|> list::map (pass \id. pass \name. \is_dir.
println $ to_string id ++ ": " ++ directfs::os_print name ++ if is_dir then "/" else ""
)
|> list::chain;
cps print "select an entry, or .. to move up: ";
cps choice = readln;
if (choice == "..\n") then do {
if (choice == "..") then do {
let parent_path = directfs::pop_path path
|> option::unwrap
|> tuple::pick 0 2;