1: #line 865 "./lpsrc/flx_faio.pak"
2:
3: include "flx_faio_win32";
4: open Faio_win32;
5:
6: var port = 1234;
7: var listener: SOCKET;
8: mk_listener(&listener, &port, 1);
9:
10: print "spawning connector\n";
11:
12:
13: spawn_fthread{
14: {
15: var c: SOCKET;
16: Connect(&c, c"127.0.0.1", port);
17: };
18: };
19:
20: var s: SOCKET;
21: var success: bool;
22: mk_socket(&s);
23: Accept(&success, listener, s);
24:
25: if success then {
26: print "successful accept!\n";
27: System::exit 0;
28: } else {
29: print "accept failed!\n";
30: System::exit 1;
31: } endif;