FEAT: including optional support for serial device as was used in the Atronix's branch

Author: Oldes

make/rebol3.nest

@@ -159,7 +159,7 @@ core-files: [
 	%core/p-file.c
 	%core/p-net.c
 ;	%core/p-midi.c          ;optional, use: include-midi
-;	%core/p-serial.c        ;not implemented
+;	%core/p-serial.c        ;optional, use: include-serial
 ;	%core/p-timer.c         ;not implemented
 	%core/s-cases.c
 	%core/s-crc.c
@@ -485,6 +485,18 @@ include-midi: [
 		; there is no support yet
 	]
 ]
+include-serial: [
+	#if (find [windows linux] system/platform) [
+		core-files: %core/p-serial.c
+		config:     INCLUDE_SERIAL_DEVICE
+	]
+	#if Windows? [
+		host-files: %os/win32/dev-serial.c
+	]
+	#if Linux? [
+		host-files: %os/posix/dev-serial.c
+	]
+]
 
 ;- native utilities:                                                            
 include-bincode:    [core-files: %core/u-bincode.c]
@@ -853,6 +865,7 @@ include-rebol-bulk: [
 	:include-base85-encoding
 	:include-view
 	:include-midi
+	:include-serial
 
 	; Extended crypto features
 	:include-cryptography-bulk

src/boot/sysobj.reb

@@ -331,6 +331,14 @@ standard: object [
 		device-out: none
 	]
 
+	port-spec-serial: make port-spec-head [
+		speed: 115200
+		data-size: 8
+		parity: none
+		stop-bits: 1
+		flow-control: none ;not supported on all systems
+	]
+
 	file-info: construct [
 		name:
 		size:

src/core/c-port.c

@@ -3,7 +3,7 @@
 **  REBOL [R3] Language Interpreter and Run-time Environment
 **
 **  Copyright 2012 REBOL Technologies
-**  Copyright 2012-2021 Rebol Open Source Developers
+**  Copyright 2012-2023 Rebol Open Source Developers
 **  REBOL is a trademark of REBOL Technologies
 **
 **  Licensed under the Apache License, Version 2.0 (the "License");
@@ -512,7 +512,7 @@ xx*/	REBINT Wait_Device(REBREQ *req, REBCNT timeout)
 **
 ***********************************************************************/
 
-#define MAX_SCHEMES 13		// max native schemes
+#define MAX_SCHEMES 14		// max native schemes
 
 typedef struct rebol_scheme_actions {
 	REBCNT sym;
@@ -639,6 +639,9 @@ SCHEME_ACTIONS *Scheme_Actions;	// Initial Global (not threaded)
 #ifdef INCLUDE_CRYPTOGRAPHY
 	Init_Crypt_Scheme();
 #endif
+#ifdef INCLUDE_SERIAL_DEVICE
+	Init_Serial_Scheme();
+#endif
 }
 
 /***********************************************************************

src/core/p-serial.c

@@ -3,6 +3,7 @@
 **  REBOL [R3] Language Interpreter and Run-time Environment
 **
 **  Copyright 2013 REBOL Technologies
+**  Copyright 2013-2023 Rebol Open Source Developers
 **  REBOL is a trademark of REBOL Technologies
 **
 **  Licensed under the Apache License, Version 2.0 (the "License");
@@ -22,7 +23,7 @@
 **  Module:  p-serial.c
 **  Summary: serial port interface
 **  Section: ports
-**  Author:  Carl Sassenrath
+**  Author:  Carl Sassenrath, Joshua Shireman, Shixin Zeng, Oldes
 **  Notes:
 **
 ***********************************************************************/
@@ -35,7 +36,7 @@
 
 /***********************************************************************
 **
-*/	static int Serial_Actor(REBVAL *ds, REBSER *port, REBCNT action)
+*/	static int Serial_Actor(REBVAL *ds, REBVAL *port_value, REBCNT action)
 /*
 ***********************************************************************/
 {
@@ -48,8 +49,9 @@
 	REBCNT len;		// generic length
 	REBSER *ser;	// simplifier
 	REBVAL *path;
+	REBSER *port;
 
-	Validate_Port(port, action);
+	port = Validate_Port_Value(port_value);
 
 	*D_RET = *D_ARG(1);
 
@@ -69,7 +71,7 @@
 		switch (action) {
 
 		case A_OPEN:
-			arg = Obj_Value(spec, STD_PORT_SPEC_SERIAL_PATH);  //Should Obj_Value really return a char* ?
+			arg = Obj_Value(spec, STD_PORT_SPEC_SERIAL_REF);  //Should Obj_Value really return a char* ?
 			if (! (IS_FILE(arg) || IS_STRING(arg) || IS_BINARY(arg))) {
 				Trap1(RE_INVALID_PORT_ARG, arg);
 			}

src/include/reb-device.h

@@ -3,6 +3,7 @@
 **  REBOL [R3] Language Interpreter and Run-time Environment
 **
 **  Copyright 2012 REBOL Technologies
+**  Copyright 2013-2023 Rebol Open Source Developers
 **  REBOL is a trademark of REBOL Technologies
 **
 **  Licensed under the Apache License, Version 2.0 (the "License");
@@ -44,6 +45,7 @@ enum {
 	RDI_CLIPBOARD,
 	RDI_MIDI,
 	RDI_CRYPT,
+	RDI_SERIAL,
 	RDI_MAX,
 	RDI_LIMIT = 32
 };
@@ -118,6 +120,21 @@ enum {
 	RDM_READ_LINE,
 };
 
+// Serial Parity
+enum {
+	SERIAL_PARITY_NONE,
+	SERIAL_PARITY_ODD,
+	SERIAL_PARITY_EVEN
+};
+
+// Serial Flow Control
+enum {
+	SERIAL_FLOW_CONTROL_NONE,
+	SERIAL_FLOW_CONTROL_HARDWARE,
+	SERIAL_FLOW_CONTROL_SOFTWARE
+};
+
+
 #pragma pack(4)
 
 // Forward references:
@@ -205,6 +222,17 @@ struct rebol_devreq {
 			u32 mode;
 			u32 value;
 		} modify;
+
+		struct {
+			REBCHR *path;			// device path string (in OS local format)
+			void *prior_attr;		// termios: retain previous settings to revert on close
+			i32 baud;				// baud rate of serial port
+			u8	data_bits;			// 5, 6, 7 or 8
+			u8	parity;				// odd, even, mark or space
+			u8	stop_bits;			// 1 or 2
+			u8	flow_control;		// hardware or software
+		} serial;
+
 	};
 };
 #pragma pack()

src/mezz/sys-ports.reb

@@ -3,6 +3,7 @@ REBOL [
 	Title: "REBOL 3 Boot Sys: Port and Scheme Functions"
 	Rights: {
 		Copyright 2012 REBOL Technologies
+		Copyright 2012-2023 Rebol Open Source Contributors
 		REBOL is a trademark of REBOL Technologies
 	}
 	License: {
@@ -504,6 +505,28 @@ init-schemes: func [
 		]
 	]
 
+	make-scheme [
+		title: "Serial Port"
+		name: 'serial
+		spec: system/standard/port-spec-serial
+		init: func [port /local path speed] [
+			if url? port/spec/ref [
+				parse port/spec/ref [
+					thru #":" 0 2 slash
+					copy path [to slash | end] skip
+					copy speed to end
+				]
+				try/except [port/spec/path: to file! path][
+					cause-error 'access 'invalid-spec :path
+				]
+				try/except [port/spec/speed: to integer! speed][
+					cause-error 'access 'invalid-spec :speed
+				]
+			]
+		]
+	]
+
+
 	system/ports/system:   open [scheme: 'system]
 	system/ports/input:
 	system/ports/output:   open [scheme: 'console]

src/os/host-device.c

@@ -3,7 +3,7 @@
 **  REBOL [R3] Language Interpreter and Run-time Environment
 **
 **  Copyright 2012 REBOL Technologies
-**  Copyright 2012-2021 Rebol Open Source Developers
+**  Copyright 2012-2023 Rebol Open Source Developers
 **  REBOL is a trademark of REBOL Technologies
 **
 **  Licensed under the Apache License, Version 2.0 (the "License");
@@ -92,6 +92,13 @@ extern REBDEV Dev_Crypt;
 #define DEVICE_PTR_CRYPT 0
 #endif
 
+#ifdef INCLUDE_SERIAL_DEVICE
+extern REBDEV Dev_Serial;
+#define DEVICE_PTR_SERIAL &Dev_Serial
+#else
+#define DEVICE_PTR_SERIAL 0
+#endif
+
 REBDEV *Devices[RDI_LIMIT] =
 {
 	0,
@@ -104,7 +111,8 @@ REBDEV *Devices[RDI_LIMIT] =
 	0,//&Dev_Checksum,
 	DEVICE_PTR_CLIPBOARD,
 	DEVICE_PTR_MIDI,
-	0 //DEVICE_PTR_CRYPT
+	0, //DEVICE_PTR_CRYPT
+	DEVICE_PTR_SERIAL,
 };
 
 

src/os/posix/dev-serial.c

@@ -3,6 +3,7 @@
 **  REBOL [R3] Language Interpreter and Run-time Environment
 **
 **  Copyright 2013 REBOL Technologies
+**  Copyright 2013-2023 Rebol Open Source Developers
 **  REBOL is a trademark of REBOL Technologies
 **
 **  Licensed under the Apache License, Version 2.0 (the "License");
@@ -20,7 +21,7 @@
 ************************************************************************
 **
 **  Title: Device: Serial port access for Posix
-**  Author: Carl Sassenrath
+**  Author: Carl Sassenrath, Joshua Shireman, Shixin Zeng
 **
 ************************************************************************
 **

src/os/win32/dev-serial.c

@@ -3,6 +3,7 @@
 **  REBOL [R3] Language Interpreter and Run-time Environment
 **
 **  Copyright 2013 REBOL Technologies
+**  Copyright 2013-2023 Rebol Open Source Developers
 **  REBOL is a trademark of REBOL Technologies
 **
 **  Licensed under the Apache License, Version 2.0 (the "License");
@@ -20,7 +21,7 @@
 ************************************************************************
 **
 **  Title: Device: Serial port access for Windows
-**  Author: Carl Sassenrath, Joshua Shireman
+**  Author: Carl Sassenrath, Joshua Shireman, Shixin Zeng
 **
 ************************************************************************
 **