15.4.1052  src/lib/std/src/computer-vision.pkg

# computer-vision.pkg -- Mythryl interface to Intel's OpenCV library.

# Compiled by:
#     src/lib/std/src/standard-core.sublib

# Unit tests in:
#     src/lib/std/src/computer-vision-unit-test.pkg

stipulate
    package ci  =  mythryl_callable_c_library_interface;                # mythryl_callable_c_library_interface  is from   src/lib/std/src/unsafe/mythryl-callable-c-library-interface.pkg
herein

    package   computer_vision
    :         Computer_Vision
    {
        Random_Number_Generator =  rw_vector_of_one_byte_unts::Rw_Vector;
        Image                   =  rw_vector_of_one_byte_unts::Rw_Vector;

        fun cfun fun_name
            =
            ci::find_c_function
              {
                lib_name  => "opencv",
                fun_name
              };

        my load_image:                          String -> Image                  =      cfun  "load_image";
        my make_random_number_generator:        Int -> Random_Number_Generator   =      cfun  "make_random_number_generator";
        my random_int:                          Random_Number_Generator -> Int   =      cfun  "random_int";
        my random_float:                        Random_Number_Generator -> Float =      cfun  "random_float";

    };
end;

## Code by Jeff Prothero: Copyright (c) 2010-2012,
## released under Gnu Public Licence version 3.