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

SCM Repository

[smlnj] Diff of /sml/trunk/src/eXene/lib/protocol/xio.sml
ViewVC logotype

Diff of /sml/trunk/src/eXene/lib/protocol/xio.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3, Sat Oct 4 23:33:46 1997 UTC revision 8, Sun Jan 18 01:01:29 1998 UTC
# Line 57  Line 57 
57      val bufSz = 2048      val bufSz = 2048
58    
59    (* time to wait before flushing a non-empty output buffer *)    (* time to wait before flushing a non-empty output buffer *)
60      val flushTimeOut = CML.timeOutEvt(Time.fromMilliseconds 100)      val flushTimeOut = CML.timeOutEvt(Time.fromMilliseconds 50)
61    
62    (* request messages sent to the sequencer by clients *)    (* request messages sent to the sequencer by clients *)
63      datatype req_msg      datatype req_msg
# Line 363  Line 363 
363      fun sequencer (reqCh, inCh, outCh, xevtCh, errCh) () = let      fun sequencer (reqCh, inCh, outCh, xevtCh, errCh) () = let
364            fun quit () = (CML.send(outCh, OutQuit); CML.exit())            fun quit () = (CML.send(outCh, OutQuit); CML.exit())
365            val inEvt = CML.recvEvt inCh            val inEvt = CML.recvEvt inCh
366              val reqEvt = CML.recvEvt reqCh
367            fun doRequest (req, (lastIn, lastOut, pending)) = (            fun doRequest (req, (lastIn, lastOut, pending)) = (
368                  CML.send(outCh, OutMsg req);                  CML.send(outCh, OutMsg req);
369                  (lastIn, lastOut+0w1, pending))                  (lastIn, lastOut+0w1, pending))
# Line 479  Line 480 
480                                              "[XIo.sequencer: misleading GraphicsExpose count]";                                              "[XIo.sequencer: misleading GraphicsExpose count]";
481                                            rect::rl)                                            rect::rl)
482                                      (* end case *))                                      (* end case *))
483                                      val rects =                                val rects = pack ([], XReply.decodeGraphicsExpose msg)
                                           pack ([], XReply.decodeGraphicsExpose msg)  
484                                      in                                      in
485                                        ( seqn,                                        ( seqn,
486                                          lastReqOut,                                          lastReqOut,
# Line 503  Line 503 
503                  in                  in
504                    loop (                    loop (
505                      CML.select [                      CML.select [
506                          CML.wrap (CML.recvEvt reqCh, reqWrap),                          CML.wrap (reqEvt, reqWrap),
507                          CML.wrap (inEvt, inWrap)                          CML.wrap (inEvt, inWrap)
508                        ])                        ])
509                  end (* loop *)                  end (* loop *)

Legend:
Removed from v.3  
changed lines
  Added in v.8

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