Spaceraven/kolibrios
1
0
Fork 0
forked from KolibriOS/kolibrios
Code Pull Requests Activity

tinypy: newlib version

Browse Source 
git-svn-id: svn://kolibrios.org@8473 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
maxcodehack 2020-12-25 11:03:12 +00:00
parent 3d4deeb59e
commit 931a0ac397
5 changed files with 175 additions and 133 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
programs/develop/tinypy/tinypy/Makefile
View File

@ -1,8 +1,33 @@
export MENUETDEV=../../libraries/menuetlibc NAME=tinypy
OUTFILE = tpmain CC = kos32-gcc
OBJS = tpmain.o kolibri_init.o kolibri_fs.o kolibri_gui.o kolibri_dbg.o kolibri_net.o LD = kos32-ld
CFLAGS = -I. -mpreferred-stack-boundary=2 -mincoming-stack-boundary=2
include $(MENUETDEV)/makefiles/Makefile_for_program SDK_DIR:= $(abspath ../../../../contrib/sdk)
kolibri_dbg.o: fasm_modules/kolibri_dbg.s
LDFLAGS = -static -nostdlib -T $(SDK_DIR)/sources/newlib/app.lds \
--image-base 0 -lgcc -ldll -lc.dll
CFLAGS = -U_Win32 -U_WIN32 -U__MINGW32__ -mpreferred-stack-boundary=2 \
-mincoming-stack-boundary=2 -fno-builtin -fno-common
INCLUDES= -I. -I$(SDK_DIR)/sources/newlib/libc/include -I$(CLAYER)/INCLUDE
LIBPATH:= -L $(SDK_DIR)/lib -L /home/autobuild/tools/win32/mingw32/lib
OBJECTS = tpmain.o kolibri_init.o kolibri_fs.o kolibri_gui.o kolibri_net.o kolibri_dbg.obj
all:$(NAME)
$(NAME): $(OBJECTS) Makefile
$(LD) $(LIBPATH) --subsystem native -o $@ $(OBJECTS) $(LDFLAGS) -n -Map $(NAME).map
kos32-objcopy $@ -O binary
%.o : %.c Makefile
$(CC) -c $(INCLUDES) $(CFLAGS) -o $@ $<
kolibri_dbg.obj: fasm_modules/kolibri_dbg.s
fasm fasm_modules/kolibri_dbg.s fasm fasm_modules/kolibri_dbg.s
cp fasm_modules/kolibri_dbg.o . cp fasm_modules/kolibri_dbg.obj .
clean:
-rm -f *.o $(NAME).map fasm_modules/kolibri_dbg.obj kolibri_dbg.obj

26
programs/develop/tinypy/tinypy/fasm_modules/kolibri_dbg.s
View File

@ -4,19 +4,25 @@
; Exports: ; Exports:
; debug_print(msg) - prints a message to debug board. ; debug_print(msg) - prints a message to debug board.
format ELF format coff
use32 use32 ; Tell compiler to use 32 bit instructions
include '../../../../proc32.inc'
include '../../../../struct.inc' section '.init' code ; Keep this line before includes or GCC messes up call addresses
include '../../../proc32.inc'
include '../../../struct.inc'
purge section,mov,add,sub
include 'tinypy.inc' include 'tinypy.inc'
extrn tp_dict include '../../../../programs/dll.inc'
extrn tp_set
extrn tp_get
extrn tp_None
extrn tp_fnc
public kolibri_dbg_init extrn '_tp_dict' as tp_dict
extrn '_tp_set' as tp_set
extrn '_tp_get' as tp_get
extrn '_tp_None' as tp_None
extrn '_tp_fnc' as tp_fnc
public kolibri_dbg_init as '_kolibri_dbg_init'
; Module name ; Module name
modname db "kolibri_dbg" modname db "kolibri_dbg"

11
programs/develop/tinypy/tinypy/kolibri_gui.c
View File

@ -1,5 +1,5 @@
#include "tp.h" #include "tp.h"
#include <menuet/thread.h> #include <kos32sys.h>
typedef unsigned short int uint16_t; typedef unsigned short int uint16_t;
typedef unsigned int uint32_t; typedef unsigned int uint32_t;
@ -95,12 +95,15 @@ static tp_obj kolibri_run(TP)
{ {
param_list = tp_list(tp); /* Prepare parameters. */ param_list = tp_list(tp); /* Prepare parameters. */
_tp_list_append(tp, param_list.list.val, self); _tp_list_append(tp, param_list.list.val, self);
_tp_list_append(tp, param_list.list.val, tp_number(__menuet__getkey()));
oskey_t key;
key = get_key();
_tp_list_append(tp, param_list.list.val, tp_number(key.code));
_tp_call(tp, &result, key_handler, param_list); _tp_call(tp, &result, key_handler, param_list);
} }
break; break;
case 3: case 3:
button_id = __menuet__get_button_id(); button_id = get_os_button();
if (button_id == 1) if (button_id == 1)
leave = 1; leave = 1;
else if (button_handler.type == TP_FNC) else if (button_handler.type == TP_FNC)
@ -129,7 +132,7 @@ static tp_obj kolibri_print_text(TP)
uint32_t width = (uint32_t)tp_get(tp, self, tp_string("width")).number.val; uint32_t width = (uint32_t)tp_get(tp, self, tp_string("width")).number.val;
tp_obj text = TP_TYPE(TP_STRING); tp_obj text = TP_TYPE(TP_STRING);
__menuet__write_text(x, y, textcolor, (char *)text.string.val, text.string.len); draw_text_sys((char *)text.string.val, x, y, text.string.len, textcolor);
/* Update cursor position. */ /* Update cursor position. */
ofs = 6 * text.string.len; ofs = 6 * text.string.len;
tp_set(tp, self, tp_string("cury"), tp_number(y + 9 * ((x + ofs) / width))); tp_set(tp, self, tp_string("cury"), tp_number(y + 9 * ((x + ofs) / width)));

227
programs/develop/tinypy/tinypy/kolibri_net.c
View File

@ -1,5 +1,5 @@
#include <sys/socket.h> #include <sys/socket.h>
#include <menuet/net.h> // #include <menuet/net.h>
#include "tp.h" #include "tp.h"
@ -28,18 +28,18 @@ extern int (* _cdecl con_printf)(const char* format,...);
*/ */
static tp_obj kolibri_close_socket(TP) static tp_obj kolibri_close_socket(TP)
{ {
tp_obj self = TP_TYPE(TP_DICT); // tp_obj self = TP_TYPE(TP_DICT);
__u32 socktype; // __u32 socktype;
__u32 s; // __u32 s;
GET_SOCKET_DESCRIPTOR(self, s); // GET_SOCKET_DESCRIPTOR(self, s);
socktype = (__u32)tp_get(tp, self, tp_string("type")).number.val; // socktype = (__u32)tp_get(tp, self, tp_string("type")).number.val;
GET_SOCKET_DESCRIPTOR(self, s); // GET_SOCKET_DESCRIPTOR(self, s);
if (socktype == SOCK_STREAM) // if (socktype == SOCK_STREAM)
__menuet__close_TCP_socket(s); // __menuet__close_TCP_socket(s);
else if (socktype == SOCK_DGRAM) // else if (socktype == SOCK_DGRAM)
__menuet__close_UDP_socket(s); // __menuet__close_UDP_socket(s);
return tp_True; return tp_True;
} }
@ -53,24 +53,28 @@ static tp_obj kolibri_close_socket(TP)
*/ */
static tp_obj kolibri_send(TP) static tp_obj kolibri_send(TP)
{ {
tp_obj self = TP_TYPE(TP_DICT); // tp_obj self = TP_TYPE(TP_DICT);
tp_obj data_obj = TP_TYPE(TP_STRING); // tp_obj data_obj = TP_TYPE(TP_STRING);
__u32 datalen = TP_DEFAULT(tp_False).number.val; // __u32 datalen = TP_DEFAULT(tp_False).number.val;
__u32 socktype = (__u32)tp_get(tp, self, tp_string("type")).number.val; // __u32 socktype = (__u32)tp_get(tp, self, tp_string("type")).number.val;
__u32 s; // __u32 s;
int result; // int result;
GET_SOCKET_DESCRIPTOR(self, s); // GET_SOCKET_DESCRIPTOR(self, s);
if (datalen < 0 || datalen > data_obj.string.len) // if (datalen < 0 || datalen > data_obj.string.len)
datalen = data_obj.string.len; // datalen = data_obj.string.len;
if (socktype == SOCK_STREAM) // if (socktype == SOCK_STREAM)
result = __menuet__write_TCP_socket(s, datalen, (void *)data_obj.string.val); // result = __menuet__write_TCP_socket(s, datalen, (void *)data_obj.string.val);
else if (socktype == SOCK_DGRAM) // else if (socktype == SOCK_DGRAM)
result = __menuet__write_UDP_socket(s, datalen, (void *)data_obj.string.val); // result = __menuet__write_UDP_socket(s, datalen, (void *)data_obj.string.val);
return tp_number(!(result != 0)); // return tp_number(!(result != 0));
return tp_number(0);
} }
#define __u32 unsigned int
#define __u8 unsigned char
/* Socket recv method. /* Socket recv method.
* *
* data="<html><head><title>Preved!!!</title></head><body>Example.</body></html>" * data="<html><head><title>Preved!!!</title></head><body>Example.</body></html>"
@ -89,25 +93,25 @@ static tp_obj kolibri_recv(TP)
__u32 bytes_read = 0; __u32 bytes_read = 0;
int i; int i;
GET_SOCKET_DESCRIPTOR(self, s); // GET_SOCKET_DESCRIPTOR(self, s);
if (datalen) // if (datalen)
buf_size = datalen; // buf_size = datalen;
else // else
buf_size = 2048; // buf_size = 2048;
if (!(buf = malloc(datalen))) // if (!(buf = malloc(datalen)))
tp_raise(tp_None, "Cannot allocate buffer for received data", tp_None); // tp_raise(tp_None, "Cannot allocate buffer for received data", tp_None);
p = buf; // p = buf;
while (__menuet__read_socket(s, &c) && bytes_read < buf_size) // while (__menuet__read_socket(s, &c) && bytes_read < buf_size)
{ // {
*p++ = c; // *p++ = c;
bytes_read++; // bytes_read++;
if (bytes_read >= buf_size && !datalen) // if (bytes_read >= buf_size && !datalen)
{ // {
buf_size += 1024; // buf_size += 1024;
buf = realloc(buf, buf_size); // buf = realloc(buf, buf_size);
} // }
} // }
return tp_string_n(buf, bytes_read); return tp_string_n(buf, bytes_read);
} }
@ -150,7 +154,7 @@ static tp_obj kolibri_inet_pton(TP)
tp_obj obj; tp_obj obj;
__u32 addr; __u32 addr;
obj = TP_TYPE(TP_STRING); obj = TP_TYPE(TP_STRING);
inet_pton(tp, (char *)obj.string.val, (int)obj.string.len, &addr); // inet_pton(tp, (char *)obj.string.val, (int)obj.string.len, &addr);
return tp_number(addr); return tp_number(addr);
} }
@ -163,18 +167,18 @@ static tp_obj kolibri_inet_pton(TP)
*/ */
tp_obj kolibri_bind(TP) tp_obj kolibri_bind(TP)
{ {
tp_obj self = TP_TYPE(TP_DICT); // tp_obj self = TP_TYPE(TP_DICT);
tp_obj local_addr_obj = TP_OBJ(); // tp_obj local_addr_obj = TP_OBJ();
__u32 local_port = (__u32)TP_TYPE(TP_NUMBER).number.val; // __u32 local_port = (__u32)TP_TYPE(TP_NUMBER).number.val;
__u32 local_addr; // __u32 local_addr;
if (local_addr_obj.type == TP_NUMBER) // if (local_addr_obj.type == TP_NUMBER)
local_addr = local_addr_obj.number.val; // local_addr = local_addr_obj.number.val;
else if (local_addr_obj.type == TP_STRING) // else if (local_addr_obj.type == TP_STRING)
inet_pton(tp, (const char *)local_addr_obj.string.val, local_addr_obj.string.len, &local_addr); // inet_pton(tp, (const char *)local_addr_obj.string.val, local_addr_obj.string.len, &local_addr);
tp_set(tp, self, tp_string("local_addr"), tp_number(local_addr)); // tp_set(tp, self, tp_string("local_addr"), tp_number(local_addr));
tp_set(tp, self, tp_string("local_port"), tp_number(local_port)); // tp_set(tp, self, tp_string("local_port"), tp_number(local_port));
return tp_None; return tp_None;
} }
@ -185,30 +189,30 @@ tp_obj kolibri_bind(TP)
*/ */
tp_obj kolibri_connect(TP) tp_obj kolibri_connect(TP)
{ {
tp_obj self = TP_TYPE(TP_DICT); // tp_obj self = TP_TYPE(TP_DICT);
tp_obj remote_addr_obj = TP_OBJ(); // tp_obj remote_addr_obj = TP_OBJ();
__u32 remote_addr; // __u32 remote_addr;
__u32 remote_port = (__u32)TP_TYPE(TP_NUMBER).number.val; // __u32 remote_port = (__u32)TP_TYPE(TP_NUMBER).number.val;
__u32 local_port = tp_get(tp, self, tp_string("local_port")).number.val; // __u32 local_port = tp_get(tp, self, tp_string("local_port")).number.val;
__u32 socktype = (__u32)tp_get(tp, self, tp_string("type")).number.val; // __u32 socktype = (__u32)tp_get(tp, self, tp_string("type")).number.val;
int s = -1; /* Socket descriptor */ // int s = -1; /* Socket descriptor */
if (remote_addr_obj.type == TP_NUMBER) // if (remote_addr_obj.type == TP_NUMBER)
remote_addr = remote_addr_obj.number.val; // remote_addr = remote_addr_obj.number.val;
else if (remote_addr_obj.type == TP_STRING) // else if (remote_addr_obj.type == TP_STRING)
inet_pton(tp, (const char *)remote_addr_obj.string.val, remote_addr_obj.string.len, &remote_addr); // inet_pton(tp, (const char *)remote_addr_obj.string.val, remote_addr_obj.string.len, &remote_addr);
if (socktype == SOCK_STREAM) // if (socktype == SOCK_STREAM)
s = __menuet__open_TCP_socket(local_port, remote_port, remote_addr, 1); // s = __menuet__open_TCP_socket(local_port, remote_port, remote_addr, 1);
else if (socktype == SOCK_DGRAM) // else if (socktype == SOCK_DGRAM)
s = __menuet__open_UDP_socket(local_port, remote_port, remote_addr); // s = __menuet__open_UDP_socket(local_port, remote_port, remote_addr);
if (s >= 0) // if (s >= 0)
{ // {
tp_set(tp, self, tp_string("socket"), tp_number(s)); // tp_set(tp, self, tp_string("socket"), tp_number(s));
return tp_True; // return tp_True;
} // }
else // else
return tp_False; return tp_False;
} }
@ -219,28 +223,28 @@ tp_obj kolibri_connect(TP)
*/ */
tp_obj kolibri_listen(TP) tp_obj kolibri_listen(TP)
{ {
tp_obj self = TP_TYPE(TP_DICT); // tp_obj self = TP_TYPE(TP_DICT);
tp_obj remote_addr_obj = TP_OBJ(); // tp_obj remote_addr_obj = TP_OBJ();
__u32 remote_addr; // __u32 remote_addr;
__u32 remote_port = (__u32)TP_TYPE(TP_NUMBER).number.val; // __u32 remote_port = (__u32)TP_TYPE(TP_NUMBER).number.val;
__u32 local_port = tp_get(tp, self, tp_string("local_port")).number.val; // __u32 local_port = tp_get(tp, self, tp_string("local_port")).number.val;
__u32 socktype = (__u32)tp_get(tp, self, tp_string("type")).number.val; // __u32 socktype = (__u32)tp_get(tp, self, tp_string("type")).number.val;
int s = -1; /* Socket descriptor */ // int s = -1; /* Socket descriptor */
if (socktype != SOCK_STREAM) // if (socktype != SOCK_STREAM)
tp_raise(tp_None, "IOError: attempt to listen on non-TCP socket", tp_None); // tp_raise(tp_None, "IOError: attempt to listen on non-TCP socket", tp_None);
if (remote_addr_obj.type == TP_NUMBER) // if (remote_addr_obj.type == TP_NUMBER)
remote_addr = remote_addr_obj.number.val; // remote_addr = remote_addr_obj.number.val;
else if (remote_addr_obj.type == TP_STRING) // else if (remote_addr_obj.type == TP_STRING)
inet_pton(tp, (const char *)remote_addr_obj.string.val, remote_addr_obj.string.len, &remote_addr); // inet_pton(tp, (const char *)remote_addr_obj.string.val, remote_addr_obj.string.len, &remote_addr);
if ((s = __menuet__open_TCP_socket(local_port, remote_port, remote_addr, 0)) >= 0) // if ((s = __menuet__open_TCP_socket(local_port, remote_port, remote_addr, 0)) >= 0)
{ // {
tp_set(tp, self, tp_string("socket"), tp_number(s)); // tp_set(tp, self, tp_string("socket"), tp_number(s));
return tp_True; // return tp_True;
} // }
else // else
return tp_False; return tp_False;
} }
@ -259,20 +263,20 @@ tp_obj kolibri_socket(TP)
tp_obj sockfamily = TP_TYPE(TP_NUMBER); tp_obj sockfamily = TP_TYPE(TP_NUMBER);
tp_obj socktype = TP_TYPE(TP_NUMBER); tp_obj socktype = TP_TYPE(TP_NUMBER);
if (fabs(sockfamily.number.val - AF_INET) > PRECISION || // if (fabs(sockfamily.number.val - AF_INET) > PRECISION ||
(fabs(socktype.number.val - SOCK_STREAM) > PRECISION && // (fabs(socktype.number.val - SOCK_STREAM) > PRECISION &&
fabs(socktype.number.val - SOCK_DGRAM) > PRECISION)) // fabs(socktype.number.val - SOCK_DGRAM) > PRECISION))
return tp_None; // return tp_None;
s = tp_dict(tp); s = tp_dict(tp);
tp_set(tp, s, tp_string("family"), sockfamily); // tp_set(tp, s, tp_string("family"), sockfamily);
tp_set(tp, s, tp_string("type"), socktype); // tp_set(tp, s, tp_string("type"), socktype);
tp_set(tp, s, tp_string("bind"), tp_method(tp, s, kolibri_bind)); // tp_set(tp, s, tp_string("bind"), tp_method(tp, s, kolibri_bind));
tp_set(tp, s, tp_string("connect"), tp_method(tp, s, kolibri_connect)); // tp_set(tp, s, tp_string("connect"), tp_method(tp, s, kolibri_connect));
tp_set(tp, s, tp_string("send"), tp_method(tp, s, kolibri_send)); // tp_set(tp, s, tp_string("send"), tp_method(tp, s, kolibri_send));
tp_set(tp, s, tp_string("recv"), tp_method(tp, s, kolibri_recv)); // tp_set(tp, s, tp_string("recv"), tp_method(tp, s, kolibri_recv));
tp_set(tp, s, tp_string("close"), tp_method(tp, s, kolibri_close_socket)); // tp_set(tp, s, tp_string("close"), tp_method(tp, s, kolibri_close_socket));
if (fabs(socktype.number.val - SOCK_STREAM) < PRECISION) // if (fabs(socktype.number.val - SOCK_STREAM) < PRECISION)
tp_set(tp, s, tp_string("listen"), tp_method(tp, s, kolibri_listen)); // tp_set(tp, s, tp_string("listen"), tp_method(tp, s, kolibri_listen));
return s; return s;
} }
@ -280,9 +284,12 @@ tp_obj kolibri_socket_module(TP)
{ {
tp_obj socket_mod = tp_dict(tp); tp_obj socket_mod = tp_dict(tp);
tp_set(tp, socket_mod, tp_string("AF_INET"), tp_number(AF_INET)); // tp_set(tp, socket_mod, tp_string("AF_INET"), tp_number(AF_INET));
tp_set(tp, socket_mod, tp_string("SOCK_STREAM"), tp_number(SOCK_STREAM)); // tp_set(tp, socket_mod, tp_string("SOCK_STREAM"), tp_number(SOCK_STREAM));
tp_set(tp, socket_mod, tp_string("SOCK_DGRAM"), tp_number(SOCK_DGRAM)); // tp_set(tp, socket_mod, tp_string("SOCK_DGRAM"), tp_number(SOCK_DGRAM));
tp_set(tp, socket_mod, tp_string("AF_INET"), tp_number(0));
tp_set(tp, socket_mod, tp_string("SOCK_STREAM"), tp_number(0));
tp_set(tp, socket_mod, tp_string("SOCK_DGRAM"), tp_number(0));
tp_set(tp, socket_mod, tp_string("inet_pton"), tp_fnc(tp, kolibri_inet_pton)); tp_set(tp, socket_mod, tp_string("inet_pton"), tp_fnc(tp, kolibri_inet_pton));
tp_set(tp, socket_mod, tp_string("socket"), tp_fnc(tp, kolibri_socket)); tp_set(tp, socket_mod, tp_string("socket"), tp_fnc(tp, kolibri_socket));
return socket_mod; return socket_mod;

5
programs/develop/tinypy/tinypy/tpmain.c
View File

@ -1,11 +1,12 @@
#include "tp.c" #include "tp.c"
/* INCLUDE */ /* INCLUDE */
const char header[]="TinyPy for kolibriOS"; const char header[]="TinyPy for kolibriOS";
extern _stdcall void kolibri_dbg_init(tp_vm *tp);
extern void (*kolibri_dbg_init)(tp_vm *tp) __attribute__((__stdcall__));
void main(int argc, const char *argv[]) { void main(int argc, const char *argv[]) {
tp_vm *tp = tp_init(argc, argv); tp_vm *tp = tp_init(argc, argv);
kolibri_dbg_init(tp); // kolibri_dbg_init(tp);
kolibri_init(tp); kolibri_init(tp);
CONSOLE_INIT(header); CONSOLE_INIT(header);
/* INIT */ /* INIT */