glisp 0.0.4

A lisp for genetic programming
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33

use regex::Regex;

pub const fn comment() -> char {
    '#'
}

pub fn is_character(text: &str) -> bool {
    lazy_static! {
        static ref RE: Regex = Regex::new("^.$").unwrap();
    }
    RE.is_match(text)
}

pub fn is_literal(text: &str) -> bool {
    lazy_static! {
        static ref RE: Regex = Regex::new("^[-+:|/%^&*'$;,.!@?=]$").unwrap();
    }
    RE.is_match(text)
}

pub fn is_integer(text: &str) -> bool {
    lazy_static! {
        static ref RE: Regex = Regex::new("^[0-9]+b{0,1}[0-9]+$").unwrap();
    }
    RE.is_match(text)
}

pub fn is_non_ident_character(text: &str) -> bool {
    lazy_static! {
        static ref RE: Regex = Regex::new(r#"^[ \t"\(\)\[\]\(\)<>\{\}+:|/%^&*'$;,.!@?=-]$"#).unwrap();
    }
    RE.is_match(text)
}