9.4.1. Example: Integrating TCL and Perl

A typical scenario might involve a TCL script automating the simulation of a design and invoking a Perl script to parse the simulation results and generate a summary report.

In this integration example, two scripting languages, TCL and Perl, are being used together to enhance the automation process in chip design. The TCL script is responsible for running the simulation of a design, which is a crucial part of the chip design workflow. Once the simulation is completed, the results generated need to be analyzed, which is where the Perl script comes in. It is called by the TCL script to handle the task of parsing through the simulation results and generating a comprehensive summary report.

Imagine a chef (TCL) who cooks a meal and then hands the leftover ingredients and notes to a food critic (Perl) to write a review of the meal. The chef perfectly executes the cooking, while the critic analyzes and summarizes the experience, allowing the restaurant to improve or showcase their offerings.

TCL Script (Automating Simulation):

Run the simulation

run_simulation -design my_design -options "fast"

Call Perl script to parse simulation results

exec perl parse_log.pl simulation.log

This chunk of the text illustrates the TCL script that is used to perform the simulation of a design. The first line, 'run_simulation -design my_design -options "fast"' indicates that the simulation is initiated for a specific design (my_design) with a set of options, here defined as 'fast', which likely means it will run quickly. Following the simulation, the script also uses the command 'exec perl parse_log.pl simulation.log' to execute a Perl script named 'parse_log.pl', which is intended to process the results saved in 'simulation.log'. This demonstrates how TCL scripts can seamlessly invoke Perl scripts to extend their functionality.

Think of the TCL script as a train (TCL) that picks up passengers (the design) at a station (simulation) and then delivers them to another destination (the Perl script). The train takes care of getting there quickly, but once at the next station, a conductor (Perl script) takes over to ensure everyone has the right information, summarizing the journey for the passengers.

Perl Script (Parsing Results):

Parse the log file and generate a report

open my $log_file, '<', 'simulation.log' or die "Cannot open log file:$!"; while (<log_file>) { if (/Timing: (\d+)/) { timing = 1; } } open my report, '>', 'report.txt' or die "Cannot open report file: $!"; print$report "Timing: $timing\n"; close$report; close $log_file;

In this chunk, the Perl script is focused on reading the simulation log file and extracting the timing data. It begins by opening the log file 'simulation.log' for reading. The 'while' loop iterates through each line of this log, searching specifically for a line that contains 'Timing:'. When this line is found, it uses a regular expression to capture the timing value. Next, the script opens a new report file 'report.txt' to write the extracted timing information. Afterward, it saves this data to the report file and closes both the report and the log files. This script effectively summarizes the results generated by the earlier simulation.

Envision this Perl script as a librarian (Perl) who reviews a stack of books (the log file) filled with statistics (timing data). As the librarian skims through the pages, they take note of any important timings noted in the text, and then they compile those notes into a neat report. This allows others to understand the insights gained from the books without having to read through each one themselves.

--