language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-10-03 08:34:33 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 6

Add effects for file I/O

Browse source
This commit is contained in:
Richard Feldman 2022-07-21 10:27:27 -04:00 • committed by Ayaz Hafiz
parent f3dfab8a94
commit 963acb0ff5
No known key found for this signature in database
GPG key ID: 0E2A37416A25EF58
1 changed files with 22 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

22
examples/interactive/cli-platform/src/lib.rs
View file

@ -391,3 +391,25 @@ pub extern "C" fn roc_fx_envVarUtf8(key: &RocStr) -> RocStr {
RocStr::from(val.as_str())
}
#[no_mangle]
pub extern "C" fn roc_fx_writeUtf8(path: &RocStr, string: &RocStr) {
write_bytes(path, string.as_str().as_bytes())
}
#[no_mangle]
pub extern "C" fn roc_fx_writeBytes(path: &RocStr, bytes: &RocList<u8>) {
write_bytes(path, bytes.as_slice())
}
fn write_bytes(path: &RocStr, bytes: &[u8]) {
// TODO return Result
let mut file = File::create(path.as_str()).unwrap();
file.write_all(bytes).unwrap();
}
#[no_mangle]
pub extern "C" fn roc_fx_errLine(line: &RocStr) {
let string = line.as_str();
eprintln!("{}", string);
}