Update initial source codesHEADupstream/4.3submit/trunk/20201029.132130submit/trunk/20201029.114030submit/trunk/20200409.202020submit/trunk/20200409.200220submit/trunk/20200409.194520submit/trunk/20191101.102136submit/trunk/20191030.112603submit/trunk/20191017.233826submit/trunk/20191017.111201submit/trunk/20190927.012842submit/devel/20190730.075528submit/devel/20190730.074447accepted/tools/devbase/tools/legacy/20240424.050722accepted/tools/devbase/tools/legacy/20240423.040742accepted/tools/devbase/tools/legacy/20240422.110908accepted/tizen/devbase/tools/20190927.045004release-20160930masterdevelaccepted/tools_devbase_tools_legacyaccepted/tizen_devbase_tools

Change-Id: I59bac2188ffbfe5a2ad2d9dcb33847aabfaffe44

1 files changed, 254 insertions, 0 deletions

diff --git a/example.pl b/example.pl
new file mode 100755
index 0000000..44e669f
--- /dev/null
+++ b/example.pl
@@ -0,0 +1,254 @@
+#! /usr/bin/perl -w
+
+use cleware;
+use Data::Dumper;
+
+sub device_id_to_string
+{
+	my $device_type = $_[0];
+
+        if ($device_type eq $cleware::POWER_DEVICE)
+	{
+                return "Power";
+	}
+        if ($device_type eq $cleware::WATCHDOGXP_DEVICE)
+	{
+                return "WatchdogXP";
+	}
+        if ($device_type eq $cleware::LED_DEVICE)
+	{
+                return "LED";
+	}
+        if ($device_type eq $cleware::WATCHDOG_DEVICE)
+	{
+                return "Watchdog";
+	}
+        if ($device_type eq $cleware::AUTORESET_DEVICE)
+	{
+                return "Autoreset device";
+	}
+        if ($device_type eq $cleware::SWITCH1_DEVICE)
+	{
+                return "Switch1";
+	}
+        if ($device_type eq $cleware::SWITCH2_DEVICE)
+	{
+                return "Switch2";
+	}
+        if ($device_type eq $cleware::SWITCH3_DEVICE)
+	{
+                return "Switch3";
+	}
+        if ($device_type eq $cleware::SWITCH4_DEVICE)
+	{
+                return "Switch4";
+	}
+        if ($device_type eq $cleware::SWITCH5_DEVICE)
+	{
+                return "Switch5";
+	}
+        if ($device_type eq $cleware::SWITCH6_DEVICE)
+	{
+                return "Switch6";
+	}
+        if ($device_type eq $cleware::SWITCH7_DEVICE)
+	{
+                return "Switch7";
+	}
+        if ($device_type eq $cleware::SWITCH8_DEVICE)
+	{
+                return "Switch8";
+	}
+        if ($device_type eq $cleware::SWITCHX_DEVICE)
+	{
+                return "SwitchX";
+	}
+        if ($device_type eq $cleware::TEMPERATURE_DEVICE)
+	{
+                return "Temperature sensor";
+	}
+        if ($device_type eq $cleware::TEMPERATURE2_DEVICE)
+	{
+                return "Temperature 2 sensor";
+	}
+        if ($device_type eq $cleware::TEMPERATURE5_DEVICE)
+	{
+                return "Temperature 5 sensor";
+	}
+        if ($device_type eq $cleware::HUMIDITY1_DEVICE)
+	{
+                return "Humidity sensor";
+	}
+        if ($device_type eq $cleware::CONTACT00_DEVICE)
+	{
+                return "Contact 00 device";
+	}
+        if ($device_type eq $cleware::CONTACT01_DEVICE)
+	{
+                return "Contact 01 device";
+	}
+        if ($device_type eq $cleware::CONTACT02_DEVICE)
+	{
+                return "Contact 02 device";
+	}
+        if ($device_type eq $cleware::CONTACT03_DEVICE)
+	{
+                return "Contact 03 device";
+	}
+        if ($device_type eq $cleware::CONTACT04_DEVICE)
+	{
+                return "Contact 04 device";
+	}
+        if ($device_type eq $cleware::CONTACT05_DEVICE)
+	{
+                return "Contact 05 device";
+	}
+        if ($device_type eq $cleware::CONTACT06_DEVICE)
+	{
+                return "Contact 06 device";
+	}
+        if ($device_type eq $cleware::CONTACT07_DEVICE)
+	{
+                return "Contact 07 device";
+	}
+        if ($device_type eq $cleware::CONTACT08_DEVICE)
+	{
+                return "Contact 08 device";
+	}
+        if ($device_type eq $cleware::CONTACT09_DEVICE)
+	{
+                return "Contact 09 device";
+	}
+        if ($device_type eq $cleware::CONTACT10_DEVICE)
+	{
+                return "Contact 10 device";
+	}
+        if ($device_type eq $cleware::CONTACT11_DEVICE)
+	{
+                return "Contact 11 device";
+	}
+        if ($device_type eq $cleware::CONTACT12_DEVICE)
+	{
+                return "Contact 12 device";
+	}
+        if ($device_type eq $cleware::CONTACT13_DEVICE)
+	{
+                return "Contact 13 device";
+	}
+        if ($device_type eq $cleware::CONTACT14_DEVICE)
+	{
+                return "Contact 14 device";
+	}
+        if ($device_type eq $cleware::CONTACT15_DEVICE)
+	{
+                return "Contact 15 device";
+	}
+        if ($device_type eq $cleware::ENCODER01_DEVICE)
+	{
+                return "Encoder 01 device";
+	}
+        if ($device_type eq $cleware::F4_DEVICE)
+	{
+                return "F4 device";
+	}
+        if ($device_type eq $cleware::KEYC01_DEVICE)
+	{
+                return "Keyc01 device";
+	}
+        if ($device_type eq $cleware::KEYC16_DEVICE)
+	{
+                return "Keyc16 device";
+	}
+        if ($device_type eq $cleware::ADC0800_DEVICE)
+	{
+                return "AC0800 device";
+	}
+        if ($device_type eq $cleware::ADC0801_DEVICE)
+	{
+                return "AC0801 device";
+	}
+        if ($device_type eq $cleware::ADC0802_DEVICE)
+	{
+                return "AC0802 device";
+	}
+        if ($device_type eq $cleware::ADC0803_DEVICE)
+	{
+                return "AC0803 device";
+	}
+        if ($device_type eq $cleware::COUNTER00_DEVICE)
+	{
+                return "Counter device";
+	}
+        if ($device_type eq $cleware::BUTTON_NODEVICE)
+	{
+                return "Button no device";
+	}
+
+	return "device type not recognized!"
+}
+
+$c = cleware::CUSBaccess->new();
+
+$n_devices = cleware::CUSBaccess::OpenCleware($c);
+
+print "Number of devices: $n_devices\n";
+
+my $i;
+for($i=0; $i<$n_devices; $i++)
+{
+        my $devType = cleware::CUSBaccess::GetUSBType($c, $i);
+        my $devTypeStr = device_id_to_string($devType);
+        my $version = cleware::CUSBaccess::GetVersion($c, $i);
+        my $serial = cleware::CUSBaccess::GetSerialNumber($c, $i);
+
+        print "device: $i, type: $devTypeStr ($devType), version: $version, serial number: $serial\n";
+
+        # these two are not neccessary normally for reading temperatures
+        # they're here as an example
+        # rc is 0 for failure, 1 for ok
+	my $rc;
+        $rc = cleware::CUSBaccess::ResetDevice($c, $i);
+        $rc = cleware::CUSBaccess::StartDevice($c, $i);
+
+	if ($devType eq $cleware::TEMPERATURE_DEVICE || $devType eq $cleware::TEMPERATURE2_DEVICE || $devType eq $cleware::TEMPERATURE5_DEVICE)
+	{
+		my $temperature = cleware::CUSBaccess::GetTemperatureSimple($c, $i);
+
+		print "\tcurrent temperature: $temperature\n";
+	}
+
+	if ($devType eq $cleware::HUMIDITY1_DEVICE)
+	{
+		my $humidity = cleware::CUSBaccess::GetHumiditySimple($c, $i);
+
+		print "\tcurrent humidity: $humidity\n";
+	}
+
+	# Note: the "ampel" (traffic light) is also a switch device, with actually 3 switches (one per light)
+	if ($devType eq $cleware::SWITCH1_DEVICE || $devType eq $cleware::SWITCH2_DEVICE || $devType eq $cleware::SWITCH3_DEVICE || $devType eq $cleware::SWITCH4_DEVICE || $devType eq $cleware::SWITCH5_DEVICE || $devType eq $cleware::SWITCH6_DEVICE || $devType eq $cleware::SWITCH7_DEVICE || $devType eq $cleware::SWITCH8_DEVICE || $devType eq $cleware::SWITCHX_DEVICE)
+	{
+		my $switch_nr = 0; # 0...15
+		my $state = cleware::CUSBaccess::GetSwitch($c, $i, 16 + $switch_nr);
+		print "\tswitch $switch_nr state: $state\n";
+
+		my $new_state = 1; # 0 or 1
+		$rc = cleware::CUSBaccess::SetSwitch($c, $i, 16 + $switch_nr, $new_state);
+	}
+
+	if ($devType eq $cleware::CUSBaccess::LED_DEVICE)
+	{
+		my $led = $cleware::CUSBaccess::LED_0; # 0...3
+		my $value = 10; # 0...15
+		$rc = cleware::CUSBaccess::SetLED($c, $i, $led, $value);
+	}
+
+	if ($devType eq $cleware::ADC0800_DEVICE || $devType eq $cleware::ADC0801_DEVICE || $devType eq $cleware::ADC0802_DEVICE || $devType eq $cleware::ADC0803_DEVICE)
+	{
+		my $channel = 1; # 0 or 1
+		$rc = cleware::CUSBaccess::SelectADCChannel($c, $i, $channel);
+
+		my $scale = 0; # 0...2 for 5, 13 or 24V
+		my $voltage = cleware::CUSBaccess::GetADCValue($c, $i, $scale);
+		print "\tmeasured voltage: $voltage\n";
+	}
+}