wazabin-qcode 0.2.0

Typed SSA-style p-code IR for binary analysis, modelled after Ghidra's p-code
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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126

use crate::{
    context::Context,
    space::{Space, SpaceId, SpaceType},
    value::{
        Renameable,
        varnode::{Varnode, VarnodeId},
    },
};

/// A minimal [`Context`] with a register space and a small set of named varnodes,
/// intended for use in unit tests that need register-like storage without depending
/// on any specific architecture.
///
/// Layout of the register space:
///
/// ```text
/// offset: 0        1        2        3        4        5        6        7
///         ├────────────────────────────────────────────────────────────────┤  r0 (8 bytes)
///         ├────────────────────────┤                                          r0_lo32 (4 bytes)
///         ├────────┤                                                           r0_lo16 (2 bytes)
///         ├───┤                                                                r0_byte0 (1 byte)
///                  ├───┤                                                       r0_byte1 (1 byte)
///                           ├───┤                                              r0_byte2 (1 byte)
///                                    ├───┤                                     r0_byte3 (1 byte)
/// offset: 8       16       24
///         ├───────┤                                                            r1 (8 bytes)
///                  ├───────┤                                                   r2 (8 bytes)
///                           ├───────┤                                          r3 (8 bytes)
/// ```
pub struct TestContext {
    pub ctx: Context<'static>,

    /// The ID of the register space.
    pub reg_space: SpaceId,

    /// 8-byte registers at non-overlapping offsets.
    pub r0: VarnodeId,
    pub r1: VarnodeId,
    pub r2: VarnodeId,
    pub r3: VarnodeId,

    /// Sub-registers of `r0`, useful for testing partial-overlap scenarios.
    pub r0_lo32: VarnodeId, // 4 bytes at offset 0
    pub r0_lo16: VarnodeId,  // 2 bytes at offset 0
    pub r0_byte0: VarnodeId, // 1 byte at offset 0
    pub r0_byte1: VarnodeId, // 1 byte at offset 1
    pub r0_byte2: VarnodeId, // 1 byte at offset 2
    pub r0_byte3: VarnodeId, // 1 byte at offset 3
}

impl TestContext {
    pub fn new() -> Self {
        let mut ctx = Context::new();

        let mut reg_space_def = Space::new(Some("register"), 1, 4);
        reg_space_def.ty = SpaceType::Register;
        let reg_space = ctx.shared.spaces.push(reg_space_def);
        ctx.shared
            .named_spaces
            .insert(Box::from("register"), reg_space);

        let make = |ctx: &mut Context<'static>, offset: i64, size: usize, name: &'static str| {
            Varnode::make(ctx, offset, size, reg_space)
                .with_name(name.into())
                .expect("register names are unique")
                .id
        };

        let r0 = make(&mut ctx, 0, 8, "r0");
        let r1 = make(&mut ctx, 8, 8, "r1");
        let r2 = make(&mut ctx, 16, 8, "r2");
        let r3 = make(&mut ctx, 24, 8, "r3");

        let r0_lo32 = make(&mut ctx, 0, 4, "r0_lo32");
        let r0_lo16 = make(&mut ctx, 0, 2, "r0_lo16");
        let r0_byte0 = make(&mut ctx, 0, 1, "r0_byte0");
        let r0_byte1 = make(&mut ctx, 1, 1, "r0_byte1");
        let r0_byte2 = make(&mut ctx, 2, 1, "r0_byte2");
        let r0_byte3 = make(&mut ctx, 3, 1, "r0_byte3");

        Self {
            ctx,
            reg_space,
            r0,
            r1,
            r2,
            r3,
            r0_lo32,
            r0_lo16,
            r0_byte0,
            r0_byte1,
            r0_byte2,
            r0_byte3,
        }
    }

    /// Seed the context's linked-libraries metadata, the test-side analogue of
    /// `--assume-libs` (synthetic contexts have no binary format to report
    /// `DT_NEEDED`/import DLLs). Builder-style for one-line test setup.
    pub fn assume_libs<I, S>(&mut self, libs: I) -> &mut Self
    where
        I: IntoIterator<Item = S>,
        S: Into<String>,
    {
        self.ctx
            .set_linked_libraries(libs.into_iter().map(Into::into).collect());
        self
    }
}

/// Wrap a test-seeded [`MemoryImage`](crate::memory_image::MemoryImage) as the
/// shared binary handle (`PipelineEnv.binary`), the test-side analogue of the
/// loader's `Arc<dyn BinaryFormat>`. `qcode!`-DSL tests seed segments with
/// [`MemoryImage::add_segment`](crate::memory_image::MemoryImage::add_segment)
/// and hand the result to the env through this.
pub fn image_binary(
    image: crate::memory_image::MemoryImage,
) -> std::sync::Arc<dyn wazabin_binary::BinaryFormat> {
    std::sync::Arc::new(image)
}

impl Default for TestContext {
    fn default() -> Self {
        Self::new()
    }
}