strykelang 0.8.12

A highly parallel Perl 5 interpreter written in Rust
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

use stryke::zsh_lex::ZshLexer;
use stryke::zsh_tokens::LexTok;

fn main() {
    let args: Vec<String> = std::env::args().collect();
    let input = if args.len() > 1 {
        args[1].clone()
    } else {
        "args=( 'foo' )".to_string()
    };

    let mut lexer = ZshLexer::new(&input);

    for _ in 0..50 {
        lexer.zshlex();
        println!("{:?} {:?}", lexer.tok, lexer.tokstr);
        if lexer.tok == LexTok::Endinput || lexer.tok == LexTok::Lexerr {
            break;
        }
    }
}