From d9d92203ea349d5eb44c0edc5565d827322caabe Mon Sep 17 00:00:00 2001
From: Jorawar Singh
Date: Sun, 16 Jul 2017 22:17:43 +0530
Subject: Toolbox merge, RPI demos and structured demos

---
 macros/Hardware/RasberryPi/Setup/RPI_pinMode.sci | 60 ++++++++++++++++++++++++
 1 file changed, 60 insertions(+)
 create mode 100755 macros/Hardware/RasberryPi/Setup/RPI_pinMode.sci

(limited to 'macros/Hardware/RasberryPi/Setup/RPI_pinMode.sci')

diff --git a/macros/Hardware/RasberryPi/Setup/RPI_pinMode.sci b/macros/Hardware/RasberryPi/Setup/RPI_pinMode.sci
new file mode 100755
index 00000000..b6f52e61
--- /dev/null
+++ b/macros/Hardware/RasberryPi/Setup/RPI_pinMode.sci
@@ -0,0 +1,60 @@
+// 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 RPI_pinMode(pin,Mode)
+// Function to set the mode of the given pin.
+//
+// Calling Sequence
+//  RPI_pinMode(pin,Mode)
+//
+// Parameters
+//  pin : The pin number to act on. Numbering sequence to be followed as initiated using RPI_pinNumbering function.
+//  Mode: The mode in which to set the pin.
+//
+// Description
+//  This function configures the Raspberry Pi's given pin to work as the given mode (input/output/pwm/clock). Not all functions are available to all the pins.
+//
+//  Mode can take the following values-
+//  <itemizedlist>
+//  <listitem><para>'in'    -> sets the pin as input</para></listitem>
+//  <listitem><para>'out'   -> sets the pin as output</para></listitem>
+//  <listitem><para>'pwm'   -> sets the pin to PWM output. Only wiringPi pin 1 (BCM_GPIO pin 18) supports this function.</para></listitem>
+//  <listitem><para>'clock' -> sets the pin to CLOCK output. Only wiringPi pin 7 (BCM_GPIO pin 4) supports this function.</para></listitem>
+//  </itemizedlist>
+//
+// Examples
+//  RPI_pinMode(0,'out')
+// See also
+//  RPI_pinNumbering
+//
+// Authors
+//  Jorawar Singh
+//
+// Bibliography
+//  http://wiringpi.com/reference/
+
+    if Mode=='in' then
+        commande="pnM#2#"+string(pin)+"#0#";
+    elseif  Mode=='out' then
+        commande="pnM#2#"+string(pin)+"#1#";
+    elseif  Mode=='pwm' then
+        commande="pnM#2#"+string(pin)+"#2#";
+    elseif  Mode=='clock' then
+        commande="pnM#2#"+string(pin)+"#3#";
+    else
+        error("Mode should be one of ""in/out/pwm/clock/soft_pwm/soft_tone/pwm_tone"".");
+    end
+    if getos=="Linux" then
+        unix_w("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
+        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
-- 
cgit