+#ifdef __APPLE__
+#include <IOKit/IOKitLib.h>
+#include <IOKit/serial/IOSerialKeys.h>
+#include <sys/syslimits.h>
+#endif
+#ifdef __linux__
+#include "libudev.h"
+#include "linux/serial.h"
+#endif
+
+#include "libserialport.h"
+
+struct port_data {
+#ifdef _WIN32
+ DCB dcb;
+#else
+ struct termios term;
+ int controlbits;
+#endif
+};
+
+/* Standard baud rates. */
+#ifdef _WIN32
+#define BAUD_TYPE DWORD
+#define BAUD(n) {CBR_##n, n}
+#else
+#define BAUD_TYPE speed_t
+#define BAUD(n) {B##n, n}
+#endif
+
+struct std_baudrate {
+ BAUD_TYPE index;
+ int value;
+};
+
+const struct std_baudrate std_baudrates[] = {
+#ifdef _WIN32
+ /*
+ * The baudrates 50/75/134/150/200/1800/230400/460800 do not seem to
+ * have documented CBR_* macros.
+ */
+ BAUD(110), BAUD(300), BAUD(600), BAUD(1200), BAUD(2400), BAUD(4800),
+ BAUD(9600), BAUD(14400), BAUD(19200), BAUD(38400), BAUD(57600),
+ BAUD(115200), BAUD(128000), BAUD(256000)
+#else
+ BAUD(50), BAUD(75), BAUD(110), BAUD(134), BAUD(150), BAUD(200), BAUD(300),
+ BAUD(600), BAUD(1200), BAUD(1800), BAUD(2400), BAUD(4800), BAUD(9600),
+ BAUD(19200), BAUD(38400), BAUD(57600), BAUD(115200), BAUD(230400),
+#if !defined(__APPLE__) && !defined(__OpenBSD__)
+ BAUD(460800)
+#endif
+#endif
+};
+
+#define ARRAY_SIZE(x) (sizeof(x) / sizeof(x[0]))
+#define NUM_STD_BAUDRATES ARRAY_SIZE(std_baudrates)
+
+/* Helper functions. */
+static enum sp_return validate_port(struct sp_port *port);
+static struct sp_port **list_append(struct sp_port **list, const char *portname);
+static enum sp_return get_config(struct sp_port *port, struct port_data *data,
+ struct sp_port_config *config);
+static enum sp_return set_config(struct sp_port *port, struct port_data *data,
+ const struct sp_port_config *config);
+
+enum sp_return sp_get_port_by_name(const char *portname, struct sp_port **port_ptr)
+{
+ struct sp_port *port;
+ int len;
+
+ if (!port_ptr)
+ return SP_ERR_ARG;
+
+ *port_ptr = NULL;
+
+ if (!portname)
+ return SP_ERR_ARG;
+
+ if (!(port = malloc(sizeof(struct sp_port))))
+ return SP_ERR_MEM;
+
+ len = strlen(portname) + 1;
+
+ if (!(port->name = malloc(len)))
+ {
+ free(port);
+ return SP_ERR_MEM;
+ }
+
+ memcpy(port->name, portname, len);
+
+#ifdef _WIN32
+ port->hdl = INVALID_HANDLE_VALUE;
+#else
+ port->fd = -1;
+#endif
+
+ *port_ptr = port;
+
+ return SP_OK;
+}
+
+enum sp_return sp_copy_port(const struct sp_port *port, struct sp_port **copy_ptr)
+{
+ if (!copy_ptr)
+ return SP_ERR_ARG;
+
+ *copy_ptr = NULL;
+
+ if (!port || !port->name)
+ return SP_ERR_ARG;
+
+ return sp_get_port_by_name(port->name, copy_ptr);
+}
+
+void sp_free_port(struct sp_port *port)
+{
+ if (!port)
+ return;
+
+ if (port->name)
+ free(port->name);
+
+ free(port);
+}
+
+static struct sp_port **list_append(struct sp_port **list, const char *portname)
+{
+ void *tmp;
+ unsigned int count;
+
+ for (count = 0; list[count]; count++);
+ if (!(tmp = realloc(list, sizeof(struct sp_port *) * (count + 2))))
+ goto fail;
+ list = tmp;
+ if (sp_get_port_by_name(portname, &list[count]) != SP_OK)
+ goto fail;
+ list[count + 1] = NULL;
+ return list;
+
+fail:
+ sp_free_port_list(list);
+ return NULL;
+}
+
+enum sp_return sp_list_ports(struct sp_port ***list_ptr)
+{
+ struct sp_port **list;
+ int ret = SP_OK;
+
+ if (!(list = malloc(sizeof(struct sp_port **))))
+ return SP_ERR_MEM;
+
+ list[0] = NULL;
+
+#ifdef _WIN32
+ HKEY key;
+ TCHAR *value, *data;
+ DWORD max_value_len, max_data_size, max_data_len;
+ DWORD value_len, data_size, data_len;
+ DWORD type, index = 0;
+ char *name;
+ int name_len;
+
+ if (RegOpenKeyEx(HKEY_LOCAL_MACHINE, _T("HARDWARE\\DEVICEMAP\\SERIALCOMM"),
+ 0, KEY_QUERY_VALUE, &key) != ERROR_SUCCESS)
+ {
+ ret = SP_ERR_FAIL;
+ goto out_done;
+ }
+ if (RegQueryInfoKey(key, NULL, NULL, NULL, NULL, NULL, NULL, NULL,
+ &max_value_len, &max_data_size, NULL, NULL) != ERROR_SUCCESS)
+ {
+ ret = SP_ERR_FAIL;
+ goto out_close;
+ }
+ max_data_len = max_data_size / sizeof(TCHAR);
+ if (!(value = malloc((max_value_len + 1) * sizeof(TCHAR))))
+ {
+ ret = SP_ERR_MEM;
+ goto out_close;
+ }
+ if (!(data = malloc((max_data_len + 1) * sizeof(TCHAR))))
+ {
+ ret = SP_ERR_MEM;
+ goto out_free_value;
+ }
+ while (
+ value_len = max_value_len + 1,
+ data_size = max_data_size,
+ RegEnumValue(key, index, value, &value_len,
+ NULL, &type, (LPBYTE)data, &data_size) == ERROR_SUCCESS)
+ {
+ data_len = data_size / sizeof(TCHAR);
+ data[data_len] = '\0';
+#ifdef UNICODE
+ name_len = WideCharToMultiByte(CP_ACP, 0, data, -1, NULL, 0, NULL, NULL)
+#else
+ name_len = data_len + 1;
+#endif
+ if (!(name = malloc(name_len)))
+ {
+ ret = SP_ERR_MEM;
+ goto out;
+ }
+#ifdef UNICODE
+ WideCharToMultiByte(CP_ACP, 0, data, -1, name, name_len, NULL, NULL);
+#else
+ strcpy(name, data);
+#endif
+ if (type == REG_SZ && !(list = list_append(list, name)))
+ {
+ ret = SP_ERR_MEM;
+ goto out;
+ }
+ index++;
+ }
+out:
+ free(data);
+out_free_value:
+ free(value);
+out_close:
+ RegCloseKey(key);
+out_done:
+#endif
+#ifdef __APPLE__
+ mach_port_t master;
+ CFMutableDictionaryRef classes;
+ io_iterator_t iter;
+ char *path;
+ io_object_t port;
+ CFTypeRef cf_path;
+ Boolean result;
+
+ if (IOMasterPort(MACH_PORT_NULL, &master) != KERN_SUCCESS)
+ {
+ ret = SP_ERR_FAIL;
+ goto out_done;
+ }
+
+ if (!(classes = IOServiceMatching(kIOSerialBSDServiceValue)))
+ {
+ ret = SP_ERR_FAIL;
+ goto out_done;
+ }
+
+ CFDictionarySetValue(classes,
+ CFSTR(kIOSerialBSDTypeKey), CFSTR(kIOSerialBSDAllTypes));
+
+ if (IOServiceGetMatchingServices(master, classes, &iter) != KERN_SUCCESS)
+ {
+ ret = SP_ERR_FAIL;
+ goto out_done;
+ }
+
+ if (!(path = malloc(PATH_MAX)))
+ {
+ ret = SP_ERR_MEM;
+ goto out_release;
+ }
+
+ while ((port = IOIteratorNext(iter))) {
+ cf_path = IORegistryEntryCreateCFProperty(port,
+ CFSTR(kIOCalloutDeviceKey), kCFAllocatorDefault, 0);
+ if (cf_path) {
+ result = CFStringGetCString(cf_path,
+ path, PATH_MAX, kCFStringEncodingASCII);
+ CFRelease(cf_path);
+ if (result && !(list = list_append(list, path)))
+ {
+ ret = SP_ERR_MEM;
+ IOObjectRelease(port);
+ goto out;
+ }
+ }
+ IOObjectRelease(port);
+ }
+out:
+ free(path);
+out_release:
+ IOObjectRelease(iter);
+out_done:
+#endif
+#ifdef __linux__
+ struct udev *ud;
+ struct udev_enumerate *ud_enumerate;
+ struct udev_list_entry *ud_list;
+ struct udev_list_entry *ud_entry;
+ const char *path;
+ struct udev_device *ud_dev, *ud_parent;
+ const char *name;
+ const char *driver;
+ int fd, ioctl_result;
+ struct serial_struct serial_info;
+
+ ud = udev_new();
+ ud_enumerate = udev_enumerate_new(ud);
+ udev_enumerate_add_match_subsystem(ud_enumerate, "tty");
+ udev_enumerate_scan_devices(ud_enumerate);
+ ud_list = udev_enumerate_get_list_entry(ud_enumerate);
+ udev_list_entry_foreach(ud_entry, ud_list)
+ {
+ path = udev_list_entry_get_name(ud_entry);
+ ud_dev = udev_device_new_from_syspath(ud, path);
+ /* If there is no parent device, this is a virtual tty. */
+ ud_parent = udev_device_get_parent(ud_dev);
+ if (ud_parent == NULL)
+ {
+ udev_device_unref(ud_dev);
+ continue;
+ }
+ name = udev_device_get_devnode(ud_dev);
+ /* The serial8250 driver has a hardcoded number of ports.
+ * The only way to tell which actually exist on a given system
+ * is to try to open them and make an ioctl call. */
+ driver = udev_device_get_driver(ud_parent);
+ if (driver && !strcmp(driver, "serial8250"))
+ {
+ if ((fd = open(name, O_RDWR | O_NONBLOCK | O_NOCTTY)) < 0)
+ goto skip;
+ ioctl_result = ioctl(fd, TIOCGSERIAL, &serial_info);
+ close(fd);
+ if (ioctl_result != 0)
+ goto skip;
+ if (serial_info.type == PORT_UNKNOWN)
+ goto skip;
+ }
+ list = list_append(list, name);
+skip:
+ udev_device_unref(ud_dev);
+ if (!list)
+ {
+ ret = SP_ERR_MEM;
+ goto out;
+ }
+ }
+out:
+ udev_enumerate_unref(ud_enumerate);
+ udev_unref(ud);
+#endif
+
+ if (ret == SP_OK)
+ {
+ *list_ptr = list;
+ }
+ else
+ {
+ if (list)
+ sp_free_port_list(list);
+
+ *list_ptr = NULL;
+ }
+
+ return ret;
+}