emil
/
moontalk
1
0
Förgrening 0
Kod Ärenden 0 Pull-förfrågningar 0 Släpp 0 Wiki Aktiviteter
Moontalk server and client (provided by many parties)
Du kan inte välja fler än 25 ämnen Ämnen måste starta med en bokstav eller siffra, kan innehålla bindestreck ('-') och vara max 35 tecken långa.
2 Incheckningar
1 Gren
235KB
Träd: 7721b77c93
Grenar Taggar
${ item.name }
Skapa branchen ${ searchTerm }
från '7721b77c93'
${ noResults }
moontalk/server/eventloop-server-experiment/main.4th

19 lines
366B
Rå Blame Historik 

  1. require check-gforth.4th

  2. require eventloop.4th

  3. require event-constants.4th

  4. require server.4th

  5. 

  6. : custom-eventloop ( -- )

  7.   BEGIN

  8.     eventloop.has-events? IF

  9.       eventloop.dispatch

  10.     ELSE

  11.       server-idle? IF

  12.         10 ms false server-idle!

  13.       THEN

  14.       0 0 events.enqueue eventloop.dispatch

  15.     THEN

  16.   AGAIN ;

  17. 

  18. ' custom-eventloop catch close-server throw