1(library (nmosh win32 handle)
2         (export
3           win32-handle?
4           win32-handle-pipe
5           win32-handle-read
6           ;win32-handle-write
7           win32-handle-close)
8         (import (primitives %win32_process_pipe
9                             %win32_handle_read
10                             %win32_handle_write
11                             %win32_handle_close)
12                 (mosh ffi)
13                 (rnrs))
14
15(define win32-handle? pointer?)
16
17(define (win32-handle-close h)
18  (%win32_handle_close h))
19
20(define (win32-handle-read h buf siz)
21  (%win32_handle_read h buf siz))
22
23(define (win32-handle-pipe)
24  (%win32_process_pipe))
25
26)
27
28