indrajith/RCBASIC4
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed network socket ID errors

Browse Source
This commit is contained in:
n00b
2024-12-15 13:58:51 -05:00
parent 119e6f5bfe
commit b01f3cfc01
13 changed files with 86 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
rcbasic_build/intern_inc/switch_cases.h
View File

@@ -337,7 +337,7 @@ rc_net_tcp_remoteHost( TCP_REMOTEHOST_SOCKET )
rc_net_tcp_remotePort( TCP_REMOTEPORT_SOCKET )
rc_net_tcp_getData_str( TCP_GETDATA_SOCKET, TCP_GETDATA_NUMBYTES, &TCP_GETDATA_SDATA$ )
rc_net_tcp_sendData( TCP_SENDDATA_SOCKET, TCP_SENDDATA_SDATA$ )
rc_net_tcp_acceptSocket( TCP_ACCEPTSOCKET_SERVER, TCP_ACCEPTSOCKET_CLIENT )
rc_net_tcp_acceptSocket( TCP_ACCEPTSOCKET_SERVER )
rc_net_udp_openSocket( UDP_OPENSOCKET_PORT )
rc_net_udp_closeSocket( UDP_CLOSESOCKET_SOCKET )
rc_net_udp_readStream( UDP_GETDATA_SOCKET, &UDP_GETDATA_HOST$, &UDP_GETDATA_PORT, &UDP_GETDATA_SDATA$ )

2
rcbasic_build/intern_lib/network.bas
View File

@@ -7,7 +7,7 @@ function TCP_RemoteHost(socket)
function TCP_RemotePort(socket)
function TCP_GetData(socket, numBytes, ByRef sData$)
sub TCP_SendData(socket, sData$)
function TCP_AcceptSocket(server, client)
function TCP_AcceptSocket(server)
function UDP_OpenSocket(port)
sub UDP_CloseSocket(socket)
function UDP_GetData(socket, byref host$, byref port, byref sData$)

1
rcbasic_build/rc_builtin.h
View File

@@ -949,7 +949,6 @@ void init_embedded_functions()
add_embedded_arg("sData$", ID_TYPE_STR);
embed_function("TCP_AcceptSocket", ID_TYPE_FN_NUM);
add_embedded_arg("server", ID_TYPE_NUM);
add_embedded_arg("client", ID_TYPE_NUM);
embed_function("UDP_OpenSocket", ID_TYPE_FN_NUM);
add_embedded_arg("port", ID_TYPE_NUM);
embed_function("UDP_CloseSocket", ID_TYPE_SUB);

1
rcbasic_build/rcbasic.dbgs
View File

@@ -619,7 +619,6 @@ BS main.TCP_GetData sData$ 0
N main.TCP_SendData socket 0
S main.TCP_SendData sData$ 0
N main.TCP_AcceptSocket server 0
N main.TCP_AcceptSocket client 1
N main.UDP_OpenSocket port 0
N main.UDP_CloseSocket socket 0
N main.UDP_GetData socket 0

BIN
rcbasic_build/rcbasic4_changes.ods
View File

Binary file not shown.

1
rcbasic_build/rcbasic_dev.txt
View File

@@ -943,7 +943,6 @@ add_embedded_arg("socket", ID_TYPE_NUM);
add_embedded_arg("sData$", ID_TYPE_STR);
embed_function("TCP_AcceptSocket", ID_TYPE_FN_NUM);
add_embedded_arg("server", ID_TYPE_NUM);
add_embedded_arg("client", ID_TYPE_NUM);
embed_function("UDP_OpenSocket", ID_TYPE_FN_NUM);
add_embedded_arg("port", ID_TYPE_NUM);
embed_function("UDP_CloseSocket", ID_TYPE_SUB);

1
rcbasic_build/rcbasic_dev2.txt
View File

@@ -943,7 +943,6 @@
#define TCP_SENDDATA_SDATA$ str_var[0].sref[0].value[ str_var[0].byref_offset ]
#define FN_TCP_AcceptSocket 339
#define TCP_ACCEPTSOCKET_SERVER num_var[0].nref[0].value[ num_var[0].byref_offset ]
#define TCP_ACCEPTSOCKET_CLIENT num_var[1].nref[0].value[ num_var[1].byref_offset ]
#define FN_UDP_OpenSocket 340
#define UDP_OPENSOCKET_PORT num_var[0].nref[0].value[ num_var[0].byref_offset ]
#define FN_UDP_CloseSocket 341

2
rcbasic_build/rcbasic_dev3.txt
View File

@@ -1043,7 +1043,7 @@ case FN_TCP_SendData: //Sub Procedure
rc_net_tcp_sendData( TCP_SENDDATA_SOCKET, TCP_SENDDATA_SDATA$ );
break;
case FN_TCP_AcceptSocket: //Number Function
rc_push_num(rc_net_tcp_acceptSocket( TCP_ACCEPTSOCKET_SERVER, TCP_ACCEPTSOCKET_CLIENT ));
rc_push_num(rc_net_tcp_acceptSocket( TCP_ACCEPTSOCKET_SERVER ));
break;
case FN_UDP_OpenSocket: //Number Function
rc_push_num(rc_net_udp_openSocket( UDP_OPENSOCKET_PORT ));