Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Annotation of /sml/trunk/src/cml/src/Win32/win32-glue.sml
ViewVC logotype

Annotation of /sml/trunk/src/cml/src/Win32/win32-glue.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 651 - (view) (download)

1 : monnier 137 (* win32-glue.sml
2 :     *
3 :     * COPYRIGHT (c) 1998 Bell Labs, Lucent Technologies.
4 :     * COPYRIGHT (c) 1995 AT&T Bell Laboratories.
5 :     * COPYRIGHT (c) 1989-1991 John H. Reppy *
6 :     *
7 :     * The glue for the Win32 version of CML.
8 :     *)
9 :    
10 :     structure Win32Glue : OS_GLUE =
11 :     struct
12 :    
13 :     fun init () = TimeOut.reset()
14 :    
15 :     fun pollOS () = (
16 :     TimeOut.pollTime();
17 :     IOManager.pollIO();
18 :     ProcManager.pollProcs())
19 :    
20 :     fun pause () = (case TimeOut.anyWaiting()
21 :     of NONE => if (IOManager.anyWaiting() orelse ProcManager.anyWaiting())
22 :     then (Signals.pause(); true)
23 :     else false
24 :     (** NOTE: eventually, we should just go to sleep for the specified time **)
25 :     | (SOME t) => (Signals.pause(); true)
26 :     (* end case *))
27 :    
28 :     fun shutdown () = TimeOut.reset()
29 :    
30 :     end;
31 :    

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0