<% if (eval {$embedded->{'ip'} }) { %>
<%= $embedded->{'ip'} %> <%= $embedded->{'mac'} %>
<% if ($view eq 'gpio') { %>
<% foreach my $component ( sort keys %{$components} ) { %>
<% if ($component) { %>
<%= &subs::format_name($component) %>
<% for (my $n = $start_n; $n <= $room_max * $room_count; $n++) { %>
<%= include 'embedded/component',
n => $n,
pin => $n,
component => $component,
settings => $settings,
components => $components,
embedded => $embedded,
movements => $movements,
device_type => $device_type,
source => 'gpio'
%>
<% if ($n % ($room_max / 2) == 0 && $n != 0) { %>
<% } %>
<% if ($n % $room_max == 0 && $n != 0) { %>
<% } %>
<% } %>
<% } %>
<% } %>
<% if ($device_type eq 'teletype') { %>
<% foreach my $f (qw/typewriter_text_colour typewriter_background_colour chat_text_colour chat_background_colour pen_text_colour pen_background_colour/) { %>
<% } %>
<% } %>
<% if ($edt eq 'microcontroller') { %>
<% } elsif (scalar @{$embedded_ports} > 0) { %>
Emerge
<% } %>
<% } elsif ($view eq 'pins') { %>
<% my $colours = {
I2C => 'lightblue',
SPI => 'pink',
GP => 'lightgreen',
UART => 'purple',
GND => 'beige'
}; %>
<% if ($gb::microcontrollers->{$embedded->{'model'}}) { %>
<% my $pins = $gb::microcontrollers->{$embedded->{'model'}}->{'pins'}; %>
<% foreach my $fpin ( sort { $a <=> $b } keys %{$pins}) { %>
<% if ($fpin > (scalar keys %{$pins}) / 2) {
last;
} %>
<% my $lpin = (scalar keys %{$pins}) - $fpin + 1; %>
<% foreach my $pin ( ( $fpin, $lpin ) ) { %>
|
<% foreach my $method ( keys %{$pins->{$pin}} ) { %>
<% next if $method eq 'colour'; %>
<% if (eval { %{$pins->{$pin}->{$method}} }) { %>
<%= $method %>
<% foreach my $p ( sort keys %{$pins->{$pin}->{$method}} ) { %>
<%= $p %> <%= $pins->{$pin}->{$method}->{$p} %>
<% } %>
<% } else { %>
<%= $method %> <%= $pins->{$pin}->{$method} %>
<% } %>
<% } %>
|
|
<% } %>
<% } %>
<% } else { %>
I don't know this chip.
<% } %>
<% } elsif ($view eq 'diagrams') { %>
<% my $diagrams = eval { return decode_json &subs::setting_grabber({ app => 'embedded', setting => 'diagrams' }) } || []; %>
<% foreach my $d ( @{$diagrams} ) { %>
| <%= $d->{'name'} %> |
|
<% } %>
<% } %>
<% } %>