struct

Help/presentation_examples/example1/.gitignore

@@ -0,0 +1,4 @@
+runs
+.vscode
+workspace.code-workspace
+*.pyc

Help/presentation_examples/example1/project.bat

@@ -0,0 +1,2 @@
+@call c:\tools\oss-cad-suite\environment.bat 
+@tclsh scripts\project.tcl %* 

Help/presentation_examples/example1/scripts/gtk_wave_all_signals.tcl

@@ -0,0 +1,20 @@
+puts "Starting TCL script"
+#set path test1b_tb
+#gtkwave::forceOpenTreeNode $path
+set nfacs [ gtkwave::getNumFacs ]
+puts "There are $nfacs signals"
+set l [list]
+
+for {set i 0} {$i < $nfacs } {incr i} {
+    set facname [ gtkwave::getFacName $i ]
+	set numdots  [ expr {[llength [split $facname .]] - 1}]
+#	puts "$numdots"
+    if {$numdots == 1} {
+      lappend l "$facname"
+      puts "Added signal $facname"
+	}
+}
+
+set num_added [ gtkwave::addSignalsFromList $l ]
+gtkwave::setZoomRangeTimes [ gtkwave::getMinTime ] [ gtkwave::getMaxTime ]
+puts "Start time [ gtkwave::getMinTime ] end time: [ gtkwave::getMaxTime ]"

Help/presentation_examples/example1/scripts/project.tcl

@@ -0,0 +1,176 @@
+# Tcl launcher script for the project
+namespace eval project_launcher {
+
+    # Help information for this script
+    proc print_help {} {
+        variable script_file "project.tcl"
+        puts "\nDescription:"
+        puts "Perform actions related to this project.\n"
+        puts "Syntax:"
+        puts "$script_file"
+        puts "$script_file \[action\] \[args\]"
+        puts "Usage:"
+        puts "Name                   Description"
+        puts "-------------------------------------------------------------------------"
+        puts "\[action\]             Determine the action to be performed. Default value: help\n"
+        puts "                       Current actions: help, clean, sim, verify, test, view\n"
+        puts "\[args\]               Arguments related to the action.\n"
+        puts "                       --root <dir> changes the root reference for the project.\n"
+        puts "-------------------------------------------------------------------------\n"
+        exit 0
+    }
+
+    proc do_clean { root_dir } {
+        variable dir "$root_dir/runs"
+
+        puts "Cleaning all files in directory $dir...\n"
+
+        # Checking if the folder is empty to avoid error
+        if {[catch { glob "$dir/*" } result] != 1} {
+            file delete -force -- {*}[glob "$dir/*" ]
+        }
+    }
+
+    proc do_sim_icarus { root_dir verbose } {
+
+        # Checking if the folder is empty to avoid error
+        if {[file exists "$root_dir/scripts/run_iverilog.tcl"] == 1} {
+            #global root_dir_loc $root_dir
+            #source $root_dir/scripts/run_iverilog.tcl
+            try {
+                set results [exec tclsh $root_dir/scripts/run_iverilog.tcl $root_dir ]
+                set status 0
+            } trap CHILDSTATUS {results options} {
+                set status [lindex [dict get $options -errorcode] 2]
+            }
+
+            if {$status != 0} {
+                puts "Problem running the script :"
+                puts $results
+                return
+            }
+
+            if {[expr $verbose]} {
+                # output the result of the execution
+                puts $results
+            }
+
+        } else {
+            puts "The script run_iverilog.tcl does not exist in $root_dir/scripts"
+        }
+    }
+
+    proc do_sim_pytest { root_dir verbose } {
+
+        exec pytest $root_dir/tests/ >@stdout 2>@stderr
+    }
+
+    proc do_formal { root_dir } {
+        # We suppose that the sby file is meant to be run from the inside of the folder
+        # hence we cd there
+        if {[file pathtype $root_dir] != "absolute"} {
+            set root_dir "../$root_dir"
+        }
+        #set root_dir [file normalize $root_dir]
+        cd verification
+        #variable fname [glob -nocomplain $root_dir/verification/*.sby]
+        variable fname [glob -nocomplain *.sby]
+
+        if {[llength $fname]} {
+            set fname [lindex $fname 0]
+            puts "Using $fname file..."
+            exec sby -f $fname --prefix $root_dir/runs/verification/counter >@stdout 2>@stderr
+        } else {
+            puts "There are no .sby files present..."
+            cd ..
+            return
+        }
+        cd ..
+    }
+
+    proc do_view { root_dir } {
+
+        # Checking if the folder is empty to avoid error
+        if {[file exists "$root_dir/scripts/run_gtkwave.tcl"] == 1} {
+            try {
+                set results [exec tclsh $root_dir/scripts/run_gtkwave.tcl $root_dir ]
+                set status 0
+            } trap CHILDSTATUS {results options} {
+                set status [lindex [dict get $options -errorcode] 2]
+            }
+
+            if {$status != 0} {
+                puts "Problem running the script :"
+                puts $results
+                return
+            }
+
+        } else {
+            puts "The script run_gtkwave.tcl does not exist in $root_dir/scripts"
+        }
+    }
+
+    proc main {} {
+
+        variable root_dir
+        # Set the reference directory to where the script is
+        #set root_dir [file dirname [info script]]
+
+        # Set the reference directory for source file relative paths (by default the value is script directory path)
+        set root_dir "."
+
+        # Use origin directory path location variable, if specified in the tcl shell
+        if { [info exists ::root_dir_loc] } {
+            set root_dir $::root_dir_loc
+        }
+
+        variable action "help"
+
+        variable verbose false
+
+        if { $::argc > 0 } {
+            for {set i 0} {$i < $::argc} {incr i} {
+                set option [string trim [lindex $::argv $i]]
+                switch -regexp -- $option {
+                    "--root"   { incr i; set root_dir [lindex $::argv $i] }
+                    "--help"         { print_help }
+                    "help"         { print_help }
+                    "clean"     { set action "clean" }
+                    "sim"       {incr i; set action "sim_[lindex $::argv $i]" }
+                    "--verbose" { set verbose true }
+                    "-v"        { set verbose true }
+                    {pytest|cocotb|test}    {set action "pytest"}
+                    {formal|verify|verification}  {set action "formal"}
+					{view} {set action "view"}
+                    default {
+                        if { [regexp {^-} $option] } {
+                            puts "ERROR: Unknown option '$option' specified, please type '$script_file -tclargs --help' for usage info.\n"
+                            return 1
+                        }
+                    }
+                }
+            }
+        } else {
+            print_help
+        }
+
+        puts "Script started. The root dir is $root_dir. The action is: $action\n"
+
+        switch -regexp -- $action {
+            "clean"   { do_clean $root_dir }
+            {sim_icarus|^sim_$|sim_iverilog} { do_sim_icarus $root_dir $verbose}
+            {sim_cocotb|pytest} { do_sim_pytest $root_dir $verbose}
+            "formal" { do_formal $root_dir}
+			"view" {do_view $root_dir}
+        }
+
+
+
+    }
+
+
+
+
+    main
+
+}

Help/presentation_examples/example1/scripts/run_gtkwave.tcl

@@ -0,0 +1,88 @@
+# Tcl script for iverilog simulation
+namespace eval gtkwave {
+
+
+  # Help information for this script
+  proc print_help {} {
+    variable script_file "run_gtkwave.tcl"
+    puts "\nDescription:"
+    puts "Runs the iverilog simulation.\n"
+    puts "Syntax:"
+    puts "$script_file"
+    puts "$script_file \[action\] \[args\]"
+    puts "Usage:"
+    puts "Name                   Description"
+    puts "-------------------------------------------------------------------------"
+    puts "\[action\]             Determine the action to be performed. Default value: help\n"
+    puts "                       Current actions: help, clean\n"
+    puts "\[args\]               Arguments related to the action.\n"
+    puts "                       --root <dir> changes the root reference for the project.\n"
+    puts "-------------------------------------------------------------------------\n"
+    exit 0
+  }
+
+
+  proc main {} {
+
+    variable root_dir
+    # Set the reference directory to where the script is
+    #set root_dir [file dirname [info script]]
+
+    # Set the reference directory for source file relative paths (by default the value is script directory path)
+    set root_dir "."
+
+    if { [info exists ::root_dir_loc] } {
+      set root_dir $::root_dir_loc
+    }
+
+    if { $::argc > 0 } {
+      set root_dir [lindex $::argv 0]
+    }
+
+    puts "Starting gtkwave. The root dir is: $root_dir"
+
+    #   variable root [file dirname [file normalize [info script]]]
+    #   variable root [file dirname [file dirname [info script]]]
+    variable root $root_dir
+
+    variable view_file $root/runs/sim/iverilog/counter_tb.vcd 
+
+    variable gtkwave_script $root/scripts/gtk_wave_all_signals.tcl 
+
+    proc run_view {res} {
+      set name [file rootname $res]
+  
+      # set iverilog_args "$sim_iverilog::additional_options -g2012 -Wall -I $sim_iverilog::source_path -Y .sv -y $sim_iverilog::source_path -o $sim_iverilog::output_dir/$name.vvp $sim_iverilog::tb_path/$tb $sim_iverilog::sources_full_path"
+      #set gtkwave_args "-S $gtkwave::gtkwave_script $gtkwave::view_file"
+      set gtkwave_args "$gtkwave::view_file"
+
+	  #puts $gtkwave_args
+      try {
+        set results [exec gtkwave {*}$gtkwave_args]
+        set status 0
+      } trap CHILDSTATUS {results options} {
+        set status [lindex [dict get $options -errorcode] 2]
+      }
+
+      if {$status != 0} {
+        puts "Problem running gtkwave :"
+        puts $results
+        return
+      }
+
+      # output iverilog result
+      puts $results
+
+    
+    }
+
+    run_view $root_dir
+
+    exit 0
+  }
+
+  # run main
+
+  main
+
+}

Help/presentation_examples/example1/scripts/run_iverilog.tcl

@@ -0,0 +1,133 @@
+# Tcl script for iverilog simulation
+namespace eval sim_iverilog {
+
+
+  # Help information for this script
+  proc print_help {} {
+    variable script_file "run_iverilog.tcl"
+    puts "\nDescription:"
+    puts "Runs the iverilog simulation.\n"
+    puts "Syntax:"
+    puts "$script_file"
+    puts "$script_file \[action\] \[args\]"
+    puts "Usage:"
+    puts "Name                   Description"
+    puts "-------------------------------------------------------------------------"
+    puts "\[action\]             Determine the action to be performed. Default value: help\n"
+    puts "                       Current actions: help, clean\n"
+    puts "\[args\]               Arguments related to the action.\n"
+    puts "                       --root <dir> changes the root reference for the project.\n"
+    puts "-------------------------------------------------------------------------\n"
+    exit 0
+  }
+
+
+  proc main {} {
+
+    variable root_dir
+    # Set the reference directory to where the script is
+    #set root_dir [file dirname [info script]]
+
+    # Set the reference directory for source file relative paths (by default the value is script directory path)
+    set root_dir "."
+
+    if { [info exists ::root_dir_loc] } {
+      set root_dir $::root_dir_loc
+    }
+
+    if { $::argc > 0 } {
+      set root_dir [lindex $::argv 0]
+    }
+
+    puts "Starting simulation using iverilog. The root dir is: $root_dir"
+
+    #   variable root [file dirname [file normalize [info script]]]
+    #   variable root [file dirname [file dirname [info script]]]
+    variable root $root_dir
+
+    variable source_path $root/src/verilog
+
+    variable sources {example1.v}
+
+    variable tb_path $root/tests/verilog
+
+    variable test_benches {example1_tb.v}
+
+    proc append_path {root list} {
+      set l {}
+      foreach f $list {
+        lappend l $root/$f
+      }
+      return $l
+    }
+
+    variable sources_full_path [append_path $source_path $sources]
+    variable tb_full_path [append_path $tb_path $test_benches]
+
+    variable output_dir $root/runs/sim/iverilog
+
+    variable additional_options "-D VCD_DUMP"
+
+    proc run_sim {tb} {
+      set name [file rootname $tb]
+      puts "Running test bench $name"
+
+      puts "Cleaning files..."
+
+      #    file delete [glob -nocomplain $sim_iverilog::output_dir/*]
+
+      puts "Recreating path..."
+
+      file mkdir $sim_iverilog::output_dir
+
+      set iverilog_args "$sim_iverilog::additional_options -g2012 -Wall -I $sim_iverilog::source_path -Y .sv -y $sim_iverilog::source_path -o $sim_iverilog::output_dir/$name.vvp $sim_iverilog::tb_path/$tb $sim_iverilog::sources_full_path"
+
+
+      try {
+        set results [exec iverilog {*}$iverilog_args]
+        set status 0
+      } trap CHILDSTATUS {results options} {
+        set status [lindex [dict get $options -errorcode] 2]
+      }
+
+      if {$status != 0} {
+        puts "Problem running iverilog :"
+        puts $results
+        return
+      }
+
+      # output iverilog result
+      puts $results
+
+      set cwd [pwd]
+
+      puts "Running vvp..."
+
+      set vvp_cmd "vvp $name.vvp -lxt2"
+
+      cd $sim_iverilog::output_dir
+
+      #puts [pwd]
+      set results [exec {*}$vvp_cmd]
+
+      # output vvp result
+      puts $results
+
+      cd $cwd
+
+      puts "All done..."
+
+    }
+
+    foreach tb $test_benches {
+      run_sim $tb
+    }
+
+    exit 0
+  }
+
+  # run main
+
+  main
+
+}

Help/presentation_examples/example1/src/verilog/example1.v

@@ -0,0 +1,37 @@
+`default_nettype none
+module example1 (
+    input wire clk,     // global clock
+    input wire [7:0] edx,
+    output reg strobe,   // output strobe
+    output wire [7:0] res
+);
+
+localparam WIDTH=4;
+
+reg[WIDTH-1:0] count = 0;
+
+always_comb begin
+  strobe = &count;
+end
+
+always_ff @(posedge clk) begin
+   count <= count + 1;
+end
+
+
+assign res = edx + 5;
+
+endmodule
+
+/*
+module top_module (
+    input in1,
+    input in2,
+    input in3,
+    output out);
+    
+    always_comb 
+        out = ~(in1 ^ in2) ^ in3;
+
+endmodule
+*/

Help/presentation_examples/example1/tests/verilog/example1_tb.v

@@ -0,0 +1,39 @@
+`timescale 1ns/1ps
+`default_nettype none
+
+module example1_tb ();
+
+reg clk = 0;
+
+initial forever #5 clk = !clk;
+
+wire strobe;
+
+example1 count (.clk(clk), .strobe(strobe));
+
+
+initial begin
+`ifdef VCD_DUMP
+  $dumpfile("counter_tb.vcd");
+  $dumpvars(0,example1_tb);
+`endif
+end 
+
+
+initial begin
+`ifdef END_TIME
+    #`END_TIME $finish();
+`else
+    #1000 $finish();
+`endif
+end
+
+initial begin
+    #500 $finish();   
+end
+
+always @(posedge clk) begin
+    if (strobe) $display("Strobe");
+end
+
+endmodule

Help/presentation_examples/example1/verification/counter1.sby

@@ -0,0 +1,27 @@
+[tasks]
+bmc
+prove
+cover
+
+[options]
+bmc: mode bmc
+prove: mode prove
+cover: mode cover
+bmc: depth 100
+
+[engines]
+smtbmc
+#smtbmc z3
+#abc bmc3
+
+
+
+[script]
+read -verific 
+read -sv counter.v
+read -formal counter_formal.sv
+prep -top counter
+
+[files]
+../src/verilog/counter.v
+counter_formal.sv

Help/presentation_examples/example1/verification/counter_formal.sv

@@ -0,0 +1,48 @@
+`default_nettype none
+
+module counter_formal (
+    input wire clk,     // global clock
+    input wire reset,   // synchronous reset signal
+    (*anyseq*) input wire en,      // enable signal
+    input wire strobe,   // output strobe
+    input wire [counter.WIDTH-1:0] counter_reg 
+
+);
+
+`ifdef VERIFIC
+internal_check: assert property (@(posedge clk)
+                        disable iff (reset)
+                       en && (counter_reg==11)|=>(counter_reg==10)) ;
+
+decrease_enable_check: assert property (@(posedge clk)
+                            disable iff (reset || !en)
+                            (counter_reg >0 ) |=> (counter_reg == $past(counter_reg) - 1));
+
+roll_enable_check: assert property (@(posedge clk)
+                            disable iff (reset || !en)
+                            (counter_reg == 0 ) |=> (counter_reg == counter.INITIAL_VALUE));
+
+max_value_assert_check: assert property (
+                            @(posedge clk)
+                            (counter_reg <= counter.INITIAL_VALUE)
+);
+
+cover_0: cover property(
+        @(posedge clk)
+        (counter_reg == 0)
+);
+
+cover_2stb: cover property(
+        @(posedge clk)
+        (strobe == 1) |-> ##[+] (strobe == 1)
+);
+
+
+`endif
+
+endmodule
+
+bind counter counter_formal counter_f_inst(.*);
+
+
+//testing: assert property (@(posedge clk)(counter_reg==111)|=>(counter_reg==10));