<html><head> <link rel="stylesheet" href="style.css" type="text/css"> <meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type"> <link rel="Start" href="index.html"> <link title="Index of types" rel=Appendix href="index_types.html"> <link title="Index of exceptions" rel=Appendix href="index_exceptions.html"> <link title="Index of values" rel=Appendix href="index_values.html"> <link title="Index of modules" rel=Appendix href="index_modules.html"> <link title="Index of module types" rel=Appendix href="index_module_types.html"> <link title="Async_print" rel="Chapter" href="Async_print.html"> <link title="Async_sys" rel="Chapter" href="Async_sys.html"> <link title="Epoll_file_descr_watcher" rel="Chapter" href="Epoll_file_descr_watcher.html"> <link title="Fd" rel="Chapter" href="Fd.html"> <link title="Fd_by_descr" rel="Chapter" href="Fd_by_descr.html"> <link title="File_descr_watcher_intf" rel="Chapter" href="File_descr_watcher_intf.html"> <link title="Import" rel="Chapter" href="Import.html"> <link title="Interruptor" rel="Chapter" href="Interruptor.html"> <link title="In_thread" rel="Chapter" href="In_thread.html"> <link title="Io_stats" rel="Chapter" href="Io_stats.html"> <link title="Process" rel="Chapter" href="Process.html"> <link title="Raw_fd" rel="Chapter" href="Raw_fd.html"> <link title="Raw_scheduler" rel="Chapter" href="Raw_scheduler.html"> <link title="Raw_signal_manager" rel="Chapter" href="Raw_signal_manager.html"> <link title="Reader" rel="Chapter" href="Reader.html"> <link title="Read_write" rel="Chapter" href="Read_write.html"> <link title="Scheduler" rel="Chapter" href="Scheduler.html"> <link title="Select_file_descr_watcher" rel="Chapter" href="Select_file_descr_watcher.html"> <link title="Shutdown" rel="Chapter" href="Shutdown.html"> <link title="Signal" rel="Chapter" href="Signal.html"> <link title="Signal_manager" rel="Chapter" href="Signal_manager.html"> <link title="Std" rel="Chapter" href="Std.html"> <link title="Syscall" rel="Chapter" href="Syscall.html"> <link title="Thread_pool" rel="Chapter" href="Thread_pool.html"> <link title="Thread_safe" rel="Chapter" href="Thread_safe.html"> <link title="Thread_safe_pipe" rel="Chapter" href="Thread_safe_pipe.html"> <link title="Unix_syscalls" rel="Chapter" href="Unix_syscalls.html"> <link title="Writer" rel="Chapter" href="Writer.html"><title>Raw_scheduler.Fields</title> </head> <body> <code class="code"><span class="keyword">sig</span><br> <span class="keyword">val</span> names : string list<br> <span class="keyword">val</span> core_scheduler :<br> ([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Raw_scheduler</span>.<span class="constructor">Core_scheduler</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm<br> <span class="keyword">val</span> thread_pool :<br> ([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t, <span class="constructor">Thread_pool</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm<br> <span class="keyword">val</span> signal_manager :<br> ([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t, <span class="constructor">Raw_signal_manager</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm<br> <span class="keyword">val</span> interruptor :<br> ([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t, <span class="constructor">Interruptor</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm<br> <span class="keyword">val</span> scheduler_thread_id :<br> ([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t, int)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm<br> <span class="keyword">val</span> timerfd :<br> ([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Linux_ext</span>.<span class="constructor">Timerfd</span>.t option)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm<br> <span class="keyword">val</span> fd_by_descr :<br> ([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t, <span class="constructor">Fd_by_descr</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm<br> <span class="keyword">val</span> file_descr_watcher :<br> ([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Raw_scheduler</span>.<span class="constructor">File_descr_watcher</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm<br> <span class="keyword">val</span> fds_whose_watching_has_changed :<br> ([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t, <span class="constructor">Raw_scheduler</span>.<span class="constructor">Fd</span>.t list)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm<br> <span class="keyword">val</span> have_called_go :<br> ([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t, bool)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm<br> <span class="keyword">val</span> is_running :<br> ([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t, bool)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm<br> <span class="keyword">val</span> mutex :<br> ([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t, <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Nano_mutex</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm<br> <span class="keyword">val</span> make_creator :<br> mutex:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Nano_mutex</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span><br> <span class="keywordsign">'</span>a <span class="keywordsign">-></span> (<span class="keywordsign">'</span>b <span class="keywordsign">-></span> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Nano_mutex</span>.t) * <span class="keywordsign">'</span>c) <span class="keywordsign">-></span><br> is_running:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t, bool)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> <span class="keywordsign">'</span>c <span class="keywordsign">-></span> (<span class="keywordsign">'</span>b <span class="keywordsign">-></span> bool) * <span class="keywordsign">'</span>d) <span class="keywordsign">-></span><br> have_called_go:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t, bool)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> <span class="keywordsign">'</span>d <span class="keywordsign">-></span> (<span class="keywordsign">'</span>b <span class="keywordsign">-></span> bool) * <span class="keywordsign">'</span>e) <span class="keywordsign">-></span><br> fds_whose_watching_has_changed:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ],<br> <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Raw_scheduler</span>.<span class="constructor">Fd</span>.t list)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span><br> <span class="keywordsign">'</span>e <span class="keywordsign">-></span><br> (<span class="keywordsign">'</span>b <span class="keywordsign">-></span> <span class="constructor">Raw_scheduler</span>.<span class="constructor">Fd</span>.t list) * <span class="keywordsign">'</span>f) <span class="keywordsign">-></span><br> file_descr_watcher:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Raw_scheduler</span>.<span class="constructor">File_descr_watcher</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span><br> <span class="keywordsign">'</span>f <span class="keywordsign">-></span> (<span class="keywordsign">'</span>b <span class="keywordsign">-></span> <span class="constructor">Raw_scheduler</span>.<span class="constructor">File_descr_watcher</span>.t) * <span class="keywordsign">'</span>g) <span class="keywordsign">-></span><br> fd_by_descr:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Fd_by_descr</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span><br> <span class="keywordsign">'</span>g <span class="keywordsign">-></span> (<span class="keywordsign">'</span>b <span class="keywordsign">-></span> <span class="constructor">Fd_by_descr</span>.t) * <span class="keywordsign">'</span>h) <span class="keywordsign">-></span><br> timerfd:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Linux_ext</span>.<span class="constructor">Timerfd</span>.t option)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span><br> <span class="keywordsign">'</span>h <span class="keywordsign">-></span> (<span class="keywordsign">'</span>b <span class="keywordsign">-></span> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Linux_ext</span>.<span class="constructor">Timerfd</span>.t option) * <span class="keywordsign">'</span>i) <span class="keywordsign">-></span><br> scheduler_thread_id:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t, int)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span><br> <span class="keywordsign">'</span>i <span class="keywordsign">-></span> (<span class="keywordsign">'</span>b <span class="keywordsign">-></span> int) * <span class="keywordsign">'</span>j) <span class="keywordsign">-></span><br> interruptor:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Interruptor</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span><br> <span class="keywordsign">'</span>j <span class="keywordsign">-></span> (<span class="keywordsign">'</span>b <span class="keywordsign">-></span> <span class="constructor">Interruptor</span>.t) * <span class="keywordsign">'</span>k) <span class="keywordsign">-></span><br> signal_manager:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Raw_signal_manager</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span><br> <span class="keywordsign">'</span>k <span class="keywordsign">-></span> (<span class="keywordsign">'</span>b <span class="keywordsign">-></span> <span class="constructor">Raw_signal_manager</span>.t) * <span class="keywordsign">'</span>l) <span class="keywordsign">-></span><br> thread_pool:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Thread_pool</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span><br> <span class="keywordsign">'</span>l <span class="keywordsign">-></span> (<span class="keywordsign">'</span>b <span class="keywordsign">-></span> <span class="constructor">Thread_pool</span>.t) * <span class="keywordsign">'</span>m) <span class="keywordsign">-></span><br> core_scheduler:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Raw_scheduler</span>.<span class="constructor">Core_scheduler</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span><br> <span class="keywordsign">'</span>m <span class="keywordsign">-></span> (<span class="keywordsign">'</span>b <span class="keywordsign">-></span> <span class="constructor">Raw_scheduler</span>.<span class="constructor">Core_scheduler</span>.t) * <span class="keywordsign">'</span>n) <span class="keywordsign">-></span><br> <span class="keywordsign">'</span>a <span class="keywordsign">-></span> (<span class="keywordsign">'</span>b <span class="keywordsign">-></span> <span class="constructor">Raw_scheduler</span>.t) * <span class="keywordsign">'</span>n<br> <span class="keyword">val</span> create :<br> mutex:<span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Nano_mutex</span>.t <span class="keywordsign">-></span><br> is_running:bool <span class="keywordsign">-></span><br> have_called_go:bool <span class="keywordsign">-></span><br> fds_whose_watching_has_changed:<span class="constructor">Raw_scheduler</span>.<span class="constructor">Fd</span>.t list <span class="keywordsign">-></span><br> file_descr_watcher:<span class="constructor">Raw_scheduler</span>.<span class="constructor">File_descr_watcher</span>.t <span class="keywordsign">-></span><br> fd_by_descr:<span class="constructor">Fd_by_descr</span>.t <span class="keywordsign">-></span><br> timerfd:<span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Linux_ext</span>.<span class="constructor">Timerfd</span>.t option <span class="keywordsign">-></span><br> scheduler_thread_id:int <span class="keywordsign">-></span><br> interruptor:<span class="constructor">Interruptor</span>.t <span class="keywordsign">-></span><br> signal_manager:<span class="constructor">Raw_signal_manager</span>.t <span class="keywordsign">-></span><br> thread_pool:<span class="constructor">Thread_pool</span>.t <span class="keywordsign">-></span><br> core_scheduler:<span class="constructor">Raw_scheduler</span>.<span class="constructor">Core_scheduler</span>.t <span class="keywordsign">-></span> <span class="constructor">Raw_scheduler</span>.t<br> <span class="keyword">val</span> map :<br> mutex:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Nano_mutex</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Nano_mutex</span>.t) <span class="keywordsign">-></span><br> is_running:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t, bool)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> bool) <span class="keywordsign">-></span><br> have_called_go:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t, bool)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> bool) <span class="keywordsign">-></span><br> fds_whose_watching_has_changed:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ],<br> <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Raw_scheduler</span>.<span class="constructor">Fd</span>.t list)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span><br> <span class="constructor">Raw_scheduler</span>.<span class="constructor">Fd</span>.t list) <span class="keywordsign">-></span><br> file_descr_watcher:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Raw_scheduler</span>.<span class="constructor">File_descr_watcher</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span><br> <span class="constructor">Raw_scheduler</span>.<span class="constructor">File_descr_watcher</span>.t) <span class="keywordsign">-></span><br> fd_by_descr:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Fd_by_descr</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> <span class="constructor">Fd_by_descr</span>.t) <span class="keywordsign">-></span><br> timerfd:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Linux_ext</span>.<span class="constructor">Timerfd</span>.t option)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span><br> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Linux_ext</span>.<span class="constructor">Timerfd</span>.t option) <span class="keywordsign">-></span><br> scheduler_thread_id:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t, int)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> int) <span class="keywordsign">-></span><br> interruptor:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Interruptor</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> <span class="constructor">Interruptor</span>.t) <span class="keywordsign">-></span><br> signal_manager:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Raw_signal_manager</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> <span class="constructor">Raw_signal_manager</span>.t) <span class="keywordsign">-></span><br> thread_pool:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Thread_pool</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> <span class="constructor">Thread_pool</span>.t) <span class="keywordsign">-></span><br> core_scheduler:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Raw_scheduler</span>.<span class="constructor">Core_scheduler</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span><br> <span class="constructor">Raw_scheduler</span>.<span class="constructor">Core_scheduler</span>.t) <span class="keywordsign">-></span><br> <span class="constructor">Raw_scheduler</span>.t<br> <span class="keyword">val</span> iter :<br> mutex:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Nano_mutex</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> <span class="keywordsign">'</span>a) <span class="keywordsign">-></span><br> is_running:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t, bool)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> <span class="keywordsign">'</span>b) <span class="keywordsign">-></span><br> have_called_go:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t, bool)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> <span class="keywordsign">'</span>c) <span class="keywordsign">-></span><br> fds_whose_watching_has_changed:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ],<br> <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Raw_scheduler</span>.<span class="constructor">Fd</span>.t list)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> <span class="keywordsign">'</span>d) <span class="keywordsign">-></span><br> file_descr_watcher:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Raw_scheduler</span>.<span class="constructor">File_descr_watcher</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> <span class="keywordsign">'</span>e) <span class="keywordsign">-></span><br> fd_by_descr:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Fd_by_descr</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> <span class="keywordsign">'</span>f) <span class="keywordsign">-></span><br> timerfd:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Linux_ext</span>.<span class="constructor">Timerfd</span>.t option)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> <span class="keywordsign">'</span>g) <span class="keywordsign">-></span><br> scheduler_thread_id:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t, int)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> <span class="keywordsign">'</span>h) <span class="keywordsign">-></span><br> interruptor:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Interruptor</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> <span class="keywordsign">'</span>i) <span class="keywordsign">-></span><br> signal_manager:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Raw_signal_manager</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> <span class="keywordsign">'</span>j) <span class="keywordsign">-></span><br> thread_pool:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Thread_pool</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> <span class="keywordsign">'</span>k) <span class="keywordsign">-></span><br> core_scheduler:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Raw_scheduler</span>.<span class="constructor">Core_scheduler</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> <span class="keywordsign">'</span>l) <span class="keywordsign">-></span><br> <span class="keywordsign">'</span>l<br> <span class="keyword">val</span> fold :<br> init:<span class="keywordsign">'</span>a <span class="keywordsign">-></span><br> mutex:(<span class="keywordsign">'</span>a <span class="keywordsign">-></span><br> ([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Nano_mutex</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> <span class="keywordsign">'</span>b) <span class="keywordsign">-></span><br> is_running:(<span class="keywordsign">'</span>b <span class="keywordsign">-></span><br> ([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t, bool)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> <span class="keywordsign">'</span>c) <span class="keywordsign">-></span><br> have_called_go:(<span class="keywordsign">'</span>c <span class="keywordsign">-></span><br> ([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t, bool)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> <span class="keywordsign">'</span>d) <span class="keywordsign">-></span><br> fds_whose_watching_has_changed:(<span class="keywordsign">'</span>d <span class="keywordsign">-></span><br> ([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ],<br> <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Raw_scheduler</span>.<span class="constructor">Fd</span>.t list)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> <span class="keywordsign">'</span>e) <span class="keywordsign">-></span><br> file_descr_watcher:(<span class="keywordsign">'</span>e <span class="keywordsign">-></span><br> ([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Raw_scheduler</span>.<span class="constructor">File_descr_watcher</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> <span class="keywordsign">'</span>f) <span class="keywordsign">-></span><br> fd_by_descr:(<span class="keywordsign">'</span>f <span class="keywordsign">-></span><br> ([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Fd_by_descr</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> <span class="keywordsign">'</span>g) <span class="keywordsign">-></span><br> timerfd:(<span class="keywordsign">'</span>g <span class="keywordsign">-></span><br> ([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Linux_ext</span>.<span class="constructor">Timerfd</span>.t option)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> <span class="keywordsign">'</span>h) <span class="keywordsign">-></span><br> scheduler_thread_id:(<span class="keywordsign">'</span>h <span class="keywordsign">-></span><br> ([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t, int)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> <span class="keywordsign">'</span>i) <span class="keywordsign">-></span><br> interruptor:(<span class="keywordsign">'</span>i <span class="keywordsign">-></span><br> ([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Interruptor</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> <span class="keywordsign">'</span>j) <span class="keywordsign">-></span><br> signal_manager:(<span class="keywordsign">'</span>j <span class="keywordsign">-></span><br> ([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Raw_signal_manager</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> <span class="keywordsign">'</span>k) <span class="keywordsign">-></span><br> thread_pool:(<span class="keywordsign">'</span>k <span class="keywordsign">-></span><br> ([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Thread_pool</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> <span class="keywordsign">'</span>l) <span class="keywordsign">-></span><br> core_scheduler:(<span class="keywordsign">'</span>l <span class="keywordsign">-></span><br> ([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Raw_scheduler</span>.<span class="constructor">Core_scheduler</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> <span class="keywordsign">'</span>m) <span class="keywordsign">-></span><br> <span class="keywordsign">'</span>m<br> <span class="keyword">val</span> map_poly :<br> ([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t, <span class="keywordsign">'</span>a) <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.user <span class="keywordsign">-></span><br> <span class="keywordsign">'</span>a list<br> <span class="keyword">val</span> for_all :<br> mutex:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Nano_mutex</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> bool) <span class="keywordsign">-></span><br> is_running:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t, bool)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> bool) <span class="keywordsign">-></span><br> have_called_go:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t, bool)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> bool) <span class="keywordsign">-></span><br> fds_whose_watching_has_changed:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ],<br> <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Raw_scheduler</span>.<span class="constructor">Fd</span>.t list)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> bool) <span class="keywordsign">-></span><br> file_descr_watcher:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Raw_scheduler</span>.<span class="constructor">File_descr_watcher</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> bool) <span class="keywordsign">-></span><br> fd_by_descr:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Fd_by_descr</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> bool) <span class="keywordsign">-></span><br> timerfd:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Linux_ext</span>.<span class="constructor">Timerfd</span>.t option)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> bool) <span class="keywordsign">-></span><br> scheduler_thread_id:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t, int)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> bool) <span class="keywordsign">-></span><br> interruptor:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Interruptor</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> bool) <span class="keywordsign">-></span><br> signal_manager:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Raw_signal_manager</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> bool) <span class="keywordsign">-></span><br> thread_pool:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Thread_pool</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> bool) <span class="keywordsign">-></span><br> core_scheduler:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Raw_scheduler</span>.<span class="constructor">Core_scheduler</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> bool) <span class="keywordsign">-></span><br> bool<br> <span class="keyword">val</span> exists :<br> mutex:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Nano_mutex</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> bool) <span class="keywordsign">-></span><br> is_running:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t, bool)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> bool) <span class="keywordsign">-></span><br> have_called_go:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t, bool)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> bool) <span class="keywordsign">-></span><br> fds_whose_watching_has_changed:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ],<br> <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Raw_scheduler</span>.<span class="constructor">Fd</span>.t list)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> bool) <span class="keywordsign">-></span><br> file_descr_watcher:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Raw_scheduler</span>.<span class="constructor">File_descr_watcher</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> bool) <span class="keywordsign">-></span><br> fd_by_descr:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Fd_by_descr</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> bool) <span class="keywordsign">-></span><br> timerfd:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Linux_ext</span>.<span class="constructor">Timerfd</span>.t option)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> bool) <span class="keywordsign">-></span><br> scheduler_thread_id:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t, int)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> bool) <span class="keywordsign">-></span><br> interruptor:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Interruptor</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> bool) <span class="keywordsign">-></span><br> signal_manager:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Raw_signal_manager</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> bool) <span class="keywordsign">-></span><br> thread_pool:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Thread_pool</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> bool) <span class="keywordsign">-></span><br> core_scheduler:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Raw_scheduler</span>.<span class="constructor">Core_scheduler</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> bool) <span class="keywordsign">-></span><br> bool<br> <span class="keyword">val</span> to_list :<br> mutex:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Nano_mutex</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> <span class="keywordsign">'</span>a) <span class="keywordsign">-></span><br> is_running:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t, bool)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> <span class="keywordsign">'</span>a) <span class="keywordsign">-></span><br> have_called_go:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t, bool)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> <span class="keywordsign">'</span>a) <span class="keywordsign">-></span><br> fds_whose_watching_has_changed:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ],<br> <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Raw_scheduler</span>.<span class="constructor">Fd</span>.t list)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> <span class="keywordsign">'</span>a) <span class="keywordsign">-></span><br> file_descr_watcher:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Raw_scheduler</span>.<span class="constructor">File_descr_watcher</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> <span class="keywordsign">'</span>a) <span class="keywordsign">-></span><br> fd_by_descr:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Fd_by_descr</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> <span class="keywordsign">'</span>a) <span class="keywordsign">-></span><br> timerfd:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Linux_ext</span>.<span class="constructor">Timerfd</span>.t option)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> <span class="keywordsign">'</span>a) <span class="keywordsign">-></span><br> scheduler_thread_id:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t, int)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> <span class="keywordsign">'</span>a) <span class="keywordsign">-></span><br> interruptor:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Interruptor</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> <span class="keywordsign">'</span>a) <span class="keywordsign">-></span><br> signal_manager:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Raw_signal_manager</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> <span class="keywordsign">'</span>a) <span class="keywordsign">-></span><br> thread_pool:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Thread_pool</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> <span class="keywordsign">'</span>a) <span class="keywordsign">-></span><br> core_scheduler:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Raw_scheduler</span>.<span class="constructor">Core_scheduler</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span> <span class="keywordsign">'</span>a) <span class="keywordsign">-></span><br> <span class="keywordsign">'</span>a list<br> <span class="keyword">module</span> <span class="constructor">Direct</span> :<br> <span class="keyword">sig</span><br> <span class="keyword">val</span> iter :<br> <span class="constructor">Raw_scheduler</span>.t <span class="keywordsign">-></span><br> mutex:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Nano_mutex</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span><br> <span class="constructor">Raw_scheduler</span>.t <span class="keywordsign">-></span> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Nano_mutex</span>.t <span class="keywordsign">-></span> <span class="keywordsign">'</span>a) <span class="keywordsign">-></span><br> is_running:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t, bool)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span><br> <span class="constructor">Raw_scheduler</span>.t <span class="keywordsign">-></span> bool <span class="keywordsign">-></span> <span class="keywordsign">'</span>b) <span class="keywordsign">-></span><br> have_called_go:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t, bool)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span><br> <span class="constructor">Raw_scheduler</span>.t <span class="keywordsign">-></span> bool <span class="keywordsign">-></span> <span class="keywordsign">'</span>c) <span class="keywordsign">-></span><br> fds_whose_watching_has_changed:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ],<br> <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Raw_scheduler</span>.<span class="constructor">Fd</span>.t list)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span><br> <span class="constructor">Raw_scheduler</span>.t <span class="keywordsign">-></span><br> <span class="constructor">Raw_scheduler</span>.<span class="constructor">Fd</span>.t list <span class="keywordsign">-></span> <span class="keywordsign">'</span>d) <span class="keywordsign">-></span><br> file_descr_watcher:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Raw_scheduler</span>.<span class="constructor">File_descr_watcher</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span><br> <span class="constructor">Raw_scheduler</span>.t <span class="keywordsign">-></span><br> <span class="constructor">Raw_scheduler</span>.<span class="constructor">File_descr_watcher</span>.t <span class="keywordsign">-></span> <span class="keywordsign">'</span>e) <span class="keywordsign">-></span><br> fd_by_descr:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Fd_by_descr</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span><br> <span class="constructor">Raw_scheduler</span>.t <span class="keywordsign">-></span> <span class="constructor">Fd_by_descr</span>.t <span class="keywordsign">-></span> <span class="keywordsign">'</span>f) <span class="keywordsign">-></span><br> timerfd:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Linux_ext</span>.<span class="constructor">Timerfd</span>.t option)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span><br> <span class="constructor">Raw_scheduler</span>.t <span class="keywordsign">-></span> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Linux_ext</span>.<span class="constructor">Timerfd</span>.t option <span class="keywordsign">-></span> <span class="keywordsign">'</span>g) <span class="keywordsign">-></span><br> scheduler_thread_id:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> int)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span><br> <span class="constructor">Raw_scheduler</span>.t <span class="keywordsign">-></span> int <span class="keywordsign">-></span> <span class="keywordsign">'</span>h) <span class="keywordsign">-></span><br> interruptor:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Interruptor</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span><br> <span class="constructor">Raw_scheduler</span>.t <span class="keywordsign">-></span> <span class="constructor">Interruptor</span>.t <span class="keywordsign">-></span> <span class="keywordsign">'</span>i) <span class="keywordsign">-></span><br> signal_manager:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Raw_signal_manager</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span><br> <span class="constructor">Raw_scheduler</span>.t <span class="keywordsign">-></span> <span class="constructor">Raw_signal_manager</span>.t <span class="keywordsign">-></span> <span class="keywordsign">'</span>j) <span class="keywordsign">-></span><br> thread_pool:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Thread_pool</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span><br> <span class="constructor">Raw_scheduler</span>.t <span class="keywordsign">-></span> <span class="constructor">Thread_pool</span>.t <span class="keywordsign">-></span> <span class="keywordsign">'</span>k) <span class="keywordsign">-></span><br> core_scheduler:(([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Raw_scheduler</span>.<span class="constructor">Core_scheduler</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span><br> <span class="constructor">Raw_scheduler</span>.t <span class="keywordsign">-></span><br> <span class="constructor">Raw_scheduler</span>.<span class="constructor">Core_scheduler</span>.t <span class="keywordsign">-></span> <span class="keywordsign">'</span>l) <span class="keywordsign">-></span><br> <span class="keywordsign">'</span>l<br> <span class="keyword">val</span> fold :<br> <span class="constructor">Raw_scheduler</span>.t <span class="keywordsign">-></span><br> init:<span class="keywordsign">'</span>a <span class="keywordsign">-></span><br> mutex:(<span class="keywordsign">'</span>a <span class="keywordsign">-></span><br> ([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Nano_mutex</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span><br> <span class="constructor">Raw_scheduler</span>.t <span class="keywordsign">-></span> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Nano_mutex</span>.t <span class="keywordsign">-></span> <span class="keywordsign">'</span>b) <span class="keywordsign">-></span><br> is_running:(<span class="keywordsign">'</span>b <span class="keywordsign">-></span><br> ([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t, bool)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span><br> <span class="constructor">Raw_scheduler</span>.t <span class="keywordsign">-></span> bool <span class="keywordsign">-></span> <span class="keywordsign">'</span>c) <span class="keywordsign">-></span><br> have_called_go:(<span class="keywordsign">'</span>c <span class="keywordsign">-></span><br> ([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t, bool)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span><br> <span class="constructor">Raw_scheduler</span>.t <span class="keywordsign">-></span> bool <span class="keywordsign">-></span> <span class="keywordsign">'</span>d) <span class="keywordsign">-></span><br> fds_whose_watching_has_changed:(<span class="keywordsign">'</span>d <span class="keywordsign">-></span><br> ([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ],<br> <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Raw_scheduler</span>.<span class="constructor">Fd</span>.t list)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span><br> <span class="constructor">Raw_scheduler</span>.t <span class="keywordsign">-></span><br> <span class="constructor">Raw_scheduler</span>.<span class="constructor">Fd</span>.t list <span class="keywordsign">-></span> <span class="keywordsign">'</span>e) <span class="keywordsign">-></span><br> file_descr_watcher:(<span class="keywordsign">'</span>e <span class="keywordsign">-></span><br> ([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Raw_scheduler</span>.<span class="constructor">File_descr_watcher</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span><br> <span class="constructor">Raw_scheduler</span>.t <span class="keywordsign">-></span><br> <span class="constructor">Raw_scheduler</span>.<span class="constructor">File_descr_watcher</span>.t <span class="keywordsign">-></span> <span class="keywordsign">'</span>f) <span class="keywordsign">-></span><br> fd_by_descr:(<span class="keywordsign">'</span>f <span class="keywordsign">-></span><br> ([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Fd_by_descr</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span><br> <span class="constructor">Raw_scheduler</span>.t <span class="keywordsign">-></span> <span class="constructor">Fd_by_descr</span>.t <span class="keywordsign">-></span> <span class="keywordsign">'</span>g) <span class="keywordsign">-></span><br> timerfd:(<span class="keywordsign">'</span>g <span class="keywordsign">-></span><br> ([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Linux_ext</span>.<span class="constructor">Timerfd</span>.t option)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span><br> <span class="constructor">Raw_scheduler</span>.t <span class="keywordsign">-></span> <span class="constructor">Core</span>.<span class="constructor">Std</span>.<span class="constructor">Linux_ext</span>.<span class="constructor">Timerfd</span>.t option <span class="keywordsign">-></span> <span class="keywordsign">'</span>h) <span class="keywordsign">-></span><br> scheduler_thread_id:(<span class="keywordsign">'</span>h <span class="keywordsign">-></span><br> ([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> int)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span><br> <span class="constructor">Raw_scheduler</span>.t <span class="keywordsign">-></span> int <span class="keywordsign">-></span> <span class="keywordsign">'</span>i) <span class="keywordsign">-></span><br> interruptor:(<span class="keywordsign">'</span>i <span class="keywordsign">-></span><br> ([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Interruptor</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span><br> <span class="constructor">Raw_scheduler</span>.t <span class="keywordsign">-></span> <span class="constructor">Interruptor</span>.t <span class="keywordsign">-></span> <span class="keywordsign">'</span>j) <span class="keywordsign">-></span><br> signal_manager:(<span class="keywordsign">'</span>j <span class="keywordsign">-></span><br> ([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Raw_signal_manager</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span><br> <span class="constructor">Raw_scheduler</span>.t <span class="keywordsign">-></span> <span class="constructor">Raw_signal_manager</span>.t <span class="keywordsign">-></span> <span class="keywordsign">'</span>k) <span class="keywordsign">-></span><br> thread_pool:(<span class="keywordsign">'</span>k <span class="keywordsign">-></span><br> ([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Thread_pool</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span><br> <span class="constructor">Raw_scheduler</span>.t <span class="keywordsign">-></span> <span class="constructor">Thread_pool</span>.t <span class="keywordsign">-></span> <span class="keywordsign">'</span>l) <span class="keywordsign">-></span><br> core_scheduler:(<span class="keywordsign">'</span>l <span class="keywordsign">-></span><br> ([< <span class="keywordsign">`</span><span class="constructor">Read</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">Set_and_create</span> ], <span class="constructor">Raw_scheduler</span>.t,<br> <span class="constructor">Raw_scheduler</span>.<span class="constructor">Core_scheduler</span>.t)<br> <span class="constructor">Fieldslib</span>.<span class="constructor">Field</span>.t_with_perm <span class="keywordsign">-></span><br> <span class="constructor">Raw_scheduler</span>.t <span class="keywordsign">-></span><br> <span class="constructor">Raw_scheduler</span>.<span class="constructor">Core_scheduler</span>.t <span class="keywordsign">-></span> <span class="keywordsign">'</span>m) <span class="keywordsign">-></span><br> <span class="keywordsign">'</span>m<br> <span class="keyword">end</span><br> <span class="keyword">end</span></code></body></html>
