1 files changed, 41 insertions, 0 deletions
diff --git a/2.3-1/macros/Hardware/RasberryPi/Serial/RPI_serialPutchar.sci b/2.3-1/macros/Hardware/RasberryPi/Serial/RPI_serialPutchar.sci
new file mode 100755
index 00000000..ceea556c
--- /dev/null
+++ b/2.3-1/macros/Hardware/RasberryPi/Serial/RPI_serialPutchar.sci
@@ -0,0 +1,41 @@
+// Copyright (C) 2017 - IIT Bombay - FOSSEE
+//
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+// Organization: FOSSEE, IIT Bombay
+// Email: toolbox@scilab.in
+
+function out=RPI_serialPutchar(fd,character)
+// Function to send a single byte to the serial device
+//
+// Calling Sequence
+//  RPI_serialPutchar(fd,character)
+//
+// Parameters
+//  fd       : file-descriptor obtained from RPI_serialOpen function  
+//  character: character to send to the serial device
+//
+// Description
+//  This function sends the single byte to the serial device identified by the given file descriptor.
+//
+// Examples
+//  RPI_serialPutchar(113,'s')
+// See also
+//  RPI_serialOpen, RPI_serialClose, RPI_serialFlush, RPI_serialPuts, RPI_serialPrintf, RPI_serialDataAvail, RPI_serialGetchar
+//
+// Authors
+//  Jorawar Singh
+//
+// Bibliography
+//  http://wiringpi.com/reference/
+
+    commande="sPc#2#"+string(fd)+"#"+string(character)+"#";
+    if getos()=="Linux" then
+        out=unix_g("python -c ""import socket;s=socket.socket();s.connect((''"+RPI_piAdress+"'',9077));s.send(''"+commande+"'');print(s.recv(1024));s.close()""");
+    elseif getos()=="Windows" then
+        [out,RPI_winR]=dos("python -c ""import socket;s=socket.socket();s.connect((''"+RPI_piAdress+"'',9077));s.send(''"+commande+"'');print(s.recv(1024));s.close()""");
+    end
+endfunction