15.4.914  src/lib/src/kludge.pkg

## kludge.pkg
#
# See comments in
#
#     src/lib/src/kludge.api

# Compiled by:
#     src/lib/std/standard.lib






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   kludge
    :         Kludge                                                            # Kludge        is from   src/lib/src/kludge.api
    {
        fun cfun  fun_name
            =
            ci::find_c_function { lib_name => "kludge",  fun_name };
            #
            ###############################################################
            # The function currently called in this package is not a true
            # syscall, is fast, and is not called often anyhow.
            # Consequently I'm not taking the time and effort to switch it
            # over from using find_c_function() to using find_c_function'().
            #                              -- 2012-04-21 CrT


        get_script_name                                                         # See comments in    src/lib/src/kludge.api
            =                                                                   # This is used (only) in   src/lib/core/internal/mythryld-app.pkg       
            cfun "get_script_name":   Void -> Null_Or( String );                # get_script_name               def in    src/c/lib/kludge/libmythryl-kludge.c

    };
end;