101_scan_ops_debug/
101_scan_ops_debug.rs

1use libperl_rs::Perl;
2use libperl_sys::{op};
3
4use std::env;
5
6mod eg;
7
8fn scan_ops(op: *const op) {
9
10    for op in eg::op0::next_iter(op) {
11        print!("{:?}\n", unsafe {*op});
12    }
13}
14
15#[cfg(perl_useithreads)]
16fn my_test() {
17    let mut perl = Perl::new();
18    perl.parse_env_args(env::args(), env::vars());
19    scan_ops(unsafe {*perl.my_perl}.Imain_start);
20}
21
22#[cfg(not(perl_useithreads))]
23fn my_test() {
24    let mut perl = Perl::new();
25    perl.parse_env_args(env::args(), env::vars());
26    scan_ops(unsafe {libperl_sys::PL_main_start});
27}
28
29
30// cargo run --example 101_scan_ops_debug -- -le 'print "FOO"'
31
32fn main() {
33    my_test();
34}