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
35
36
37
38
39
40
41
42
43
44
45
46
47

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

use std::env;
use std::ffi::CStr;

fn scan_ops(mut op: *const op) {
    while !op.is_null() {
        let ty = unsafe {(*op).op_type()};
        // let op_name = unsafe {
        //     slice::from_raw_parts(
        //         c_perl::PL_op_name as *const c_char,
        //         c_perl::PL_maxo as usize
        //     );
        // };
        print!("{:#?} {}\t{:?}\n",
               op, 
               // op_name[ty]
               unsafe {
                   CStr::from_ptr(PL_op_name[ty as usize])
               }
               .to_str().unwrap(),
               unsafe {*op},
        );
        op = unsafe {(*op).op_next as *const 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 100_scan_ops -- -le 'print "FOO"'

fn main() {
    my_test();
}