libperl-rs 0.3.1

Embed perl5 runtime in Rust
Documentation 
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
34

use libperl_rs::Perl;
use libperl_sys::{op};

use std::env;

mod eg;

fn scan_ops(op: *const op) {

    for op in eg::op0::next_iter(op) {
        print!("{:?}\n", unsafe {*op});
    }
}

#[cfg(perl_useithreads)]
fn my_test() {
    let mut perl = Perl::new();
    perl.parse_env_args(env::args(), env::vars());
    scan_ops(unsafe {*perl.my_perl}.Imain_start);
}

#[cfg(not(perl_useithreads))]
fn my_test() {
    let mut perl = Perl::new();
    perl.parse_env_args(env::args(), env::vars());
    scan_ops(unsafe {libperl_sys::PL_main_start});
}


// cargo run --example 101_scan_ops_debug -- -le 'print "FOO"'

fn main() {
    my_test();
}