You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
19 lines
598 B
19 lines
598 B
use sexp::Sexp;
|
|
|
|
use crate::error::Error;
|
|
use crate::instr::{Cond, Instr, cond};
|
|
use crate::parse::parse_instr::parse_instructions;
|
|
use crate::parse::sexp_expect::{expect_list, expect_string_atom};
|
|
use crate::patches::TryRemove;
|
|
|
|
pub fn parse_cond_branch(tok: Sexp) -> Result<(Cond, Vec<Instr>), Error> {
|
|
let mut list = expect_list(Some(tok), false)?;
|
|
let kw = expect_string_atom(list.try_remove(0))?;
|
|
|
|
if !kw.ends_with('?') {
|
|
return Err(Error::Parse(format!("Condition must end with '?': {}", kw).into()));
|
|
}
|
|
|
|
Ok((cond::parse_cond(&kw)?, parse_instructions(list)?))
|
|
}
|
|
|
|
|