j/Conlang
1
1
Fork 0
Code Issues 5 Pull Requests Packages Projects 2 Releases Wiki Activity

cl-interpret: get_line builtin!

Browse Source
This commit is contained in:
John 2025-01-28 06:14:05 -06:00
parent fd361f2bea
commit 01871bf455
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/cl-interpret/src/builtin.rs
View File

@ -59,6 +59,7 @@ builtins! {
Ok(ConValue::Empty) Ok(ConValue::Empty)
} }
/// Gets the length of a container or range
pub fn len<env, _>(list) -> IResult<ConValue> { pub fn len<env, _>(list) -> IResult<ConValue> {
Ok(ConValue::Int(match list { Ok(ConValue::Int(match list {
ConValue::Empty => 0, ConValue::Empty => 0,
@ -71,6 +72,14 @@ builtins! {
_ => Err(Error::TypeError)?, _ => Err(Error::TypeError)?,
})) }))
} }
/// Gets a line of text from stdin
pub fn get_line() -> IResult<ConValue> {
let mut line = String::new();
let _ = std::io::stdin().read_line(&mut line);
Ok(ConValue::String(line.into()))
}
/// Lists the potential "upvars" (lifted environment) of a function /// Lists the potential "upvars" (lifted environment) of a function
pub fn collect_upvars<env, _>(ConValue::Function(f)) -> IResult<ConValue> { pub fn collect_upvars<env, _>(ConValue::Function(f)) -> IResult<ConValue> {
use crate::function::collect_upvars::collect_upvars; use crate::function::collect_upvars::collect_upvars;