ocl-core 0.11.5

A low-level OpenCL API.
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

use std::ffi::CString;

#[test]
fn compile_program() {
    let header = r#"
        static void world() {
            printf("world\n");
        }
    "#;
    let kernel = r#"
        #include "world.cl"
        __kernel void hello() {
            printf("hello ");
            world();
        }
    "#;
    let kernel2 = r#"
        __kernel void hello2() {
            unsigned int gid = get_global_size(0);
            printf("hi\n");
        }
    "#;
    let platform_id = crate::default_platform().unwrap();
    let device_ids = crate::get_device_ids(&platform_id, None, None).unwrap();

    for device in device_ids {
        if device.version().unwrap() < [1, 2].into() {
            println!("Device version too low. Skipping test for this device.");
            continue;
        }

        let context_properties = crate::ContextProperties::new().platform(platform_id);
        let context =
            crate::create_context(Some(&context_properties), &[device], None, None).unwrap();

        let program =
            crate::create_program_with_source(&context, &[CString::new(kernel).unwrap()]).unwrap();
        let program2 =
            crate::create_program_with_source(&context, &[CString::new(kernel2).unwrap()]).unwrap();
        let header =
            crate::create_program_with_source(&context, &[CString::new(header).unwrap()]).unwrap();
        let options = CString::new("").unwrap();

        crate::compile_program(
            &program,
            Some(&[device]),
            &options,
            &[&header],
            &[CString::new("world.cl").unwrap()],
            None,
            None,
            None,
        )
        .unwrap();
        crate::compile_program(
            &program2,
            Some(&[device]),
            &options,
            &[],
            &[],
            None,
            None,
            None,
        )
        .unwrap();
        crate::link_program(
            &context,
            Some(&[device]),
            &options,
            &[&program, &program2],
            None,
            None,
            None,
        )
        .unwrap();
    }
}