Moontalk server and client (provided by many parties)
Nevar pievienot vairāk kā 25 tēmas
Tēmai ir jāsākas ar burtu vai ciparu, tā var saturēt domu zīmes ('-') un var būt līdz 35 simboliem gara.
|
- require check-gforth.4th
- require eventloop.4th
- require event-constants.4th
- require server.4th
-
- variable clcounter
- 0 clcounter !
- : handle-command-line? ( -- flag )
- clcounter @ 10 >= dup IF
- 0 clcounter !
- ELSE
- 1 clcounter +!
- THEN ;
-
- : custom-eventloop ( -- )
- BEGIN
- handle-command-line? IF
- 0 EVENT_COMMANDLINE events.enqueue
- THEN
- eventloop.has-events? IF
- eventloop.dispatch
- ELSE
- server-idle? IF
- 1 ms false server-idle!
- THEN
- 0 0 events.enqueue eventloop.dispatch
- THEN
- AGAIN ;
-
- : main ( -- ) ['] custom-eventloop catch close-server throw ;
- main
|