use super::super::super::{
comment::shouldbespace,
ending,
error::{expect_tag_no_case, expected},
literal::{algorithm, ident, strand, strand::strand_raw},
part::base_or_scope,
IResult,
};
use crate::{statements::DefineTokenStatement, Algorithm, Strand};
use nom::{branch::alt, bytes::complete::tag_no_case, combinator::cut, multi::many0};
pub fn token(i: &str) -> IResult<&str, DefineTokenStatement> {
let (i, _) = tag_no_case("TOKEN")(i)?;
let (i, _) = shouldbespace(i)?;
let (i, (name, base, opts)) = cut(|i| {
let (i, name) = ident(i)?;
let (i, _) = shouldbespace(i)?;
let (i, _) = expect_tag_no_case("ON")(i)?;
let (i, _) = shouldbespace(i)?;
let (i, base) = base_or_scope(i)?;
let (i, opts) = many0(token_opts)(i)?;
let (i, _) = expected("TYPE, VALUE, or COMMENT", ending::query)(i)?;
Ok((i, (name, base, opts)))
})(i)?;
let mut res = DefineTokenStatement {
name,
base,
..Default::default()
};
for opt in opts {
match opt {
DefineTokenOption::Type(v) => {
res.kind = v;
}
DefineTokenOption::Value(v) => {
res.code = v;
}
DefineTokenOption::Comment(v) => {
res.comment = Some(v);
}
}
}
if res.code.is_empty() {
}
Ok((i, res))
}
enum DefineTokenOption {
Type(Algorithm),
Value(String),
Comment(Strand),
}
fn token_opts(i: &str) -> IResult<&str, DefineTokenOption> {
alt((token_type, token_value, token_comment))(i)
}
fn token_type(i: &str) -> IResult<&str, DefineTokenOption> {
let (i, _) = shouldbespace(i)?;
let (i, _) = tag_no_case("TYPE")(i)?;
let (i, _) = shouldbespace(i)?;
let (i, v) = cut(algorithm)(i)?;
Ok((i, DefineTokenOption::Type(v)))
}
fn token_value(i: &str) -> IResult<&str, DefineTokenOption> {
let (i, _) = shouldbespace(i)?;
let (i, _) = tag_no_case("VALUE")(i)?;
let (i, _) = shouldbespace(i)?;
let (i, v) = cut(strand_raw)(i)?;
Ok((i, DefineTokenOption::Value(v)))
}
fn token_comment(i: &str) -> IResult<&str, DefineTokenOption> {
let (i, _) = shouldbespace(i)?;
let (i, _) = tag_no_case("COMMENT")(i)?;
let (i, _) = shouldbespace(i)?;
let (i, v) = cut(strand)(i)?;
Ok((i, DefineTokenOption::Comment(v)))
}