axi_identification.v

//
// File .......... axi_identification.v
// Author ........ Steve Haywood
// Version ....... 1.1
// Date .......... 2 October 2022
// Standard ...... IEEE 1364-2001
// Description ...
//   AXI4-Lite controlled register bank written in basic Verilog. The register
// bank contains the following fixed length identification and timestamp
// strings.
//
// Description ................ 128 Characters - 32 Registers - 0x000 - 0x07F
// Company ....................  64 Characters - 16 Registers - 0x080 - 0x0BF
// Author .....................  64 Characters - 16 Registers - 0x0C0 - 0x0FF
// Version ....................  32 Characters -  8 Registers - 0x100 - 0x11F
// Timestamp ..................  32 Characters -  8 Registers - 0x120 - 0x13F
// Hash .......................  64 Characters - 16 Registers - 0x140 - 0x17F
// Unused ..................... 144 Characters - 36 Registers - 0x180 - 0x20F
//                              ---              ---            -------------
//                              528              132          - 0x000 - 0x20F
//


`timescale 1 ns / 1 ps


module axi_identification #
 (
  // Parameters (AXI4-Lite)
  localparam c_addr_w           = 9,                       // P:Address Bus Width (bits)
  localparam c_data_w           = 32,                      // P:Data Bus Width (bits)
  // Parameters (ID Strings)
  localparam c_id_description_w = 128,                     // P:Description Width (chars)
  localparam c_id_company_w     = 64,                      // P:Company Width (chars)
  localparam c_id_author_w      = 64,                      // P:Author Width (chars)
  localparam c_id_version_w     = 32,                      // P:Version Width (chars)
  localparam c_id_timestamp_w   = 32,                      // P:Timestamp Width (chars)
  localparam c_id_hash_w        = 64                       // P:Hash Width (chars)
 )
 (
  // Clock & Reset
  input  wire                             aclk,            // I:Clock
  input  wire                             aresetn,         // I:Reset
  // Identification Strings
  input  wire [8*c_id_description_w-1 :0] id_description,  // I:Description
  input  wire [8*c_id_company_w-1 : 0]    id_company,      // I:Company
  input  wire [8*c_id_author_w-1 : 0]     id_author,       // I:Author
  input  wire [8*c_id_version_w-1 : 0]    id_version,      // I:Version
  input  wire [8*c_id_timestamp_w-1 : 0]  id_timestamp,    // I:Timestamp
  input  wire [8*c_id_hash_w-1 : 0]       id_hash,         // I:Hash
  // AXI4-Lite - Write Address Channel
  input  wire [c_addr_w-1 : 0]            s_axi_awaddr,    // I:Write Address
  input  wire [2 : 0]                     s_axi_awprot,    // I:Write Protection Type
  input  wire                             s_axi_awvalid,   // I:Write Address Valid
  output reg                              s_axi_awready,   // O:Write Address Ready
  // AXI4-Lite - Write Data Channel
  input  wire [c_data_w-1 : 0]            s_axi_wdata,     // I:Write Data
  input  wire [(c_data_w/8)-1 : 0]        s_axi_wstrb,     // I:Write Strobes
  input  wire                             s_axi_wvalid,    // I:Write Valid
  output reg                              s_axi_wready,    // O:Write Ready
  // AXI4-Lite - Write Response Channel
  output reg  [1 : 0]                     s_axi_bresp,     // O:Write Response
  output reg                              s_axi_bvalid,    // O:Write Response Valid
  input  wire                             s_axi_bready,    // I:Write Response Ready
  // AXI4-Lite - Read Address Channel
  input  wire [c_addr_w-1 : 0]            s_axi_araddr,    // I:Read Address
  input  wire [2 : 0]                     s_axi_arprot,    // I:Read Protection Type
  input  wire                             s_axi_arvalid,   // I:Read Address Valid
  output reg                              s_axi_arready,   // O:Read Address Ready
  // AXI4-Lite - Read Data Channel
  output reg  [c_data_w-1 : 0]            s_axi_rdata,     // O:Read Data
  output reg  [1 : 0]                     s_axi_rresp,     // O:Read Response
  output reg                              s_axi_rvalid,    // O:Read Valid
  input  wire                             s_axi_rready     // I:Read Ready
 );


  // Constants
  localparam no_regs = 2**(c_addr_w - $clog2(c_data_w / 8));
  localparam id_description_lo = 0;
  localparam id_description_hi = id_description_lo + (c_id_description_w / 4) - 1;
  localparam id_company_lo     = 1 + id_description_hi;
  localparam id_company_hi     = id_company_lo + (c_id_company_w / 4) - 1;
  localparam id_author_lo      = 1 + id_company_hi;
  localparam id_author_hi      = id_author_lo + (c_id_author_w / 4) -1;
  localparam id_version_lo     = 1 + id_author_hi;
  localparam id_version_hi     = id_version_lo + (c_id_version_w / 4) - 1;
  localparam id_timestamp_lo   = 1 + id_version_hi;
  localparam id_timestamp_hi   = id_timestamp_lo + (c_id_timestamp_w / 4) - 1;
  localparam id_hash_lo        = 1 + id_timestamp_hi;
  localparam id_hash_hi        = id_hash_lo + (c_id_hash_w / 4) - 1;


  // Signals
  reg aw_en;
  reg [c_addr_w-$clog2(c_data_w / 8) - 1 : 0] axi_awaddr;
  reg [c_addr_w-$clog2(c_data_w / 8) - 1 : 0] axi_araddr;
  reg [c_data_w-1 : 0] registers_wr [no_regs - 1 : 0];
  wire [c_data_w-1 : 0] registers_rd [no_regs - 1 : 0];


  // Write Address Ready
  always @(posedge aclk)
    if (!aresetn) begin
      s_axi_awready <= 1'b0;
      aw_en <= 1'b1;
    end else if (s_axi_awvalid && !s_axi_awready && s_axi_wvalid && aw_en) begin
      s_axi_awready <= 1'b1;
      aw_en <= 1'b0;
    end else if (s_axi_bvalid && s_axi_bready) begin
      s_axi_awready <= 1'b0;
      aw_en <= 1'b1;
    end else
      s_axi_awready <= 1'b0;


  // Write Address Latch
  always @(posedge aclk)
    if (!aresetn)
      axi_awaddr <= {c_addr_w{1'b0}};
    else if (s_axi_awvalid && !s_axi_awready && s_axi_wvalid && aw_en)
      axi_awaddr <= s_axi_awaddr[c_addr_w - 1 : $clog2(c_data_w/8)];


  // Write Data Ready
  always @(posedge aclk)
    if (!aresetn)
      s_axi_wready <= 1'b0;
    else if (s_axi_awvalid && s_axi_wvalid && !s_axi_wready && aw_en)
      s_axi_wready <= 1'b1;
    else
      s_axi_wready <= 1'b0;


  // Write Data
  integer i;
  always @(posedge aclk)
    if (!aresetn)
      for (i = 0; i <= no_regs - 1; i = i + 1)
        registers_wr[i] <= {c_data_w{1'b0}};
    else if (s_axi_awvalid && s_axi_awready && s_axi_wvalid && s_axi_wready)
      for (i = 0; i <= c_data_w/8 - 1; i = i + 1)
        if (s_axi_wstrb[i])
          registers_wr[axi_awaddr][i*8 +: 8] <= s_axi_wdata[i*8 +: 8]; // Byte-Wise Write


  // Write Response
  always @(posedge aclk)
    if (!aresetn) begin
      s_axi_bvalid <= 1'b0;
      s_axi_bresp  <= 2'b00;
    end else if (s_axi_awvalid && s_axi_awready && s_axi_wvalid && s_axi_wready && !s_axi_bvalid) begin
      s_axi_bvalid <= 1'b1;
      s_axi_bresp  <= 2'b00;
    end else if (s_axi_bvalid && s_axi_bready)
      s_axi_bvalid <= 1'b0;


  // Read Address Ready
  always @(posedge aclk)
    if (!aresetn)
      s_axi_arready <= 1'b0;
    else if (s_axi_arvalid && !s_axi_arready)
      s_axi_arready <= 1'b1;
    else
      s_axi_arready <= 1'b0;


  // Read Address Latch
  always @(posedge aclk)
    if (!aresetn)
      axi_araddr  <= {c_addr_w{1'b0}};
    else if (s_axi_arvalid && !s_axi_arready)
      axi_araddr <= s_axi_araddr[c_addr_w - 1 : $clog2(c_data_w/8)];


  // Read Response
  always @(posedge aclk)
    if (!aresetn) begin
      s_axi_rvalid <= 1'b0;
      s_axi_rresp  <= 2'b00;
    end else if (s_axi_arvalid && s_axi_arready && !s_axi_rvalid) begin
      s_axi_rvalid <= 1'b1;
      s_axi_rresp  <= 2'b00;
    end else if (s_axi_rvalid && s_axi_rready)
      s_axi_rvalid <= 1'b0;


  // Read Data
  always @(posedge aclk)
    if (!aresetn)
      s_axi_rdata <= {c_data_w{1'b0}};
    else if (s_axi_arvalid && s_axi_arready && !s_axi_rvalid)
      s_axi_rdata <= registers_rd[axi_araddr];


  // Read Register Constants
  genvar j;
  generate
    for (j = 0; j <= no_regs - 1; j = j + 1) begin
      if      (j <= id_description_hi) assign registers_rd[j] = id_description[32*(j-id_description_lo) +: 32];
      else if (j <= id_company_hi    ) assign registers_rd[j] = id_company    [32*(j-id_company_lo    ) +: 32];
      else if (j <= id_author_hi     ) assign registers_rd[j] = id_author     [32*(j-id_author_lo     ) +: 32];
      else if (j <= id_version_hi    ) assign registers_rd[j] = id_version    [32*(j-id_version_lo    ) +: 32];
      else if (j <= id_timestamp_hi  ) assign registers_rd[j] = id_timestamp  [32*(j-id_timestamp_lo  ) +: 32];
      else if (j <= id_hash_hi       ) assign registers_rd[j] = id_hash       [32*(j-id_hash_lo       ) +: 32];
      else                             assign registers_rd[j] = 32'h00000000;
    end
  endgenerate


endmodule 

system_wrapper.sv

//
// File .......... system_wrapper.sv
// Author ........ Steve Haywood
// Version ....... 1.1
// Date .......... 2 October 2022
// Standard ...... IEEE 1800-2017
// Description ...
//   Top level wrapper for the underlying block design.
//


timeunit      1ns;
timeprecision 1ps; 


module system_wrapper #
 ( 
  // Parameters
  parameter string id_description = "",  // P:Description ............ Max 128 Characters
  parameter string id_company     = "",  // P:Company ................ Max  64 Characters
  parameter string id_author      = "",  // P:Author ................. Max  64 Characters
  parameter string id_version     = "",  // P:Version ................ Max  32 Characters
  parameter string id_timestamp   = "",  // P:Timestamp .............. Max  32 Characters
  parameter string id_hash        = ""   // P:Hash ................... Max  64 Characters
 )
 (
  // LEDs
  output [ 7:0] leds_tri_o,         // O:LEDs
  // Switches
  input  [ 7:0] switches_tri_i,     // I:Switches
  // System
  inout  [14:0] DDR_addr,           // B:Address
  inout  [ 2:0] DDR_ba,             // B:Bank Address
  inout         DDR_cas_n,          // B:Column Address Select
  inout         DDR_ck_n,           // B:Clock (Neg)
  inout         DDR_ck_p,           // B:Clock (Pos)
  inout         DDR_cke,            // B:Clock Enable
  inout         DDR_cs_n,           // B:Chip Select
  inout  [ 3:0] DDR_dm,             // B:Data Mask
  inout  [31:0] DDR_dq,             // B:Data Input/Output
  inout  [ 3:0] DDR_dqs_n,          // B:Data Strobe (Neg)
  inout  [ 3:0] DDR_dqs_p,          // B:Data Strobe (Pos)
  inout         DDR_odt,            // B:Output Dynamic Termination
  inout         DDR_ras_n,          // B:Row Address Select
  inout         DDR_reset_n,        // B:Reset
  inout         DDR_we_n,           // B:Write Enable
  inout         FIXED_IO_ddr_vrn,   // B:Termination Voltage
  inout         FIXED_IO_ddr_vrp,   // B:Termination Voltage
  inout  [53:0] FIXED_IO_mio,       // B:Peripheral Input/Output
  inout         FIXED_IO_ps_clk,    // B:System Reference Clock
  inout         FIXED_IO_ps_porb,   // B:Power On Reset
  inout         FIXED_IO_ps_srstb   // B:External System Reset
);


  // Function to convert a string to a vector (max 128 characters)
  function [1023:0] fmt(input string str);
    int len;
    bit [1023:0] tmp;
    len = str.len();
    for (int i=0; i<len; i++)
      tmp[8*i +: 8] = str.getc(i);
    fmt = tmp;
  endfunction


  // Top-Level Block Design
  system system_i
   (
    // Identification Strings
    .id_description    ( fmt(id_description) ),  // P:Description
    .id_company        ( fmt(id_company)     ),  // P:Company
    .id_author         ( fmt(id_author)      ),  // P:Author
    .id_version        ( fmt(id_version)     ),  // P:Version
    .id_timestamp      ( fmt(id_timestamp)   ),  // P:Timestamp
    .id_hash           ( fmt(id_hash)        ),  // P:Hash
    // LEDs
    .leds_tri_o        ( leds_tri_o          ),  // O:LEDs
    // Switches
    .switches_tri_i    ( switches_tri_i      ),  // I:Switches
    // System
    .DDR_addr          ( DDR_addr            ),  // B:Address
    .DDR_ba            ( DDR_ba              ),  // B:Bank Address
    .DDR_cas_n         ( DDR_cas_n           ),  // B:Column Address Select
    .DDR_ck_n          ( DDR_ck_n            ),  // B:Clock (Neg)
    .DDR_ck_p          ( DDR_ck_p            ),  // B:Clock (Pos)
    .DDR_cke           ( DDR_cke             ),  // B:Clock Enable
    .DDR_cs_n          ( DDR_cs_n            ),  // B:Chip Select
    .DDR_dm            ( DDR_dm              ),  // B:Data Mask
    .DDR_dq            ( DDR_dq              ),  // B:Data Input/Output
    .DDR_dqs_n         ( DDR_dqs_n           ),  // B:Data Strobe (Neg)
    .DDR_dqs_p         ( DDR_dqs_p           ),  // B:Data Strobe (Pos)
    .DDR_odt           ( DDR_odt             ),  // B:Output Dynamic Termination
    .DDR_ras_n         ( DDR_ras_n           ),  // B:Row Address Select
    .DDR_reset_n       ( DDR_reset_n         ),  // B:Reset
    .DDR_we_n          ( DDR_we_n            ),  // B:Write Enable
    .FIXED_IO_ddr_vrn  ( FIXED_IO_ddr_vrn    ),  // B:Termination Voltage
    .FIXED_IO_ddr_vrp  ( FIXED_IO_ddr_vrp    ),  // B:Termination Voltage
    .FIXED_IO_mio      ( FIXED_IO_mio        ),  // B:Peripheral Input/Output
    .FIXED_IO_ps_clk   ( FIXED_IO_ps_clk     ),  // B:System Reference Clock
    .FIXED_IO_ps_porb  ( FIXED_IO_ps_porb    ),  // B:Power On Reset
    .FIXED_IO_ps_srstb ( FIXED_IO_ps_srstb   )   // B:External System Reset
   );


endmodule

project.txt

Zedboard LEDs & Switches Example Design
SpaceWire UK
Steve Haywood
4.0

pre_synth.tcl

#
# File .......... pre_synth.tcl
# Author ........ Steve Haywood
# Version ....... 1.1
# Date .......... 2 October 2022
# Description ...
#   Script to read product/project information from a text file, obtain GIT
# repository information and set the generics/parameters on the top level
# module.
#

# Read Product/Project Information
if { [catch {set id_file [open "../../../project.txt" r]} msg] } {
  set id_description "?"
  set id_company "?"
  set id_author "?"
  set id_version "?"
  puts "ERROR :-"
  puts $msg
} {
  gets $id_file id_description
  gets $id_file id_company
  gets $id_file id_author
  gets $id_file id_version
  close $id_file
}

# Get GIT timestamp
set dfmt "%d-%b-%Y - %H:%M:%S"
if { [catch {set id_timestamp [exec git log -1 --pretty=%cd --date=format:$dfmt]} msg] } {
  set id_timestamp "00-Xxx-0000 - 00:00:00"
  puts "ERROR :-"
  puts $msg
}

# Get GIT hash
if { [catch {set id_hash [exec git log -1 --pretty=%H]} msg] } {
  set id_hash "0000000000000000000000000000000000000000"
  puts "ERROR :-"
  puts $msg
}

# Get GIT status
if { [catch {set status [exec git status -s]} msg] } {
  append id_version " (undefined)"
  puts "ERROR :-"
  puts $msg
} {
  if {$status ne ""} {
    append id_version " (unstaged)"
  } {
    if { [catch {set status [exec git branch -r --contains $id_hash]} msg] } {
      append id_version " (undefined)"
      puts "ERROR :-"
      puts $msg
    } {
      if {$status eq ""} {
        append id_version " (unpushed)"
      }
    }
  }
}

# Replace space character with its octal code
proc space_replace {str} {
  return [string map {" " "\\040"} $str]
}

# Replace spaces in information strings
set id_description [space_replace $id_description]
set id_company     [space_replace $id_company]
set id_author      [space_replace $id_author]
set id_version     [space_replace $id_version]
set id_timestamp   [space_replace $id_timestamp]
set id_hash        [space_replace $id_hash]

# Set Generics/Parameters
set_property generic " \
  id_description=\"$id_description\" \
  id_company=\"$id_company\" \
  id_author=\"$id_author\" \
  id_version=\"$id_version\" \
  id_timestamp=\"$id_timestamp\" \
  id_hash=\"$id_hash\" \
" [current_fileset]

.gitignore

/*

petalinux-build-id.sh

#!/bin/bash

#
# File .......... petalinux-build-id.tcl
# Author ........ Steve Haywood
# Version ....... 1.0
# Date .......... 2 October 2022
# Description ...
#   Script to read project information file, obtain GIT repository information,
# append project information file with GIT information, build PetaLinux project
# and then restore project information file.
#
#

# Set identification file
project="project-spec/meta-user/recipes-apps/website/files/project.txt"

# Only perform bulk of actions if identification file
if [ -f "$project" ]; then

  # Read project information
  readarray -t ids < project-spec/meta-user/recipes-apps/website/files/project.txt

  # Display identification information
  echo -e '\033[1mNOTE\033[0m: Building PetaLinux with the following identification'
  echo "Description ... ${ids[0]}"
  echo "Company ....... ${ids[1]}"
  echo "Author ........ ${ids[2]}"

  # Get GIT timestamp
  id_timestamp=$(git log -1 --pretty=%cd --date=format:"%d-%b-%Y - %H:%M:%S")
  if [ $? -ne 0 ]; then
    id_timestamp="00-Xxx-0000 - 00:00:00"
  fi

  # Get GIT hash
  id_hash=$(git log -1 --pretty=%H)
  if [ $? -ne 0 ]; then
    id_hash="0000000000000000000000000000000000000000"
  fi

  # Get GIT status
  id_append=""
  status=$(git status -s)
  if [ $? -ne 0 ]; then
    id_append="(undefined)"
  else
    if [ ! -z "$status" ]; then
    	id_append="(unstaged)"
    else
      status=$(git branch -r --contains ${id_hash})
      if [ $? -ne 0 ]; then
        id_append="(undefined)"
      else
        if [ -z "$status" ]; then
          id_append="(unpushed)"
        fi
      fi
    fi
  fi

  # Display identification information
  echo "Version ....... ${ids[3]} ${id_append}"
  echo "Timestamp ..... $id_timestamp"
  echo "Hash .......... $id_hash"

  # Modify project information file
  fname="$project"
  echo ${ids[0]}               > ${fname} # Description
  echo ${ids[1]}              >> ${fname} # Company
  echo ${ids[2]}              >> ${fname} # Author
  echo ${ids[3]} ${id_append} >> ${fname} # Version
  echo ${id_timestamp}        >> ${fname} # Timestamp
  echo ${id_hash}             >> ${fname} # Hash

  # Build PetaLinux
  $(which petalinux-build)
  jobs -l
  wait

  # Restore project information file
  echo ${ids[0]}  > ${fname} # Description
  echo ${ids[1]} >> ${fname} # Company
  echo ${ids[2]} >> ${fname} # Author
  echo ${ids[3]} >> ${fname} # Version

else

  # Build PetaLinux
  $(which petalinux-build)

fi

.bashrc (partial)

209. # Aliases
     
210. alias petalinux-build='~/projects/common/other/src/script/petalinux-build-id.sh'
     

project.txt

Zedboard PetaLinux Example Design
SpaceWire UK
Steve Haywood
10.0

website.bb

#
# This file is the website recipe.
#

SUMMARY = "Simple website application"
SECTION = "PETALINUX/apps"
LICENSE = "MIT"
LIC_FILES_CHKSUM = "file://${COMMON_LICENSE_DIR}/MIT;md5=0835ade698e0bcf8506ecda2f7b4f302"

SRC_URI = "file://index.html"
SRC_URI += "file://uptime.js"
SRC_URI += "file://zedboard.png"
SRC_URI += "file://styles.css"
SRC_URI += "file://cgi-bin/index.cgi"
SRC_URI += "file://cgi-bin/uptime.cgi"
SRC_URI += "file://amber.gif"
SRC_URI += "file://green.gif"
SRC_URI += "file://red.gif"
SRC_URI += "file://project.txt"

FILES_${PN} += "/srv/www"

S = "${WORKDIR}"

do_install() {
     install -d ${D}/srv/www
     install -m 0644 ${S}/index.html ${D}/srv/www/index_original.html
     install -m 0644 ${S}/uptime.js ${D}/srv/www
     install -m 0644 ${S}/zedboard.png ${D}/srv/www
     install -m 0644 ${S}/styles.css ${D}/srv/www
     install -m 0644 ${S}/amber.gif ${D}/srv/www
     install -m 0644 ${S}/green.gif ${D}/srv/www
     install -m 0644 ${S}/red.gif ${D}/srv/www
     install -m 0644 ${S}/project.txt ${D}/srv/www
     install -d ${D}/srv/www/cgi-bin
     install -m 0755 ${S}/cgi-bin/index.cgi ${D}/srv/www/cgi-bin
     install -m 0755 ${S}/cgi-bin/uptime.cgi ${D}/srv/www/cgi-bin
}

index.cgi

#!/bin/sh

# Output Header
printf "Content-type: text/html\n\n"

# Get information
sys_host=$(hostname)
sys_time=$(date)
sys_load=$(awk '{print $1}' /proc/loadavg)
sys_up=$(awk '{print $1}' /proc/uptime)
cpu_model=$(grep model /proc/cpuinfo | cut -d : -f2 | tail -1 | sed 's/\s//')
cpu_cores=$(grep -c ^processor /proc/cpuinfo)
mem_total=$(free -m | awk 'NR==2{print $2}')
mem_used=$(free -m | awk 'NR==2{print $3}')
mem_free=$(free -m | awk 'NR==2{print $4}')
net_mac=$(cat /sys/class/net/eth0/address)
net_ip_loc=$(ip a | grep inet | grep -vw lo | grep -v inet6 | cut -d \/ -f1 | sed 's/[^0-9\.]*//g')
net_ip_ext=$(wget -q -O- http://ipecho.net/plain)

# Output HTML
cat <<EOF
<!DOCTYPE html>
<html lang="en">
<head>
<meta http-equiv="content-type" content="text/html; charset=UTF-8">
<link href="../styles.css" rel="stylesheet">
<title>Zedboard Webserver</title>
</head>
<body onload="add_register()">

<div class="section"><h2>Zedboard Webserver</h2></div>

<div class="section">
<table>
<thead>
<tr><th colspan="3">Operating System Information <button onclick="read_os_ids()">Read ID</button></th>
</tr>
</thead>
<tbody>
<tr>
<td style="text-align:right">Description :</td>
<td style="text-align:left" id="oid_0">Unknown</td>
<td><img id="osid_0" style="vertical-align:middle" src="../amber.gif" title="Unknown!" alt="Missing Image!"></td>
</tr>
<tr>
<td style="text-align:right">Company :</td>
<td style="text-align:left" id="oid_1">Unknown</td>
<td><img id="osid_1" style="vertical-align:middle" src="../amber.gif" title="Unknown!" alt="Missing Image!"></td>
</tr>
<tr>
<td style="text-align:right">Author :</td>
<td style="text-align:left" id="oid_2">Unknown</td>
<td><img id="osid_2" style="vertical-align:middle" src="../amber.gif" title="Unknown!" alt="Missing Image!"></td>
</tr>
<tr>
<td style="text-align:right">Version :</td>
<td style="text-align:left" id="oid_3">Unknown</td>
<td><img id="osid_3" style="vertical-align:middle" src="../amber.gif" title="Unknown!" alt="Missing Image!"></td>
</tr>
<tr>
<td style="text-align:right">Timestamp :</td>
<td style="text-align:left" id="oid_4">Unknown</td>
<td><img id="osid_4" style="vertical-align:middle" src="../amber.gif" title="Unknown!" alt="Missing Image!"></td>
</tr>
<tr>
<td style="text-align:right">Hash :</td>
<td style="text-align:left" id="oid_5">Unknown</td>
<td><img id="osid_5" style="vertical-align:middle" src="../amber.gif" title="Unknown!" alt="Missing Image!"></td>
</tr>
</tbody>
</table>
<table>
<thead>
<tr><th colspan="3">Firmware Information <input type="submit" value="Read ID" id="read_ids" onclick="read_ids()"></th>
</tr>
</thead>
<tbody>
<tr>
<td style="text-align:right">Description :</td>
<td style="text-align:left" id="id_0">Unknown</td>
<td><img id="sid_0" style="vertical-align:middle" src="../amber.gif" title="Unknown!" alt="Missing Image!"></td>
</tr>
<tr>
<td style="text-align:right">Company :</td>
<td style="text-align:left" id="id_1">Unknown</td>
<td><img id="sid_1" style="vertical-align:middle" src="../amber.gif" title="Unknown!" alt="Missing Image!"></td>
</tr>
<tr>
<td style="text-align:right">Author :</td>
<td style="text-align:left" id="id_2">Unknown</td>
<td><img id="sid_2" style="vertical-align:middle" src="../amber.gif" title="Unknown!" alt="Missing Image!"></td>
</tr>
<tr>
<td style="text-align:right">Version :</td>
<td style="text-align:left" id="id_3">Unknown</td>
<td><img id="sid_3" style="vertical-align:middle" src="../amber.gif" title="Unknown!" alt="Missing Image!"></td>
</tr>
<tr>
<td style="text-align:right">Timestamp :</td>
<td style="text-align:left" id="id_4">Unknown</td>
<td><img id="sid_4" style="vertical-align:middle" src="../amber.gif" title="Unknown!" alt="Missing Image!"></td>
</tr>
<tr>
<td style="text-align:right">Hash :</td>
<td style="text-align:left" id="id_5">Unknown</td>
<td><img id="sid_5" style="vertical-align:middle" src="../amber.gif" title="Unknown!" alt="Missing Image!"></td>
</tr>
</tbody>
</table>
</div>

<div class="section"><img src="../zedboard.png" alt="Missing Image!"></div>

<div class="section">

<table>
<tr><th colspan="2">System</th></tr>
<tr><td>Hostname</td>
<td>${sys_host}</td>
</tr><tr><td>Time</td><td>${sys_time}</td></tr>
<tr><td>Uptime</td><td><span id="uptime_text">${sys_up}</span> seconds <button onclick="get_uptime()">Refresh</button> Auto :
<select id="uptime" onchange="uptime();">
  <option value="0">Off</option>
  <option value="1">1s</option>
  <option value="5">5s</option>
</select>
</td></tr>
</table>

<table>
<tr><th colspan="2">CPU</th></tr>
<tr><td>Model</td>
<td>${cpu_model}</td></tr>
<tr><td>Cores</td><td>${cpu_cores}</td></tr>
<tr><td>Load</td><td>${sys_load}</td></tr>
</table>

<table>
<tr><th colspan="2">Memory</th></tr>
<tr><td>Total</td><td>${mem_total} Mb</td></tr>
<tr><td>Used</td><td>${mem_used} Mb</td></tr>
<tr><td>Free</td><td>${mem_free} Mb</td></tr>
</table>

<table>
<tr><th colspan="2">Network</th></tr>
<tr><td>MAC Address</td><td>${net_mac}</td></tr>
<tr><td>Internal IP</td><td>${net_ip_loc}</td></tr>
<tr><td>External IP</td><td>${net_ip_ext}</td></tr>
</table>

</div>

<div class="section">
<table id="registers">
<tr>
<th>Address</th>
<th>Peek Value</th>
<th>Sel</th>
<th>Peek</th>
<th>Status</th>
<th>Copy</th>
<th>Poke Value</th>
<th>Sel</th>
<th>Poke</th>
<th>Status</th>
<th>Description</th>
</tr>
</table>
<br><br>
<input title="Add new row to end of address table" type="button" value="Add" onclick="add_row()">
<select title="Set type of row to add to address table" id="type">
  <option value="0">Register</option>
  <option value="1">Section</option>
</select>
<input title="Remove last address from table" type="button" value="Remove" onclick="rem_register()">
<input title="Peek all selected addresses in table" type="button" value="Peek All" onclick="peek_all()">
<input title="Copy all table peek values into poke values" type="button" value="Copy All" onclick="copy_all()">
<input title="Poke all selected addresses in table" type="button" value="Poke All" onclick="poke_all()">
Peek Refresh :
<select title="Set timer interval for automatic peek of table addresses" id="timer" onchange="timer()">
  <option value="0">Off</option>
  <option value="1">1s</option>
  <option value="5">5s</option>
</select>
Number Format :
<select title="Set number format for peek and poke values" id="format" onchange="format()">
  <option value="0">Hexadecimal</option>
  <option value="1">Unsigned</option>
</select>
Configuration :
<button title="Create configuration file from table" onclick="create_config()">Create...</button> <a title="Right click and Save Link As... to locate and rename this file" download="config.txt" id="download" href="" style="display: none">config.txt</a>
<input title="Read configuration file into table" type="file" id="load_config">
</div>

<div class="section">Designed by Steve Haywood @ 2021</div>

<script src="../uptime.js"></script>

</body>
</html>
EOF

uptime.js

// Requests
var timer_uptime;
var timer_peek_all;

// Download OS information file & display result
async function read_os_ids() {
  let response = await fetch("/project.txt");
  if (response.status == 200) {
    let ids = await response.text();
    fields = ids.split(/\r?\n/);
  }
  for (var i = 0; i < 6; i++) {
    const now = Date.now();
    const txt_obj = document.getElementById("oid_" + i);
    const img_obj = document.getElementById("osid_" + i);
    if (response.status == 200) {
      if (i < fields.length && fields[i] != "") {
        img_obj.src = "../green.gif?" + now;
        img_obj.title = "Last file fetch successful";
        txt_obj.innerHTML = fields[i];
      } else {
        img_obj.src = "../red.gif?" + now;
        img_obj.title = "Missing field information";
        txt_obj.innerHTML = "Unknown";
      }
    } else {
      img_obj.src = "../red.gif?" + now;
      img_obj.title = "Last file fetch failed";
      txt_obj.innerHTML = "Unknown";
    }
  }
}

// Peek all strings
function read_ids() {
  read_id(0x000, 0);
  read_id(0x080, 1);
  read_id(0x0C0, 2);
  read_id(0x100, 3);
  read_id(0x120, 4);
  read_id(0x140, 5);
}

// Peek string & display result
function read_id(offset, reg) {
  var url = "/cgi-bin/peekstring?0x40000000&4096&" + offset + "&128";
  if (window.XMLHttpRequest) {
    var ajaxReq = new XMLHttpRequest();
    ajaxReq.onreadystatechange = function() {
      if (ajaxReq.readyState == 4 && ajaxReq.status == 200) {
        var respText = ajaxReq.responseText;
        var img_obj = document.getElementById("sid_" + reg);
        // Unique number is added to image to avoid caching issues on separate animations
        const now = Date.now();
        if (respText.substr(0,6) == "Error:") {
          img_obj.src = "../red.png?" + now;
          img_obj.title = "Last peekstring failed : " + respText.substr(7);
        } else {
          const now = Date.now();
          img_obj.src = "../green.gif?" + now;
          img_obj.title = "Last peekstring successful";
          document.getElementById("id_" + reg).innerHTML = respText;
        }
      }
    }
    ajaxReq.open("POST", url, true);
    ajaxReq.send(null);
  }
}

// Get uptime
function get_uptime(reg) {
  var url = "cgi-bin/uptime.cgi";
  if (window.XMLHttpRequest) {
    var ajaxReq = new XMLHttpRequest();
    ajaxReq.onreadystatechange = function() {
      if (ajaxReq.readyState == 4 && ajaxReq.status == 200) {
        var respText = ajaxReq.responseText;
        txtObj = document.getElementById("uptime_text");
        if (txtObj) {
          txtObj.innerHTML = respText;
        }
      }
    }
    ajaxReq.open("POST", url, true);
    ajaxReq.send(null);
  }
}

// Update uptime timer
function uptime() {
  clearInterval(timer_uptime);
  var uptime = document.getElementById("uptime");
  var interval = uptime.value;
  if (interval > 0) {
    timer_uptime = setInterval("get_uptime()", 1000 * interval);
  }
}

// Update peek_all timer
function timer() {
  clearInterval(timer_peek_all);
  var timer = document.getElementById("timer");
  interval = timer.value;
  if (interval > 0) {
    timer_peek_all = setInterval("peek_all()", 1000 * interval);
  }
}

// Update number format
function format() {
  var table = document.getElementById("registers");
  var rows = table.rows.length;
  var peek;
  var poke;
  for (var index = 0; index < rows; index++) {
    peek = document.getElementById("peek_" + index);
    if (peek) {
      peek.value = fmtUnsignedLong(parseInt(peek.value));
    }
    poke = document.getElementById("poke_" + index);
    if (poke) {
      poke.value = fmtUnsignedLong(parseInt(poke.value));
    }
  }
}

// Convert unsigned long to dec/hex string
function fmtUnsignedLong(value) {
  var format = document.getElementById("format");
  var hexStr;
  if (format.value == 0) {
    hexStr = value.toString(16).toUpperCase();
    hexStr = "0x" + "00000000".substr(0, 8 - hexStr.length) + hexStr;
  } else {
    hexStr = value.toString(10);
  }
  return hexStr;
}

// Copy peek to poke
function copy(reg) {
  var peek = document.getElementById("peek_" + reg);
  if (peek) {
    var poke = document.getElementById("poke_" + reg);
    if (poke) {
      poke.value = peek.value;
    }
  }
}

// Copy all peek to poke
function copy_all() {
  var table = document.getElementById("registers");
  var rows = table.rows.length - 1;
  for (var index = 0; index < rows; index++) {
    copy(index);
  }
}

// Peek address & display result
function peek(reg) {
  var url = "/cgi-bin/peek?" + document.getElementById("addr_" + reg).value;
  if (window.XMLHttpRequest) {
    var ajaxReq = new XMLHttpRequest();
    ajaxReq.onreadystatechange = function() {
      if (ajaxReq.readyState == 4 && ajaxReq.status == 200) {
        var respText = ajaxReq.responseText;
        var img_obj = document.getElementById("speek_" + reg);
        // Unique number is added to image to avoid caching issues on separate animations
        const now = Date.now();
        if (respText.substr(0,6) == "Error:") {
          img_obj.src = "../red.gif?" + now;
          img_obj.title = "Last peek failed : " + respText.substr(7);
        } else {
          img_obj.src = "../green.gif?" + now;
          img_obj.title = "Last peek successful";
          document.getElementById("peek_" + reg).value = fmtUnsignedLong(parseInt(respText));
        }
      }
    }
    ajaxReq.open("POST", url, true);
    ajaxReq.send(null);
  }
}

// Peek all selected addresses in section
function peek_section(row) {
  var obj_sel;
  do {
    row++;
    obj_sel = document.getElementById("peek_sel_" + row);
    if (obj_sel) {
      if (obj_sel.checked) {
        peek(row);
      }
    }
  } while (obj_sel);
}

// Peek all selected addresses in table
function peek_all() {
  var table = document.getElementById("registers");
  var rows = table.rows.length - 1;
  for (var index = 0; index < rows; index++) {
    const obj_sel = document.getElementById("peek_sel_" + index);
    if (obj_sel) {
      if (obj_sel.checked) {
        peek(index);
      }
    }
  }
}

// Poke address & display result
function poke(reg) {
  var url = "/cgi-bin/poke?" + document.getElementById("addr_" + reg).value + "&" + document.getElementById("poke_" + reg).value;
  if (window.XMLHttpRequest) {
    var ajaxReq = new XMLHttpRequest();
    ajaxReq.onreadystatechange = function() {
      if (ajaxReq.readyState == 4 && ajaxReq.status == 200) {
        var respText = ajaxReq.responseText;
        var img_obj = document.getElementById("spoke_" + reg);
        // Unique number is added to image to avoid caching issues on separate animations
        const now = Date.now();
        if (respText.substr(0,6) == "Error:") {
          img_obj.src = "../red.gif?" + now;
          img_obj.title = "Last poke failed : " + respText.substr(7);
        } else {
          img_obj.src = "../green.gif?" + now;
          img_obj.title = "Last poke successful";
        }
      }
    }
    ajaxReq.open("POST", url, true);
    ajaxReq.send(null);
  }
}

// Poke all selected addresses in section
function poke_section(row) {
  var obj_sel;
  do {
    row++;
    obj_sel = document.getElementById("poke_sel_" + row);
    if (obj_sel) {
      if (obj_sel.checked) {
        poke(row);
      }
    }
  } while (obj_sel);
}

// Poke all selected addresses in table
function poke_all() {
  var table = document.getElementById("registers");
  var rows = table.rows.length - 1;
  for (var index = 0; index < rows; index++) {
    const obj_sel = document.getElementById("poke_sel_" + index);
    if (obj_sel) {
      if (obj_sel.checked) {
        poke(index);
      }
    }
  }
}

// Add row to table
function add_row() {
  const obj_type = document.getElementById("type");
  const row_type = obj_type.value;
  switch(row_type) {
    case "0":
      add_register();
      break;
    case "1":
      add_section();
      break;
    default:
      break;
  }
}

// Add row to table
function add_register(reg) {
  var table = document.getElementById("registers");
  var next = table.rows.length - 1;
  var row = table.insertRow(-1);
  var newcell;
  var addr = 0x41200000;
  if (next > 0) {
    const obj_addr = document.getElementById("addr_" + (next - 1));
    if (obj_addr) {
      addr = parseInt(document.getElementById("addr_" + (next - 1)).value) + 4;
    }
  }
  newcell = row.insertCell(0);
  newcell.innerHTML = '<input title="Address to peek/poke" type="text" id="addr_' + next + '" value="' + fmtUnsignedLong(addr) + '" size="10">';
  newcell = row.insertCell(1);
  newcell.innerHTML = '<input title="Value peeked at address" type="text" id="peek_' + next + '" value="0x00000000" size="10" readonly="readonly"></td>';
  newcell = row.insertCell(2);
  newcell.innerHTML = '<input title="Select address for peeking" type="checkbox" id="peek_sel_' + next + '" checked></td>';
  newcell = row.insertCell(3);
  newcell.innerHTML = '<input title="Peek address" type="submit" value="Peek" onclick="peek(' + next + ')">';
  newcell = row.insertCell(4);
  newcell.innerHTML = '<img title="Peek status" id="speek_' + next + '" style="vertical-align:middle" src="../amber.gif" alt="Missing Image!">';
  newcell = row.insertCell(5);
  newcell.innerHTML = '<input title="Copy peek value into poke value" type="submit" value=">>" onclick="copy(' + next + ')">';
  newcell = row.insertCell(6);
  newcell.innerHTML = '<input title="Value to poke at address" type="text" id="poke_' + next + '" value="0x00000000" size="10">';
  newcell = row.insertCell(7);
  newcell.innerHTML = '<input title="Select address for poking" type="checkbox" id="poke_sel_' + next + '" checked></td>';
  newcell = row.insertCell(8);
  newcell.innerHTML = '<input title="Poke address" type="submit" value="Poke" onclick="poke(' + next + ')">';
  newcell = row.insertCell(9);
  newcell.innerHTML = '<img title="Poke status" id="spoke_' + next + '" style="vertical-align:middle" src="../amber.gif" alt="Missing Image!">';
  newcell = row.insertCell(10);
  newcell.innerHTML = '<input title="Description of address" type="text" id="name_' + next + '" value="Register @ ' + fmtUnsignedLong(addr) + '" size="40">';
}

// Add group row to table
function add_section(reg) {
  var table = document.getElementById("registers");
  var next = table.rows.length - 1;
  var row = table.insertRow(-1);
  var newcell;
  newcell = row.insertCell(0);
  newcell.colSpan = "3";
  newcell.innerHTML = "--- Section ---";
  newcell = row.insertCell(1);
  newcell.innerHTML = '<input title="Peek all selected addresses in section" type="submit" value="Peek" onclick="peek_section(' + next + ')">';
  newcell = row.insertCell(2);
  newcell.colSpan = "4";
  newcell.innerHTML = "--- Section ---";
  newcell = row.insertCell(3);
  newcell.innerHTML = '<input title="Poke all selected addresses in section" type="submit" value="Poke" onclick="poke_section(' + next + ')">';
  newcell = row.insertCell(4);
  newcell = row.insertCell(5);
  newcell.colSpan = "2";
  newcell.innerHTML = '<input title="Description of section" type="text" id="name_' + next + '" value="Section Description" size="40">';
}

// Remove row from table
function rem_register(reg) {
  var table = document.getElementById("registers");
  if (table.rows.length > 1) {
    table.deleteRow(-1);
  }
}

// Remove all rows from table
function remove_all() {
  var table = document.getElementById("registers");
  var rows = table.rows.length - 1;
  for (var index = 0; index < rows; index++) {
    table.deleteRow(-1);
  }
}

// Note: browser file access is made difficult for security reasons - there maybe a better way of doing file read & write.

var config_file = null;

// Create virtual configuration file from address table for user to download
function create_config() {
  var text = "";
  var table = document.getElementById("registers");
  const rows = table.rows.length - 1;
  for (var index = 0; index < rows; index++) {
    const obj_addr = document.getElementById("addr_" + index);
    if (obj_addr) { // Register type
      var addr = document.getElementById("addr_" + index).value;
      var peek_sel = document.getElementById("peek_sel_" + index).checked;
      var poke = document.getElementById("poke_" + index).value;
      var poke_sel = document.getElementById("poke_sel_" + index).checked;
      var name = document.getElementById("name_" + index).value;
      text += "reg" + "|" + addr + "|" + peek_sel + "|" + poke + "|" + poke_sel + "|"+ name + "\n";
    } else { // Section type
      var name = document.getElementById("name_" + index).value;
      text += "sec" + "|" + name + "\n";
    }
  }
  const data = new Blob([text], {type: 'text/plain'});
  if (config_file !== null) {
    URL.revokeObjectURL(config_file);
  }
  config_file = URL.createObjectURL(data);
  var link = document.getElementById('download');
  link.href = config_file;
  link.style.display = 'inline';
}

// Read configuration file and update address table
function load_config(input) {
  var file = input.target.files[0];
  if (file) {
    var reader = new FileReader();
    reader.onload = function(input) {
      var contents = input.target.result;
      const lines = contents.split(/\r\n|\n/);
      remove_all();
      lines.forEach((line) => {
        if (line.length > 0) {
          var table = document.getElementById("registers");
          var next = table.rows.length - 1;
          const values = line.split("|");
          switch(values[0]) {
            case "reg":
              add_register();
              document.getElementById("addr_" + next).value = values[1];
              if (values[2] == "false") {
                document.getElementById("peek_sel_" + next).checked = false;
              }
              document.getElementById("poke_" + next).value = values[3];
              if (values[4] == "false") {
                document.getElementById("poke_sel_" + next).checked = false;
              }
              document.getElementById("name_" + next).value = values[5];
              break;
            case "sec":
              add_section();
              document.getElementById("name_" + next).value = values[1];
              break;
            default:
              alert("Error: Unrecognized table type found (" + values[0] + "), ignoring.");
          }
        }
      });
    };
    reader.readAsText(file);
  }
}

document.getElementById('load_config').addEventListener('change', load_config, false);