*/
WindowsPSProperties = ["DeviceID", "Description", "MaxBaudRate", "ProviderType"];
WindowsComExp = "/(COM[1-9]\d*)[^.]+?Baud.+?([1-9]\d*)[^.]+?Parity.+?(\w+)[^.]+?Data Bits.+?(\d)[^.]+?Stop Bits.+?(1|1\.5|2)[^.]+?Timeout.+?(ON|OFF)[^.]+?XON\/XOFF.+?(ON|OFF)[^.]+?CTS handshaking.+?(ON|OFF)[^.]+?DSR handshaking.+?(ON|OFF)[^.]+?DSR sensitivity.+?(ON|OFF)[^.]+?DTR circuit.+?(ON|OFF)[^.]+?RTS circuit.+?(ON|OFF)/"; // this is to extract information from cmd mode command

    global DefinedPorts;
    global OpenPorts;
    global AvailablePorts;

    if ~exists("Verbose","local") then
        Verbose = %f;
    end

    if type(Verbose) ~= 4 then
        error("The Verbose must be Boolean type %t or %f");
    end

    if ~exists("PortList","local") then
        PortList = "available";
    end

    if isempty(find(PortLists == PortList)) then
        error("Supported options for PortList are: " + strcat(PortLists, ", "));
    end

    if PortList == "defined" then
        SerialList = return(DefinedPorts(2:$)');
    end

    if PortList == "open" then
        SerialList = return(OpenPorts(2:$, 1)');
    end

    [OS, Version] = getos();

    if OS == "Windows" then
        if PortList == "all" then
            if Verbose == %f then
                //                SerialList = powershell("[System.IO.Ports.SerialPort]::getportnames()")'; //--> This solution considers the ports opned by powershell as available while there are in fact opened internally as explained [here](https://superuser.com/questions/1412117/list-all-the-serial-ports-available-and-busy-on-any-of-windows-terminals)
                if getinterpreter() == "scilab" then
                    [output, bOK] = powershell("Get-WMIObject Win32_SerialPort | Select-Object DeviceID");
                    [start, final, match, foundString] = regexp(strcat(output), '/(COM\d+)/');
                    SerialList = foundString';
                else
                    outputString = unix_g("cmd /V:ON /C '"set '"var='" & (For /F '"tokens=1 Delims= '" %s In (''WMIC Path Win32_SerialPort Get DeviceID^|FindStr '"COM[0-9]*'"'') do @IF DEFINED var (@set '"var=!var!,%s'") else (set '"var=%s'")) & @echo !var!'""); //"
                    SerialList = tokens(outputString, [",", " "])';
                    return;
                end
            else
                if getinterpreter() == "scilab" then
                    SerialList = powershell(" Get-WMIObject Win32_SerialPort | Select-Object DeviceID, Description, MaxBaudRate, ProviderType")(2:$-2);
                else
                    SerialList = unix_g("WMIC Path Win32_SerialPort Get DeviceID, Description, MaxBaudRate, ProviderType"); // cmd / batch alternative
                    return;
                end
            end
        elseif PortList == "available" then
            if Verbose == %f then
                if getinterpreter() == "scilab" then
                    [rep, stat] = dos("mode");
                    //[rep, stat] = unix_g("mode"); //unix_g, unix, host are scicoslab compatible
                    [start, final, match, foundString] = regexp(strcat(rep), '/(COM\d+)/'); // using strindex instead of regexp to make it ScosLab compatible
                    SerialList = foundString';
                else
                    outputString = unix_g("cmd /V:ON /C '"set '"var='" & (For /F '"tokens=4 Delims=: '" %s In (''Mode^|FindStr '"COM[0-9]*'"'') do @IF DEFINED var (@set '"var=!var!,%s'") else (set '"var=%s'")) & @echo !var!'""); //"
                    SerialList = tokens(outputString, [",", " "])';
                    return;
                end
            else
                if getinterpreter() == "scilab" then
                    [rep, stat] = dos("mode");
                    [start, final, match, foundString] = regexp(strcat(rep), WindowsComExp);
                    SerialList = cat(1, WindowsComProperties, foundString);
                    return;
                else
                    [rep, stat] = unix_g("mode");
                    [start, final, match, foundString] = regexp(strcat(rep), WindowsComExp);
                    SerialList = cat(1, WindowsComProperties, foundString);
                    return;
                end
            end
        end
    elseif OS == "Darwin" then
        if PortList == "all" then
            if Verbose == %f then
                SerialList = unix_g("ls /dev/{tty,cu}.* | grep tty | sed -n -E "'s/\/dev\/tty\.(.+)/\1/p"'")' //"
            end
        end
        // error("this feature has not been implemented for this operating system yet");
    else
        error("this feature has not been implemented for this operating system yet");
        //    elseif getos() == "Linux" then
        //    elseif  then
        //        [rep, stat] = unix_g("dmesg | grep tty");
        //        [rep, stat] = unix_g("ls /dev/ttyACM*"); // alternatively
        //        setserial -bg /dev/ttyS*
        //        stty
    end
endfunction
/*

*/
    Result = isvalidserialobject(SerialPort, Behaviour = "warning");
    SerialName = "";
    ResultSerialPort = SerialPort;
    if Result == %f then
        return;
    end

    //    if typeof(SerialPort) ~= "st" then
    //        error("The SerialPort input must be a SerialObject")
    //    end

    global OpenPorts;

    if ~exists("Access","local") then
        Access = "r+";
    end

    if isempty(find(AccessArguments == Access)) then
        error(string(Access) + " is not a valid access argument. Available values are: " + strcat(AccessArguments, ", "));
    end

    if typeof(SerialPort) == "st" then
        Port = SerialPort.Port;
        //    elseif typeof(SerialPort) == "string" then
    else
        error("This feature is not implemented yet. The sopen SerialPort must be a serial port structure made through serial function.");
        //        Port = SerialPort;
    end

    //    try

    if ~exists("Reopen","local") then
        Reopen = %f;
    end

    if isportopen(SerialPort)  then
        if Reopen == %f then
            warning("The port " + Port + " is already open");
            SerialName = getserialname(Port);
            ResultSerialPort.SerialName = SerialName;
            Result = %f;
            return;
        else
            sclose(SerialPort);
            [Result, SerialName, ResultSerialPort]= sopen(SerialPort, Access);
            return;
        end
    end



    if ~isportdefined(SerialPort) then
        //            warning("The port is not defined. I will attemt to make one with the default properties");
        //            SerialPort = serial(Port);
        warning("The port " + Port + " is not defined. Defined Ports are: " + strcat(DefinedPorts, ", "));
        Result = %f;
        return;
    end



    if ~isportavailable(SerialPort) then
        warning("The port " + string(Port) + " is not available. Available ports are: " + strcat(slist(), ", "));
        Result = %f;
        return;
    end

    Digits = ["0", "1", "2", "3", "4", "5", "6", "7", "8", "9"];

    if getos() == "Windows" then
        // if strtod(part(Port, $)) < 10 then
        // if size(str2code(part(Port, 4:length(Port)))) == [1, 1] then
        if ~isempty(find(part(Port, 4:length(Port)) == Digits)) then
            SerialName = TCL_EvalStr("set " + "Serial_" + Port +" [open " + Port + " " + Access + "]");
        else
            SerialName = TCL_EvalStr("set " + "Serial_" + Port +" [open " + "\\\\.\\" + Port + " " + Access + "]");
        end
    else
        error("this feature has not been implemented for this operating system yet");
    end



    //        SerialName = TCL_GetVar("Serial-" + Port);
    //        SerialPort.SerialName = SerialName;
    ResultSerialPort.SerialName = SerialName;
    OpenPorts = cat(1, OpenPorts, [Port, SerialName]);
    ////        SerialPort.SerialName = SerialName;
    Result(1) = TCL_EvalStr("fconfigure " + SerialName + " -mode " + string(SerialPort.BaudRate) + "," + part(SerialPort.Parity, 1) + "," + string(SerialPort.DataBits) + "," + string(SerialPort.StopBits)) == "";


    Result(2) = TCL_EvalStr("fconfigure " + SerialName + " -translation " + SerialPort.Terminator) == "";
    Result(3) = TCL_EvalStr("fconfigure " + SerialName + " -blocking 0") == ""; // this one has to do with sync and async I think
    Result(4) = TCL_EvalStr("fconfigure " + SerialName + " -timeout " + string(SerialPort.TimeOut * 100)) == "";

    if getos() == "Windows" then
        Result(5) = TCL_EvalStr("fconfigure " + SerialName + " -sysbuffer " + "{" + string(SerialPort.InputBufferSize) + " " + string(SerialPort.OutputBufferSize) + "}") == "";
    else
        Result(5) = TCL_EvalStr("fconfigure " + SerialName + " -sysbuffer " + string(SerialPort.InputBufferSize)) == "";
    end




    select SerialPort.FlowControl
    case "hardware" then
        if getos() == "Windows" then
            handshake = "dtrdsr";
        else
            handshake = "rtscts";
        end
    case "software" then
        handshake = "xonxoff";
    else
        handshake = "none";
    end
    Result(6) = TCL_EvalStr("fconfigure " + SerialName + " -handshake " + handshake) == "";

    //    catch
    //        error("Failed opening port. The SerialPort input must be a SerialObject");
    ////        sclose(SerialPort);
    //        TCL_EvalStr("set closeresult [catch {close " + SerialName + "}]");
    //    end
    Result = Result(1) & Result(2) & Result(3) & Result(4) & Result(5) & Result(6);
    if Result == %f then
        sclose(Port);
        wanting("Opening was not sucessful!")
        return;
    end
endfunction
/*

*/
s7 = sdefine(Port = "COM7", BaudRate = 9600, Parity = 'none', DataBits = 8, StopBits = 1, OverWrite = %t); // Assuming COM7 is the port you got from above command
sopen(SerialPort = s7, Access = 'r');



pData = [];
pTime = [];
nData = csvTextScan(part(sget(s7), 1:$-1), ',');
pData = [pData, nData(2)];
pTime = [pTime, nData(1)];
plot(pTime, pData);

while %t
    drawlater();
    nData = csvTextScan(part(sget(s7), 1:$-1), ',');
    pData = [pData, nData(2)];
    pTime = [pTime, nData(1)];
    clf();
    plot(pTime, pData);
    drawnow();
    sleep(1000);
end



sclose(s7);
sdelete(s7);

/*