author | etisserant |
Tue, 19 Feb 2008 14:52:40 +0100 | |
changeset 401 | 2c90876b9751 |
parent 355 | 12adbd08e10c |
child 407 | 384c3cd7afa2 |
permissions | -rwxr-xr-x |
355
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
1 |
/* |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
2 |
This file is part of CanFestival, a library implementing CanOpen Stack. |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
3 |
|
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
4 |
Copyright (C): Edouard TISSERANT |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
5 |
|
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
6 |
See COPYING file for copyrights details. |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
7 |
|
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
8 |
This library is free software; you can redistribute it and/or |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
9 |
modify it under the terms of the GNU Lesser General Public |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
10 |
License as published by the Free Software Foundation; either |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
11 |
version 2.1 of the License, or (at your option) any later version. |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
12 |
|
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
13 |
This library is distributed in the hope that it will be useful, |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
14 |
but WITHOUT ANY WARRANTY; without even the implied warranty of |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
15 |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
16 |
Lesser General Public License for more details. |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
17 |
|
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
18 |
You should have received a copy of the GNU Lesser General Public |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
19 |
License along with this library; if not, write to the Free Software |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
20 |
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
21 |
*/ |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
22 |
|
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
23 |
#include "Socket.h" |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
24 |
#include <iostream> |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
25 |
#include <process.h> |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
26 |
#include <string> |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
27 |
#include <list> |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
28 |
|
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
29 |
using namespace std; |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
30 |
|
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
31 |
typedef std::list<Socket*> socket_list; |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
32 |
|
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
33 |
socket_list g_connections; |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
34 |
|
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
35 |
unsigned __stdcall Connection(void* a) { |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
36 |
Socket* s = (Socket*) a; |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
37 |
|
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
38 |
g_connections.push_back(s); |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
39 |
|
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
40 |
//s->SendLine("Welcome to the Message Distributor"); |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
41 |
printf("Accepted new connection (0x%x).\n"); |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
42 |
while (1) { |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
43 |
std::string r = s->ReceiveLine(); |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
44 |
if (r.empty()) break; |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
45 |
//cout << r << endl; |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
46 |
for (socket_list::iterator os =g_connections.begin(); |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
47 |
os!=g_connections.end(); |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
48 |
os++) { |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
49 |
if (*os != s) (*os)->SendLine(r); |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
50 |
} |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
51 |
} |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
52 |
|
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
53 |
g_connections.remove(s); |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
54 |
|
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
55 |
delete s; |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
56 |
|
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
57 |
printf("Connection closed (0x%x).\n",s); |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
58 |
|
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
59 |
return 0; |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
60 |
} |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
61 |
|
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
62 |
int main() { |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
63 |
printf("************************************************\n" |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
64 |
"* TCP broadcasting chat server for CanFestival *\n" |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
65 |
"* for use with can_tcp_win32 CAN driver DLL *\n" |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
66 |
"************************************************\n" |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
67 |
"\n" |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
68 |
"Accepts connections on port 11898\n" |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
69 |
"and repeat '\\n' terminated lines \n" |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
70 |
"to each connected client\n" |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
71 |
"\n" |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
72 |
"Use netcat to monitor trafic\n" |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
73 |
" nc 127.0.0.1 11898\n" |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
74 |
"\n"); |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
75 |
|
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
76 |
SocketServer in(11898,5); |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
77 |
|
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
78 |
while (1) { |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
79 |
Socket* s=in.Accept(); |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
80 |
|
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
81 |
unsigned ret; |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
82 |
_beginthreadex(0,0,Connection,(void*) s,0,&ret); |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
83 |
} |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
84 |
|
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
85 |
return 0; |
12adbd08e10c
TCP broadcasting chat server to exchange CAN messages between CanFestival nodes on windows. This let user simulate a CANopen network on windows.
etisserant
parents:
diff
changeset
|
86 |
} |